From abd7acd6af83ea23f069257ba261a469d3cacddd Mon Sep 17 00:00:00 2001
From: guy <guy@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Thu, 2 Mar 1995 09:45:31 +0000
Subject: [PATCH] Tolta la ditta dalla maschera

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

diff --git a/ba/batbinl.uml b/ba/batbinl.uml
index 63f2049c1..13bb2cc7d 100755
--- a/ba/batbinl.uml
+++ b/ba/batbinl.uml
@@ -121,7 +121,7 @@ BEGIN
   PROMPT 1 8 "Codice registro "
   FIELD CODREG
   FLAGS "UZ"        
-  USE REG SELECT CODTAB[1,4]=#F_ANNO
+  USE REG
   INPUT CODTAB[1,4] F_ANNO
   INPUT CODTAB[5,7] F_CODREG
   DISPLAY "Anno" CODTAB[1,4]
@@ -129,14 +129,13 @@ BEGIN
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CODREG CODTAB[5,7]
   OUTPUT F_DESCREG S0
-  VALIDATE NOT_EMPTY_CHECK_FIELD
   CHECKTYPE REQUIRED
 END
 
 STRING F_DESCREG 50
 BEGIN
   PROMPT 1 9 "Descrizione     "
-  USE REG KEY 2 SELECT CODTAB[1,4]=#F_ANNO
+  USE REG KEY 2
   INPUT S0 F_DESCREG
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice registro" CODLIB
@@ -193,8 +192,10 @@ BOOLEAN F_PANN_LU
 BEGIN
   PROMPT 36 16 "Pagine libro unico annullate"
   FIELD ANNULLATE
-  MESSAGE FALSE REQUIRED,F_DITTA|REQUIRED,F_CODREG
-  MESSAGE TRUE  NORMAL,F_DITTA|NORMAL,F_CODREG
+  MESSAGE FALSE ENABLE,F_DITTA|ENABLE,F_RAGSOC
+  MESSAGE FALSE ENABLE,F_CODREG|ENABLE,F_DESCREG
+  MESSAGE TRUE  CLEAR,F_DITTA|DISABLE,F_RAGSOC
+  MESSAGE TRUE  CLEAR,F_CODREG|CLEAR,F_DESCREG|"Pagine annullate",F_DESCREG
 END
 
 ENDPAGE