Correzioni varie date da paolo rivolta

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

ba/ba4.cpp

@@ -8,47 +8,27 @@
 
 int main(int argc,char** argv)
 
-	{
+{
-		int             rt = 0 ;
+  int             rt = -1 ;
-		TString p = argv[0], s = argv[1] ;
+  const int r = (argc > 1) ? atoi(&argv[1][1]) : -1;
 
-		if (argc!=2 && argc != 3) fatal_box(usage, (const char*) p) ;
+  switch (r)
-		else
+  {
-		{
+  case 0:
-			if (s == "-0")  rt = ba4100(argc,argv) ;
+    rt = ba4100(argc,argv) ; break;
-			else
+  case 1:
-				if (s == "-1")  rt = ba4200(argc,argv) ;
+    rt = ba4200(argc,argv) ; break;
-				else
+  case 2:
-					if (s == "-2")  rt = ba4300(argc,argv) ;
+    rt = ba4300(argc,argv) ; break;
-					else
+  case 3:
-						if (s == "-3")  rt = ba4400(argc,argv) ;
+    rt = ba4400(argc,argv) ; break;
-						else
+  case 4:
-							if (s == "-4")  rt = ba4500(argc,argv) ;
+    rt = ba4500(argc,argv) ; break;
-							else
+  case 5:
-								if (s == "-5")  rt = ba4600(argc,argv) ;
+    rt = ba4600(argc,argv) ; break;
-								else fatal_box(usage, (const char*) p) ;                   
+  default:
-		}
+    error_box(usage, argv[0]) ; break;
-		return rt;
+    return rt;
   }
-
+}
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
 

ba/ba4200.cpp

@@ -184,39 +184,44 @@ bool gest_nazionalita(TMask_field& f, KEY key)
   return TRUE ;
 }
 
-// Handler dell'ufficio imposte dirette                   
+bool clear_cap(TMask_field& f, KEY key)
-bool gest_uff_imp_nr(TMask_field& f, KEY key)
 {                     
-  /*
+  if (f.mask().query_mode() || !f.to_check(key, TRUE)) 
-     if (!f.to_check(key)) return TRUE;
+    return TRUE;
 
-     const TString cod_uff(f.get());
+  TMask& msk = f.mask() ;
-     if (cod_uff.empty()) return TRUE;
+  const short   dlg = f.dlg();
-     
+  const bool giuridica = ((BA4200_application&)main_app()).ana_giu();
-     TMask& msk = f.mask() ;
+  const TString16 val(f.get());
-     TTable uff_imp("%UID");
 
-     uff_imp.zero() ;
+  if ( giuridica )
-     uff_imp.put(N_CODTAB, cod_uff);
+  {
-     uff_imp.read() ;
+    if (val.empty())
-     if ( uff_imp.good() )
+    {
-     {               
+      if (dlg == FLD_AG1_COMRF)
-     const bool giuridica = ((BA4200_application*)main_app())->ana_giu();
+        msk.set(FLD_AG1_CAPRF, "");
-     const TFixed_string codcom(uff_imp.get(N_COMUNE));
+      else
-     const char* com = msk.get(giuridica ? FLD_AG1_COMRF : FLD_AF2_COMRF);
+        if (dlg == FLD_AG2_COMRES)
-     if (*com)
+          msk.set(FLD_AG2_CAPRES, "");
-     {
+        else
-     if(codcom != com) 
+          if (dlg == FLD_AG2_COMCORR)
-     return f.error_box("L'ufficio deve appartenere al comune di residenza fiscale: %s", com);
+            msk.set(FLD_AG2_CAPCORR, "");
-     }
+    }
-     else
+  }
-     {
+  else
-     com = msk.get(giuridica ? FLD_AG2_COMRES : FLD_AF1_COMRES);
+  {
-     if(codcom != com) 
+    if (val.empty())
-     return f.error_box("L'ufficio deve appartenere al comune di residenza: %s", com);
+    {
-     }  
+      if (dlg == FLD_AF2_COMRF)
-     }  
+        msk.set(FLD_AF2_CAPRF, "");
-     */         
+      else
+        if (dlg == FLD_AF1_COMRES)
+          msk.set(FLD_ANAG_CAPRES, "");
+        else
+          if (dlg == FLD_AF2_COMCORR)
+            msk.set(FLD_AF2_CAPCORR, "");
+    }
+  }  
   return TRUE; 
 } 
 
@@ -246,7 +251,7 @@ bool gest_uff_imp(TMask_field& f, KEY key)
       if (cod_com.not_empty()) return TRUE;
     cod_sta = msk.get(FLD_AF2_STATORF);
   }
