111 lines
1.9 KiB
Plaintext
Executable File
111 lines
1.9 KiB
Plaintext
Executable File
#include <lffiles.h>
|
|
#include "ve2100i.h"
|
|
|
|
TOOLBAR "" 0 20 60 2
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Archivio sconti incondizionati " 11 60 14
|
|
|
|
LISTA F_I_TIPO 1
|
|
BEGIN
|
|
PROMPT 100 100 ""
|
|
FIELD LF_SCONTI->TIPO
|
|
FLAG "H"
|
|
ITEM "I|Sconti incondizionati"
|
|
END
|
|
|
|
STRING F_I_RICERCA 1
|
|
BEGIN
|
|
PROMPT 100 100 ""
|
|
FLAG "H"
|
|
USE LF_SCONTI
|
|
INPUT TIPO F_I_TIPO SELECT
|
|
INPUT CODART[1,2] F_I_CATVEN
|
|
INPUT CODART[3,4] F_I_SCCLIENTI
|
|
INPUT CODART[5,6] F_I_ZONE
|
|
INPUT CODART[7,10] F_I_CONDPAG
|
|
DISPLAY "CV" CODART[1,2]
|
|
DISPLAY "SC" CODART[3,4]
|
|
DISPLAY "ZN" CODART[5,6]
|
|
DISPLAY "C.P." CODART[7,10]
|
|
DISPLAY "Sconto@25" SCONTO
|
|
OUTPUT F_I_CATVEN CODART[1,2]
|
|
OUTPUT F_I_SCCLIENTI CODART[3,4]
|
|
OUTPUT F_I_ZONE CODART[5,6]
|
|
OUTPUT F_I_CONDPAG CODART[7,10]
|
|
OUTPUT F_I_SCONTO SCONTO
|
|
END
|
|
|
|
STRING F_I_CATVEN 2
|
|
BEGIN
|
|
PROMPT 5 2 "Categoria vendite "
|
|
FIELD LF_SCONTI->CODART[1,2]
|
|
FLAG "U"
|
|
KEY 1
|
|
USE %CVE
|
|
INPUT CODTAB F_I_CATVEN
|
|
DISPLAY "Cat. vend." CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_I_CATVEN CODTAB
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_I_SCCLIENTI 2
|
|
BEGIN
|
|
PROMPT 8 4 "Sconto cliente "
|
|
FIELD LF_SCONTI->CODART[3,4]
|
|
FLAG "U"
|
|
KEY 1
|
|
USE %SCO
|
|
INPUT CODTAB F_I_SCCLIENTI
|
|
DISPLAY "Sc. Cliente" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_I_SCCLIENTI CODTAB
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_I_ZONE 2
|
|
BEGIN
|
|
PROMPT 18 6 "Zona "
|
|
FIELD LF_SCONTI->CODART[5,6]
|
|
FLAG "U"
|
|
KEY 1
|
|
USE %ZON
|
|
INPUT CODTAB F_I_ZONE
|
|
DISPLAY "Zona" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_I_ZONE CODTAB
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_I_CONDPAG 4
|
|
BEGIN
|
|
PROMPT 2 8 "Condizione pagamento "
|
|
FIELD LF_SCONTI->CODART[7,10]
|
|
FLAG "U"
|
|
KEY 1
|
|
USE %CPG
|
|
INPUT CODTAB F_I_CONDPAG
|
|
DISPLAY "Cond. pag." CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_I_CONDPAG CODTAB
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 36 11
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
//FLAG "R"
|
|
END
|
|
|
|
STRING F_I_SCONTO 25
|
|
BEGIN
|
|
PROMPT 2 12 "Sconto "
|
|
FIELD LF_SCONTI->SCONTO
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|