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

Corretti output e ricerche

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4598 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1997-06-11 16:35:24 +00:00
parent f3e586e487
commit 545dbe95bf
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
cg/cg0200a.uml
View File

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