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

@@ -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);

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

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

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 <comdcod.h>
+  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 <comdden.h>
+  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,8 +339,7 @@ BEGIN
   PROMPT 2 13 "Comune : Codice "
   FIELD LF_ANAG->COMRF
   FLAGS "U"
-  COPY USE FLD_AG2_COMRES
+  USE LF_COMUNI KEY 2 SELECT STATO==""
-	INPUT STATO ""
   INPUT COM FLD_AG1_COMRF
   COPY DISPLAY FLD_AG2_COMRES
   OUTPUT FLD_AG1_COMRF COM
@@ -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
@@ -476,7 +490,6 @@ BEGIN
   PROMPT 56 7 "CAP    "
   FIELD LF_ANAG->CAPCORR
   HELP "CAP al quale spedire la corrispondenza"
-  VALIDATE EMPTYCOPY_FUNC FLD_AG2_CAPRES
 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 <comdden.h>
   COPY OUTPUT F_COMCOST