root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correzione errore MI6039. cambiata la ricerca sulle banche.

Browse Source 
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
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
cg/cg5500d.uml
View File

@ -118,15 +118,16 @@ BEGIN
FIELD S7 FIELD S7
FLAGS "RZH" FLAGS "RZH"
GROUP 4 GROUP 4
USE %BAN USE %BAN KEY 1 SELECT CODTAB ?= "?????"
INPUT CODTAB[1,5] F_DELABI 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 ABI" CODTAB[1,5]
DISPLAY "Codice CAB" CODTAB[6,10] // DISPLAY "Codice CAB" CODTAB[6,10]
DISPLAY "Descrizione @50" S0 DISPLAY "Descrizione @50" S0
OUTPUT F_DELABI CODTAB[1,5] OUTPUT F_DELABI CODTAB[1,5]
OUTPUT F_DELCAB CODTAB[6,10] // OUTPUT F_DELCAB CODTAB[6,10]
CHECKTYPE NORMAL CHECKTYPE NORMAL
MESSAGE EMPTY RESET,F_DELCAB
END END
@ -137,7 +138,16 @@ BEGIN
FIELD S8 FIELD S8
FLAGS "RZH" FLAGS "RZH"
GROUP 4 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 CHECKTYPE NORMAL
WARNING "Banca assente" WARNING "Banca assente"
END END