Corretti errori su anagrafiche da MI

git-svn-id: svn://10.65.10.50/trunk@718 c028cbd2-c16b-5b4b-a496-9718f37d4682

ba/ba4200.cpp

@@ -157,13 +157,17 @@ void  BA4200_application::init_modify_mode(TMask& m)
   m.disable(DLG_CHGTIP);
 }
 
-bool clear_cap(TMask_field& f, KEY key)
+HIDDEN bool clear_cap(TMask_field& f, KEY key)
 {                     
-  if (f.mask().query_mode() || !f.to_check(key, TRUE)) 
+  if (f.mask().query_mode()) 
     return TRUE;
 
   TMask& msk = f.mask() ;
   const short   dlg = f.dlg();
+
+  if (dlg != FLD_AG2_COMRES && dlg != FLD_AF1_COMRES && !f.to_check(key, TRUE)) 
+    return TRUE;
+
   const bool giuridica = ((BA4200_application&)main_app()).ana_giu();
   const TString16 val(f.get());
 
@@ -202,14 +206,24 @@ bool clear_cap(TMask_field& f, KEY key)
 // Handler del comunde di residenza e residenza fiscale                                            
 bool gest_uff_imp(TMask_field& f, KEY key)
 {
-  if (f.mask().query_mode() || !f.to_check(key, TRUE)) 
+  if (f.mask().query_mode()) 
     return TRUE;
 
-  TString       cod_com;
   TMask& msk = f.mask() ;
   const short   dlg = f.dlg();
   const bool giuridica = ((BA4200_application&)main_app()).ana_giu();
 
+  if (giuridica && dlg == FLD_AG2_COMRES)
+    clear_cap(f,key);
+
+  if (!giuridica && dlg == FLD_AF1_COMRES)
+    clear_cap(f,key);
+
+  if (!f.to_check(key, TRUE)) 
+    return TRUE;
+
+  TString       cod_com;
+
   if ( giuridica )
   {
     cod_com = msk.get(FLD_AG1_COMRF);

ba/ba4400.cpp

@@ -22,10 +22,30 @@ public:
   virtual ~BA4400_application() {}
 };
 
+HIDDEN bool clear_cap(TMask_field& f, KEY key)
+{                     
+  if (f.mask().query_mode())
+    return TRUE;
+  TMask& msk = f.mask() ;
+  const short   dlg = f.dlg();
+
+  if (dlg != FLD_UL1_COMULC && !f.to_check(key, TRUE)) 
+    return TRUE;
+
+  const TString16 val(f.get());
+  const int capid = dlg == FLD_UL1_COMULC ? FLD_UL1_CAPULC : FLD_UL2_CAPTRIB; 
+
+  if (val.empty())
+    msk.set(capid, "");
+  return TRUE; 
+} 
+
 
 bool BA4400_application::user_create() 
 {
   _msk = new TMask("ba4400a") ;
+  _msk->set_handler(FLD_UL1_COMULC, clear_cap);
+  _msk->set_handler(FLD_UL2_COMTRIB, clear_cap);
   _rel = new TRelation(LF_UNLOC) ;
   _anag = new TLocalisamfile(LF_ANAG) ;
   _ditte = new TLocalisamfile(LF_NDITTE) ;

ba/ba4500.cpp

@@ -87,10 +87,26 @@ bool TAttivita_application::gest_res(TMask_field& f, KEY key)
   return TRUE;
 }
 
+HIDDEN bool clear_cap(TMask_field& f, KEY key)
+{                     
+  if (f.mask().query_mode() || !f.to_check(key, TRUE)) 
+    return TRUE;
+
+  TMask& msk = f.mask() ;
+  const short   dlg = f.dlg();
+  const TString16 val(f.get());
+
+  if (val.empty())
+    msk.set(FLD_AT2_CAPCS, "");
+  return TRUE; 
+} 
+
+
 bool TAttivita_application::user_create()
 {
   _msk = new TMask("ba4500a") ;
   _msk->set_handler(FLD_AT2_CODANGRDS, gest_res);
+  _msk->set_handler(FLD_AT2_COMCS, clear_cap);
   _rel = new TRelation(LF_ATTIV) ;
   _anag = new TLocalisamfile(LF_ANAG) ;
   _ditte = new TLocalisamfile(LF_NDITTE) ;

ba/ba4600a.uml

@@ -209,20 +209,16 @@ BEGIN
 	NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=100)}
 END
 
-LIST LST_SC1_RICQUAL 18
+LIST LST_SC1_RICQUAL 28
 BEGIN
-  PROMPT 1 13 "Richiesta qualifica "
+  PROMPT 1 13 "R.qualifica "
   FIELD LF_SOCI->RICQUAL
   HELP "Qualifica del socio"
   ITEM " |Nessuna"
-  ITEM "A|Amministratore(A)"
+  ITEM "A|A) Amministratore socio"
-  ITEM "B|Amministratore(B)"
+  ITEM "B1|B1) Accomandante"
-  ITEM "B1|Amministratore(B1)"
+  ITEM "B|B) Amministratore non socio"
-  ITEM "B2|Amministratore(B2)"
+  ITEM "C|C) Altro organo"
-  ITEM "C|Organo di controllo"
-  ITEM "R|Revisore"
-  ITEM "S|Sindaco"
-  ITEM "SO|Soggetto operativo"
 END
 
 NUMBER FLD_SC1_EMOLUMENTO 17