Aggiustamenti per videi veloci

git-svn-id: svn://10.65.10.50/trunk@4028 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luciano 1996-12-20 16:05:50 +00:00
parent 12f4ee0441
commit f64ed5162b
34 changed files with 11991 additions and 11903 deletions

View File

@ -1,7 +1,7 @@
#include "770100a.h"
TOOLBAR "" 0 18 0 4
BUTTON F_GESTPERC 21 2
BUTTON F_GESTPERC 22 2
BEGIN
PROMPT -13 -3 "~Percipienti"
MESSAGE RUN,775,-0,#F_CODDITTA,#F_TIPOA,#F_CODANAGR

View File

@ -42,6 +42,7 @@ class TDati_anagrafici : public TApplication
static bool fisica_handler(TMask_field&, KEY);
static bool giuridica_handler(TMask_field&, KEY);
static bool anagrafica_handler(TMask_field&, KEY);
static bool anagr_dich_handler(TMask_field&, KEY);
// bottone ditta in DatiCAAF
static bool DCditta_handler(TMask_field&, KEY);
TMask* _msk;
@ -249,6 +250,41 @@ bool TDati_anagrafici::anagrafica_handler(TMask_field& m, KEY k)
return FALSE;
}
bool TDati_anagrafici::anagr_dich_handler(TMask_field& m, KEY k)
{
TString16 cmd;
if (k != K_SPACE)
return TRUE;
app().registra();
m.mask().stop_run(K_ESC);
TToken_string body(16);
body << "1" << "|";
body << m.mask().get(F_ANAGR);
char tipoa = m.mask().get(F_TIPOA)[0];
if (tipoa == 'F')
cmd = "ba4 -1 F";
else
if (tipoa == 'G')
cmd = "ba4 -1 G";
TMessage msg(cmd, MSG_LN, (const char*) body);
TMailbox mb;
mb.send(msg);
TExternal_app a(cmd);
a.run();
m.set_focus();
return FALSE;
}
bool TDati_anagrafici::indirizzo (TMask_field& f, KEY k)
{
TLocalisamfile anag (LF_ANAG, FALSE);
@ -336,11 +372,17 @@ bool TDati_anagrafici::cod_conc (TMask_field& f, KEY k)
int codconc,uffiidd,codcs;
TString codcom;
if ( k == K_TAB || k == K_SPACE )// && f.mask().is_running() )
if ( k == K_TAB )// && f.mask().is_running() )
{
tipoa = f.mask().get (F_TIPOA)[0];
codanagr = f.mask().get_long(F_ANAGR);
// Setta il prompt del button di uscita sull'anagrafica del dichiarante
// if (tipoa == 'G')
// f.mask().field(F_ANAGR_DICH).set_prompt("Giuridiche");
// if (tipoa == 'F')
// f.mask().field(F_ANAGR_DICH).set_prompt("Fisiche");
// Ricerca sull'archivio anagrafiche dei dati
anag.setkey(1);
anag.zero();
@ -363,6 +405,7 @@ bool TDati_anagrafici::cod_conc (TMask_field& f, KEY k)
{
codconc = comuni.get_int("UFFCONC");
uffiidd = comuni.get_int("UFFIIDD1");
codcs = comuni.get_int("UFFCSERV");
if (uffiidd == 0)
uffiidd = comuni.get_int("UFFIIDD2");
@ -370,8 +413,6 @@ bool TDati_anagrafici::cod_conc (TMask_field& f, KEY k)
if (uffiidd == 0)
uffiidd = comuni.get_int("UFFIIDD3");
codcs = comuni.get_int("UFFCSERV");
if (codconc != 0)
f.mask().set(F_CODCONC1, codconc);
if (uffiidd != 0)
@ -379,13 +420,14 @@ bool TDati_anagrafici::cod_conc (TMask_field& f, KEY k)
if (codcs != 0)
f.mask().set(F_CODCS, codcs);
f.mask().send_key(K_TAB, F_CODUI);
f.mask().send_key(K_TAB, F_CODCS);
f.mask().check_field(F_CODCS);
f.mask().check_field(F_CODUI);
}
}
return TRUE;
}
bool TDati_anagrafici::niscraa(TMask_field& f, KEY k)
{
if (k == K_TAB && !f.mask().is_running())
@ -500,7 +542,8 @@ bool TDati_anagrafici::create()
_msk = new TMask ("771100g");
_msk->field(F_CODCONC2).set_dirty();
_msk->set_handler(F_CODCONC2, cod_conc);
_msk->set_handler(F_ANAGRAFICA, anagrafica_handler);
_msk->set_handler(F_BTN_GIURIDICA, anagr_dich_handler);
_msk->set_handler(F_BTN_FISICA, anagr_dich_handler);
}
TString16 codditta; codditta << _codditta;

View File

