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

Corrette ricerche sui codica ABI e CAB

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@120 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1994-09-01 13:54:08 +00:00
parent 3feccfd63e
commit 97f70f9c9a
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
ba/batb%ban.uml
View File

@ -15,17 +15,13 @@ BEGIN
FIELD %BAN->CODTAB[1,5] FIELD %BAN->CODTAB[1,5]
FLAGS "RZ" FLAGS "RZ"
KEY 1 KEY 1
USE %BAN USE %BAN KEY 1 SELECT CODTAB ?= "?????"
INPUT CODTAB[1,5] F_CODICEABI INPUT CODTAB F_CODICEABI
INPUT CODTAB[6,10] F_CODICECAB
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 "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
OUTPUT F_CODICEABI CODTAB[1,5] OUTPUT F_CODICEABI CODTAB[1,5]
OUTPUT F_CODICECAB CODTAB[6,10]
OUTPUT F_DENOM S0
MESSAGE COPY,H_CODICEABI MESSAGE COPY,H_CODICEABI
GROUP GR_SEARCH
END END
NUMBER F_CODICECAB 5 NUMBER F_CODICECAB 5
@ -34,10 +30,17 @@ BEGIN
FIELD %BAN->CODTAB[6,10] FIELD %BAN->CODTAB[6,10]
FLAGS "RZ" FLAGS "RZ"
KEY 1 KEY 1
COPY ALL F_CODICEABI USE %BAN
INPUT CODTAB[1,5] F_CODICEABI
INPUT CODTAB[6,10] F_CODICECAB
COPY DISPLAY F_CODICEABI
OUTPUT F_CODICEABI CODTAB[1,5]
OUTPUT F_CODICECAB CODTAB[6,10]
OUTPUT F_DENOM S0
MESSAGE SHOW,F_ISTIT MESSAGE SHOW,F_ISTIT
MESSAGE EMPTY HIDE,F_ISTIT MESSAGE EMPTY HIDE,F_ISTIT
VALIDATE AUTOEXIT_FUNC 2 F_CODICEABI F_CODICECAB VALIDATE AUTOEXIT_FUNC 2 F_CODICEABI F_CODICECAB
GROUP GR_SEARCH
END END
NUMBER F_CODICEDIP 4 NUMBER F_CODICEDIP 4
@ -74,7 +77,7 @@ BEGIN
DISPLAY "Dipendenza@35" S1 DISPLAY "Dipendenza@35" S1
DISPLAY "Codice ABI" CODTAB[1,5] DISPLAY "Codice ABI" CODTAB[1,5]
DISPLAY "Codice CAB" CODTAB[6,10] DISPLAY "Codice CAB" CODTAB[6,10]
COPY OUTPUT F_CODICEABI COPY OUTPUT F_CODICECAB
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END