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:
luca 2007-06-20 14:41:48 +00:00
parent be2a4c72d0
commit e7563da782

View File

@ -328,29 +328,6 @@ BEGIN
ADD RUN CG0 -0 ADD RUN CG0 -0
END 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 LISTBOX F_TIPORIT 17
BEGIN BEGIN
PROMPT 2 20 "Tipo ritenuta " PROMPT 2 20 "Tipo ritenuta "