@ -66,6 +66,7 @@
#define F_PTELCS 262
#define F_TELCS 263
#define F_ATTIVITA 264
#define F_ANAGRAFICA 265
// Campi maschera dati CAAF 771100e.uml
@ -89,12 +90,13 @@
#define F_CAPUI 358
#define F_COMUI 359
#define F_PROVUI 360
//#define GF_ANAGR 361
#define F_CODUI 362
#define F_CODCS 363
#define F_DESCRUI 364
#define F_DESCRCS 375
#define F_ANAGRAFICA 376
#define F_BTN_GIURIDICA 376
#define F_BTN_FISICA 377
#define F_TIPOA2BTN 378
// Campi maschera Societa' trasformate 771100h.uml
#define MDSTF_CODDITTA 181
@ -114,7 +116,6 @@
#define F_SOC_LAVDIPCIN 412
#define F_SOC_DATAINPI 413
#define F_SOC_DATAFINPI 414
#define DCF_DITTA 415
#endif

View File

@ -18,8 +18,10 @@ END
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -35 -1 "~Registra"
PROMPT -35 -1 ""
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_CANCEL 10 2

View File

@ -9,14 +9,16 @@ END
BUTTON F_ATTIVITA 10 2
BEGIN
PROMPT -25 -1 "~Attivita'"
PROMPT -25 -1 "~Attività"
MESSAGE K_TAB,F_ATTIV
END
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -35 -1 "~Registra"
PROMPT -35 -1 ""
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_CANCEL 10 2
@ -98,7 +100,7 @@ END
/*
STRING F_ATTIV 5
BEGIN
PROMPT 1 4 "Attivita' "
PROMPT 1 4 "Attività "
USE %AIS
INPUT CODTAB F_ATTIV
DISPLAY "Codice" CODTAB
@ -111,7 +113,7 @@ END
STRING F_ATTIV 5
BEGIN
PROMPT 1 4 "Attivita' "
PROMPT 1 4 "Attività "
USE LF_ATTIV
INPUT CODDITTA F_CODDITTA SELECT
INPUT CODATT F_ATTIV

View File

@ -16,8 +16,10 @@ END
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -24 -1 "~Registra"
PROMPT -24 -1 ""
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_CANCEL 10 2

View File

@ -14,8 +14,10 @@ END
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -35 -1 "~Registra"
PROMPT -35 -1 ""
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_CANCEL 10 2
@ -32,7 +34,7 @@ END
ENDPAGE
PAGE "Luogo di conservazione delle scritture contabili" -1 -1 78 18
PAGE "Scritture contabili" -1 -1 78 18
GROUPBOX DLG_NULL 78 4
BEGIN

View File

@ -14,8 +14,10 @@ END
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -35 -1 "~Registra"
PROMPT -35 -1 ""
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_CANCEL 10 2
@ -32,7 +34,7 @@ END
ENDPAGE
PAGE "Dati C.A.A.F." -1 -1 78 18
PAGE "Dati C.A.A." -1 -1 78 18
GROUPBOX DLG_NULL 78 4
BEGIN
@ -105,7 +107,7 @@ END
NUMBER F_DITTACAAF 5
BEGIN
PROMPT 1 9 "Ditta CAAF "
PROMPT 1 9 "Ditta CAA "
FLAGS "RZ"
USE LF_NDITTE KEY 3 SELECT CODANAGR=#F_ANAGR
INPUT TIPOA "G"

View File

@ -9,8 +9,10 @@ END
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -24 -1 "~Registra"
PROMPT -24 -1 ""
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_CANCEL 10 2
@ -27,7 +29,7 @@ END
ENDPAGE
PAGE "Dati relativi alle persone fisiche" -1 -1 78 18
PAGE "Direttore / Professionista" -1 -1 78 18
GROUPBOX DLG_NULL 78 4
BEGIN

View File

@ -2,15 +2,23 @@
TOOLBAR "" 0 20 0 2
BUTTON F_ANAGRAFICA 10 2
/* questi button vengono abilitati alternativamente
dal listbox ghost F_TIPOA2BTN */
BUTTON F_BTN_GIURIDICA 10 2
BEGIN
PROMPT -14 -1 "~Anagrafica"
PROMPT -14 -1 "~Giuridiche"
END
BUTTON F_BTN_FISICA 10 2
BEGIN
PROMPT -14 -1 "~Fisiche"
END
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -24 -1 "~Registra"
PROMPT -24 -1 ""
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_CANCEL 10 2
@ -27,7 +35,7 @@ END
ENDPAGE
PAGE "Dati vari" -1 -1 78 18
PAGE "Concessione / UIDD" -1 -1 78 18
GROUPBOX DLG_NULL 78 4
BEGIN
@ -45,6 +53,7 @@ BEGIN
OUTPUT F_RAGSOC LF_NDITTE->RAGSOC
OUTPUT F_TIPOA TIPOA
OUTPUT F_ANAGR CODANAGR
OUTPUT F_TIPOA2BTN TIPOA
KEY 1
END
@ -80,7 +89,7 @@ BEGIN
USE %UCC
INPUT CODTAB F_CODCONC2
DISPLAY "Codice" CODTAB
DISPLAY "Ufficio@30" S0
DISPLAY "Ufficio@35" S0
OUTPUT F_CODCONC2 CODTAB
HELP "Codice dell'ufficio concessioni"
CHECKTYPE NORMAL
@ -236,6 +245,16 @@ BEGIN
FLAGS "D"
END
LISTBOX F_TIPOA2BTN 1
BEGIN
PROMPT -1 -1 ""
FLAGS "GH"
ITEM "F|F"
MESSAGE HIDE,F_BTN_GIURIDICA|SHOW,F_BTN_FISICA
ITEM "G|G"
MESSAGE SHOW,F_BTN_GIURIDICA|HIDE,F_BTN_FISICA
END
ENDPAGE
ENDMASK

