Patch level :4.0 728
Files correlati : Ricompilazione Demo : [ ] Commento :fatta funzionare la maschera pocciatissima git-svn-id: svn://10.65.10.50/trunk@15430 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
be2a4c72d0
commit
e7563da782
@ -328,29 +328,6 @@ BEGIN
|
||||
ADD RUN CG0 -0
|
||||
END
|
||||
|
||||
STRING F_TIPORIGA 4
|
||||
BEGIN
|
||||
PROMPT 2 18 "Tipo riga "
|
||||
FIELD S8
|
||||
FLAGS "U"
|
||||
USE %TRI SELECT S7=="S"
|
||||
INPUT CODTAB F_TIPORIGA
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_TIPORIGA CODTAB
|
||||
OUTPUT F_DESCRRIGA S0
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_DESCRRIGA 50
|
||||
BEGIN
|
||||
PROMPT 17 19 ""
|
||||
USE %TRI KEY 2 SELECT S7=="S"
|
||||
INPUT S0 F_DESCRRIGA
|
||||
COPY DISPLAY F_TIPORIGA
|
||||
COPY OUTPUT F_TIPORIGA
|
||||
END
|
||||
|
||||
LISTBOX F_TIPORIT 17
|
||||
BEGIN
|
||||
PROMPT 2 20 "Tipo ritenuta "
|
||||
|
Loading…
x
Reference in New Issue
Block a user