From 9689ca2ea08e427a47044fdcc4d5c8611a71ae5b Mon Sep 17 00:00:00 2001
From: angelo <angelo@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Fri, 19 Jul 1996 09:49:20 +0000
Subject: [PATCH] Correzione errore MI6039, e modificata la ricerca della banca
 sugli sheet relativi ai versamenti.

git-svn-id: svn://10.65.10.50/trunk@3204 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 cg/cg5500b.uml | 17 ++++++++++++-----
 cg/cg5500c.uml | 17 ++++++++++++-----
 2 files changed, 24 insertions(+), 10 deletions(-)

diff --git a/cg/cg5500b.uml b/cg/cg5500b.uml
index 78ec56074..b5d457c36 100755
--- a/cg/cg5500b.uml
+++ b/cg/cg5500b.uml
@@ -187,15 +187,14 @@ BEGIN
   HELP "Codice ABI banca di appoggio"
   FIELD S7
   FLAGS "RZ"
-  USE %BAN
-  INPUT CODTAB[1,5] 103
-  INPUT CODTAB[6,10] 104
+  USE %BAN KEY 1 SELECT CODTAB ?= "?????"
+  INPUT CODTAB 103
   DISPLAY "Codice ABI" CODTAB[1,5]
-  DISPLAY "Codice CAB" CODTAB[6,10]
   DISPLAY "Descrizione @50" S0
   OUTPUT 103 CODTAB[1,5]
   OUTPUT 104 CODTAB[6,10]
   CHECKTYPE NORMAL
+  WARNING "Codice ABI assente"
 END
 
 
@@ -205,8 +204,16 @@ BEGIN
   HELP "Codice CAB banca di appoggio"
   FIELD S8
   FLAGS "RZ"
-  COPY ALL 103
+  USE %BAN KEY 1 SELECT CODTAB ?= "??????????"
+  INPUT CODTAB[1,5] 103
+  INPUT CODTAB[6,10] 104
+  DISPLAY "Codice ABI" CODTAB[1,5]
+  DISPLAY "Codice CAB" CODTAB[6,10]
+  DISPLAY "Denominazione@50" S0
+  OUTPUT 103 CODTAB[1,5]
+  OUTPUT 104 CODTAB[6,10]
   CHECKTYPE NORMAL
+  VALIDATE REQIF_FUNC 1 103
   WARNING "Banca assente"
 END
 
diff --git a/cg/cg5500c.uml b/cg/cg5500c.uml
index e1560ff33..f937b1cb8 100755
--- a/cg/cg5500c.uml
+++ b/cg/cg5500c.uml
@@ -165,15 +165,14 @@ BEGIN
   HELP "Codice ABI banca di appoggio"
   FIELD S7
   FLAGS "RZ"
-  USE %BAN
-  INPUT CODTAB[1,5] 103
-  INPUT CODTAB[6,10] 104
+  USE %BAN KEY 1 SELECT CODTAB ?= "?????"
+  INPUT CODTAB 103
   DISPLAY "Codice ABI" CODTAB[1,5]
-  DISPLAY "Codice CAB" CODTAB[6,10]
   DISPLAY "Descrizione @50" S0
   OUTPUT 103 CODTAB[1,5]
   OUTPUT 104 CODTAB[6,10]
   CHECKTYPE NORMAL
+  WARNING "Codice ABI assente"
 END
 
 
@@ -183,8 +182,16 @@ BEGIN
   HELP "Codice CAB banca di appoggio"
   FIELD S8
   FLAGS "RZ"
-  COPY ALL 103
+  USE %BAN KEY 1 SELECT CODTAB ?= "??????????"
+  INPUT CODTAB[1,5] 103
+  INPUT CODTAB[6,10] 104
+  DISPLAY "Codice ABI" CODTAB[1,5]
+  DISPLAY "Codice CAB" CODTAB[6,10]
+  DISPLAY "Denominazione@50" S0
+  OUTPUT 103 CODTAB[1,5]
+  OUTPUT 104 CODTAB[6,10]
   CHECKTYPE NORMAL
+  VALIDATE REQIF_FUNC 1 103
   WARNING "Banca assente"
 END