View File

@ -1,10 +1,13 @@
#include "771100.h"
TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 8 2
BEGIN
PROMPT -16 -1 "~Registra"
PROMPT -16 -1 ""
FLAGS "D"
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_NEWREC 8 2
@ -12,6 +15,8 @@ BEGIN
PROMPT -26 -1 "~Nuovo"
MESSAGE EXIT,K_INS
FLAGS "D"
PICTURE BMP_NEWREC
PICTURE BMP_NEWRECDN
END
BUTTON DLG_DELREC 8 2
@ -26,6 +31,7 @@ BEGIN
PROMPT -46 -1 "Ri~cerca"
MESSAGE EXIT,K_F9
FLAGS "D"
PICTURE BMP_FINDREC
END
BUTTON DLG_CANCEL 8 2
@ -42,7 +48,7 @@ END
ENDPAGE
PAGE "Manutenzione dati societa' trasformate" -1 -1 78 18
PAGE " Manutenzione dati societa' trasformate " -1 -1 78 18
GROUPBOX DLG_NULL 78 4
BEGIN
@ -53,7 +59,7 @@ END
NUMBER MDSTF_CODDITTA 5
BEGIN
PROMPT 1 1 "Ditta "
FLAGS "GR"
FLAGS "GRD"
KEY 1
CHECKTYPE REQUIRED
USE LF_NDITTE KEY 1
@ -135,13 +141,13 @@ END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 0 5 "Altri soggetti: art.5 e 87 del T.U. imposte sui redditi DPR 22/12/1986 n.917"
PROMPT 0 4 "Altri soggetti: art.5 e 87 del T.U. imposte sui redditi DPR 22/12/1986 n.917"
GROUP 2
END
STRING F_SOC_COFI 16
BEGIN
PROMPT 1 6 "Codice fiscale "
PROMPT 1 5 "Codice fiscale "
CHECKTYPE REQUIRED
FIELD LF_SOCTRASF->CODFISC
GROUP 2
@ -149,7 +155,7 @@ END
STRING F_SOC_DENOMIN 40
BEGIN
PROMPT 1 7 "Denominazione "
PROMPT 1 6 "Denominazione "
CHECKTYPE REQUIRED
FIELD LF_SOCTRASF->DENOMIN
GROUP 2

View File

@ -3,7 +3,7 @@ TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "MODULO 770 - Anagrafica Dipendenti" -1 -1 78 21
PAGE "Anagrafica dipendenti" -1 -1 78 21
GROUPBOX DLG_NULL 78 3
BEGIN
@ -208,7 +208,7 @@ END
ENDPAGE
PAGE "MODULO 770 - Anagrafica Dipendenti" -1 -1 78 21
PAGE "Eredi" -1 -1 78 21
GROUPBOX DLG_NULL 76 12
BEGIN

View File

