Corretti alcuni filtri di selezione, la posizione di un group box

e i flag di disable.


git-svn-id: svn://10.65.10.50/trunk@3110 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-06-27 09:53:47 +00:00
parent c73b5509ec
commit fecf23f391

View File

@ -7,18 +7,25 @@ ENDPAGE
PAGE "Archivio sconti incondizionati " 11 60 14
LISTA F_I_TIPO 1
GROUPBOX DLG_NULL 78 11
BEGIN
PROMPT 0 0 ""
FLAG "R"
END
LIST F_I_TIPO 30
BEGIN
PROMPT 100 100 ""
FIELD LF_SCONTI->TIPO
FLAG "H"
FLAG "D"
KEY 1
ITEM "I|Sconti incondizionati"
END
STRING F_I_RICERCA 1
BEGIN
PROMPT 100 100 ""
FLAG "H"
FLAG "D"
USE LF_SCONTI
INPUT TIPO F_I_TIPO SELECT
INPUT CODCAT F_I_CATVEN
@ -62,10 +69,10 @@ STRING F_I_SCCLIENTI 2
BEGIN
PROMPT 2 4 "Sconto cliente "
FIELD LF_SCONTI->CODART[1,2]
FLAG "U"
KEY 1
FLAG "U"
USE LF_SCONTI
INPUT TIPO "D" SELECT
INPUT TIPO "D"
INPUT CODCAT F_I_SCCLIENTI
DISPLAY "Sc. Cliente" CODCAT
DISPLAY "Descrizione@50" DESCR
@ -105,8 +112,8 @@ STRING F_I_CONDPAG 4
BEGIN
PROMPT 2 8 "Cond. pagam. "
FIELD LF_SCONTI->CODART[5,8]
FLAG "U"
KEY 1
FLAG "U"
USE %CPG
INPUT CODTAB F_I_CONDPAG
DISPLAY "Cond. pag." CODTAB
@ -122,12 +129,6 @@ BEGIN
FLAG "D"
END
GROUPBOX DLG_NULL 78 11
BEGIN
PROMPT 0 0 ""
FLAG "R"
END
STRING F_I_SCONTO 25
BEGIN
PROMPT 2 12 "Sconto "