-  
+  clear_cap(f,key);
   if (cod_com.empty())
   {
     cod_com = msk.get(giuridica ? FLD_AG2_COMRES : FLD_AF1_COMRES) ;
@@ -270,6 +275,10 @@ bool gest_uff_imp(TMask_field& f, KEY key)
     if (s.empty()) s = comuni.get(N_IMPDIR2) ; 
     if (s.empty()) s = comuni.get(N_IMPDIR3) ; 
     msk.set(F_UFFIIDD, s) ; msk.field(F_UFFIIDD).on_key(K_TAB);
+    s = comuni.get(N_IVA1); 
+    if (s.empty()) s = comuni.get(N_IVA2) ; 
+    if (s.empty()) s = comuni.get(N_IVA3) ; 
+    msk.set(F_UFFIVA, s) ; msk.field(F_UFFIVA).on_key(K_TAB);
     msk.set(F_UFFREG, comuni.get("UFFREG")); msk.field(F_UFFREG).on_key(K_TAB);
     msk.set(F_UFFCONC, comuni.get("UFFCONC")); msk.field(F_UFFCONC).on_key(K_TAB);
     msk.set(F_UFFSERV, comuni.get("UFFCSERV")); msk.field(F_UFFSERV).on_key(K_TAB);
@@ -377,7 +386,7 @@ TMask* BA4200_application::get_mask(int mode)
     _msk[MSKF]->set_handler(FLD_AF1_COFI, no_dup_fis);
     _msk[MSKF]->set_handler(FLD_AF1_COMRES, gest_uff_imp);
     _msk[MSKF]->set_handler(FLD_AF2_COMRF, gest_uff_imp);
-    _msk[MSKF]->set_handler(F_UFFIIDD, gest_uff_imp_nr);
+    _msk[MSKF]->set_handler(FLD_AF2_COMCORR, clear_cap);
     _msk[MSKF]->set_handler(FLD_AF1_STATORES, gest_nazionalita);
     _msk[MSKF]->set_handler(FLD_AF1_PAIV, no_dup_iva_f);
     _msk[MSKF]->set_handler(FLD_AF1_COFI, no_dup_fis);
@@ -390,7 +399,7 @@ TMask* BA4200_application::get_mask(int mode)
     _msk[MSKG] = new TMask("ba4200c") ;
     _msk[MSKG]->set_handler(FLD_AG2_COMRES, gest_uff_imp);
     _msk[MSKG]->set_handler(FLD_AG1_COMRF, gest_uff_imp);
-    _msk[MSKG]->set_handler(F_UFFIIDD, gest_uff_imp_nr);
+    _msk[MSKG]->set_handler(FLD_AG2_COMCORR, clear_cap);
     _msk[MSKG]->set_handler(FLD_AG1_COFI, no_dup_fis);
     _msk[MSKG]->set_handler(FLD_AG1_PAIV, no_dup_iva_g);
     _msk[MSKG]->set_handler(ba4200_handler);
@@ -403,12 +412,10 @@ bool BA4200_application::user_create()
 {
   _msk[MSKF] = NULL;
   _rel[MSKF] = new TRelation(LF_ANAG);
-  //    _rel[MSKF]->add(LF_ANAGFIS, "CODANAGR=CODANAGR", 1, 0, 0, TRUE); verificare
   _rel[MSKF]->add(LF_ANAGFIS, "CODANAGR=CODANAGR", 1, 0, 0);
 
   _msk[MSKG] = NULL;
   _rel[MSKG] = new TRelation(LF_ANAG);
-  //    _rel[MSKG]->add(LF_ANAGGIU, "CODANAGR=CODANAGR", 1, 0, 0, TRUE); verificare
   _rel[MSKG]->add(LF_ANAGGIU, "CODANAGR=CODANAGR", 1, 0, 0);
   
   _comuni = new TLocalisamfile(LF_COMUNI) ;
@@ -493,9 +500,12 @@ int BA4200_application::rewrite(const TMask& m)
 int ba4200(int argc, char* argv[])
 {                         
   char ta = 'F';
-  if (argc > 2 && toupper(*argv[2]) == 'G') ta = 'G';
   
+  check_parameters(argc, argv);
+  if (argc > 2 && toupper(*argv[2]) == 'G') ta = 'G';
+
   BA4200_application a(ta);
+  
 
   TString80 titolo("Anagrafica Persone ");
   titolo << (ta == 'F' ? "Fisiche" : "Giuridiche");

ba/ba4200.h

@@ -19,6 +19,9 @@
 #define N_IMPDIR1 "UFFIIDD1"
 #define N_IMPDIR2 "UFFIIDD2"
 #define N_IMPDIR3 "UFFIIDD3"
+#define N_IVA1 "UFFIVA1"
+#define N_IVA2 "UFFIVA2"
+#define N_IVA3 "UFFIVA3"
 #define N_DEN_COM "DENCOM"
 #define N_PROV    "PROVCOM"
 #define N_CAP     "CAPCOM"
@@ -59,8 +62,6 @@
 #define N_EVECC     "EVECC"
 #define N_SOGGNRES  "SOGGNRES"
 #define N_RESZTERR  "RESZTERR"
-#define N_VARSLORES "VARSLORES"
-#define N_DVARSLORES "DVARSLORES"
 #define N_RFDIVERSA "RFDIVERSA"
 #define N_UFFIIDD   "UFFIIDD"
 
@@ -95,8 +96,6 @@
 #define N_DATASORAMM            "DATASORAMM"
 #define N_DATASCSIND            "DATASCSIND"
 #define N_VARDEN                                "VARDEN"
-#define N_VARRF                                 "VARRF"
-#define N_DATAVARRF                     "DATAVARRF"
 #define N_SIGLA                                 "SIGLA"
 #define N_NATGIU                                "NATGIU"
 #define N_ENTENCOMM                     "ENTENCOMM"
@@ -112,7 +111,6 @@
 #define N_SAUB                                  "SAUB"
 #define N_CODCONIUGE            "CODCONIUGE"
 #define N_CPARTRF                               "CPARTRF"
-#define N_ISCRCAF                               "ISCRCAF"
 #define N_NAZION                                "NAZION"        
 
 
@@ -120,22 +118,16 @@
 #define CHK_AF4_RESZTERR 102
 #define CHK_AF4_RFDIVERSA 103
 #define CHK_AF4_SOGGNRES 104
-#define CHK_AF4_VARSLORES 105
 #define CHK_AFIS_SAUB 106
 #define CHK_AG1_ENTENCOMM 108
 #define CHK_AG5_RESZTERR 109
 #define CHK_AG5_RFDSL 110
-#define CHK_AG5_VARSLORES 111
 #define CHK_AGIU2_VARDEN 112
-#define CHK_AGIU2_VARRF 113
 #define CHK_AGIU_ENTENCOMM 114
 #define CHK_AGIU_VARDEN 115
-#define CHK_AGIU_VARRF 116
 #define CHK_ANAG2_RESZTERR 118
 #define CHK_ANAG2_RFDIVERSA 119
 #define CHK_ANAG2_SOGGNRES 120
-#define CHK_ANAG2_VARSLORES 121
-#define DLG_AG5_DVARSLOR 122
 #define FLD_AF1_CIVRES 123
 #define FLD_AF1_CODCONIUGE 124
 #define FLD_AF1_CODCONIUGE_ANAGR_RAGSOC 125
@@ -175,8 +167,6 @@
 #define FLD_AF2_TELRF 159
 #define FLD_AF2_TLEXRF 160
 #define FLD_AF3_DVARSCIV 161
-#define FLD_AF3_ISCRCAF 162
-#define FLD_AF4_DVARSLORES 164
 #define FLD_AF4_RFDIVERSA 165
 #define F_UFFIIDD 166
 #define F_DENUFFIIDD 168
@@ -257,7 +247,6 @@
 #define FLD_AG3_DATASCSIND 247
 #define FLD_AG3_DATASORAMM 248
 #define FLD_AG3_DATATAPPBI 249
-#define FLD_AG3_DATAVARRF 250
 #define FLD_AG4_CAPSOC 251
 #define FLD_AG4_CAPVER 252
 #define FLD_AG4_ESTROMOL 253
@@ -282,7 +271,6 @@
 #define FLD_AGIU2_DATASCSIND 276
 #define FLD_AGIU2_DATASORAMM 277
 #define FLD_AGIU2_DATATAPPBI 278
-#define FLD_AGIU2_DATAVARRF 279
 #define FLD_AGIU2_STATOSOC 280
 #define FLD_AGIU_CAPSOC 281
 #define FLD_AGIU_CAPVER 282
@@ -294,7 +282,6 @@
 #define FLD_AGIU_DATASCSIND 289
 #define FLD_AGIU_DATASORAMM 290
 #define FLD_AGIU_DATATAPPBI 291
-#define FLD_AGIU_DATAVARRF 292
 #define FLD_AGIU_ESTROMOL 293
 #define FLD_AGIU_FATT 294
 #define FLD_AGIU_NAZIONI 295
@@ -315,7 +302,6 @@
 #define FLD_ANAG2_CODSTAT3 311
 #define FLD_ANAG2_COMCORR 312
 #define FLD_ANAG2_COMCORR_COMUNI_DESCR 313
-#define FLD_ANAG2_DVARSLORES 314
 #define FLD_ANAG2_INDCORR 315
 #define FLD_ANAG2_RESZTERR 316
 #define FLD_ANAG2_STATOCORR 317
@@ -388,5 +374,10 @@
 #define F_CODCAB       397
 #define F_COMCOST      398
 #define F_DENCOMCOST   399
+#define F_UFFIVA       400
+#define F_DENUFFIVA    401
+#define F_NISCRIIDD    402
+#define F_VARSLORES    403
+#define F_DVARSLORES   404
 
 #endif  // __BA4200_H

ba/ba4200b.uml

@@ -361,15 +361,15 @@ END
 
 GROUPBOX DLG_NULL 76 6
 BEGIN
-  PROMPT 0 11 "Residenza Fiscale (solo se diversa)"
+  PROMPT 0 11 "Domicilio Fiscale (solo se diverso)"
 END
 
 STRING FLD_AF2_INDRF 35
 BEGIN
   PROMPT 2 12 "Indirizzo       "
   FIELD LF_ANAG->INDRF
-  HELP "Indirizzo della residenza fiscale"
+  HELP "Inserire l'indirizzo del domicilio fiscale"
-  WARNING "Completare l'indirizzo di residenza fiscale"
+  WARNING "Completare l'indirizzo di domicilio fiscale"
   VALIDATE REQIF_FUNC 1 FLD_AF2_COMRF
 END
 
@@ -377,7 +377,7 @@ STRING FLD_AF2_CIVRF 10
 BEGIN
   PROMPT 56 12 "N."
   FIELD LF_ANAG->CIVRF
-  HELP "Numero civico della residenza fiscale"
+  HELP "Inserire il numero civico della domicilio fiscale"
 END
 
 NUMBER FLD_AF2_STATORF 3
@@ -389,7 +389,7 @@ BEGIN
   INPUT CODTAB FLD_AF2_STATORF
   COPY DISPLAY FLD_AF1_STATONASC
   OUTPUT FLD_AF2_STATORF CODTAB
-  HELP "Codice dello stato di residenza fiscale"
+  HELP "Inserire il codice dello stato di domicilio fiscale"
   CHECKTYPE NORMAL
   WARNING "Stato assente"
 END
@@ -408,7 +408,7 @@ BEGIN
   OUTPUT FLD_AF2_COMRF_COMUNI_DENCOM DENCOM
   OUTPUT FLD_AF2_COMRF_COMUNI_PROVCOM PROVCOM
   OUTPUT FLD_AF2_CAPRF CAPCOM
-  HELP "Codice del comune di residenza fiscale"
+  HELP "Inserire il codice del comune di domicilio fiscale"
   CHECKTYPE NORMAL
   WARNING "Comune assente"
   ADD MASK ba4100a
@@ -424,7 +424,7 @@ STRING FLD_AF2_CAPRF 5
 BEGIN
   PROMPT 56 14 "CAP    "
   FIELD LF_ANAG->CAPRF
-  HELP "CAP del comune di residenza fiscale"
+  HELP "Inserire il CAP del comune di domicilio fiscale"
 END
 
 STRING FLD_AF2_COMRF_COMUNI_DENCOM 50
@@ -726,17 +726,14 @@ BEGIN
   HELP "Iscrizione al servizio sanitario nazionale"
 END
 
-STRING FLD_AF3_ISCRCAF 10
+LIST LST_AF3_CPARTRF 28
 BEGIN
-  PROMPT 42 10 "Iscrizione CAF  "
+  PROMPT 2 11 "Casi Particolari Domicilio Fiscale   "
-  FIELD LF_ANAGFIS->ISCRCAF
-  HELP "Numero di iscrizione al CAF"
-END
-
-BOOLEAN LST_AF3_CPARTRF
-BEGIN
-  PROMPT 2 11 "Casi Particolari Residenza Fiscale"
   FIELD LF_ANAGFIS->CPARTRF
+  ITEM "1|Nessuno"
+  ITEM "2|Residente all'estero"
+  ITEM "3|Provvedimento amministrativo"
+  ITEM "4|Variato da meno di 60gg"
   HELP "Soggetto a a casi particolari di residenza fiscale"
 END
 
@@ -759,8 +756,8 @@ BEGIN
   FIELD LF_ANAG->TIPOSTDEL
   HELP "Tipo di ducumento da stampare"
   ITEM "0|Delega"
-  ITEM "1|Bollettino"
   ITEM "2|Distinta"
+  ITEM "1|Bollettino"
 END
 
 NUMBER F_CODABI 5
@@ -827,39 +824,31 @@ BEGIN
   HELP "Residenza della persona fisica in zona dichiarate terremotate"
 END
 
-BOOLEAN CHK_AF4_RFDIVERSA
-BEGIN
-  PROMPT 2 6 "Residenza fiscale variata"
-  FIELD LF_ANAG->RFDIVERSA
-  HELP "Indicare se la persona ha variato la residenza fiscale"
-END
-
 NUMBER LST_AF4_EVECC 1
 BEGIN
-  PROMPT 36 6 "Eventi di natura eccezionale       "
+  PROMPT 36 5 "Eventi di natura eccezionale       "
   HELP "Codice degli eventi di natura eccezionale"
   FIELD LF_ANAG->EVECC
-  SHEET "Codice|Descrizione@40"
+  SHEET "Codice|Descrizione@70"
   INPUT LST_AF4_EVECC
   OUTPUT LST_AF4_EVECC
-  ITEM " |Non definito"
+  ITEM " |Nessuno"
-  ITEM "1|Nessuno"
+  ITEM "1|Eventi criminosi RM FI 1993"
-  ITEM "2|Eventi criminosi RM FI 1993"
+  ITEM "2|Sisma Dicembre 1990 in Sicilia"
-  ITEM "3|Sisma Dicembre 1990 in Sicilia"
+  ITEM "3|Richieste di natura estorsiva"
-  ITEM "4|Richieste di natura estorsiva"
+  ITEM "4|Interventi urgenti in Liguria e Toscana per avversita' atmosferiche"
 END
 
-BOOLEAN CHK_AF4_VARSLORES
+BOOLEAN F_VARSLORES
 BEGIN
-  PROMPT 2 7 "Sede legale variata"
+  PROMPT 2 7 "Domicilio Fiscale variato"
   FIELD LF_ANAG->VARSLORES
   HELP "Indicare se e' stata variata la sede legale"
-  MESSAGE FALSE DISABLE,FLD_AF4_DVARSLORES
+  MESSAGE FALSE CLEAR,F_DVARSLORES
-  MESSAGE FALSE RESET,FLD_AF4_DVARSLORES
+  MESSAGE TRUE ENABLE,F_DVARSLORES
-  MESSAGE TRUE ENABLE,FLD_AF4_DVARSLORES
 END
 
-DATE FLD_AF4_DVARSLORES
+DATE F_DVARSLORES
 BEGIN
   PROMPT 36 7 "Data variazione           "
   FIELD LF_ANAG->DVARSLORES
@@ -868,20 +857,16 @@ END
 
 BOOLEAN CHK_AF4_SOGGNRES
 BEGIN
-  PROMPT 2 8 "Non residente"
+  PROMPT 2 9 "Non residente"
   FIELD LF_ANAG->SOGGNRES
   HELP "Dire se si tratta di persone non residente"
 END
 
-LIST FLD_AF4_RFDIVERSA 28
+BOOLEAN FLD_AF4_RFDIVERSA 
 BEGIN
-  PROMPT 2 9 "Domicilio fiscale diverso da sede legale "
+  PROMPT 2 11 "Domicilio fiscale diverso da sede legale "
   FIELD LF_ANAG->RFDIVERSA
-  HELP "Descrizione per eventuale domicilio fiscale diverso diverso da sede legale"
+  HELP "Dire se il domicilio fiscale e' diverso della sede legale"
-  ITEM "1|Nessuno"
-  ITEM "2|Residente all'estero"
-  ITEM "3|Provvedimento amministrativo"
-  ITEM "4|Variato da meno di 60gg"
 END
 
 GROUPBOX DLG_NULL 76 5
@@ -1030,15 +1015,37 @@ BEGIN
   COPY OUTPUT F_UFFIIDD
 END
 
-STRING F_CC_ESATTORIA 8
+STRING F_NISCRIIDD 10
 BEGIN
-  PROMPT 1 8 "C/C Esattoria   "
+  PROMPT 1 8 "N.ro iscrizione "
+  FIELD LF_ANAG->NISCRIIDD
+END
+
+STRING F_UFFIVA 3
+BEGIN
+  PROMPT 1 9 "Ufficio IVA     "
+  FLAGS "RZ"
+  USE %UIV
+  INPUT CODTAB F_UFFIVA
+  DISPLAY "Ufficio" CODTAB
+  DISPLAY "Denominazione@50" S0
+  OUTPUT F_UFFIVA CODTAB
+  OUTPUT F_DENUFFIVA S0
+  OUTPUT F_CC_ESATTORIA S4
+  HELP "Numero dell'ufficio delle imposte dirette competente"
+  CHECKTYPE NORMAL
+  WARNING "Ufficio imposte assente"
+END
+
+STRINF F_DENUFFIVA 50 48
+BEGIN
+  PROMPT 23 9 " "
   FLAGS "D"
 END
 
 STRING F_UFFREG 3
 BEGIN
-  PROMPT 1 9 "Registro        "
+  PROMPT 1 10 "Registro        "
   USE %URE
   INPUT CODTAB F_UFFREG
   OUTPUT F_UFFREG CODTAB
@@ -1049,13 +1056,13 @@ END
 
 STRING F_DENUFFREG 50 48
 BEGIN
-  PROMPT 24 9 ""
+  PROMPT 24 10 ""
   FLAGS "D"
 END
 
 NUMBER F_UFFCONC 3
 BEGIN
-  PROMPT 1 10 "Concessioni     "
+  PROMPT 1 11 "Concessioni     "
   FLAGS "DRZG"
   USE %UCC
   INPUT CODTAB F_UFFCONC
@@ -1066,13 +1073,13 @@ END
 
 STRING F_DENUFFCONC 50 48
 BEGIN
-  PROMPT 24 10 ""
+  PROMPT 24 11 ""
   FLAGS "D"
 END
 
 NUMBER F_UFFSERV 3
 BEGIN
-  PROMPT 1 11 "Centro Servizi  "
+  PROMPT 1 12 "Centro Servizi  "
   FLAGS "DRZG"
   USE %UCS
   INPUT CODTAB F_UFFSERV
@@ -1083,40 +1090,47 @@ END
 
 STRING F_DENUFFSERV 50 48
 BEGIN
-  PROMPT 24 11 ""
+  PROMPT 24 12 ""
   FLAGS "D"
 END
 
-GROUPBOX -1 76 3
+GROUPBOX -1 76 4
 BEGIN
-  PROMPT 0 13 "Codice contribuente"
+  PROMPT 0 14 "Codice contribuente"
 END
 
 STRING F_CODCONTR_EP 2
 BEGIN
-  PROMPT 1 14 "Esattoria Prov."
+  PROMPT 1 15 "Esattoria Prov."
   FIELD CODCONTR[1,2]
   FLAGS "D"
 END
 
 STRING F_CODCONTR_EC 3
 BEGIN
-  PROMPT 23 14 "Esattoria Com."
+  PROMPT 23 15 "Esattoria Com."
   FIELD CODCONTR[3,5]
   FLAGS "D"
 END
 
 STRING F_CODCONTR 8
 BEGIN
-  PROMPT 46 14 "Codice "
+  PROMPT 46 15 "Codice "
   FIELD CODCONTR[6,13]
   HELP "Codice assegnato al contribuente"
 END
 
 STRING F_CODCONTR_CC 2
 BEGIN
-  PROMPT 66 14 "C.c."
+  PROMPT 66 15 "C.c."
   FIELD CODCONTR[14,15]
+  HELP "Codice assegnato al contribuente"
+END
+
+STRING F_CC_ESATTORIA 8
+BEGIN
+  PROMPT 1 16 "C/C Esattoria  "
+  FLAGS "D"
 END
 
 ENDPAGE

ba/ba4200c.uml

@@ -111,7 +111,7 @@ BEGIN
   FIELD LF_ANAG->COFI
   FLAGS "U"
   HELP "Codice fiscale della persona giuridica"
-  VALIDATE XTZPI_FUNC FLD_AG1_STATOPAIV FLD_AG1_COMRF FLD_AG2_COMRES
+  VALIDATE CF_FUNC FLD_AG1_STATOPAIV
 	USE LF_ANAG KEY 3
 	INPUT TIPOA "G" 
 	INPUT COFI FLD_AG1_COFI
@@ -285,23 +285,23 @@ END
 
 GROUPBOX DLG_NULL 76 6
 BEGIN
-  PROMPT 0 10 "Residenza Fiscale"
+  PROMPT 0 10 "Domicilio Fiscale (solo se diverso)"
 END
 
 STRING FLD_AG1_INDRF 35
 BEGIN
   PROMPT 2 11 "Indirizzo       "
   FIELD LF_ANAG->INDRF
-  HELP "Indirizzo della residenza fiscale"
+  HELP "Indirizzo della domicilio fiscale della ditta"
-	WARNING "Completare l'indirizzo di residenza fiscale"
+  WARNING "Completare l'indirizzo di domicilio fiscale"
-	VALIDATE REQIF_FUNC 1 FLD_AG1_COMRF
+  VALIDATE REQIF_FUNC 1 FLD_AG1_COMRF
 END
 
 STRING FLD_AG1_CIVRF 10
 BEGIN
   PROMPT 56 11 "N."
   FIELD LF_ANAG->CIVRF
-  HELP "Numero civico della residenza fiscale"
+  HELP "Numero civico della domicilio fiscale della ditta"
 END
 
 NUMBER FLD_AG1_STATORF 3
@@ -313,7 +313,7 @@ BEGIN
   INPUT CODTAB FLD_AG2_STATORES
   COPY DISPLAY FLD_AG2_STATORES
   OUTPUT FLD_AG1_STATORF CODTAB
-  HELP "Codice dello stato residenza fiscale"
+  HELP "Codice dello stato domicilio fiscale della ditta"
   CHECKTYPE NORMAL
   WARNING "Stato assente"
 END
@@ -332,7 +332,7 @@ BEGIN
 	OUTPUT FLD_AG1_COMRF_COMUNI_DENCOM DENCOM
 	OUTPUT FLD_AG1_COMRF_COMUNI_PROVCOM PROVCOM
 	OUTPUT FLD_AG1_CAPRF CAPCOM
-        HELP "Codice del comune residenza fiscale"
+	HELP "Codice del comune domicilio fiscale della ditta"
 	CHECKTYPE NORMAL
 	WARNING "Comune assente"
 	ADD MASK ba4100a
@@ -348,7 +348,7 @@ STRING FLD_AG1_CAPRF 5
 BEGIN
 	PROMPT 56 13 "CAP    "
 	FIELD LF_ANAG->CAPRF
-        HELP "CAP del comune residenza fiscale"
+	HELP "CAP del comune domicilio fiscale della ditta"
 END
 
 STRING FLD_AG1_COMRF_COMUNI_DENCOM 50
@@ -660,23 +660,6 @@ BEGIN
   HELP "Data di approvazione del bilancio"
 END
 
-BOOLEAN CHK_AGIU2_VARRF
-BEGIN
-  PROMPT 29 11 "Variata residenza fiscale "
-  FIELD LF_ANAGGIU->VARRF
-  HELP "Indicare se e' stata variata la residenza fiscale"
-  MESSAGE FALSE DISABLE,FLD_AG3_DATAVARRF
-  MESSAGE FALSE RESET,FLD_AG3_DATAVARRF
-  MESSAGE TRUE ENABLE,FLD_AG3_DATAVARRF
-END
-
-DATE FLD_AG3_DATAVARRF
-BEGIN
-  PROMPT 60 11 "il "
-  FIELD LF_ANAGGIU->DATAVARRF
-  HELP "Data di variazione della residenza fiscale"
-END
-
 DATE FLD_AG3_DATACHIUS
 BEGIN
   PROMPT 2 12 "Data chiusura "
@@ -759,7 +742,8 @@ BEGIN
   ITEM "24|Societa' in nome collettivo"
   ITEM "25|Societa' in accomamdita semplice"
   ITEM "26|Societa' d'armamento"
-  ITEM "27|Associazioni"
+  ITEM "28|Aziende coniugali"
+  ITEM "29|GEIE"
 END
 
 ENDPAGE
@@ -866,8 +850,8 @@ BEGIN
   FIELD LF_ANAG->TIPOSTDEL
   HELP "Tipo di documento per i versamenti"
   ITEM "0|Delega"
-  ITEM "1|Bollettino"
   ITEM "2|Distinta"
+  ITEM "1|Bollettino"
 END
 
 NUMBER F_CODABI 5
@@ -920,45 +904,48 @@ BEGIN
   GROUP 2
 END
 
-LIST LST_AG5_EVECC 2
-BEGIN
-  PROMPT 37 4 "Eventi di natura eccezionale     "
-  FIELD LF_ANAG->EVECC
-  HELP "Codice degli eventi naturali eccezionali accaduti alla ditta"
-  ITEM " | "
-  ITEM "A|A"
-  ITEM "B|B"
-  ITEM "C|C"
-  ITEM "D|D"
-END
-
 BOOLEAN CHK_AG5_RESZTERR
 BEGIN
-  PROMPT 2 5 "Residente in zona terremotata"
+  PROMPT 2 4 "Residente in zona terremotata"
   FIELD LF_ANAG->RESZTERR
   HELP "Indicare se la ditta ha residenza in zona terremotata"
 END
 
-BOOLEAN CHK_AG5_VARSLORES
+NUMBER LST_AG5_EVECC 1
 BEGIN
-  PROMPT 2 6 "Sede legale variata"
+  PROMPT 37 4 "Eventi di natura eccezionale     "
-  FIELD LF_ANAG->VARSLORES
+  FIELD LF_ANAG->EVECC
-  HELP "Indicare se e' stata variata la sede legale della ditta"
+  HELP "Codice degli eventi naturali eccezionali accaduti alla ditta"
-  MESSAGE FALSE DISABLE,DLG_AG5_DVARSLOR
+  SHEET "Codice|Descrizione@70"
-  MESSAGE FALSE RESET,DLG_AG5_DVARSLOR
+  INPUT LST_AG5_EVECC
-  MESSAGE TRUE ENABLE,DLG_AG5_DVARSLOR
+  OUTPUT LST_AG5_EVECC
+  ITEM " |Nessuno"
+  ITEM "1|Eventi criminosi RM FI 1993"
+  ITEM "2|Sisma Dicembre 1990 in Sicilia"
+  ITEM "3|Richieste di natura estorsiva"
+  ITEM "4|Interventi urgenti in Liguria e Toscana per avversita' atmosferiche"
 END
 
-DATE DLG_AG5_DVARSLOR
+BOOLEAN F_VARSLORES
 BEGIN
-  PROMPT 37 6 "Data variazione           "
+  PROMPT 2 5 "Sede legale variata"
+  FIELD LF_ANAG->VARSLORES
+  HELP "Indicare se e' stata variata la sede legale della ditta"
+  MESSAGE FALSE CLEAR,F_DVARSLORES
+  MESSAGE FALSE RESET,F_DVARSLORES
+  MESSAGE TRUE ENABLE,F_DVARSLORES
+END
+
+DATE F_DVARSLORES
+BEGIN
+  PROMPT 37 5 "Data variazione           "
   FIELD LF_ANAG->DVARSLORES
   HELP "Data di variazione delle sede legale"
 END
 
 BOOLEAN CHK_AG5_RFDSL
 BEGIN
-  PROMPT 37 5 "Dom. fiscale diverso sede legale"
+  PROMPT 2 6 "Domcilio fiscale diverso sede legale"
   FIELD LF_ANAG->RFDIVERSA
   HELP "Indicare se il domicilio fiscale e' diverso dalla sede legale"
 END
@@ -1140,15 +1127,37 @@ BEGIN
   COPY OUTPUT F_UFFIIDD
 END
 
-STRING F_CC_ESATTORIA 8
+STRING F_NISCRIIDD 10
 BEGIN
-  PROMPT 1 8 "C/C Esattoria   "
+  PROMPT 1 8 "N.ro iscrizione "
+  FIELD LF_ANAG->NISCRIIDD
+END
+
+STRING F_UFFIVA 3
+BEGIN
+  PROMPT 1 9 "Ufficio IVA     "
+  FLAGS "RZ"
+  USE %UIV
+  INPUT CODTAB F_UFFIVA
+  DISPLAY "Ufficio" CODTAB
+  DISPLAY "Denominazione@50" S0
+  OUTPUT F_UFFIVA CODTAB
+  OUTPUT F_DENUFFIVA S0
+  OUTPUT F_CC_ESATTORIA S4
+  HELP "Numero dell'ufficio delle imposte dirette competente"
+  CHECKTYPE NORMAL
+  WARNING "Ufficio imposte assente"
+END
+
+STRINF F_DENUFFIVA 50 48
+BEGIN
+  PROMPT 23 9 " "
   FLAGS "D"
 END
 
 STRING F_UFFREG 3
 BEGIN
-  PROMPT 1 9 "Registro        "
+  PROMPT 1 10 "Registro        "
   USE %URE
   INPUT CODTAB F_UFFREG
   OUTPUT F_UFFREG CODTAB
@@ -1159,13 +1168,13 @@ END
 
 STRING F_DENUFFREG 50 48
 BEGIN
-  PROMPT 24 9 ""
+  PROMPT 24 10 ""
   FLAGS "D"
 END
 
 NUMBER F_UFFCONC 3
 BEGIN
-  PROMPT 1 10 "Concessioni     "
+  PROMPT 1 11 "Concessioni     "
   FLAGS "DRZG"
   USE %UCC
   INPUT CODTAB F_UFFCONC
@@ -1176,13 +1185,13 @@ END
 
 STRING F_DENUFFCONC 50 48
 BEGIN
-  PROMPT 24 10 ""
+  PROMPT 24 11 ""
   FLAGS "D"
 END
 
 NUMBER F_UFFSERV 3
 BEGIN
-  PROMPT 1 11 "Centro Servizi  "
+  PROMPT 1 12 "Centro Servizi  "
   FLAGS "DRZG"
   USE %UCS
   INPUT CODTAB F_UFFSERV
@@ -1193,40 +1202,47 @@ END
 
 STRING F_DENUFFSERV 50 48
 BEGIN
-  PROMPT 24 11 ""
+  PROMPT 24 12 ""
   FLAGS "D"
 END
 
-GROUPBOX -1 76 3
+GROUPBOX -1 76 4
 BEGIN
-  PROMPT 0 13 "Codice contribuente"
+  PROMPT 0 14 "Codice contribuente"
 END
 
 STRING F_CODCONTR_EP 2
 BEGIN
-  PROMPT 1 14 "Esattoria Prov."
+  PROMPT 1 15 "Esattoria Prov."
   FIELD CODCONTR[1,2]
   FLAGS "D"
 END
 
 STRING F_CODCONTR_EC 3
 BEGIN
-  PROMPT 23 14 "Esattoria Com."
+  PROMPT 23 15 "Esattoria Com."
   FIELD CODCONTR[3,5]
   FLAGS "D"
 END
 
 STRING F_CODCONTR 8
 BEGIN
-  PROMPT 46 14 "Codice "
+  PROMPT 46 15 "Codice "
   HELP "Codice contribuente assegnato alla persona giuridica"
   FIELD CODCONTR[6,13]
 END
 
 STRING F_CODCONTR_CC 2
 BEGIN
-  PROMPT 66 14 "C.c."
+  PROMPT 66 15 "C.c."
   FIELD CODCONTR[14,15]
+  HELP "Codice assegnato al contribuente"
+END
+
+STRING F_CC_ESATTORIA 8
+BEGIN
+  PROMPT 1 16 "C/C Esattoria  "
+  FLAGS "D"
 END
 
 ENDMASK

ba/ba4300.cpp

@@ -62,6 +62,7 @@ class BA4300_application : public TRelation_application
   TLocalisamfile* _unloc;
   TLocalisamfile* _attiv;
   TLocalisamfile* _tabcom;
+  TString16  _oldattprev;
 
 protected:
   bool user_create() ;
@@ -71,12 +72,14 @@ protected:
   virtual void init_query_mode(TMask& m) ;
   virtual void init_insert_mode(TMask& m) ;
   virtual void init_modify_mode(TMask& m) ;
+  void set_att_prev(TMask& m);
 
   bool build_firm_data(long cod, bool flagcom);
 
 public:
   BA4300_application();
   virtual TRelation* get_relation() const { return _rel;}
+  virtual int rewrite(const TMask& m);
   virtual int write(const TMask& m);
   virtual ~BA4300_application() {}
 };
@@ -296,31 +299,71 @@ bool BA4300_application::user_destroy() // releasev e arrmask
   return TRUE;
 }
 
+void BA4300_application::set_att_prev(TMask& m)
+{
+  const TString16 attprev(m.get(FLD_GD1_CODATTPREV));
+
+  if (_oldattprev == attprev)
+    return;
+
+  TRectype& ditte=_rel->curr();
+  TString codditta(ditte.get(CODDITTA)) ;
+
+  if (_oldattprev.not_empty())
+  {
+    _attiv->zero() ;
+    _attiv->put(CODDITTA, codditta) ;
+    _attiv->put(CODATT, _oldattprev);
+    if (_attiv->read() == NOERR)
+    {
+      _attiv->put("ATTPREV", FALSE);
+      if (_attiv->rewrite() != NOERR)
+        error_box("Non posso aggiornare l'attivita' prevalente precedente : errore n. %d", _attiv->status());
+    }
+  }
+  _attiv->zero() ;
+  _attiv->put(CODDITTA, codditta) ;
+  _attiv->put(CODATT, attprev) ;
+  
+  const bool itwas = _attiv->read() == NOERR;
+  if (!itwas)
+  {
+    _attiv->zero() ;
+    _attiv->put(CODDITTA, codditta) ;
+    _attiv->put(CODATT, attprev) ;
+
+    TTable tabatt = TTable(TABATT);
+
+    tabatt.zero();
+    tabatt.put(CODTAB, ditte.get(CODATTPREV)) ;
+    if (tabatt.read() == NOERR)
+      _attiv->put(DESCR, tabatt.get(S0)) ;
+  }
+  _attiv->put("ATTPREV", TRUE) ;
+  if (itwas)
+  {
+    if (_attiv->rewrite() != NOERR)
+      error_box("Non posso aggiornare l'attivita' prevalente : errore n. %d", _attiv->status());
+  }
+  else
+  {
+    if (_attiv->write() != NOERR)
+      error_box("Non posso creare l'attivita' prevalente : errore n. %d", _attiv->status());
+  }
+}
 
 int BA4300_application::write(const TMask& m)
 {
   _rel->zero();
   m.autosave();
-  _rel->write();
+  if (_rel->write() != NOERR)
-  if (_rel->bad())
     return _rel->status();
 
   TRectype& ditte=_rel->curr();
 
   TString codditta(ditte.get(CODDITTA)) ;
 
-  _attiv->zero() ;
+  set_att_prev(m);
-  _attiv->put(CODDITTA, (const char*) codditta) ;
-  _attiv->put(CODATT, ditte.get(CODATTPREV)) ;
-
-  TTable* tabatt = new TTable(TABATT);
-  tabatt->zero();
-  tabatt->put(CODTAB, ditte.get(CODATTPREV)) ;
-  tabatt->read();
-  if (tabatt->good()) _attiv->put(DESCR, tabatt->curr().get(S0)) ;
-  delete tabatt;
-
-  _attiv->write();
 
   _anag->zero() ;
   _anag->put(TIPOA, ditte.get(TIPOA));
@@ -356,6 +399,17 @@ int BA4300_application::write(const TMask& m)
   return NOERR;
 }
 
+int BA4300_application::rewrite(const TMask& m)
+{
+  _rel->zero();
+  m.autosave();
+  if (_rel->rewrite() != NOERR)
+    return _rel->status();
+  set_att_prev(m);
+  return NOERR;
+}
+
+
 
 void BA4300_application::init_query_mode(TMask& m)
 {
@@ -391,6 +445,7 @@ void BA4300_application::init_insert_mode(TMask& m)
   m.disable(DLG_ULC);
   m.disable(DLG_SOC);
   m.disable(DLG_REG);
+  _oldattprev = "";
 }
 
 void BA4300_application::init_modify_mode(TMask& m)
@@ -412,6 +467,7 @@ void BA4300_application::init_modify_mode(TMask& m)
   m.enable(DLG_ULC);
   m.enable(DLG_SOC);
   m.enable(DLG_REG);
+  _oldattprev = m.get(FLD_GD1_CODATTPREV);
 }
 
 int ba4300(int argc, char* argv[])

