Corretto errore 004033

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

ba/ba4200b.uml

@@ -796,7 +796,7 @@ DISPLAY "Codice CAB" CODTAB[6,10]
 DISPLAY "Descrizione@50" S0
 OUTPUT F_CODABI CODTAB[1,5]
 OUTPUT F_CODCAB CODTAB[6,10]
-CHECKTYPE NORMAL
+// CHECKTYPE NORMAL
 END
 
 NUMBER F_CODCAB 5
@@ -808,6 +808,7 @@ FLAGS "Z"
 COPY ALL F_CODABI
 CHECKTYPE NORMAL
 VALIDATE REQIF_FUNC 1 F_CODABI
+WARNING "Codice CAB assente"
 END
 
 NUMBER F_UFFCONC 3

ba/ba4200c.uml

@@ -22,15 +22,15 @@ PAGE "Persone Giuridiche" -1 -1 77 20
  LIST DLG_NULL 1
  BEGIN
   FIELD LF_ANAG->TIPOA
-	ITEM "G|Giuridica"
+  ITEM "G|Giuridica"
-	FLAGS "D"
+  FLAGS "D"
-	KEY 1 2 3
+  KEY 1 2 3
  END
 
 GROUPBOX DLG_NULL 76 4
 BEGIN
   PROMPT 0 0 "Persone giuridiche"
-	FLAGS "R"
+  FLAGS "R"
 END
 
 NUMBER FLD_CODANAGR 5
@@ -189,7 +189,7 @@ PAGE "Anagrafica persone giuridiche" -1 -1 77 20
 GROUPBOX DLG_NULL 76 4
 BEGIN
   PROMPT 0 0 "Persone giuridiche"
-	FLAGS "R"
+  FLAGS "R"
 END
 
 NUMBER DLG_NULL 5
@@ -356,30 +356,30 @@ END
 
 STRING FLD_AG1_COMRF_COMUNI_PROVCOM 5
 BEGIN
-	PROMPT 38 13 "Provincia "
+  PROMPT 38 13 "Provincia "
-	FLAGS "D"
+  FLAGS "D"
 END
 
 STRING FLD_AG1_CAPRF 5
 BEGIN
-	PROMPT 56 13 "CAP    "
+  PROMPT 56 13 "CAP    "
-	FIELD LF_ANAG->CAPRF
+  FIELD LF_ANAG->CAPRF
-	HELP "CAP del comune domicilio fiscale della ditta"
+  HELP "CAP del comune domicilio fiscale della ditta"
 END
 
 STRING FLD_AG1_COMRF_COMUNI_DENCOM 50
 BEGIN
-	PROMPT 9 14 ": Denom. "
+  PROMPT 9 14 ": Denom. "
-	HELP "Nome del comune residenza fiscale"
+  HELP "Nome del comune residenza fiscale"
-	USE LF_COMUNI KEY 2 SELECT STATO==""
+  USE LF_COMUNI KEY 2 SELECT STATO==""
-	COPY USE FLD_AG2_COMRES_COMUNI_DENCOM
+  COPY USE FLD_AG2_COMRES_COMUNI_DENCOM
-	INPUT DENCOM FLD_AG1_COMRF_COMUNI_DENCOM
+  INPUT DENCOM FLD_AG1_COMRF_COMUNI_DENCOM
-	COPY DISPLAY FLD_AG2_COMRES_COMUNI_DENCOM
+  COPY DISPLAY FLD_AG2_COMRES_COMUNI_DENCOM
-	OUTPUT FLD_AG1_COMRF COM
+  OUTPUT FLD_AG1_COMRF COM
-	OUTPUT FLD_AG1_COMRF_COMUNI_DENCOM DENCOM
+  OUTPUT FLD_AG1_COMRF_COMUNI_DENCOM DENCOM
-	OUTPUT FLD_AG1_COMRF_COMUNI_PROVCOM PROVCOM
+  OUTPUT FLD_AG1_COMRF_COMUNI_PROVCOM PROVCOM
-	OUTPUT FLD_AG1_CAPRF CAPCOM
+  OUTPUT FLD_AG1_CAPRF CAPCOM
-	ADD RUN ba4 -0
+  ADD RUN ba4 -0
 END
 
 BOOLEAN F_VARDF
@@ -406,7 +406,7 @@ PAGE "Anagrafica persone giuridiche" -1 -1 77 20
 GROUPBOX DLG_NULL 76 4
 BEGIN
   PROMPT 0 0 "Persone giuridiche"
-	FLAGS "R"
+  FLAGS "R"
 END
 
 NUMBER DLG_NULL 5
@@ -434,8 +434,8 @@ BEGIN
   PROMPT 2 5 "Indirizzo       "
   FIELD LF_ANAG->INDCORR
   HELP "Indirizzo a cui mandare la corrispondenza"
-	WARNING "Completare l'indirizzo di corrispondenza"
+  WARNING "Completare l'indirizzo di corrispondenza"
-	VALIDATE EMPTYCOPY_FUNC FLD_AG2_INDRES
+  VALIDATE EMPTYCOPY_FUNC FLD_AG2_INDRES
 END
 
 STRING FLD_AG2_CIVCORR 10
