Aggiustamenti per videi veloci
git-svn-id: svn://10.65.10.50/trunk@4028 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
12f4ee0441
commit
f64ed5162b
@ -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
|
||||
|
@ -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;
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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"
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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)
|
||||
|
@ -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
|
||||
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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;
|
||||
}
|
||||
|
||||
|
@ -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
|
||||
|
||||
|
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user