ba/ba4300.h

@@ -1,50 +1,50 @@
 #ifndef __BA4300_H
 #define __BA4300_H
 
-#define FN_CODDITTA "CODITTA"	/* FLD_GD1_PROGD */
+#define FN_CODDITTA "CODITTA"   /* FLD_GD1_PROGD */
-#define FN_TIPOA "TIPOA"	/* LST_GD1_TIPOA */
+#define FN_TIPOA "TIPOA"        /* LST_GD1_TIPOA */
-#define FN_RAGSOC "RAGSOC"	/* FLD_GD1_RAGSOC */
+#define FN_RAGSOC "RAGSOC"      /* FLD_GD1_RAGSOC */
-#define FN_PERRIF "PERRIF"	/* FLD_GD1_PERRIF */
+#define FN_PERRIF "PERRIF"      /* FLD_GD1_PERRIF */
-#define FN_PTEL "PTEL"	/* FLD_GD1_PTEL */
+#define FN_PTEL "PTEL"  /* FLD_GD1_PTEL */
-#define FN_TEL "TEL"	/* FLD_GD1_TEL */
+#define FN_TEL "TEL"    /* FLD_GD1_TEL */
-#define FN_PFAX "PFAX"	/* FLD_GD1_PFAX */
+#define FN_PFAX "PFAX"  /* FLD_GD1_PFAX */
-#define FN_FAX "FAX"	/* FLD_GD1_FAX */
+#define FN_FAX "FAX"    /* FLD_GD1_FAX */
-#define FN_CODATTPREV "CODATTPREV"	/* FLD_GD1_CODATTPREV */
+#define FN_CODATTPREV "CODATTPREV"      /* FLD_GD1_CODATTPREV */
-#define FN_ARTIG "ARTIG"	/* CHK_GD1_ARTIG */
+#define FN_ARTIG "ARTIG"        /* CHK_GD1_ARTIG */
-#define FN_NISCRAA "NISCRAA"	/* FLD_GD1_NISCRAA */
+#define FN_NISCRAA "NISCRAA"    /* FLD_GD1_NISCRAA */
-#define FN_DATAISCRAA "DATAISCRAA"	/* FLD_GD1_DATAISCRAA */
+#define FN_DATAISCRAA "DATAISCRAA"      /* FLD_GD1_DATAISCRAA */
-#define FN_CAPAA "CAPAA"	/* FLD_GD1_CAPAA */
+#define FN_CAPAA "CAPAA"        /* FLD_GD1_CAPAA */
-#define FN_COMAA "COMAA"	/* FLD_GD1_COMAA */
+#define FN_COMAA "COMAA"        /* FLD_GD1_COMAA */
-#define FN_CONTORD "CONTORD"	/* CHK_GD1_CONTORD */
+#define FN_CONTORD "CONTORD"    /* CHK_GD1_CONTORD */
-#define FN_REGMAG "REGMAG"	/* CHK_GD1_REGMAG */
+#define FN_REGMAG "REGMAG"      /* CHK_GD1_REGMAG */
-#define FN_IMPRFAM "IMPRFAM"	/* CHK_GD1_IMPRFAM */
+#define FN_IMPRFAM "IMPRFAM"    /* CHK_GD1_IMPRFAM */
-#define FN_FLIVA11Q "FLIVA11Q"	/* CHK_GD1_FLIVA11Q */
+#define FN_FLIVA11Q "FLIVA11Q"  /* CHK_GD1_FLIVA11Q */
-#define FN_DATLAV "DATLAV"	/* LST_GD2_DATLAV */
+#define FN_DATLAV "DATLAV"      /* LST_GD2_DATLAV */
-#define FN_NAPP "NAPP"	/* FLD_GD2_NAPP */
+#define FN_NAPP "NAPP"  /* FLD_GD2_NAPP */
-#define FN_NULC "NULC"	/* FLD_GD2_NULC */
+#define FN_NULC "NULC"  /* FLD_GD2_NULC */
-#define FN_DINIZIOATT "DINIZIOATT"	/* FLD_GD2_DINIZIOATT */
+#define FN_DINIZIOATT "DINIZIOATT"      /* FLD_GD2_DINIZIOATT */
-#define FN_NENASARCO "NENASARCO"	/* FLD_GD2_NENASARCO */
+#define FN_NENASARCO "NENASARCO"        /* FLD_GD2_NENASARCO */
-#define FN_MESIREDD "MESIREDD"	/* FLD_GD2_MESIREDD */
+#define FN_MESIREDD "MESIREDD"  /* FLD_GD2_MESIREDD */
-#define FN_CODSTAT1 "CODSTAT1"	/* FLD_GD2_CODSTAT1 */
+#define FN_CODSTAT1 "CODSTAT1"  /* FLD_GD2_CODSTAT1 */
-#define FN_CODSTAT2 "CODSTAT2"	/* FLD_GD2_CODSTAT2 */
+#define FN_CODSTAT2 "CODSTAT2"  /* FLD_GD2_CODSTAT2 */
-#define FN_CODSTAT3 "CODSTAT3"	/* FLD_GD2_CODSTAT3 */
+#define FN_CODSTAT3 "CODSTAT3"  /* FLD_GD2_CODSTAT3 */
-#define FN_CABBAN "CABBAN"	/* FLD_GD2_CABBAN */
+#define FN_CABBAN "CABBAN"      /* FLD_GD2_CABBAN */
-#define FN_ABIBAN "ABIBAN"	/* FLD_GD2_ABIBAN */
+#define FN_ABIBAN "ABIBAN"      /* FLD_GD2_ABIBAN */
-#define FN_SITSOC "SITSOC"	/* LST_GD2_SITSOC */
+#define FN_SITSOC "SITSOC"      /* LST_GD2_SITSOC */
-#define FN_STATOSOC "STATOSOC"	/* LST_GD2_STATOSOC */
+#define FN_STATOSOC "STATOSOC"  /* LST_GD2_STATOSOC */
-#define FN_DENEST1 "DENEST1"	/* FLD_DE_DENEST1 */
+#define FN_DENEST1 "DENEST1"    /* FLD_DE_DENEST1 */
-#define FN_DENEST2 "DENEST2"	/* FLD_DE_DENEST2 */
+#define FN_DENEST2 "DENEST2"    /* FLD_DE_DENEST2 */
-#define FN_DENEST3 "DENEST3"	/* FLD_DE_DENEST3 */
+#define FN_DENEST3 "DENEST3"    /* FLD_DE_DENEST3 */
-#define FN_FIRMAT "FIRMAT"	/* FLD_GD3_FIRMAT */
+#define FN_FIRMAT "FIRMAT"      /* FLD_GD3_FIRMAT */
-#define FN_ESILOR "ESILOR"	/* CHK_GD3_ESILOR */
+#define FN_ESILOR "ESILOR"      /* CHK_GD3_ESILOR */
-#define FN_REGSTATSP "REGSTATSP"	/* CHK_GD3_REGSTATSP */
+#define FN_REGSTATSP "REGSTATSP"        /* CHK_GD3_REGSTATSP */
-#define FN_AZCONIUG "AZCONIUG"	/* CHK_GD3_AZCONIUG */
+#define FN_AZCONIUG "AZCONIUG"  /* CHK_GD3_AZCONIUG */
-#define FN_CONDFAM "CONDFAM"	/* CHK_GD3_CONDFAM */
+#define FN_CONDFAM "CONDFAM"    /* CHK_GD3_CONDFAM */
-#define FN_DEDART13 "DEDART13"	/* CHK_GD3_DEDART13 */
+#define FN_DEDART13 "DEDART13"  /* CHK_GD3_DEDART13 */
-#define FN_RICSUP20 "RICSUP20"	/* CHK_GD3_RICSUP20 */
+#define FN_RICSUP20 "RICSUP20"  /* CHK_GD3_RICSUP20 */
-#define FN_RAPPR "RAPPR"	/* FLD_GD3_RAPPR */
+#define FN_RAPPR "RAPPR"        /* FLD_GD3_RAPPR */
-#define FN_CARRAPP "CARRAPP"	/* FLD_GD3_CARRAPP */
+#define FN_CARRAPP "CARRAPP"    /* FLD_GD3_CARRAPP */
-#define FN_DECCARRAPP "DECCARRAPP"	/* FLD_GD3_DECCARRAPP */
+#define FN_DECCARRAPP "DECCARRAPP"      /* FLD_GD3_DECCARRAPP */
 
 #define RDB_GD1_FREQVIVA 102
 #define FLD_GD3_FIRMAT 107
