From 5d9ca8f41b3db62cdcde421d783ffb88126abb9a Mon Sep 17 00:00:00 2001
From: alex <alex@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Fri, 26 Aug 1994 13:55:22 +0000
Subject: [PATCH] Corretti errori 11 12

git-svn-id: svn://10.65.10.50/trunk@68 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ba/batb%ban.uml | 33 ++++++++++++++++++---------------
 1 file changed, 18 insertions(+), 15 deletions(-)

diff --git a/ba/batb%ban.uml b/ba/batb%ban.uml
index 91dedafea..727974aad 100755
--- a/ba/batb%ban.uml
+++ b/ba/batb%ban.uml
@@ -8,20 +8,7 @@ ENDPAGE
 
 PAGE "Tabella banche" -1 -1 78 18
 
-NUMBER H_CODICEABI 5
-BEGIN
-  PROMPT 0 0 ""
-  FLAGS "HRZ"
-  GROUP GR_SEARCH
-  USE %BAN SELECT CODTAB[6,10]=""
-  INPUT CODTAB[1,5] F_CODICEABI
-  DISPLAY "Codice ABI" CODTAB[1,5]
-  DISPLAY "Codice CAB" CODTAB[6,10]
-  DISPLAY "Istituto@50" S0
-  OUTPUT F_ISTIT S0
-END
-
-NUMBER F_CODICEABI 5 5
+NUMBER F_CODICEABI 5
 BEGIN
   PROMPT 6 1 "Codice ABI "
   FIELD %BAN->CODTAB[1,5]
@@ -37,6 +24,7 @@ BEGIN
   OUTPUT F_CODICECAB CODTAB[6,10]
   OUTPUT F_DENOM S0
   MESSAGE COPY,H_CODICEABI
+  GROUP GR_SEARCH
 END
 
 NUMBER F_CODICECAB 5 5
@@ -57,6 +45,16 @@ BEGIN
   FLAGS "RZ"
 END
 
+NUMBER H_CODICEABI 5
+BEGIN
+  FLAGS "HRZ"
+  COPY USE F_CODICEABI
+  INPUT CODTAB H_CODICEABI
+  COPY DISPLAY F_CODICEABI
+  OUTPUT F_ISTIT S0
+  CHECKTYPE NORMAL
+END
+
 STRING F_ISTIT 50
 BEGIN
   PROMPT 6 3 "Istituto        "
@@ -95,9 +93,14 @@ BEGIN
   FIELD %BAN->S7
 END
 
+GROUPBOX DLG_NULL 75 7
+BEGIN
+  PROMPT 2 8 "Sede"
+END
+
 STRING F_COMUNE 4
 BEGIN
-  PROMPT 6 11 "Comune         "
+  PROMPT 4 11 "Comune         "
   FIELD %BAN->S5 
   USE LF_COMUNI
   INPUT STATO ""