From 3df8193bd9a00205ac3f8e59427b4627a03ff155 Mon Sep 17 00:00:00 2001
From: angelo <angelo@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Thu, 5 Sep 1996 08:24:04 +0000
Subject: [PATCH] Correzione errore MI6039. cambiata la ricerca sulle banche.

git-svn-id: svn://10.65.10.50/trunk@3516 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 cg/cg5500d.uml | 20 +++++++++++++++-----
 1 file changed, 15 insertions(+), 5 deletions(-)

diff --git a/cg/cg5500d.uml b/cg/cg5500d.uml
index a3eb3a927..ad0c151e0 100755
--- a/cg/cg5500d.uml
+++ b/cg/cg5500d.uml
@@ -118,15 +118,16 @@ BEGIN
   FIELD S7
   FLAGS "RZH" 
   GROUP 4
-  USE %BAN
+  USE %BAN KEY 1 SELECT CODTAB ?= "?????"
   INPUT CODTAB[1,5] F_DELABI
-  INPUT CODTAB[6,10] F_DELCAB
+//  INPUT CODTAB[6,10] F_DELCAB
   DISPLAY "Codice ABI" CODTAB[1,5]
-  DISPLAY "Codice CAB" CODTAB[6,10]
+//  DISPLAY "Codice CAB" CODTAB[6,10]
   DISPLAY "Descrizione @50" S0
   OUTPUT F_DELABI CODTAB[1,5]
-  OUTPUT F_DELCAB CODTAB[6,10]
+//  OUTPUT F_DELCAB CODTAB[6,10]
   CHECKTYPE NORMAL
+  MESSAGE EMPTY RESET,F_DELCAB
 END
 
 
@@ -137,7 +138,16 @@ BEGIN
   FIELD S8
   FLAGS "RZH"
   GROUP 4
-  COPY ALL F_DELABI
+  USE %BAN KEY 1 SELECT CODTAB ?= "??????????"
+  INPUT CODTAB[1,5] F_DELABI
+  INPUT CODTAB[6,10] F_DELCAB
+  DISPLAY "Codice ABI" CODTAB[1,5]
+  DISPLAY "Codice CAB" CODTAB[6,10]
+  DISPLAY "Denominazione@50" S0
+  OUTPUT F_DELABI CODTAB[1,5]
+  OUTPUT F_DELCAB CODTAB[6,10]
+  VALIDATE REQIF_FUNC 1 F_DELABI
+  //COPY ALL F_DELABI
   CHECKTYPE NORMAL
   WARNING "Banca assente"
 END