@@ -127,5 +127,6 @@
 #define DLG_ULC 186 
 #define DLG_SOC 187 
 #define DLG_REG 188 
+#define F_ISCRCAF 189
 
 #endif // __BA4300_H

ba/ba4300a.uml

@@ -46,7 +46,7 @@ BEGIN
 	USE LF_NDITTE KEY 1
 	INPUT CODDITTA FLD_GD1_CODDITTA
 	DISPLAY "Codice" CODDITTA
-	DISPLAY "Ragione sociale@50" RAGSOC
+	DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
 	OUTPUT FLD_GD1_CODDITTA CODDITTA
 	OUTPUT FLD_GD1_CODDITTAH CODDITTA
 	OUTPUT FLD_GD1_RAGSOC RAGSOC
@@ -67,7 +67,7 @@ BEGIN
 	INPUT CODANAGR FLD_GD1_CODANAGR
 	INPUT CODDITTA FLD_GD1_CODDITTAH
 	DISPLAY "Codice" CODDITTA
-	DISPLAY "Ragione sociale@50" RAGSOC
+	DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
 	OUTPUT FLD_GD1_CODDITTAH CODDITTA
 	OUTPUT FLD_GD1_CODDITTA CODDITTA
 	OUTPUT FLD_GD1_RAGSOC RAGSOC
