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

Corretti errori 11 12

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@68 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1994-08-26 13:55:22 +00:00
parent ea40da7b5b
commit 5d9ca8f41b
1 changed files with 18 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
ba/batb%ban.uml
View File

@ -8,20 +8,7 @@ ENDPAGE
PAGE "Tabella banche" -1 -1 78 18
NUMBER H_CODICEABI 5
BEGIN
PROMPT 0 0 ""
FLAGS "HRZ"
GROUP GR_SEARCH
USE %BAN SELECT CODTAB[6,10]=""
INPUT CODTAB[1,5] F_CODICEABI
DISPLAY "Codice ABI" CODTAB[1,5]
DISPLAY "Codice CAB" CODTAB[6,10]
DISPLAY "Istituto@50" S0
OUTPUT F_ISTIT S0
END
NUMBER F_CODICEABI 5 5
NUMBER F_CODICEABI 5
BEGIN
PROMPT 6 1 "Codice ABI "
FIELD %BAN->CODTAB[1,5]
@ -37,6 +24,7 @@ BEGIN
OUTPUT F_CODICECAB CODTAB[6,10]
OUTPUT F_DENOM S0
MESSAGE COPY,H_CODICEABI
GROUP GR_SEARCH
END
NUMBER F_CODICECAB 5 5
@ -57,6 +45,16 @@ BEGIN
FLAGS "RZ"
END
NUMBER H_CODICEABI 5
BEGIN
FLAGS "HRZ"
COPY USE F_CODICEABI
INPUT CODTAB H_CODICEABI
COPY DISPLAY F_CODICEABI
OUTPUT F_ISTIT S0
CHECKTYPE NORMAL
END
STRING F_ISTIT 50
BEGIN
PROMPT 6 3 "Istituto "
@ -95,9 +93,14 @@ BEGIN
FIELD %BAN->S7
END
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 2 8 "Sede"
END
STRING F_COMUNE 4
BEGIN
PROMPT 6 11 "Comune "
PROMPT 4 11 "Comune "
FIELD %BAN->S5
USE LF_COMUNI
INPUT STATO ""