@ -89,7 +89,6 @@ class TQuadroA : public TRelation_application
// Handler relativi alla manutenzione quadro A3
static bool QA3_codip_handler (TMask_field& f, KEY key);
static bool QA3_base_occupazionale(TMask_field& f, KEY key);
static bool QA3_nprog (TMask_field& f, KEY key);
void AA3SettaCognomeNome(TMask& m);
protected:
@ -128,6 +127,8 @@ class TQuadroA : public TRelation_application
virtual ~TQuadroA() {};
};
// Implementazione classe TQuadroA
inline TQuadroA& app() { return (TQuadroA&) main_app(); }
TQuadroA::TQuadroA(char tipo): _rel(NULL), _mode(0), _tipoq(tipo)
@ -137,10 +138,10 @@ TQuadroA::TQuadroA(char tipo): _rel(NULL), _mode(0), _tipoq(tipo)
bool TQuadroA::changing_mask(int mode)
{
if (mode == MODE_QUERY)
return _mode != MODE_QUERY;
if ((mode == MODE_MOD) && (_mode == MODE_INS))
return FALSE;
else
return TRUE;
return _mode != mode;
}
TMask* TQuadroA::get_mask(int mode)
@ -208,8 +209,8 @@ TMask* TQuadroA::load_mask(int n)
m->set_handler(QAF_CODDITTA, codditta_hnd);
if (QuadroA3())
{
m->set_handler(QAF_NPROG, QA3_nprog);
m->set_handler(F_CODANAGDIP, QA3_codip_handler);
m->set_handler(F_CODIPQUADRO, QA3_codip_handler);
m->set_handler(F_BASEOCCUPA, QA3_base_occupazionale);
}
else
@ -274,6 +275,7 @@ TMask* TQuadroA::load_mask(int n)
return _msk[n] = m;
}
bool TQuadroA::is_societa_trasformata(TMask& m)
{
TLocalisamfile soc (LF_SOCTRASF);
@ -319,7 +321,7 @@ bool TQuadroA::setta_nprog(TMask_field& f)
}
if ( (is_erede(codditta,coddip)) && (nprog + 1) > 1)
return error_box("Il dipendente selezionato e' un erede: non e'\n possibile indicare piu' di un rigo sul quadro A");
return f.error_box("Il dipendente selezionato e' un erede: non e'\n possibile indicare piu' di un rigo");
f.mask().set(QAF_NPROG, nprog+1);
return TRUE;
@ -341,10 +343,10 @@ bool TQuadroA::codditta_hnd(TMask_field& f, KEY k)
bool TQuadroA::codanagr_handler(TMask_field& f, KEY k)
{
if (!f.mask().is_running()) return TRUE;
if (!f.mask().is_running())
return TRUE;
// if (k == K_TAB && f.focusdirty())
if (k == K_TAB)
if (k == K_TAB && f.focusdirty())
{
const long coddip = atol(f.get());
if (coddip != 0L)
@ -451,7 +453,7 @@ bool TQuadroA::nprog_handler(TMask_field& f, KEY key)
const long codditta = get_firm_770();
if ( (is_erede(codditta,coddip)) && nprog > 1)
return error_box("Il dipendente selezionato e' un erede: non e'\n possibile indicare piu' di un rigo sul quadro A");
return f.error_box("Il dipendente selezionato e' un erede: non e'\n possibile indicare piu' di un rigo");
else
{
app()._codip = coddip;
@ -463,39 +465,18 @@ bool TQuadroA::nprog_handler(TMask_field& f, KEY key)
return TRUE;
}
bool TQuadroA::QA3_nprog(TMask_field& f, KEY key)
{
if (key == K_TAB)
{
const int nprog = atoi(f.get());
if (nprog==0)
f.mask().set(QAF_NPROG, 1);
}
return TRUE;
}
bool TQuadroA::QA3_codip_handler(TMask_field& f, KEY key)
{
if (!f.mask().is_running()) return TRUE;
if (key == K_ENTER)
if ((key == K_TAB) && f.shown)
{
const long coddip = atol(f.get());
if (coddip==0) return TRUE;
const long codditta = get_firm_770();
if (!esiste_dipendente(codditta, coddip))
return f.warning_box("Dipendente inesistente");
}
if (key == K_TAB)
{
const long coddip = atol(f.get());
if (coddip==0) return TRUE;
const long codditta = get_firm_770();
if (!esiste_dipendente(codditta, coddip))
return f.warning_box("Dipendente inesistente");
// f.mask().stop_run(K_AUTO_ENTER); // entra in modo modifica (se il record che ha chiave specificata esiste gia') oppure
// inserimento (se trova che non esiste)
f.mask().set(QAF_NPROG, 1);
}
return TRUE;
}
@ -608,6 +589,7 @@ bool TQuadroA::QA_comp_netti_hnd (TMask_field& f, KEY k)
real compnetti = denaro + natura - cobbdip;
if (compnetti < ZERO) compnetti = ZERO;
f.mask().set(F_COMPNETTI, compnetti);
if (f.mask().is_running())
f.mask().send_key(K_TAB,F_COMPNETTI);
}
return TRUE;
@ -954,7 +936,7 @@ void TQuadroA::init_query_mode(TMask& m)
// forza il ricalcolo dell'ultimo numero disponibile
TString16 dummy(m.get(QAF_NPROG));
if (dummy.not_empty())
setta_nprog(m.field(QAF_NPROG));
setta_nprog(m.field(F_CODIP));
}
m.hide(-1); // hide group 1 -nasconde DIPEND.
m.show(-2); // show group 2 -Ricerca su QUADRO A

View File

@ -1,4 +1,5 @@
#include "771200.h"
TOOLBAR "" 0 18 0 4
#include <toolbar.h>
BUTTON QAF_ALLEG_A 24 2
@ -10,7 +11,7 @@ ENDPAGE
#define G_DIPEND 1
#define G_QUADROA 2
PAGE "MODULO 770 - Manutenzione Quadro A" -1 -1 78 21
PAGE "Quadro A" -1 -1 78 21
GROUPBOX DLG_NULL 78 3
BEGIN
@ -37,7 +38,7 @@ END
NUMBER QAF_ANNODIC 4
BEGIN
PROMPT 52 4 "Anno dichiarazione "
PROMPT 52 3 "Anno dichiarazione "
FLAGS "DR"
END
@ -48,7 +49,7 @@ END
NUMBER F_CODIP 6
BEGIN
PROMPT 1 1 ""
PROMPT 80 80 ""
FLAGS "D"
FIELD LF_QUAA->CODDIP
CHECKTYPE REQUIRED
@ -70,8 +71,8 @@ BEGIN
ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
MESSAGE COPY, F_CODIP
FLAGS "H"
KEY 1
GROUP G_DIPEND
KEY 1
END
NUMBER F_CODANAGDIPQA 6
@ -89,8 +90,8 @@ BEGIN
OUTPUT QAF_COGNOME LF_DIPEND->COGNOME
OUTPUT QAF_NOME LF_DIPEND->NOME
MESSAGE COPY, F_CODIP
KEY 1
GROUP G_QUADROA
KEY 1
END
@ -119,8 +120,7 @@ BEGIN
DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG
OUTPUT F_CODANAGDIP CODDIP
OUTPUT F_CODANAGDIPQA CODDIP
OUTPUT F_CODIP CODDIP
OUTPUT QAF_NPROG NPROG
FIELD LF_QUAA->NPROG
KEY 1