@@ -86,7 +86,7 @@ BEGIN
 	INPUT RAGSOC FLD_GD1_RAGSOC
 	INPUT CODDITTA FLD_GD1_CODDITTA
 	DISPLAY "Codice" CODDITTA
-	DISPLAY "Ragione sociale@50" RAGSOC
+	DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
 	OUTPUT FLD_GD1_CODDITTA CODDITTA
 	OUTPUT FLD_GD1_RAGSOC RAGSOC
         HELP "Ragione sociale della ditta"
@@ -119,7 +119,7 @@ BEGIN
   INPUT CODANAGR FLD_GD1_CODANAGR
   DISPLAY "Tipo" TIPOA
   DISPLAY "Codice" CODANAGR
-  DISPLAY "Ragione sociale@50" RAGSOC
+  DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
   OUTPUT FLD_GD1_CODANAGR CODANAGR
   OUTPUT FLD_GD1_TIPOA TIPOA
   OUTPUT FLD_GD1_CODANAGR_ANAGR_RAGSOC RAGSOC
@@ -136,7 +136,7 @@ BEGIN
   USE LF_ANAG KEY 2
   INPUT TIPOA FLD_GD1_TIPOA
   INPUT RAGSOC FLD_GD1_CODANAGR_ANAGR_RAGSOC
