Correzione errore MI6039. cambiata la ricerca sulle banche.

git-svn-id: svn://10.65.10.50/trunk@3516 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-09-05 08:24:04 +00:00
parent f81a210b20
commit 3df8193bd9

View File

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