View File

@ -3,7 +3,7 @@ TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "MODULO 770 - Manutenzione Quadro A" -1 -1 78 21
PAGE "1" -1 -1 78 21
TEXT DLG_NULL
BEGIN
@ -12,11 +12,11 @@ END
NUMBER QAF_CODDITTA 5
BEGIN
FLAGS "H"
PROMPT 80 80 ""
FLAGS "D"
FIELD LF_QUAA->CODDITTA
KEY 1
GROUP 10
MESSAGE COPY,1@
END
NUMBER F_CODIP 6
@ -68,7 +68,7 @@ BEGIN
PROMPT 1 3 "@bDati relativi al rapporto di lavoro"
END
LISTBOX QAF_AREAATT 1 22
LISTBOX QAF_AREAATT 1 19
BEGIN
PROMPT 2 4 "13 Area attività "
ITEM " |"
@ -224,7 +224,7 @@ END
ENDPAGE
PAGE "MODULO 770 - Manutenzione Quadro A" -1 -1 78 21
PAGE "2" -1 -1 78 21
TEXT DLG_NULL
BEGIN
@ -420,18 +420,20 @@ END
ENDPAGE
PAGE "MODULO 770 - Manutenzione Quadro A" -1 -1 78 21
PAGE "3" -1 -1 78 21
TEXT DLG_NULL
BEGIN
PROMPT 1 1 "@bDipendente"
END
/*
NUMBER QAF_CODDITTA 5
BEGIN
FLAGS "H"
GROUP 1
END
*/
NUMBER F_CODIP 6
BEGIN
@ -589,18 +591,20 @@ END
ENDPAGE
PAGE "MODULO 770 - Manutenzione Quadro A" -1 -1 78 21
PAGE "4" -1 -1 78 21
TEXT DLG_NULL
BEGIN
PROMPT 1 1 "@bDipendente"
END
/*
NUMBER QAF_CODDITTA 5
BEGIN
FLAGS "H"
GROUP 1
END
*/
NUMBER F_CODIP 6
BEGIN
@ -829,18 +833,20 @@ END
ENDPAGE
PAGE "MODULO 770 - Manutenzione Quadro A" -1 -1 78 21
PAGE "5" -1 -1 78 21
TEXT DLG_NULL
BEGIN
PROMPT 1 1 "@bDipendente"
END
/*
NUMBER QAF_CODDITTA 5
BEGIN
FLAGS "H"
GROUP 1
END
*/
NUMBER F_CODIP 6
BEGIN

View File

@ -6,7 +6,7 @@ ENDPAGE
#define G_DIPEND 1
#define G_QUADROA 2
PAGE "MODULO 770 - Manutenzione Quadro A1" -1 -1 78 21
PAGE "Quadro A1" -1 -1 78 21
GROUPBOX DLG_NULL 78 3
BEGIN
@ -33,7 +33,7 @@ END
NUMBER QAF_ANNODIC 4
BEGIN
PROMPT 52 4 "Anno dichiarazione "
PROMPT 52 3 "Anno dichiarazione "
FLAGS "DR"
END
@ -56,7 +56,7 @@ BEGIN
PROMPT 1 8 "@bCodice "
USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA))
INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODIP
INPUT CODDIP F_CODANAGDIP
DISPLAY "Codice " CODDIP
DISPLAY "Cognome@24" COGNOME
DISPLAY "Nome@20" NOME
@ -104,6 +104,8 @@ NUMBER QAF_NPROG 4
BEGIN
PROMPT 1 10 "@bNumero "
CHECKTYPE REQUIRED
KEY 1
FIELD LF_QUAA1->NPROG
USE LF_QUAA1 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA))
JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP
INPUT CODDITTA QAF_CODDITTA
@ -113,11 +115,8 @@ BEGIN
DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG
OUTPUT F_CODANAGDIP CODDIP
OUTPUT F_CODANAGDIPQA CODDIP
OUTPUT F_CODIP CODDIP
OUTPUT QAF_NPROG NPROG
FIELD LF_QUAA1->NPROG
KEY 1
END
ENDPAGE

View File

@ -3,7 +3,7 @@ TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "MODULO 770 - Manutenzione Quadro A1" -1 -1 78 21
PAGE "1" -1 -1 78 21
TEXT DLG_NULL
BEGIN
@ -12,7 +12,8 @@ END
NUMBER QAF_CODDITTA 5
BEGIN
FLAGS "H"
PROMPT 80 80 ""
FLAGS "D"
FIELD LF_QUAA1->CODDITTA
KEY 1
MESSAGE COPY,1@
@ -154,7 +155,7 @@ END
ENDPAGE
PAGE "MODULO 770 - Manutenzione Quadro A" -1 -1 78 21
PAGE "2" -1 -1 78 21
TEXT DLG_NULL
BEGIN

