From 545dbe95bf8ed906a8d6b41ef157b543fd420cce Mon Sep 17 00:00:00 2001
From: alex <alex@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Wed, 11 Jun 1997 16:35:24 +0000
Subject: [PATCH] Corretti output e ricerche

git-svn-id: svn://10.65.10.50/trunk@4598 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 cg/cg0200a.uml | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

diff --git a/cg/cg0200a.uml b/cg/cg0200a.uml
index 258ba75cc..14681f46a 100755
--- a/cg/cg0200a.uml
+++ b/cg/cg0200a.uml
@@ -605,14 +605,14 @@ BEGIN
 PROMPT 2 4 "Codice ABI          "
 FIELD CODABI
 FLAGS "Z"
-USE %BAN
+USE %BAN KEY 1 SELECT CODTAB ?= "?????"
 INPUT CODTAB F_CODABI
 DISPLAY "Codice ABI" CODTAB[1,5]
 DISPLAY "Codice CAB" CODTAB[6,10]
 DISPLAY "Denominazione@50" S0
 OUTPUT F_CODABI CODTAB[1,5]
-OUTPUT F_CODBAN CODTAB[6,10]
-OUTPUT F_DESBAN S0
+// OUTPUT F_CODBAN CODTAB[6,10]
+// OUTPUT F_DESBAN S0
 HELP "Codice ABI banca del C/F"
 CHECKTYPE NORMAL
 END
@@ -622,11 +622,13 @@ BEGIN
 PROMPT 56 4 "Codice CAB "
 FIELD CODCAB
 FLAGS "Z"
-COPY USE F_CODABI
+USE %BAN KEY 1 SELECT CODTAB ?= "??????????"
 INPUT CODTAB[1,5] F_CODABI
 INPUT CODTAB[6,10] F_CODBAN
 COPY DISPLAY F_CODABI
-COPY OUTPUT F_CODABI
+OUTPUT F_CODABI CODTAB[1,5]
+OUTPUT F_CODBAN CODTAB[6,10]
+OUTPUT F_DESBAN S0
 HELP "Codice CAB banca del C/F"
 CHECKTYPE NORMAL
 END
@@ -634,12 +636,12 @@ END
 STRING F_DESBAN 50
 BEGIN
 PROMPT 2 5 "Denominazione       "
-USE %BAN KEY 2
+USE %BAN KEY 2 SELECT CODTAB ?= "??????????"
 INPUT S0 F_DESBAN
 DISPLAY "Denominazione@50" S0
 DISPLAY "Codice ABI" CODTAB[1,5]
 DISPLAY "Codice CAB" CODTAB[6,10]
-COPY OUTPUT F_CODABI
+COPY OUTPUT F_CODBAN
 END
 
 STRING F_CODVAL 3
@@ -1356,7 +1358,7 @@ BEGIN
   INPUT CODTAB F_CODABIPR
   COPY DISPLAY F_CODABI
   OUTPUT F_CODABIPR CODTAB[1,5]
-  OUTPUT F_CODBANPR CODTAB[6,10]
+//  OUTPUT F_CODBANPR CODTAB[6,10]
   HELP "Codice ABI della banca presentazione effetti"
   CHECKTYPE NORMAL
 END
@@ -1366,7 +1368,7 @@ BEGIN
   PROMPT 45 4 "Codice CAB effetti     "
   FIELD LF_CFVEN->CODCABPR
   FLAGS "Z"
-  USE %BAN
+  COPY USE F_CODBAN
   INPUT CODTAB[1,5] F_CODABIPR
   INPUT CODTAB[6,10] F_CODBANPR
   COPY DISPLAY F_CODABI
@@ -1528,7 +1530,7 @@ BEGIN
   FLAGS "U"
   INPUT CODTAB F_CODSP1
   DISPLAY "Codice Spesa " CODTAB
-  DISPLAY "Descrizione@20" S0
+  DISPLAY "Descrizione@50" S0
   OUTPUT F_CODSP1 CODTAB
   HELP "Codici delle spese da addebitare"
   CHECKTYPE NORMAL