Corretto errore MI4090

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

ba/ba3300a.uml

@@ -31,7 +31,7 @@ STRING F_CODICE 3
 BEGIN
   PROMPT 3 4 "Codice Registro  "
   HELP "Codice del registro da numerare"
-  FLAGS "U"
+  FLAGS "UZ"
   COPY ALL F_ANNO
   CHECKTYPE REQUIRED
   KEY 1

ba/ba3500a.uml

@@ -231,6 +231,7 @@ BEGIN
   PROMPT 1 8 "Codice registro "
   FIELD %INL->S0
   USE REG
+  FLAGS "UZ"
   INPUT CODTAB[5,7] 106
   DISPLAY "Codice registro" CODTAB[5,7]
   DISPLAY "Descrizione@50" S0

ba/ba3700a.uml

@@ -17,7 +17,7 @@ STRING F_CODICE 4
 BEGIN
   PROMPT 6 1 "Codice         "
   HELP "Codice condizione di pagamento"
-  FLAGS "U"
+  FLAGS "UZ"
   FIELD %CPG->CODTAB
   USE %CPG KEY 1 ALIAS 50
   INPUT CODTAB F_CODICE

ba/ba4300a.uml

@@ -674,6 +674,10 @@ BEGIN
 	MESSAGE ENABLE,4@
 	ITEMS "4|Socio amministratore"
 	MESSAGE ENABLE,4@
+	ITEMS "5|Erede"
+	MESSAGE ENABLE,4@
+	ITEMS "6|Curatore di eredita'"
+	MESSAGE ENABLE,4@
 END
 
 DATE FLD_GD3_DECCARRAPP

ba/bastcpg.uml

@@ -4,29 +4,29 @@
 PAGE "Stampa condizioni di pagamento" -1 -1 50 8
 STRING F_INIZIO1 4
 BEGIN
-	PROMPT 2 1 "Da codice "
+  PROMPT 2 1 "Da codice "
-	FLAGS "RZ"
+  FLAGS "UZ"
-	HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
+  HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
-        FIELD LF_TABCOM->CODTAB
+  FIELD LF_TABCOM->CODTAB
   USE %CPG 
   INPUT CODTAB F_INIZIO1
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_INIZIO1 CODTAB
-	GROUP 1
+  GROUP 1
 END
 
 STRING F_FINE1 4
 BEGIN
-	PROMPT 2 3 "A codice  "
+  PROMPT 2 3 "A codice  "
-	FLAGS "RZ"
+  FLAGS "UZ"
-	HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
+  HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
-        FIELD LF_TABCOM->CODTAB
+  FIELD LF_TABCOM->CODTAB
-	COPY USE F_INIZIO1
+  COPY USE F_INIZIO1
   INPUT CODTAB F_FINE1
-	COPY DISPLAY F_INIZIO1
+  COPY DISPLAY F_INIZIO1
   OUTPUT F_FINE1 CODTAB
-	GROUP 2
+  GROUP 2
 END
 
 BUTTON DLG_OK 8 2

ba/bastiva.uml

@@ -5,7 +5,7 @@ PAGE "Stampa codici IVA" -1 -1 50 8
 STRING F_INIZIO1 4
 BEGIN
 	PROMPT 2 1 "Da codice "
-	FLAGS "R"
+	FLAGS "U"
 	HELP "Inserire il codice da cui iniziare la stampa. Se vuoto significa dall'inizio"
   FIELD LF_TABCOM->CODTAB
 	USE %IVA
@@ -14,12 +14,13 @@ BEGIN
 	DISPLAY "Descrizione@50" S0
   OUTPUT F_INIZIO1 CODTAB
 	GROUP 1
+        VALIDATE ZEROFILL_FUNC 2
 END
 
 STRING F_FINE1 4
 BEGIN
 	PROMPT 2 3 "A codice  "
-	FLAGS "R"
+	FLAGS "U"
 	HELP "Inserire il codice di fine. Se vuoto significa fino all'ultimo"
   FIELD LF_TABCOM->CODTAB
 	COPY USE F_INIZIO1
@@ -27,6 +28,7 @@ BEGIN
 	COPY DISPLAY F_INIZIO1
   OUTPUT F_FINE1 CODTAB
 	GROUP 2
+        VALIDATE ZEROFILL_FUNC 2
 END
 
 BUTTON DLG_OK 8 2

ba/batbcpg.uml

@@ -11,7 +11,7 @@ BEGIN
   PROMPT 4 1 "Codice          "
   HELP "Codice di pagamento"
   FIELD LF_TABCOM->CODTAB
-  FLAGS "U"
+  FLAGS "UZ"
   USE %CPG 
   INPUT CODTAB F_CODICE
   DISPLAY "Codice" CODTAB

ba/batbiva.uml

@@ -26,6 +26,7 @@ BEGIN
   OUTPUT FLD_TABIVA_S0 S0
   HELP "Inserire il codice IVA"
   CHECKTYPE REQUIRED
+  VALIDATE ZEROFILL_FUNC 2
 END
 
 STRING FLD_TABIVA_S0 50

ba/batbpim.uml

@@ -78,7 +78,7 @@ BEGIN
   PROMPT 4 6 "Codice registro   "
   HELP "Codice registro di riferimento"
   FIELD LF_TAB->CODTAB[10,12]
-  FLAGS "R"
+  FLAGS "UZ"
   USE REG
   CHECKTYPE NORMAL
   INPUT CODTAB[1,4] F_REGISTRO
@@ -115,13 +115,15 @@ STRING F_CODIVA 3
 BEGIN
   PROMPT 4 10 "Codice IVA        "
   HELP "Codice IVA da applicare"
+  FLAGS "U"
   FIELD LF_TAB->CODTAB[16,18]
-	USE %IVA
+  USE %IVA
   INPUT CODTAB F_CODIVA
-	DISPLAY "Codice" CODTAB
+  DISPLAY "Codice" CODTAB
-	DISPLAY "Descrizione                  " S0
+  DISPLAY "Descrizione                  " S0
   OUTPUT F_CODIVA CODTAB
   KEY 1 
+  VALIDATE ZEROFILL_FUNC 2
 END
 
 LIST F_IMPORTO 5