From f883d544297a24f5733526eb071d385b6ea44030 Mon Sep 17 00:00:00 2001 From: alex Date: Tue, 24 Jan 1995 16:53:28 +0000 Subject: [PATCH] Riaggiunto campo STATORES (p.p.m.t.v) git-svn-id: svn://10.65.10.50/trunk@905 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ba/ba4200.cpp | 31 +++++++++++++++++++++++ ba/ba4200.h | 1 + ba/ba4200b.uml | 54 +++++++++++++++++++++++++--------------- ba/ba4200c.uml | 67 ++++++++++++++++++++++++++++++-------------------- 4 files changed, 106 insertions(+), 47 deletions(-) diff --git a/ba/ba4200.cpp b/ba/ba4200.cpp index 6e5392425..8f79a8a83 100755 --- a/ba/ba4200.cpp +++ b/ba/ba4200.cpp @@ -156,6 +156,33 @@ void TPersone_app::init_modify_mode(TMask& m) m.disable(DLG_CHGTIP); } +HIDDEN bool stato_hnd(TMask_field& f, KEY key) +{ + if (f.get().empty()) + f.mask().set(FLD_AF1_STATONASC_TABSTE_S0, "Italiana"); + return TRUE; +} + +HIDDEN bool corr_hnd(TMask_field& f, bool giuridica) +{ + TMask & m = f.mask(); + + if (f.get().empty()) + { + const TString80 s(m.get(giuridica ? FLD_AG2_COMRES : FLD_AF1_COMRES)); + + if (s.not_empty()) + { + m.set(giuridica ? FLD_AG2_STATOCORR : FLD_AF2_STATOCORR, m.get(F_STATORES)); + f.set(s); + m.set(giuridica ? FLD_AG2_CAPCORR : FLD_AF2_CAPCORR, + m.get(giuridica ? FLD_AG2_CAPRES : FLD_ANAG_CAPRES)); + f.check(); + } + } + return TRUE; +} + HIDDEN bool clear_cap(TMask_field& f, KEY key) { if (f.mask().query_mode()) @@ -168,6 +195,9 @@ HIDDEN bool clear_cap(TMask_field& f, KEY key) return TRUE; const bool giuridica = ((TPersone_app&)main_app()).ana_giu(); + if (dlg == FLD_AG2_COMCORR || dlg == FLD_AF2_COMCORR) + corr_hnd(f, giuridica); + const TString16 val(f.get()); if ( giuridica ) @@ -362,6 +392,7 @@ TMask* TPersone_app::get_mask(int mode) if (_msk[MSKG] != NULL) delete _msk[MSKG]; _msk[MSKG] = NULL; _msk[MSKF] = new TMask("ba4200b") ; + _msk[MSKF]->set_handler(F_STATO, stato_hnd); _msk[MSKF]->set_handler(FLD_AF1_PAIV, no_dup_iva_f); _msk[MSKF]->set_handler(FLD_AF1_COFI, no_dup_fis); _msk[MSKF]->set_handler(FLD_AF1_COMRES, gest_uff_imp); diff --git a/ba/ba4200.h b/ba/ba4200.h index 23d70be65..03f4ac830 100755 --- a/ba/ba4200.h +++ b/ba/ba4200.h @@ -377,5 +377,6 @@ #define F_STATO 406 #define F_VARDF 407 #define F_DVARDF 408 +#define F_STATORES 409 #endif // __BA4200_H diff --git a/ba/ba4200b.uml b/ba/ba4200b.uml index 565378fe8..0a8898896 100755 --- a/ba/ba4200b.uml +++ b/ba/ba4200b.uml @@ -285,7 +285,7 @@ BEGIN GROUP 3 END -GROUPBOX DLG_NULL 76 6 +GROUPBOX DLG_NULL 76 7 BEGIN PROMPT 0 5 "Residenza" END @@ -307,15 +307,30 @@ BEGIN HELP "Numero civico della residenza" END +NUMBER F_STATORES 3 +BEGIN + PROMPT 2 7 "Comune : Stato " + FIELD LF_ANAG->STATORES + FLAGS "RZ" + COPY USE F_STATO + INPUT CODTAB F_STATORES + COPY DISPLAY F_STATO + OUTPUT F_STATORES CODTAB + HELP "Codice dello stato di residenza" + CHECKTYPE NORMAL + WARNING "Stato assente" +END + STRING FLD_AF1_COMRES 4 BEGIN - PROMPT 2 7 "Comune : Codice " + PROMPT 9 8 ": Codice " FIELD LF_ANAG->COMRES FLAGS "U" COPY USE FLD_AF1_COMNASC - INPUT STATO "" + INPUT STATO F_STATORES INPUT COM FLD_AF1_COMRES COPY DISPLAY FLD_AF1_COMNASC + OUTPUT F_STATORES STATO OUTPUT FLD_AF1_COMRES COM OUTPUT FLD_AF1_COMRES_COMUNI_DENCOM DENCOM OUTPUT FLD_AF1_COMRES_COMUNI_PROVCOM PROVCOM @@ -328,24 +343,25 @@ END STRING FLD_AF1_COMRES_COMUNI_PROVCOM 5 BEGIN - PROMPT 38 7 "Provincia " + PROMPT 38 8 "Provincia " FLAGS "D" END STRING FLD_ANAG_CAPRES 5 BEGIN - PROMPT 56 7 "CAP " + PROMPT 56 8 "CAP " FIELD LF_ANAG->CAPRES HELP "CAP del comune di residenza" END STRING FLD_AF1_COMRES_COMUNI_DENCOM 50 BEGIN - PROMPT 9 8 ": Denom. " + PROMPT 9 9 ": Denom. " HELP "Nome del comune di residenza" - COPY USE FLD_AFIS_COMNASC_COMUNI_DENCOM + USE LF_COMUNI KEY 2 INPUT DENCOM FLD_AF1_COMRES_COMUNI_DENCOM COPY DISPLAY FLD_AFIS_COMNASC_COMUNI_DENCOM + OUTPUT F_STATORES STATO OUTPUT FLD_AF1_COMRES COM OUTPUT FLD_AF1_COMRES_COMUNI_DENCOM DENCOM OUTPUT FLD_AF1_COMRES_COMUNI_PROVCOM PROVCOM @@ -355,14 +371,14 @@ END BOOLEAN CHK_AF4_SOGGNRES BEGIN - PROMPT 2 9 "Non residente" + PROMPT 2 10 "Non residente" FIELD LF_ANAG->SOGGNRES HELP "Dire se si tratta di persone non residente" END BOOLEAN F_VARSLORES BEGIN - PROMPT 21 9 "Variata" + PROMPT 21 10 "Variata" FIELD LF_ANAG->VARSLORES HELP "Indicare se e' stata variata la sede legale" MESSAGE FALSE CLEAR,F_DVARSLORES @@ -371,19 +387,19 @@ END DATE F_DVARSLORES BEGIN - PROMPT 38 9 "Data variazione " + PROMPT 38 10 "Data variazione " FIELD LF_ANAG->DVARSLORES HELP "Data di variazione della sede legale" END GROUPBOX DLG_NULL 76 6 BEGIN - PROMPT 0 11 "Domicilio Fiscale (solo se diverso)" + PROMPT 0 12 "Domicilio Fiscale (solo se diverso)" END STRING FLD_AF2_INDRF 35 BEGIN - PROMPT 2 12 "Indirizzo " + PROMPT 2 13 "Indirizzo " FIELD LF_ANAG->INDRF HELP "Inserire l'indirizzo del domicilio fiscale" WARNING "Completare l'indirizzo di domicilio fiscale" @@ -392,14 +408,14 @@ END STRING FLD_AF2_CIVRF 10 BEGIN - PROMPT 56 12 "N." + PROMPT 56 13 "N." FIELD LF_ANAG->CIVRF HELP "Inserire il numero civico della domicilio fiscale" END STRING FLD_AF2_COMRF 4 BEGIN - PROMPT 2 13 "Comune : Codice " + PROMPT 2 14 "Comune : Codice " FIELD LF_ANAG->COMRF FLAGS "U" COPY USE FLD_AF1_COMNASC @@ -418,20 +434,20 @@ END STRING FLD_AF2_COMRF_COMUNI_PROVCOM 5 BEGIN - PROMPT 38 13 "Provincia " + PROMPT 38 14 "Provincia " FLAGS "D" END STRING FLD_AF2_CAPRF 5 BEGIN - PROMPT 56 13 "CAP " + PROMPT 56 14 "CAP " FIELD LF_ANAG->CAPRF HELP "Inserire il CAP del comune di domicilio fiscale" END STRING FLD_AF2_COMRF_COMUNI_DENCOM 50 BEGIN - PROMPT 9 14 ": Denom. " + PROMPT 9 15 ": Denom. " HELP "Nome del comune di residenza fiscale" COPY USE FLD_AFIS_COMNASC_COMUNI_DENCOM INPUT DENCOM FLD_AF2_COMRF_COMUNI_DENCOM @@ -528,7 +544,6 @@ BEGIN HELP "Codice del comune al quale spedire la corrispondenza" CHECKTYPE NORMAL ADD MASK ba4100a - VALIDATE EMPTYCOPY_FUNC FLD_AF1_COMRES WARNING "Comune assente" END @@ -544,14 +559,13 @@ BEGIN PROMPT 56 8 "CAP " FIELD LF_ANAG->CAPCORR HELP "CAP del comune al quale spedire la corrispondenza" - VALIDATE EMPTYCOPY_FUNC FLD_ANAG_CAPRES END STRING FLD_AF2_COMCORR_COMUNI_DENCOM 50 BEGIN PROMPT 9 9 ": Denom. " HELP "Nome del comune al quale spedire la corrispondenza" - COPY USE FLD_AFIS_COMNASC_COMUNI_DENCOM + COPY USE FLD_AF1_COMRES_COMUNI_DENCOM INPUT DENCOM FLD_AF2_COMCORR_COMUNI_DENCOM COPY DISPLAY FLD_AFIS_COMNASC_COMUNI_DENCOM OUTPUT FLD_AF2_STATOCORR STATO diff --git a/ba/ba4200c.uml b/ba/ba4200c.uml index 441733cf3..ad5806595 100755 --- a/ba/ba4200c.uml +++ b/ba/ba4200c.uml @@ -227,15 +227,30 @@ BEGIN HELP "Numero civico della sede legale" END +NUMBER F_STATORES 3 +BEGIN + PROMPT 2 6 "Comune : Stato " + FIELD LF_ANAG->STATORES + FLAGS "RZ" + USE %STA + INPUT CODTAB F_STATORES + DISPLAY "Codice" CODTAB + DISPLAY "Stato@50" S0 + OUTPUT F_STATORES CODTAB + HELP "Codice dello stato a cui mandare la corrispondenza" + CHECKTYPE NORMAL +END + STRING FLD_AG2_COMRES 4 BEGIN - PROMPT 2 6 "Comune : Codice " + PROMPT 2 7 "Comune : Codice " FIELD LF_ANAG->COMRES FLAGS "U" USE LF_COMUNI - INPUT STATO "" + INPUT STATO F_STATORES INPUT COM FLD_AG2_COMRES #include + OUTPUT F_STATORES STATO OUTPUT FLD_AG2_COMRES COM OUTPUT FLD_AG2_COMRES_COMUNI_DENCOM DENCOM OUTPUT FLD_AG2_COMRES_COMUNI_PROVCOM PROVCOM @@ -248,24 +263,25 @@ END STRING FLD_AG2_COMRES_COMUNI_PROVCOM 5 BEGIN - PROMPT 38 6 "Provincia " + PROMPT 38 7 "Provincia " FLAGS "D" END STRING FLD_AG2_CAPRES 5 BEGIN - PROMPT 56 6 "CAP " + PROMPT 56 7 "CAP " FIELD LF_ANAG->CAPRES HELP "CAP del comune sede legale" END STRING FLD_AG2_COMRES_COMUNI_DENCOM 50 BEGIN - PROMPT 9 7 ": Denom. " + PROMPT 9 8 ": Denom. " HELP "Nome del comune sede legale" - USE LF_COMUNI KEY 2 SELECT STATO=="" + USE LF_COMUNI KEY 2 INPUT DENCOM FLD_AG2_COMRES_COMUNI_DENCOM #include + OUTPUT F_STATORES STATO OUTPUT FLD_AG2_COMRES COM OUTPUT FLD_AG2_COMRES_COMUNI_DENCOM DENCOM OUTPUT FLD_AG2_COMRES_COMUNI_PROVCOM PROVCOM @@ -275,14 +291,14 @@ END BOOLEAN CHK_AG5_NONRES BEGIN - PROMPT 2 8 "Non residente" + PROMPT 2 9 "Non residente" FIELD LF_ANAG->SOGGNRES HELP "Indicare se si tratta di persona giuridica non residente" END BOOLEAN F_VARSLORES BEGIN - PROMPT 21 8 "Variata" + PROMPT 21 9 "Variata" FIELD LF_ANAG->VARSLORES HELP "Indicare se e' stata variata la sede legale della ditta" MESSAGE FALSE CLEAR,F_DVARSLORES @@ -292,7 +308,7 @@ END DATE F_DVARSLORES BEGIN - PROMPT 38 8 "Data variazione " + PROMPT 38 9 "Data variazione " FIELD LF_ANAG->DVARSLORES HELP "Data di variazione della sede legale" END @@ -323,18 +339,17 @@ BEGIN PROMPT 2 13 "Comune : Codice " FIELD LF_ANAG->COMRF FLAGS "U" - COPY USE FLD_AG2_COMRES - INPUT STATO "" - INPUT COM FLD_AG1_COMRF - COPY DISPLAY FLD_AG2_COMRES - OUTPUT FLD_AG1_COMRF COM - OUTPUT FLD_AG1_COMRF_COMUNI_DENCOM DENCOM - OUTPUT FLD_AG1_COMRF_COMUNI_PROVCOM PROVCOM - OUTPUT FLD_AG1_CAPRF CAPCOM - HELP "Codice del comune domicilio fiscale della ditta" - CHECKTYPE NORMAL - WARNING "Comune assente" - ADD MASK ba4100a + USE LF_COMUNI KEY 2 SELECT STATO=="" + INPUT COM FLD_AG1_COMRF + COPY DISPLAY FLD_AG2_COMRES + OUTPUT FLD_AG1_COMRF COM + OUTPUT FLD_AG1_COMRF_COMUNI_DENCOM DENCOM + OUTPUT FLD_AG1_COMRF_COMUNI_PROVCOM PROVCOM + OUTPUT FLD_AG1_CAPRF CAPCOM + HELP "Codice del comune domicilio fiscale della ditta" + CHECKTYPE NORMAL + WARNING "Comune assente" + ADD MASK ba4100a END STRING FLD_AG1_COMRF_COMUNI_PROVCOM 5 @@ -459,7 +474,6 @@ BEGIN OUTPUT FLD_AG2_CAPCORR CAPCOM HELP "Codice del comune a cui mandare la corrispondenza" CHECKTYPE NORMAL - VALIDATE EMPTYCOPY_FUNC FLD_AG2_COMRES WARNING "Comune assente" ADD MASK ba4100a END @@ -473,10 +487,9 @@ END STRING FLD_AG2_CAPCORR 5 BEGIN - PROMPT 56 7 "CAP " - FIELD LF_ANAG->CAPCORR - HELP "CAP al quale spedire la corrispondenza" - VALIDATE EMPTYCOPY_FUNC FLD_AG2_CAPRES + PROMPT 56 7 "CAP " + FIELD LF_ANAG->CAPCORR + HELP "CAP al quale spedire la corrispondenza" END STRING FLD_AG2_COMCORR_COMUNI_DENCOM 50 @@ -599,7 +612,7 @@ STRING F_DENCOMCOST 50 46 BEGIN PROMPT 26 5 "" HELP "Nome del comune dove e' stata costituita la societa'" - COPY USE FLD_AG2_COMRES_COMUNI_DENCOM + COPY USE FLD_AG1_COMRF_COMUNI_DENCOM INPUT DENCOM F_DENCOMCOST #include COPY OUTPUT F_COMCOST