-  DISPLAY "Ragione Sociale@50" RAGSOC
+  DISPLAY "Cognome - Nome o Ragione Sociale@50" RAGSOC
   DISPLAY "Tipo" TIPOA
   DISPLAY "Codice" CODANAGR
   OUTPUT FLD_GD1_TIPOA TIPOA
@@ -147,7 +147,7 @@ END
 
 GROUPBOX DLG_NULL 76 4
 BEGIN
-  PROMPT 0 8 "Attivita' principale"
+  PROMPT 0 8 "Attivita' prevalente"
 END
 
 STRING FLD_GD1_CODATTPREV 5
@@ -241,11 +241,18 @@ END
 
 STRING FLD_GD1_PERRIF 20
 BEGIN
-  PROMPT 24 5 "Persona di riferimento "
+  PROMPT 26 5 "Persona di riferimento "
   FIELD LF_NDITTE->PERRIF
   HELP "Nominativo della persona a cui fare rfierimento"
 END
 
+STRING F_ISCRCAF 10
+BEGIN
+  PROMPT 26 6 "Iscrizione CAF         "
+  FIELD LF_NDITTE->ISCRCAF
+  HELP "Numero di iscrizione al CAF"
+END
+
 BOOLEAN CHK_GD1_ARTIG
 BEGIN
   PROMPT 1 8 "Artigiano"
