Corretti errori sull' interstazione registri

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

ba/ba3300a.uml

@@ -16,8 +16,7 @@ BEGIN
 	OUTPUT F_ANNO CODTAB[1,4]
 	OUTPUT F_CODICE CODTAB[5,7]
 	OUTPUT F_REGISTRO S0
-	FLAGS "URZ"
+	FLAGS "Z"
-	CHECKTYPE REQUIRED
 	KEY 1
 END
 
@@ -36,6 +35,7 @@ BEGIN
   COPY ALL F_ANNO
   CHECKTYPE REQUIRED
   KEY 1
+  WARNING "Registro assente"
 END
 
 STRING F_REGISTRO 50
@@ -50,34 +50,19 @@ BEGIN
   DISPLAY "Tipo" I0
   COPY OUTPUT F_CODICE
   CHECKTYPE REQUIRED
+  WARNING "Registro assente"
 END
 
-STRING F_RAGSOC 50
+STRING F_RAGSOC 60
 BEGIN	
     PROMPT 3 7 "Ragione sociale  "
-	FLAGS "U"
     HELP "Ragione sociale dell'intestatario del registro"
-//  USE LF_NDITTE KEY 2
-//  INPUT RAGSOC F_RAGSOC
-//  DISPLAY "Ragione sociale @50" RAGSOC
-//  DISPLAY "Ditta" CODDITTA
-//  OUTPUT F_RAGSOC RAGSOC
-//  OUTPUT F_CODDITTA CODDITTA
 END
 
 STRING F_INDIRIZZO 35
 BEGIN
 	PROMPT 3 8 "Indirizzo "
         HELP "Indirizzo dell'intestatario del registro"
-//  USE LF_UNLOC
-//  CHECKTYPE NORMAL
-//  INPUT CODULC "1"
-//  INPUT CODDITTA F_CODDITTA
-//  DISPLAY "Ditta" CODDITTA
-//  DISPLAY "Indirizzo @35" INDULC
-//  OUTPUT F_INDIRIZZO INDULC
-//  OUTPUT F_CODDITTA CODDITTA
-//  WARNING "Indirizzo assente"
 END
 
 STRING F_CIV 10
@@ -114,35 +99,19 @@ STRING F_COFI 16
 BEGIN
   PROMPT 3 10 "Codice fiscale   "
   HELP "Codice fiscale dell'intestatario del registro"
-//  USE LF_ANAG KEY 2
-//  INPUT RAGSOC F_RAGSOC
-//  DISPLAY "Tipo" TIPOA
-//  DISPLAY "Codice" CODANAGR
-//  DISPLAY "Ragione sociale @50" RAGSOC
-//  OUTPUT F_RAGSOC RAGSOC
-//  OUTPUT F_COFI COFI
-//  OUTPUT F_PAIV PAIV
 END
 
 STRING F_PAIV 12
 BEGIN
   PROMPT 44 10 "Partita I.V.A "
   HELP "Partita IVA dell'intestatario del registro"
-//  USE LF_ANAG KEY 2
-//  INPUT RAGSOC F_RAGSOC
-//  DISPLAY "Tipo" TIPOA
-//  DISPLAY "Codice" CODANAGR
-//  DISPLAY "Ragione sociale @50" RAGSOC
-//  OUTPUT F_RAGSOC RAGSOC
-//  OUTPUT F_COFI COFI
-//  OUTPUT F_PAIV PAIV
 END
 
 NUMBER F_NPAGINI 6
 BEGIN
   PROMPT 3 12 "Numero pagina iniziale "
   HELP "Numero della prima pagina da numerare"
-  FLAGS "RU"
+  FLAGS "R"
   NUM_EXPR {#THIS_FIELD >= 0}
   WARNING "Numero pagina iniziale errato: non puo' essere negativo"
 END