Patch level :10.0 883
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:
parent
a6945d09e1
commit
947e9c7a9d
@ -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
|
||||
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
|
||||
|
@ -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
|
||||
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
|
||||
|
Loading…
x
Reference in New Issue
Block a user