View File

@ -11,7 +11,7 @@ ENDPAGE
#define G_DIPEND 1
#define G_QUADROA 2
PAGE "MODULO 770 - Manutenzione Quadro A2" -1 -1 78 21
PAGE "Quadro A2" -1 -1 78 21
GROUPBOX DLG_NULL 78 3
BEGIN
@ -38,7 +38,7 @@ END
NUMBER QAF_ANNODIC 4
BEGIN
PROMPT 52 4 "Anno dichiarazione "
PROMPT 52 3 "Anno dichiarazione "
FLAGS "DR"
END
@ -117,8 +117,7 @@ BEGIN
DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG
OUTPUT F_CODANAGDIP CODDIP
OUTPUT F_CODANAGDIPQA CODDIP
OUTPUT F_CODIP CODDIP
OUTPUT QAF_NPROG NPROG
FIELD LF_QUAA2->NPROG
KEY 1

View File

@ -3,7 +3,7 @@ TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "MODULO 770 - Manutenzione Quadro A2" -1 -1 78 21
PAGE "1" -1 -1 78 21
TEXT DLG_NULL
BEGIN
@ -12,7 +12,8 @@ END
NUMBER QAF_CODDITTA 5
BEGIN
FLAGS "H"
PROMPT 80 80 ""
FLAGS "D"
FIELD LF_QUAA2->CODDITTA
KEY 1
MESSAGE COPY,1@
@ -224,7 +225,7 @@ END
ENDPAGE
PAGE "MODULO 770 - Manutenzione Quadro A2" -1 -1 78 21
PAGE "2" -1 -1 78 21
TEXT DLG_NULL
BEGIN

View File

@ -3,14 +3,14 @@ TOOLBAR "" 0 18 0 4
#include <toolbar.h>
BUTTON F_BASEOCCUPA 24 2
BEGIN
PROMPT -13 -3 "~Dati base occupazionale"
PROMPT -13 -3 "~Base occupazionale"
END
ENDPAGE
#define G_DIPEND 1
#define G_QUADROA 2
PAGE "Manutenzione dati base occupazionale" -1 -1 78 18
PAGE "Quadro A3" -1 -1 78 18
GROUPBOX DLG_NULL 78 3
BEGIN
@ -21,12 +21,12 @@ NUMBER QAF_CODDITTA 5
BEGIN
PROMPT 3 1 "Ditta "
FLAGS "GRD"
KEY 1
CHECKTYPE REQUIRED
USE LF_NDITTE KEY 1
INPUT CODDITTA QAF_CODDITTA
OUTPUT QAF_RAGDITTA RAGSOC
FIELD LF_QUAA3->CODDITTA
CHECKTYPE REQUIRED
KEY 1
END
STRING QAF_RAGDITTA 50
@ -37,7 +37,7 @@ END
NUMBER QAF_ANNODIC 4
BEGIN
PROMPT 52 4 "Anno dichiarazione "
PROMPT 52 3 "Anno dichiarazione "
FLAGS "DR"
END
@ -46,22 +46,10 @@ BEGIN
PROMPT 1 7 "@bCodice "
END
NUMBER QAF_NPROG 1
BEGIN
PROMPT 80 80 ""
FLAGS "DG"
FIELD LF_QUAA3->NPROG
CHECKTYPE REQUIRED
KEY 1
END
NUMBER F_CODIP 6
BEGIN
PROMPT 80 80 ""
FLAGS "D"
FIELD LF_QUAA3->CODDIP
CHECKTYPE REQUIRED
KEY 1
END
NUMBER F_CODANAGDIP 6
@ -77,9 +65,13 @@ BEGIN
OUTPUT QAF_COGNOME COGNOME
OUTPUT QAF_NOME NOME
MESSAGE COPY, F_CODIP
MESSAGE COPY, F_CODIPQUADRO
ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
GROUP G_DIPEND
FLAGS "H"
FIELD LF_QUAA3->CODDIP
CHECKTYPE REQUIRED
KEY 1
END
NUMBER F_CODIPQUADRO 6
@ -96,12 +88,20 @@ BEGIN
DISPLAY "gg.incremento" NGINC17
DISPLAY "Reddito corrisposto" REDCOR18
OUTPUT F_CODIPQUADRO CODDIP
OUTPUT F_CODANAGDIP CODDIP
OUTPUT QAF_NPROG NPROG
// ADD RUN BA4 -1
FLAGS "H"
MESSAGE COPY, F_CODIP
MESSAGE COPY, F_CODANAGDIP
GROUP G_QUADROA
FIELD LF_QUAA3->CODDIP
CHECKTYPE REQUIRED
KEY 1
END
NUMBER QAF_NPROG 4
BEGIN
PROMPT 80 80 ""
FIELD LF_QUAA3->NPROG
CHECKTYPE REQUIRED
KEY 1
END
STRING QAF_COGNOME 24

