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

Patch level :10.0 883

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
sistemate lunghezze codici CUP


git-svn-id: svn://10.65.10.50/branches/R_10_00@21416 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2011-01-11 14:52:21 +00:00
parent a6945d09e1
commit 947e9c7a9d
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ba/batbcig.uml
View File

@ -18,12 +18,12 @@ BEGIN
USE %CIG
INPUT CODTAB F_CODTAB
DISPLAY "Codice@10" CODTAB
DISPLAY "Descrizione@60" S0
DISPLAY "Descrizione@50" S0
OUTPUT F_CODTAB CODTAB
OUTPUT F_DESC S0
CHECKTYPE REQUIRED
FIELD CODTAB
FLAG "U"
FLAGS "U"
KEY 1
END
@ -32,7 +32,7 @@ BEGIN
PROMPT 2 5 "Descrizione "
USE %CIG KEY 2
INPUT S0 F_DESC
DISPLAY "Descrizione@60" S0
DISPLAY "Descrizione@50" S0
DISPLAY "Codice@10" CODTAB
COPY OUTPUT F_CODTAB
FIELD S0

10
ba/batbcup.uml
View File

@ -12,18 +12,18 @@ BEGIN
END
STRING F_CODTAB 20
STRING F_CODTAB 15
BEGIN
PROMPT 2 2 "Codice "
USE %CUP
INPUT CODTAB F_CODTAB
DISPLAY "Codice@20" CODTAB
DISPLAY "Descrizione@60" S0
DISPLAY "Codice@15" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODTAB CODTAB
OUTPUT F_DESC S0
CHECKTYPE REQUIRED
FIELD CODTAB
FLAG "U"
FLAGS "U"
KEY 1
END
@ -32,7 +32,7 @@ BEGIN
PROMPT 2 5 "Descrizione "
USE %CUP KEY 2
INPUT S0 F_DESC
DISPLAY "Descrizione@60" S0
DISPLAY "Descrizione@50" S0
DISPLAY "Codice@20" CODTAB
COPY OUTPUT F_CODTAB
FIELD S0