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

Correzione errore MI6039, e modificata la ricerca della

Browse Source 
banca sugli sheet relativi ai versamenti.


git-svn-id: svn://10.65.10.50/trunk@3204 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-07-19 09:49:20 +00:00
parent 831720873d
commit 9689ca2ea0
2 changed files with 24 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
cg/cg5500b.uml
View File

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

17
cg/cg5500c.uml
View File

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