root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correzzione errore 004264

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3008 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-06-18 11:04:45 +00:00
parent d0b788810d
commit 13e68f6cea
3 changed files with 19 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ba/ba4200.cpp
View File

@ -18,6 +18,7 @@ class TPersone_app : public TRelation_application
{ {
char _tip_ana; char _tip_ana;
bool _reset_uff_conc; bool _reset_uff_conc;
char _next_ana;
bool _reset_codreg; bool _reset_codreg;
TString16 _cod_ana ; TString16 _cod_ana ;
TMask* _msk[2] ; TMask* _msk[2] ;
@ -33,7 +34,7 @@ protected:
virtual void init_query_mode(TMask& m); virtual void init_query_mode(TMask& m);
virtual void init_insert_mode(TMask& m); virtual void init_insert_mode(TMask& m);
virtual void init_modify_mode(TMask& m); virtual void init_modify_mode(TMask& m);
virtual bool changing_mask(int mode) {return _msk[tip_msk()] == NULL;} virtual bool changing_mask(int mode) {return _tip_ana != _next_ana;}
virtual const char* get_next_key(); virtual const char* get_next_key();
virtual TMask* get_mask(int mode) ; virtual TMask* get_mask(int mode) ;
virtual void write_enable(bool on = TRUE); virtual void write_enable(bool on = TRUE);
@ -47,7 +48,8 @@ public:
int tip_msk() const { return _tip_ana == TFIS ? MSKF : MSKG;} int tip_msk() const { return _tip_ana == TFIS ? MSKF : MSKG;}
bool ana_fis() const { return _tip_ana == TFIS;} bool ana_fis() const { return _tip_ana == TFIS;}
bool ana_giu() const { return _tip_ana == TGIU;} bool ana_giu() const { return _tip_ana == TGIU;}
void set_tip_ana(char tip) { _tip_ana = toupper(tip);} void set_tip_ana(char tip) { _tip_ana = _next_ana = toupper(tip);}
void set_next_ana(char tip) { _next_ana = toupper(tip);}
void set_cod_ana(const char* cod) { _cod_ana = cod;} void set_cod_ana(const char* cod) { _cod_ana = cod;}
const char* cod_ana() { return _cod_ana;} const char* cod_ana() { return _cod_ana;}
char tip_ana() { return _tip_ana;} char tip_ana() { return _tip_ana;}
@ -65,8 +67,8 @@ bool TPersone_app::ba4200_handler(TMask& m, KEY k)
if (k == K_F10) if (k == K_F10)
{ {
if (app.ana_fis()) app.set_tip_ana(TGIU); if (app.ana_fis()) app.set_next_ana(TGIU);
else app.set_tip_ana(TFIS); else app.set_next_ana(TFIS);
m.stop_run(K_ESC); m.stop_run(K_ESC);
return FALSE; return FALSE;
} }
@ -481,7 +483,7 @@ bool no_dup_iva_g(TMask_field& f, KEY key)
TMask* TPersone_app::get_mask(int mode) TMask* TPersone_app::get_mask(int mode)
{ {
if (!changing_mask(mode)) return _msk[tip_msk()]; set_tip_ana(_next_ana);
if (ana_fis() && _msk[MSKF] == NULL) if (ana_fis() && _msk[MSKF] == NULL)
{ {
_msk[MSKF] = new TMask("ba4200b") ; _msk[MSKF] = new TMask("ba4200b") ;

10
ba/ba4200b.uml
View File

@ -91,7 +91,7 @@ MESSAGE COPY,3@
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
RADIOBUTTON LST_AF1_SESSO 1 13 RADIOBUTTON LST_AF1_SESSO 1 12
BEGIN BEGIN
PROMPT 0 5 "Sesso" PROMPT 0 5 "Sesso"
FIELD LF_ANAGFIS->SESSO FIELD LF_ANAGFIS->SESSO
@ -100,14 +100,14 @@ ITEM "M|Maschio"
ITEM "F|Femmina" ITEM "F|Femmina"
END END
GROUPBOX DLG_NULL 30 4 GROUPBOX DLG_NULL 31 4
BEGIN BEGIN
PROMPT 13 5 "Partita IVA " PROMPT 12 5 "Partita IVA "
END END
LIST FLD_AF1_STATOPAIV 20 LIST FLD_AF1_STATOPAIV 20
BEGIN BEGIN
PROMPT 14 6 "Stato " PROMPT 13 6 "Stato "
FIELD LF_ANAG->STATOPAIV FIELD LF_ANAG->STATOPAIV
HELP "Codice dello stato cui si riferisce la partita IVA" HELP "Codice dello stato cui si riferisce la partita IVA"
ITEM " |Italia o extra CEE" ITEM " |Italia o extra CEE"
@ -127,7 +127,7 @@ END
STRING FLD_AF1_PAIV 12 STRING FLD_AF1_PAIV 12
BEGIN BEGIN
PROMPT 14 7 "Codice " PROMPT 13 7 "Codice "
FIELD LF_ANAG->PAIV FIELD LF_ANAG->PAIV
HELP "Partita IVA della persona" HELP "Partita IVA della persona"
VALIDATE XTZPI_FUNC FLD_AF1_STATOPAIV FLD_AF2_COMRF FLD_AF1_COMRES VALIDATE XTZPI_FUNC FLD_AF1_STATOPAIV FLD_AF2_COMRF FLD_AF1_COMRES

4
ba/ba4200c.uml
View File

@ -73,7 +73,7 @@ BEGIN
KEY 2 KEY 2
END END
GROUPBOX DLG_NULL 40 4 GROUPBOX DLG_NULL 41 4
BEGIN BEGIN
PROMPT 0 4 "Partita IVA " PROMPT 0 4 "Partita IVA "
END END
@ -240,6 +240,7 @@ BEGIN
OUTPUT F_STATORES CODTAB OUTPUT F_STATORES CODTAB
HELP "Codice dello stato di residenza" HELP "Codice dello stato di residenza"
CHECKTYPE NORMAL CHECKTYPE NORMAL
MESSAGE DIRTY,FLD_AG2_COMRES|TAB,FLD_AG2_COMRES
END END
STRING FLD_AG2_COMRES 4 STRING FLD_AG2_COMRES 4
@ -465,6 +466,7 @@ BEGIN
OUTPUT FLD_AG2_STATOCORR CODTAB OUTPUT FLD_AG2_STATOCORR CODTAB
HELP "Codice dello stato a cui mandare la corrispondenza" HELP "Codice dello stato a cui mandare la corrispondenza"
CHECKTYPE NORMAL CHECKTYPE NORMAL
MESSAGE DIRTY,FLD_AG2_COMCORR|TAB,FLD_AG2_COMCORR
END END
STRING FLD_AG2_COMCORR 4 STRING FLD_AG2_COMCORR 4