@@ -443,7 +443,7 @@ BEGIN
   PROMPT 56 5 "N."
   FIELD LF_ANAG->CIVCORR
   HELP "Numero civico a cui mandare la corrispondenza"
-	VALIDATE EMPTYCOPY_FUNC FLD_AG2_CIVRES
+  VALIDATE EMPTYCOPY_FUNC FLD_AG2_CIVRES
 END     
 
 STRING F_LOCCORR 35
@@ -455,7 +455,7 @@ END
 
 NUMBER FLD_AG2_STATOCORR 3
 BEGIN
-	PROMPT 2 7 "Comune : Stato  "
+  PROMPT 2 7 "Comune : Stato  "
   FIELD LF_ANAG->STATOCORR
   FLAGS "Z"
   USE %STA 
@@ -503,23 +503,23 @@ END
 
 STRING FLD_AG2_COMCORR_COMUNI_DENCOM 50
 BEGIN
-	PROMPT 9 9 ": Denom. "
+  PROMPT 9 9 ": Denom. "
-	HELP "Nome del comune a cui mandare la corrispondenza"
+  HELP "Nome del comune a cui mandare la corrispondenza"
-	COPY USE FLD_AG2_COMRES_COMUNI_DENCOM
+  COPY USE FLD_AG2_COMRES_COMUNI_DENCOM
-	INPUT DENCOM FLD_AG2_COMCORR_COMUNI_DENCOM
+  INPUT DENCOM FLD_AG2_COMCORR_COMUNI_DENCOM
-	COPY DISPLAY FLD_AG2_COMRES_COMUNI_DENCOM
+  COPY DISPLAY FLD_AG2_COMRES_COMUNI_DENCOM
-	OUTPUT FLD_AG2_STATOCORR STATO
+  OUTPUT FLD_AG2_STATOCORR STATO
-	OUTPUT FLD_AG2_COMCORR COM
+  OUTPUT FLD_AG2_COMCORR COM
-	OUTPUT FLD_AG2_COMCORR_COMUNI_DENCOM DENCOM
+  OUTPUT FLD_AG2_COMCORR_COMUNI_DENCOM DENCOM
-	OUTPUT FLD_AG2_COMCORR_COMUNI_PROVCOM PROVCOM
+  OUTPUT FLD_AG2_COMCORR_COMUNI_PROVCOM PROVCOM
-	OUTPUT FLD_AG2_CAPCORR CAPCOM
+  OUTPUT FLD_AG2_CAPCORR CAPCOM
-	ADD RUN ba4 -0
+  ADD RUN ba4 -0
   VALIDATE EMPTYCOPY_FUNC FLD_AG2_COMRES_COMUNI_DENCOM
 END
 
 GROUPBOX DLG_NULL 75 5
 BEGIN
-	PROMPT 0 11 "Telefoni"
+  PROMPT 0 11 "Telefoni"
 END
 
 STRING FLD_AG2_PTELRF 10
@@ -571,7 +571,7 @@ PAGE "Anagrafica persone giuridiche" -1 -1 77 20
 GROUPBOX DLG_NULL 76 4
 BEGIN
   PROMPT 0 0 "Persone giuridiche"
-	FLAGS "R"
+  FLAGS "R"
 END
 
 NUMBER DLG_NULL 5
@@ -681,7 +681,7 @@ DATE FLD_AG3_DATATAPPBI
 BEGIN
   PROMPT 2 10 "Data termine  "
   FIELD LF_ANAGGIU->DATATAPPBI
-	HELP "Data termine dell'anno che compare sul bilancio"
+  HELP "Data termine dell'anno che compare sul bilancio"
 END
 
 BOOLEAN CHK_AGIU2_VARDEN
@@ -799,7 +799,7 @@ PAGE "Anagrafica persone giuridiche" -1 -1 77 20
 GROUPBOX DLG_NULL 76 4
 BEGIN
   PROMPT 0 0 "Persone giuridiche"
-	FLAGS "R"
+  FLAGS "R"
 END
 
 NUMBER DLG_NULL 5
@@ -914,7 +914,7 @@ BEGIN
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CODABI CODTAB[1,5]
   OUTPUT F_CODCAB CODTAB[6,10]
-  CHECKTYPE NORMAL
+//  CHECKTYPE NORMAL
 END
 
 NUMBER F_CODCAB 5
@@ -948,7 +948,7 @@ PAGE "Anagrafica persone giuridiche" -1 -1 77 20
 GROUPBOX DLG_NULL 76 4
 BEGIN
   PROMPT 0 0 "Persone giuridiche"
-	FLAGS "R"
+  FLAGS "R"
 END
 
 NUMBER DLG_NULL 5
@@ -1107,7 +1107,7 @@ PAGE "Anagrafica persone giuridiche" -1 -1 77 20
 GROUPBOX DLG_NULL 76 4
 BEGIN
   PROMPT 0 0 "Persone giuridiche"
-	FLAGS "R"
+  FLAGS "R"
 END
 
 NUMBER DLG_NULL 5