@@ -529,6 +536,7 @@ BEGIN
   OUTPUT FLD_GD2_CODSTAT2 CODTAB
   OUTPUT FLD_GD2_CODSTAT2_TABSTT_S0 S0
   HELP "Secondo codice statistico"
+  CHECKTYPE NORMAL
   WARNING "Codice assente"
 END
 

ba/ba4400a.uml

@@ -320,7 +320,7 @@ BEGIN
   PROMPT 0 6 "Posizioni"
 END
 
-STRING FLD_UL2_POSINPS 14
+STRING FLD_UL2_POSINPS 13
 BEGIN
   PROMPT 1 7 "INPS   "
   FIELD LF_UNLOC->POSINPS
@@ -328,7 +328,7 @@ BEGIN
   HELP "Numero della posizione INPS"
 END
 
-STRING FLD_UL2_POSINAIL 12
+STRING FLD_UL2_POSINAIL 11
 BEGIN
   PROMPT 55 7 "INAIL "
   FIELD LF_UNLOC->POSINAIL
@@ -341,14 +341,14 @@ BEGIN
   PROMPT 0 9 "Tribunale"
 END
 
-STRING FLD_UL2_REGTRIB 10
+STRING FLD_UL2_REGTRIB 9
 BEGIN
   PROMPT 1 10 "Regist."
   FIELD LF_UNLOC->REGTRIB
   HELP "Numero di registro del tribunale in cui e' iscritta la ditta"
 END
 
-STRING FLD_UL2_VOLTRIB 8
+STRING FLD_UL2_VOLTRIB 7
 BEGIN
   PROMPT 30 10 "Volume "
   FIELD LF_UNLOC->VOLTRIB
@@ -356,7 +356,7 @@ BEGIN
   HELP "Numero del volume del tribunale in cui e' iscritta la ditta"
 END
 
-STRING FLD_UL2_FSCTRIB 6
+STRING FLD_UL2_FSCTRIB 5
 BEGIN
   PROMPT 57 10 "Fascicolo "
   FIELD LF_UNLOC->FASCTRIB

ba/ba4500.h

@@ -1,26 +1,26 @@
 #ifndef __BA4500_H
 #define __BA4500_H
 
