From 4f161fd289e1deba80be8664752cd1c3b506dc5e Mon Sep 17 00:00:00 2001
From: alex <alex@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Mon, 5 Dec 1994 18:52:09 +0000
Subject: [PATCH] Corretti errori sull' interstazione registri

git-svn-id: svn://10.65.10.50/trunk@730 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ba/ba3300a.uml | 77 +++++++++++++++-----------------------------------
 1 file changed, 23 insertions(+), 54 deletions(-)

diff --git a/ba/ba3300a.uml b/ba/ba3300a.uml
index 49efc56d0..57a9ebf5b 100755
--- a/ba/ba3300a.uml
+++ b/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"
-	CHECKTYPE REQUIRED
+	FLAGS "Z"
 	KEY 1
 END
 
@@ -30,54 +29,40 @@ END
 
 STRING F_CODICE 3
 BEGIN
-	PROMPT 3 4 "Codice Registro  "
-        HELP "Codice del registro da numerare"
-	FLAGS "U"
-	COPY ALL F_ANNO
-	CHECKTYPE REQUIRED
-	KEY 1
+  PROMPT 3 4 "Codice Registro  "
+  HELP "Codice del registro da numerare"
+  FLAGS "U"
+  COPY ALL F_ANNO
+  CHECKTYPE REQUIRED
+  KEY 1
+  WARNING "Registro assente"
 END
 
 STRING F_REGISTRO 50
 BEGIN
   PROMPT 3 6 "Registro         "
-        HELP "Descrizione del registro da numerare"
-	USE REG KEY 2
-	INPUT S0 F_REGISTRO
-	DISPLAY "Descrizione@50" S0
-	DISPLAY "Anno " CODTAB[1,4]
-	DISPLAY "Codice Registro" CODTAB[5,7]
-	DISPLAY "Tipo" I0
-	COPY OUTPUT F_CODICE
-	CHECKTYPE REQUIRED
+  HELP "Descrizione del registro da numerare"
+  USE REG KEY 2
+  INPUT S0 F_REGISTRO
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Anno " CODTAB[1,4]
+  DISPLAY "Codice Registro" CODTAB[5,7]
+  DISPLAY "Tipo" I0
+  COPY OUTPUT F_CODICE
+  CHECKTYPE REQUIRED
+  WARNING "Registro assente"
 END
 
-STRING F_RAGSOC 50
-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
+STRING F_RAGSOC 60
+BEGIN	
+    PROMPT 3 7 "Ragione sociale  "
+    HELP "Ragione sociale dell'intestatario del registro"
 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