Correzione AGA n.133

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

ba/bast%ivd.uml

@@ -4,114 +4,114 @@ PAGE "Stampa Tabella IV direttiva CEE" -1 -1 69 8
 
 STRING F_INIZIO1 1
 BEGIN
-	PROMPT 2 1 "Da sezione "
+  PROMPT 2 1 "Da sezione "
-	FLAGS "U"
+  FLAGS "U"
-	HELP "Inserire il codice d'inizio "
+  HELP "Inserire il codice d'inizio "
-        FIELD LF_TABCOM->CODTAB[1,1]
+  FIELD CODTAB[1,1]
   USE %IVD 
   INPUT CODTAB[1,1] F_INIZIO1
   INPUT CODTAB[2,2] F_INIZIO2
-  INPUT CODTAB[3,10] F_INIZIO3
+  INPUT CODTAB[3,6] F_INIZIO3
-  INPUT CODTAB[11,12] F_INIZIO4
+  INPUT CODTAB[7,8] F_INIZIO4
   DISPLAY "Sezione" CODTAB[1,1]
   DISPLAY "Lettera" CODTAB[2,2]
-  DISPLAY "Classe  " CODTAB[3,10]
+  DISPLAY "Classe  " CODTAB[3,6]
-  DISPLAY "Numero" CODTAB[11,12]
+  DISPLAY "Numero" CODTAB[7,8]
-	DISPLAY "Descrizione@50" S0
+  DISPLAY "Descrizione@50" S0
   OUTPUT F_INIZIO1 CODTAB[1,1]
   OUTPUT F_INIZIO2 CODTAB[2,2]
-  OUTPUT F_INIZIO3 CODTAB[3,10]
+  OUTPUT F_INIZIO3 CODTAB[3,6]
-  OUTPUT F_INIZIO4 CODTAB[11,12]
+  OUTPUT F_INIZIO4 CODTAB[7,8]
-	GROUP 1
+  GROUP 1
 END
 
 STRING F_INIZIO2 1
 BEGIN
-	PROMPT 17 1 "Da lettera "
+  PROMPT 17 1 "Da lettera "
-	FLAGS "U"
+  FLAGS "U"
-	HELP "Inserire il codice d'inizio "
+  HELP "Inserire il codice d'inizio "
-        FIELD LF_TABCOM->CODTAB[2,2]
+  FIELD CODTAB[2,2]
-	COPY ALL F_INIZIO1
+  COPY ALL F_INIZIO1
-	GROUP 1
+  GROUP 1
 END
 
-NUMBER F_INIZIO3 8
+NUMBER F_INIZIO3 8 4
 BEGIN
-	PROMPT 32 1 "Da classe "
+  PROMPT 32 1 "Da classe "
   FLAGS "UM"
-	HELP "Inserire il codice d'inizio "
+  HELP "Inserire il codice d'inizio "
-        FIELD LF_TABCOM->CODTAB[3,10]
+  FIELD CODTAB[3,6]
-	COPY ALL F_INIZIO1
+  COPY ALL F_INIZIO1
-	GROUP 1
+  GROUP 1
 END
 
 NUMBER F_INIZIO4 2
 BEGIN
-	PROMPT 53 1 "Da numero "
+  PROMPT 53 1 "Da numero "
-	FLAGS "RZ"
+  FLAGS "RZ"
-	HELP "Inserire il codice d'inizio "
+  HELP "Inserire il codice d'inizio "
-        FIELD LF_TABCOM->CODTAB[11,12]
+  FIELD CODTAB[7,8]
-	COPY ALL F_INIZIO1
+  COPY ALL F_INIZIO1
-	GROUP 1
+  GROUP 1
 END
 
 STRING F_FINE1 1
 BEGIN
-	PROMPT 2 3 "A sezione  "
+  PROMPT 2 3 "A sezione  "
-	HELP "Inserire il codice di fine  "
+  HELP "Inserire il codice di fine  "
-        FIELD LF_TABCOM->CODTAB[1,1]
+  FIELD CODTAB[1,1]
   FLAGS "U"
-	COPY USE F_INIZIO1
+  COPY USE F_INIZIO1
   INPUT CODTAB[1,1] F_FINE1
   INPUT CODTAB[2,2] F_FINE2
-  INPUT CODTAB[3,10] F_FINE3
+  INPUT CODTAB[3,6] F_FINE3
-  INPUT CODTAB[11,12] F_FINE4
+  INPUT CODTAB[7,8] F_FINE4
-	COPY DISPLAY F_INIZIO1
+  COPY DISPLAY F_INIZIO1
   OUTPUT F_FINE1 CODTAB[1,1]
   OUTPUT F_FINE2 CODTAB[2,2]
-  OUTPUT F_FINE3 CODTAB[3,10]
+  OUTPUT F_FINE3 CODTAB[3,6]
-  OUTPUT F_FINE4 CODTAB[11,12]
+  OUTPUT F_FINE4 CODTAB[7,8]
-	GROUP 2
+  GROUP 2
 END
 
 STRING F_FINE2 1
 BEGIN
-	PROMPT 17 3 "A lettera  "
+  PROMPT 17 3 "A lettera  "
-	FLAGS "U"
+  FLAGS "U"
-	COPY ALL F_FINE1
+  COPY ALL F_FINE1
-	HELP "Inserire il codice di fine  "
+  HELP "Inserire il codice di fine  "
-        FIELD LF_TABCOM->CODTAB[2,2]
+  FIELD CODTAB[2,2]
-	GROUP 2
+  GROUP 2
 END
 
-NUMBER F_FINE3 8
+NUMBER F_FINE3 8 4
 BEGIN
-	PROMPT 32 3 "A classe  "
+  PROMPT 32 3 "A classe  "
   FLAGS "UM"
-	HELP "Inserire il codice di fine  "
+  HELP "Inserire il codice di fine  "
-        FIELD LF_TABCOM->CODTAB[3,10]
+  FIELD CODTAB[3,6]
-	COPY ALL F_FINE1
+  COPY ALL F_FINE1
-	GROUP 2
+  GROUP 2
 END
 
 NUMBER F_FINE4 2
 BEGIN
-	PROMPT 53 3 "A numero  "
+  PROMPT 53 3 "A numero  "
-	FLAGS "RZ"
+  FLAGS "RZ"
-	HELP "Inserire il codice di fine  "
+  HELP "Inserire il codice di fine  "
-        FIELD LF_TABCOM->CODTAB[11,12]
+  FIELD CODTAB[7,8]
-	COPY ALL F_FINE1
+  COPY ALL F_FINE1
-	GROUP 2
+  GROUP 2
 END
 
 BUTTON DLG_OK 8 2
 BEGIN
-	PROMPT -12 -1 ""
+  PROMPT -12 -1 ""
 END
 
 BUTTON DLG_QUIT 8 2
 BEGIN
-	PROMPT -22 -1 ""
+  PROMPT -22 -1 ""
 END
 
 ENDPAGE