From 32e0d02d177736d2d9f55ee13af72fd129e30e80 Mon Sep 17 00:00:00 2001
From: alex <alex@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Fri, 2 Sep 1994 15:15:45 +0000
Subject: [PATCH] Corretto errore AGA n. 183

git-svn-id: svn://10.65.10.50/trunk@141 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ba/bastreg.uml | 132 ++++++++++++++++++++++---------------------------
 1 file changed, 60 insertions(+), 72 deletions(-)

diff --git a/ba/bastreg.uml b/ba/bastreg.uml
index b2bc0bb54..d02f78073 100755
--- a/ba/bastreg.uml
+++ b/ba/bastreg.uml
@@ -1,80 +1,68 @@
-#include "ba3200.h"
-
-PAGE "Stampa registri" -1 -1 60 10
-
-NUMBER F_INIZIO0 5
-BEGIN
-  PROMPT 4 2 "Ditta         "
-  FLAGS "FRD"
-END  
-
-STRING F_INIZIO1 3
-BEGIN
-  PROMPT 4 4 "Da registro   "
-  FLAGS "U"
-  USE REG 
-  INPUT CODTAB[1,4] F_INIZIO2
-  INPUT CODTAB[5,7] F_INIZIO1
-  DISPLAY "Codice" CODTAB[5,7]
-  DISPLAY "Anno" CODTAB[1,4]
-  DISPLAY "Descrizione @50" S0
-  OUTPUT F_INIZIO1 CODTAB[5,7]
-  OUTPUT F_INIZIO2 CODTAB[1,4]
-  FIELD LF_TABCOM->CODTAB[5,7]
-  GROUP 1
-END 
-
-NUMBER F_INIZIO2 4
-BEGIN
-  PROMPT 30 4 "Anno "
-//  FLAGS "A"
-	COPY ALL F_INIZIO1
-  FIELD LF_TABCOM->CODTAB[1,4]
-  GROUP 1
-END 
-
-STRING F_FINE1 3
-BEGIN
-  PROMPT 4 6 "A registro    "
-  FLAGS "U"
-  COPY USE F_INIZIO1
-  INPUT CODTAB[5,7] F_FINE1
-  INPUT CODTAB[1,4] F_FINE2
-  COPY DISPLAY F_INIZIO1
-  OUTPUT F_FINE1 CODTAB[5,7]
-  OUTPUT F_FINE2 CODTAB[1,4]
-  FIELD LF_TABCOM->CODTAB[5,7]
-  GROUP 2
-END 
-
-NUMBER F_FINE2 4
-BEGIN
-  PROMPT 30 6 "Anno "
-//  FLAGS "A"
-	COPY ALL F_FINE1
-  FIELD LF_TABCOM->CODTAB[1,4]
-  GROUP 2
-END 
-
-BUTTON DLG_OK
-BEGIN
-	PROMPT -12 8 ""
-END
-
-BUTTON DLG_CANCEL
-BEGIN 
-	PROMPT -22 8 ""
-END
-
+#include "ba3200.h"
+
+PAGE "Stampa registri" -1 -1 60 10
+
+NUMBER F_INIZIO0 5
+BEGIN
+  PROMPT 4 2 "Ditta         "
+  FLAGS "FRD"
+END  
+
+STRING F_INIZIO1 3
+BEGIN
+  PROMPT 4 4 "Da registro   "
+  FLAGS "U"
+  USE REG 
+  INPUT CODTAB[1,4] F_INIZIO2
+  INPUT CODTAB[5,7] F_INIZIO1
+  DISPLAY "Codice" CODTAB[5,7]
+  DISPLAY "Anno" CODTAB[1,4]
+  DISPLAY "Descrizione @50" S0
+  OUTPUT F_INIZIO1 CODTAB[5,7]
+  OUTPUT F_INIZIO2 CODTAB[1,4]
+  FIELD CODTAB[5,7]
+  GROUP 1
+END 
+
+NUMBER F_INIZIO2 4
+BEGIN
+  PROMPT 30 4 "Anno "
+  COPY ALL F_INIZIO1
+  FIELD CODTAB[1,4]
+  GROUP 1
+END 
+
+STRING F_FINE1 3
+BEGIN
+  PROMPT 4 6 "A registro    "
+  FLAGS "U"
+  COPY USE F_INIZIO1
+  INPUT CODTAB[5,7] F_FINE1
+  INPUT CODTAB[1,4] F_FINE2
+  COPY DISPLAY F_INIZIO1
+  OUTPUT F_FINE1 CODTAB[5,7]
+  OUTPUT F_FINE2 CODTAB[1,4]
+  FIELD CODTAB[5,7]
+  GROUP 2
+END 
+
+NUMBER F_FINE2 4
+BEGIN
+  PROMPT 30 6 "Anno "
+  COPY ALL F_FINE1
+  FIELD CODTAB[1,4]
+  GROUP 2
+END 
+
 BUTTON DLG_OK 8 2
 BEGIN
-	PROMPT -12 -2 ""
+	PROMPT -12 -1 ""
 END
 
 BUTTON DLG_QUIT 8 2
 BEGIN
-	PROMPT -22 -2 ""
+	PROMPT -22 -1 ""
 END
 
-ENDPAGE
-ENDMASK
+ENDPAGE
+ENDMASK