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

Corretta ricerca.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@167 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1994-09-05 16:04:08 +00:00
parent 2cf99ede58
commit 0eab5451b2
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ba/batb%ban.uml
View File

@ -34,9 +34,9 @@ BEGIN
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
OUTPUT F_CODICEABI CODTAB[1,5]
MESSAGE SHOW,F_ISTIT
MESSAGE EMPTY HIDE,F_ISTIT
VALIDATE AUTOEXIT_FUNC 2 F_CODICEABI F_CODICECAB
@ -68,13 +68,14 @@ END
STRING F_DENOM 50
BEGIN
PROMPT 6 5 "Denominazione "
PROMPT 6 5 "Denominazione "
FIELD %BAN->S0
KEY 2
USE %BAN KEY 2
INPUT S0 F_DENOM
DISPLAY "Istituto@50" S0
DISPLAY "Dipendenza@35" S1
DISPLAY "Denominazione@50" S0
INPUT CODTAB[1,5] F_CODICEABI
INPUT CODTAB[6,10] F_CODICECAB
DISPLAY "Codice ABI" CODTAB[1,5]
DISPLAY "Codice CAB" CODTAB[6,10]
COPY OUTPUT F_CODICECAB