View File

@ -12,7 +12,8 @@ END
NUMBER QAF_CODDITTA 5
BEGIN
FLAGS "HG"
PROMPT 80 80 ""
FLAGS "D"
FIELD LF_QUAA3->CODDITTA
KEY 1
END
@ -62,49 +63,49 @@ END
DATE F_DIRAPTI
BEGIN
PROMPT 1 4 "8 Data inizio rapporto a tempo indeterminato "
PROMPT 1 5 "8 Data inizio rapporto a tempo indeterminato "
FIELD LF_QUAA3->DIRAPTI
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 0 6 "@bDATI DAL 1/1/95 A FINE PERIODO D'IMPOSTA"
PROMPT 0 7 "@bDATI DAL 1/1/95 A FINE PERIODO D'IMPOSTA"
END
NUMBER F_NGINC15 3
BEGIN
PROMPT 1 7 "9 Num. giorni in incremento "
PROMPT 1 8 "9 Num. giorni in incremento "
FIELD LF_QUAA3->NGINC15
END
NUMBER F_REDCOR16 15
BEGIN
PROMPT 1 8 "10 Reddito corrisposto "
PROMPT 1 9 "10 Reddito corrisposto "
FIELD LF_QUAA3->REDCOR16
PICTURE "."
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 0 10 "@bDATI DA INIZIO SUCCESSIVO PERIODO D'IMPOSTA FINO AL 31/12/95"
PROMPT 0 11 "@bDATI DA INIZIO SUCCESSIVO PERIODO D'IMPOSTA FINO AL 31/12/95"
END
NUMBER F_NGINC17 3
BEGIN
PROMPT 1 11 "11 Num. giorni in incremento"
PROMPT 1 12 "11 Num. giorni in incremento"
FIELD LF_QUAA3->NGINC17
END
NUMBER F_REDCOR18 15
BEGIN
PROMPT 1 12 "12 Reddito corrisposto "
PROMPT 1 13 "12 Reddito corrisposto "
FIELD LF_QUAA3->REDCOR18
PICTURE "."
END
ENDPAGE
PAGE "MODULO 770 - Manutenzione Quadro A" -1 -1 78 21
PAGE "Societa' trasformata" -1 -1 78 21
TEXT DLG_NULL
BEGIN
@ -113,7 +114,8 @@ END
NUMBER F_CODDITTA_2 5
BEGIN
FLAGS "HG"
PROMPT 80 80 ""
FLAGS "D"
KEY 1
END

View File

@ -2,9 +2,11 @@
TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 8 2
BEGIN
PROMPT -16 -1 "~Registra"
PROMPT -16 -1 ""
FLAGS "D"
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_NEWREC 8 2
@ -12,6 +14,8 @@ BEGIN
PROMPT -26 -1 "~Nuovo"
MESSAGE EXIT,K_INS
FLAGS "D"
PICTURE BMP_NEWREC
PICTURE BMP_NEWRECDN
END
BUTTON DLG_DELREC 8 2
@ -26,6 +30,7 @@ BEGIN
PROMPT -46 -1 "Ri~cerca"
MESSAGE EXIT,K_F9
FLAGS "D"
PICTURE BMP_FINDREC
END
BUTTON DLG_CANCEL 8 2
@ -42,7 +47,7 @@ END
ENDPAGE
PAGE "MODULO 770 - Manutenzione Quadro A" -1 -1 78 21
PAGE "Base occupazionale" -1 -1 78 21
GROUPBOX DLG_NULL 78 3
BEGIN
@ -52,7 +57,7 @@ END
NUMBER QAF_CODDITTA 5
BEGIN
PROMPT 3 1 "Ditta "
FLAGS "GR"
FLAGS "GRD"
KEY 1
CHECKTYPE REQUIRED
USE LF_NDITTE KEY 1

View File

@ -3,8 +3,10 @@ TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 8 2
BEGIN
PROMPT -16 -1 "~Registra"
PROMPT -16 -1 ""
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_DISTINTA 8 2

View File

@ -3,8 +3,10 @@
TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 8 2
BEGIN
PROMPT -13 -1 "~Registra"
PROMPT -13 -1 ""
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_CANCEL 8 2
BEGIN

View File

@ -5,8 +5,10 @@ TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -15 -1 "~Registra"
PROMPT -15 -1 ""
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_CANCEL 10 2

View File

@ -5,8 +5,10 @@ TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -15 -1 "~Registra"
PROMPT -15 -1 ""
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_CANCEL 10 2

View File