-#define FN_CODULC "CODULC"	/* FLD_UL1_CODULC */
+#define FN_CODULC "CODULC"      /* FLD_UL1_CODULC */
-#define FN_CODANGRDS "CODANGRDS"	/* FLD_AT2_CODANGRDS */
+#define FN_CODANGRDS "CODANGRDS"        /* FLD_AT2_CODANGRDS */
-#define FN_INDCS "INDCS"	/* FLD_ATT2_INDCS */
+#define FN_INDCS "INDCS"        /* FLD_ATT2_INDCS */
-#define FN_CIVCS "CIVCS"	/* FLD_AT2_CIVCS */
+#define FN_CIVCS "CIVCS"        /* FLD_AT2_CIVCS */
-#define FN_COMCS "COMCS"	/* FLD_AT2_COMCS */
+#define FN_COMCS "COMCS"        /* FLD_AT2_COMCS */
-#define FN_CAPCS "CAPCS"	/* FLD_AT2_CAPCS */
+#define FN_CAPCS "CAPCS"        /* FLD_AT2_CAPCS */
-#define FN_PTELCS "PTELCS"	/* FLD_AT2_PTELCS */
+#define FN_PTELCS "PTELCS"      /* FLD_AT2_PTELCS */
-#define FN_TELCS "TELCS"	/* FLD_AT2_TELCS */
+#define FN_TELCS "TELCS"        /* FLD_AT2_TELCS */
-#define FN_CODITTA "CODITTA"	/* FLD_AT1_CODITTA */
+#define FN_CODITTA "CODITTA"    /* FLD_AT1_CODITTA */
-#define FN_PROGD "PROGD"	/* FLD_AT1_PROGD */
+#define FN_PROGD "PROGD"        /* FLD_AT1_PROGD */
-#define FN_CODATT "CODATT"	/* FLD_AT1_CODATT */
+#define FN_CODATT "CODATT"      /* FLD_AT1_CODATT */
-#define FN_OLDCODATT "OLDCODATT"	/* FLD_AT1_OLDCODATT */
+#define FN_OLDCODATT "OLDCODATT"        /* FLD_AT1_OLDCODATT */
-#define FN_SUBCOD "SUBCOD"	/* FLD_AT1_SUBCOD */
+#define FN_SUBCOD "SUBCOD"      /* FLD_AT1_SUBCOD */
-#define FN_DATAISCIVA "DATAISCIVA"	/* FLD_AT1_DATAISCIVA */
+#define FN_DATAISCIVA "DATAISCIVA"      /* FLD_AT1_DATAISCIVA */
-#define FN_DATAVARIVA "DATAVARIVA"	/* FLD_AT1_DATAVARIVA */
+#define FN_DATAVARIVA "DATAVARIVA"      /* FLD_AT1_DATAVARIVA */
-#define FN_DCESSATT "DCESSATT"	/* FLD_ATT_DCESSATT */
+#define FN_DCESSATT "DCESSATT"  /* FLD_ATT_DCESSATT */
-#define FN_CODULIVA11 "CODULIVA11"	/* FLD_AT1_CODULIVA11 */
+#define FN_CODULIVA11 "CODULIVA11"      /* FLD_AT1_CODULIVA11 */
-#define FN_NSOCILDIP "NSOCILDIP"	/* FLD_AT1_NSOCILDIP */
+#define FN_NSOCILDIP "NSOCILDIP"        /* FLD_AT1_NSOCILDIP */
-#define FN_GIATTANN "GIATTANN"	/* FLD_AT1_GIATTANN */
+#define FN_GIATTANN "GIATTANN"  /* FLD_AT1_GIATTANN */
-#define FN_GILAVASTAG "GILAVASTAG"	/* FLD_AT1_GILAVASTAG */
+#define FN_GILAVASTAG "GILAVASTAG"      /* FLD_AT1_GILAVASTAG */
 #define N_TIPOA  "TIPOA"
 #define N_CODANAGR  "CODANAGR"
 #define N_STATORF  "STATORF"
@@ -134,5 +134,6 @@
 #define FLD_ATT_OLDCODATT 197
 #define FLD_AT1_CODDITTAH 198
 #define FLD_AT1_CODATTH 199
+#define F_ATTPREV 200
 
 #endif // __BA4500_H

ba/ba4500a.uml

@@ -34,14 +34,16 @@ STRING FLD_AT1_CODDITTAH 5
 BEGIN
   FLAGS "HD"
   USE LF_ATTIV KEY 1
-  JOIN LF_NDITTE TO LF_ATTIV INTO CODDITTA=CODDITTA
+//  JOIN LF_NDITTE TO LF_ATTIV INTO CODDITTA=CODDITTA
-  JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT
+// JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT
   INPUT CODDITTA FLD_AT1_CODDITTA
   INPUT CODATT FLD_AT1_CODATT
   // DISPLAY "Codice" CODDITTA
   // DISPLAY "Ditta@50" LF_NDITTE->RAGSOC
   DISPLAY "Attivita'" CODATT
-  DISPLAY " @50" %AIS->S0
+  DISPLAY "Prevalente" ATTPREV
+//  DISPLAY " @50" %AIS->S0
+  DISPLAY " @50" DESCR
   OUTPUT FLD_AT1_CODDITTA CODDITTA
   OUTPUT FLD_AT1_CODATT CODATT
 END
@@ -99,6 +101,14 @@ BEGIN
   MESSAGE COPY,FLD_AT1_CODATTH 
 END
 
+BOOLEAN F_ATTPREV
+BEGIN
+  PROMPT 55 3 "Prevalente"
+  FIELD LF_ATTIV->ATTPREV
+  FLAGS "DG"
+  MESSAGE COPY,5@
+END
+
 STRING FLD_AT1_ATTCODATT_TABATT_DESCR 50
 BEGIN
   PROMPT 1 4 "Nome Attivita'  "
@@ -309,9 +319,16 @@ BEGIN
   GROUP 3
 END
 
+BOOLEAN DLG_NULL
+BEGIN
+  PROMPT 55 3 "Prevalente"
+  FLAGS "D"
+  GROUP 5
+END
+
 STRING FLD_AT1_ATTCODATT_TABATT_DESCR 50
 BEGIN
-  PROMPT 1 4 "Nome Attivita' "
+  PROMPT 1 4 "Nome Attivita'  "
   FLAGS "D"
   GROUP 4
 END

ba/ba4600a.uml

@@ -45,9 +45,20 @@ BEGIN
   MESSAGE COPY,3@
 END
 
+NUMBER FLD_SC1_ANNO 4
+BEGIN
+  PROMPT 1 3 "Anno            "
+  FIELD LF_SOCI->ANNO
+  FLAGS "A"
+  KEY 1
+  CHECKTYPE REQUIRED
+  WARNING "Inserire l'anno"
+  MESSAGE COPY,7@
+END
+
 LIST LST_SC1_TIPOASOC 1 12
 BEGIN
-  PROMPT 1 3 "Socio : Tipo    "
+  PROMPT 1 4 "Socio : Tipo    "
   FIELD LF_SOCI->TIPOASOC
   KEY 1
   FLAGS "G"
@@ -60,7 +71,7 @@ END
 
 NUMBER FLD_SC1_CODANAGRSOH 5
 BEGIN
-  PROMPT 30 3 "Codice "
+  PROMPT 30 4 "Codice "
   FIELD LF_SOCI->CODANAGRSO
   FLAGS "R"
   KEY 1
@@ -88,7 +99,7 @@ END
 
 NUMBER FLD_SC1_CODANAGRSO 5
 BEGIN
-  PROMPT 30 3 "Codice "
+  PROMPT 30 4 "Codice "
   FIELD LF_SOCI->CODANAGRSO
   FLAGS "RG"
   KEY 1
@@ -103,14 +114,14 @@ BEGIN
   OUTPUT FLD_SC1_CODANAGR_ANAGR_RAGSOC RAGSOC
   HELP "Codice dell'anagrafica del socio"
   MESSAGE COPY,5@|COPY,8@
-  CHECKTYPE REQUIRED
+  CHECKTYPE FORCED
   WARNING "Anagrafica assente o nulla"
   MESSAGE COPY,FLD_SC1_CODANAGRSOH
 END
 
 STRING FLD_SC1_CODANAGR_ANAGR_RAGSOC 50
 BEGIN
-  PROMPT 7 4 ": Nome    "
+  PROMPT 7 5 ": Nome    "
   HELP "Nome dell'anagrafica del socio"
   KEY 1
   USE LF_ANAG KEY 2
@@ -126,17 +137,6 @@ BEGIN
   MESSAGE COPY,6@
 END
 
-NUMBER FLD_SC1_ANNO 4
-BEGIN
-  PROMPT 1 5 "Anno            "
-  FIELD LF_SOCI->ANNO
-  FLAGS "A"
-  KEY 1
-  CHECKTYPE REQUIRED
-  WARNING "Inserire l'anno per le dichiarazioni o le analisi di bilancio"
-  MESSAGE COPY,7@
-END
-
 STRING FLD_SC1_CODCAR 2
 BEGIN
   PROMPT 1 7 "Codice carica   "