From 35c8a5389592cdf3a3b6a90d8fae6a2e26880049 Mon Sep 17 00:00:00 2001
From: angelo <angelo@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Mon, 26 Aug 1996 08:27:33 +0000
Subject: [PATCH] Correzione errori relativi alla gestione/stampa tabella
 indici libro unico: dal MI4259 al MI4267.

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

diff --git a/ba/batbinl.uml b/ba/batbinl.uml
index 4efb2d2e4..93b5753f2 100755
--- a/ba/batbinl.uml
+++ b/ba/batbinl.uml
@@ -32,7 +32,7 @@ BEGIN
   FLAGS "UZ"
   FIELD CODLIB
   COPY ALL F_ANNO
-  CHECKTYPE REQUIRED
+  CHECKTYPE FORCED
   KEY 1
 END
 
@@ -97,14 +97,13 @@ NUMBER F_DITTA 5
 BEGIN
   PROMPT 1 6 "Codice ditta    "
   FIELD CODDITTA
-  FLAGS "R"
   USE LF_NDITTE
   INPUT CODDITTA F_DITTA 
   DISPLAY "Codice ditta" CODDITTA
   DISPLAY "Ragione sociale@50" RAGSOC
   OUTPUT F_DITTA CODDITTA
   OUTPUT F_RAGSOC RAGSOC
-  CHECKTYPE REQUIRED
+  CHECKTYPE NORMAL
   WARNING "E' necessario specificare un codice ditta valido"
 END
 
@@ -123,7 +122,7 @@ STRING F_CODREG 3
 BEGIN
   PROMPT 1 8 "Codice registro "
   FIELD CODREG
-  FLAGS "UZ"        
+  FLAGS "UZ"
   USE REG
   INPUT CODTAB[1,4] F_ANNO
   INPUT CODTAB[5,7] F_CODREG
@@ -133,8 +132,9 @@ BEGIN
   OUTPUT F_CODREG CODTAB[5,7]
   OUTPUT F_DESCREG S0
   WARNING "Codice registro assente"
-  CHECKTYPE NORMAL
   VALIDATE NOT_EMPTY_CHECK_FIELD
+  CHECKTYPE NORMAL
+  MESSAGE EMPTY RESET,F_DESCREG
 END
 
 STRING F_DESCREG 50
@@ -143,8 +143,10 @@ BEGIN
   USE REG KEY 2
   INPUT S0 F_DESCREG
   DISPLAY "Descrizione@50" S0
-  DISPLAY "Codice registro" CODTAB
-  COPY OUTPUT F_CODREG
+  DISPLAY "Anno" CODTAB[1,4]
+  DISPLAY "Codice" CODTAB[5,7]
+  OUTPUT F_CODREG CODTAB[5,7]
+  OUTPUT F_DESCREG S0
   CHECKTYPE NORMAL
 END
 
@@ -200,9 +202,9 @@ BEGIN
   PROMPT 36 16 "Pagine libro unico annullate"
   FIELD ANNULLATE
   MESSAGE FALSE ENABLE,F_DITTA|ENABLE,F_RAGSOC
-  MESSAGE FALSE ENABLE,F_CODREG|ENABLE,F_DESCREG
+//  MESSAGE FALSE ENABLE,F_CODREG|ENABLE,F_DESCREG
   MESSAGE FALSE REQUIRED,F_PINI_RU|REQUIRED,F_PFIN_RU
-  MESSAGE TRUE  CLEAR,F_DITTA|DISABLE,F_RAGSOC
+  MESSAGE TRUE  CLEAR,F_DITTA|CLEAR,F_RAGSOC
   MESSAGE TRUE  CLEAR,F_CODREG|CLEAR,F_DESCREG|"Pagine annullate",F_DESCREG
   MESSAGE TRUE NORMAL,F_PINI_RU|NORMAL,F_PFIN_RU
 END