From 20e08fcce73b8a41dcf1c40771321d678c3a9512 Mon Sep 17 00:00:00 2001
From: guy <guy@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Fri, 24 Feb 1995 15:36:32 +0000
Subject: [PATCH] Corretta ricerca sui libri

git-svn-id: svn://10.65.10.50/trunk@1035 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ba/batbinl.uml | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/ba/batbinl.uml b/ba/batbinl.uml
index ae1e1a1b4..7d332468e 100755
--- a/ba/batbinl.uml
+++ b/ba/batbinl.uml
@@ -16,8 +16,8 @@ BEGIN
   USE %LBU
   INPUT CODTAB[1,4] F_ANNO
   INPUT CODTAB[5,7] F_CODLIB
-  DISPLAY "Anno" ANNO
-  DISPLAY "Libro" CODLIB
+  DISPLAY "Anno" CODTAB[1,4]
+  DISPLAY "Libro" CODTAB[5,7]
   DISPLAY "Descrizione@50" S0
   OUTPUT F_ANNO CODTAB[1,4]
   OUTPUT F_CODLIB CODTAB[5,7]
@@ -117,24 +117,23 @@ STRING F_CODREG 3
 BEGIN
   PROMPT 1 8 "Codice registro "
   FIELD CODREG
-  USE REG 
   FLAGS "UZ"        
+  USE REG SELECT CODTAB[1,4]=#F_ANNO
   INPUT CODTAB[1,4] F_ANNOREG
   INPUT CODTAB[5,7] F_CODREG
-  DISPLAY "Anno" ANNO
-  DISPLAY "Codice" CODLIB
+  DISPLAY "Anno" CODTAB[1,4]
+  DISPLAY "Codice" CODTAB[5,7]
   DISPLAY "Descrizione@50" S0
-  OUTPUT F_ANNOREG CODTAB[1,4]
   OUTPUT F_CODREG CODTAB[5,7]
   OUTPUT F_DESCREG S0
-  CHECKTYPE REQUIRED
   VALIDATE NOT_EMPTY_CHECK_FIELD
+  CHECKTYPE REQUIRED
 END
 
 STRING F_DESCREG 50
 BEGIN
   PROMPT 1 9 "Descrizione     "
-  USE REG KEY 2 SELECT ANNO=#F_ANNO
+  USE REG KEY 2 SELECT CODTAB[1,4]=#F_ANNO
   INPUT S0 F_DESCREG
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice registro" CODLIB