Corretti errori 11 12

git-svn-id: svn://10.65.10.50/trunk@68 c028cbd2-c16b-5b4b-a496-9718f37d4682

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 ""