Modifiche alle anagrafiche windows :

terminate le modifiche all' anagrafica persone (aggiunto il campo CODUUE)


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

ba/ba4200.cpp

@@ -323,7 +323,7 @@ bool gest_uff_imp(TMask_field& f, KEY key)
   {
     msk.set(F_IMP_DENCOM, comuni.get("DENCOM"));
     msk.set(F_IMP_PROVCOM, comuni.get("PROVCOM"));
-    msk.set(F_UFFUUE, comuni.get("CODUUE1"));
+    msk.set(F_UFFUUE, comuni.get("CODUUE1"),TRUE);
     msk.check_field(F_UFFUUE);      
 
     TString s(comuni.get(N_IMPDIR1)) ; 

ba/ba4200b.uml

@@ -1055,7 +1055,8 @@ END
 STRING F_UFFUUE 3
 BEGIN
   PROMPT 1 7 "Ufficio unico   "
-  FLAGS "ZGD"
+  FLAGS "ZG"
+  FIELD UFFUUE  
   USE %UUE
   INPUT CODTAB F_UFFUUE
   DISPLAY "Ufficio" CODTAB
@@ -1064,6 +1065,8 @@ BEGIN
   OUTPUT F_DENUUE S0
   CHECKTYPE NORMAL
   WARNING "Ufficio imposte assente"
+  MESSAGE EMPTY ENABLE,5@
+  MESSAGE CLEAR,5@| CLEAR,6@
 END
 
 STRING F_DENUUE 50 48
@@ -1088,6 +1091,7 @@ OUTPUT F_CC_ESATTORIA S4
 HELP "Numero dell'ufficio delle imposte dirette competente"
 CHECKTYPE NORMAL
 WARNING "Ufficio imposte assente"
+  GROUP 5
 END
 
 STRING F_DENUFFIIDD 50 48
@@ -1100,6 +1104,7 @@ DISPLAY "Denominazione@50" S0
 DISPLAY "Ufficio" CODTAB
 DISPLAY "C.C.@8" S4
 COPY OUTPUT F_UFFIIDD
+  GROUP 5
 END
 
 STRING F_NISCRIIDD 10
@@ -1120,15 +1125,16 @@ 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"
+WARNING "Ufficio IVA assente"
+  GROUP 5
 END
 
 STRINF F_DENUFFIVA 50 48
 BEGIN
 PROMPT 23 10 " "
 FLAGS "D"
+  GROUP 6
 END
 
 STRING F_UFFREG 3
@@ -1140,12 +1146,14 @@ OUTPUT F_UFFREG CODTAB
 OUTPUT F_DENUFFREG S0
 CHECKTYPE NORMAL
 FLAGS "UDG"
+  GROUP 6
 END
 
 STRING F_DENUFFREG 50 48
 BEGIN
 PROMPT 24 11 ""
 FLAGS "D"
+GROUP 6
 END
 
 NUMBER F_UFFCONC_P 3
@@ -1159,12 +1167,14 @@ DISPLAY "Denominazione@50" S0
 OUTPUT F_UFFCONC_P CODTAB
 OUTPUT F_DENUFFCONC S0
 CHECKTYPE NORMAL
+  GROUP 6
 END
 
 STRING F_DENUFFCONC 50 48
 BEGIN
 PROMPT 24 12 ""
 FLAGS "D"
+  GROUP 6
 END
 
 NUMBER F_UFFSERV 3
@@ -1176,12 +1186,14 @@ INPUT CODTAB F_UFFSERV
 OUTPUT F_UFFSERV CODTAB
 OUTPUT F_DENUFFSERV S0
 CHECKTYPE NORMAL
+  GROUP 6
 END
 
 STRING F_DENUFFSERV 50 48
 BEGIN
 PROMPT 24 13 ""
 FLAGS "D"
+  GROUP 6
 END
 
 GROUPBOX -1 78 4

ba/ba4200c.uml

@@ -1176,7 +1176,8 @@ END
 STRING F_UFFUUE 3
 BEGIN
   PROMPT 1 7 "Ufficio unico   "
-  FLAGS "ZGD"
+  FLAGS "ZG"
+  FIELD UFFUUE  
   USE %UUE
   INPUT CODTAB F_UFFUUE
   DISPLAY "Ufficio" CODTAB
@@ -1184,6 +1185,8 @@ BEGIN
   OUTPUT F_UFFUUE CODTAB
   OUTPUT F_DENUUE S0
   CHECKTYPE NORMAL
+  MESSAGE EMPTY ENABLE,5@
+  MESSAGE CLEAR,5@|CLEAR,6@
   WARNING "Ufficio imposte assente"
 END
 
@@ -1209,6 +1212,7 @@ BEGIN
   HELP "Codice ufficio delle imposte dirette competente"
   CHECKTYPE NORMAL
   WARNING "Ufficio imposte assente"
+  GROUP 5
 END
 
 STRINF F_DENUFFIIDD 50 48
@@ -1221,6 +1225,7 @@ BEGIN
   DISPLAY "Ufficio" CODTAB
   DISPLAY "C.C.@8" S4
   COPY OUTPUT F_UFFIIDD
+  GROUP 5
 END
 
 STRING F_NISCRIIDD 10
@@ -1241,15 +1246,16 @@ BEGIN
   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"
+  WARNING "Ufficio IVA assente"
+  GROUP 5
 END
 
 STRINF F_DENUFFIVA 50 48
 BEGIN
   PROMPT 23 10 " "
   FLAGS "D"
+  GROUP 6
 END
 
 STRING F_UFFREG 3
@@ -1263,12 +1269,14 @@ BEGIN
   OUTPUT F_DENUFFREG S0
   CHECKTYPE NORMAL
   FLAGS "UDG"
+  GROUP 6
 END
 
 STRING F_DENUFFREG 50 48
 BEGIN
   PROMPT 24 11 ""
   FLAGS "D"
+  GROUP 6
 END
 
 NUMBER F_UFFCONC_P 3
@@ -1282,12 +1290,14 @@ BEGIN
   OUTPUT F_UFFCONC_P CODTAB
   OUTPUT F_DENUFFCONC S0
   CHECKTYPE NORMAL
+  GROUP 6
 END
 
 STRING F_DENUFFCONC 50 48
 BEGIN
   PROMPT 24 12 ""
   FLAGS "D"
+  GROUP 6
 END
 
 NUMBER F_UFFSERV 3
@@ -1299,12 +1309,14 @@ BEGIN
   OUTPUT F_UFFSERV CODTAB
   OUTPUT F_DENUFFSERV S0
   CHECKTYPE NORMAL
+  GROUP 6
 END
 
 STRING F_DENUFFSERV 50 48
 BEGIN
   PROMPT 24 13 ""
   FLAGS "D"
+  GROUP 6
 END
 
 GROUPBOX -1 78 4

ba/f6.dir

@@ -1,3 +1,3 @@
 6
 1
-%anagr|0|0|588|0|Anagrafica persone fisiche e giuridiche|100||
+%anagr|0|0|591|0|Anagrafica persone fisiche e giuridiche|100||

ba/f6.trr

@@ -1,5 +1,5 @@
 6
-51
+52
 TIPOA|1|1|0|Tipo Anagrafica (F=Fisica G=Giuridica)
 CODANAGR|3|5|0|Codice anagrafica
 COFI|1|16|0|Codice fiscale
@@ -44,6 +44,7 @@ DVARDF|5|8|0|Data variazione domicilio fiscale per le persone giuridiche
 RFDIVERSA|8|1|0|Sede legale diversa da domicilio fiscale
 UFFIIDD|9|3|0|Ufficio imposte dirette
 UFFIVA|9|3|0|Ufficio IVA
+UFFUUE|9|3|0|Ufficio unico delle entrate
 TITCF|8|1|0|Titolare di conto fiscale
 TIPOSTDEL|2|1|0|Tipo di delega
 CODABI|10|5|0|Codice ABI banca