@ -62,7 +62,10 @@ bool TGestionePercipienti::remove()
void TGestionePercipienti::init_mask(TMask& m)
{
TString16 tipo;
m.set(F_ANNODIC, _anno_dic);
tipo << _tipoa;
m.set(F_TIPOA, tipo);
}
void TGestionePercipienti::init_query_mode(TMask& m)
@ -122,7 +125,7 @@ bool TGestionePercipienti::user_create()
_codditta = get_firm_770();
_msk->set_handler(F_CODDITTA, codditta_handler);
set_search_field(F_TIPOA);
set_search_field(F_CODANAGR);
return TRUE;
}
@ -136,7 +139,7 @@ bool TGestionePercipienti::user_destroy()
int GestPerc(int argc, char* argv[])
{
long codditta = 0L;
char tipoa = '\0';
char tipoa = 'F';
long codanagr = 0L;
if (argc >= 5)

View File

@ -38,22 +38,21 @@ END
TEXT DLG_NULL
BEGIN
PROMPT 1 8 "@bDati percipiente"
PROMPT 1 7 "@bDati percipiente"
END
LIST F_TIPOA 1 12
LISTBOX F_TIPOA 1 9
BEGIN
PROMPT 1 9 ""
PROMPT 1 8 ""
FIELD LF_PERC->TIPOA
ITEM "F|Fisica"
ITEM "G|Giuridica"
CHECKTYPE REQUIRED
KEY 1
END
NUMBER F_CODANAGR 5
BEGIN
PROMPT 15 9 ""
PROMPT 15 8 ""
USE LF_PERC KEY 1 SELECT ((CODDITTA==#F_CODDITTA)&&(TIPOA==#F_TIPOA))
JOIN LF_ANAG TO LF_PERC KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR
INPUT CODDITTA F_CODDITTA
@ -72,7 +71,7 @@ END
STRING F_RAGSOC 50
BEGIN
PROMPT 25 9 ""
PROMPT 25 8 ""
FLAGS "D"
END

View File

@ -624,7 +624,7 @@ END
TEXT DLG_NULL_CAAF
BEGIN
PROMPT 5 8 "Dati C.A.A.F."
PROMPT 5 8 "Dati C.A.A."
FLAGS "H"
GROUP 2
END

View File

@ -4,8 +4,10 @@ TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -13 -1 "~Registra"
PROMPT -13 -1 ""
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_CANCEL 10 2

View File

@ -21,6 +21,7 @@ class TEstinti_app : public TApplication
TRelation* _rel;
TCursor* _cur;
TBrowse_sheet* _estint_sheet;
TRectype& _rec;
static bool show_estinti(TMask_field& f, KEY k);
void force_output(int dlg, const long cod);
protected:
@ -36,7 +37,8 @@ TEstinti_app& app() { return (TEstinti_app&) main_app(); }
bool TEstinti_app::set_codditta(TMask_field& f)
{
TString16 codditta; codditta << get_firm_770();
TString16 codditta;
codditta << get_firm_770();
if (codditta != "0")
{
f.set(codditta);
@ -100,11 +102,13 @@ void TEstinti_app::force_output(int dlg, const long codditta)
bool TEstinti_app::save(TMask& m, const long codic_prec)
{
const long new_codic = m.get_long(F_CODDIC);
_base->zero();
_base->put("CODDITTA", (long)_codditta);
_base->put("CODDIC", (long)new_codic);
_base->rewrite();
_rec = _base->curr();
_rec.zero();
_rec.put("TIPOQUA", ' ');
_rec.put("CODDITTA",(long)_codditta);
_base->read(_rec);
_rec.put("CODDIC",(long)new_codic);
_base->rewrite(_rec);
// Stessa cosa su basebis
_basebis->zero();
@ -124,15 +128,17 @@ bool TEstinti_app::save(TMask& m, const long codic_prec)
bool TEstinti_app::main_loop()
{
KEY tasto;
KEY tasto = K_ESC;
const long codditta = _msk->get_long(F_CODDITTA);
_base->zero();
_base->setkey(1);
_base->put("CODDITTA", (long)codditta);
_base->read();
_msk->open_modal();
do {
while (tasto != K_QUIT)
{
const bool dichiarante = sogg_dic(_codditta);
long coddic = 0L;
if (!dichiarante)
@ -171,7 +177,7 @@ bool TEstinti_app::main_loop()
break;
}
}
while (tasto != K_QUIT);
_msk->close();
return FALSE;
}

View File

@ -9,13 +9,6 @@ BEGIN
PROMPT 1 0 ""
END
STRING F_TIPOQUA 2
BEGIN
PROMPT 80 80 ""
FIELD LF_BASE->TIPOQUA
KEY 1
END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 3 1 "Ditta "
@ -77,6 +70,8 @@ BUTTON DLG_SAVEREC 9 2
BEGIN
PROMPT -13 -1 ""
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_QUIT 8 2
@ -90,13 +85,12 @@ BEGIN
PROMPT -33 -1 "~Soggetti estinti"
END
/***
BUTTON DLG_NULL 20 2
STRING F_TIPOQUA 2
BEGIN
PROMPT -44 -1 "Menu' precedente"
MESSAGE EXIT,K_QUIT
PROMPT 80 80 ""
FIELD LF_BASE->TIPOQUA
KEY 1
END
****/
ENDPAGE

View File

@ -1,7 +1,7 @@
// 77qaall.uml - A,A2 - allegati 730
#include "77qaall.h"
PAGE "Allegati 730 " -1 -1 60 7
PAGE "Allegati 730 " -1 14 60 7
TEXT DLG_NULL
BEGIN