140 lines
2.3 KiB
Plaintext
Executable File
140 lines
2.3 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 CODCAT F_I_CATVEN
|
|
INPUT CODART[1,2] F_I_SCCLIENTI
|
|
INPUT CODART[3,4] F_I_ZONE
|
|
INPUT CODART[5,8] F_I_CONDPAG
|
|
DISPLAY "CV" CODCAT
|
|
DISPLAY "SC" CODART[1,2]
|
|
DISPLAY "ZN" CODART[3,4]
|
|
DISPLAY "C.P." CODART[5,8]
|
|
DISPLAY "Sconto@25" SCONTO
|
|
OUTPUT F_I_CATVEN CODCAT
|
|
OUTPUT F_I_SCCLIENTI CODART[1,2]
|
|
OUTPUT F_I_ZONE CODART[3,4]
|
|
OUTPUT F_I_CONDPAG CODART[5,8]
|
|
OUTPUT F_I_SCONTO SCONTO
|
|
END
|
|
|
|
STRING F_I_CATVEN 2
|
|
BEGIN
|
|
PROMPT 2 2 "Cat. vendite "
|
|
FIELD LF_SCONTI->CODCAT
|
|
FLAG "U"
|
|
KEY 1
|
|
USE %CVE
|
|
INPUT CODTAB F_I_CATVEN
|
|
DISPLAY "Cat. vend." CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_I_CATVEN CODTAB
|
|
OUTPUT F_I_DESVEN S0
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_I_DESVEN 50
|
|
BEGIN
|
|
PROMPT 24 2 ""
|
|
FLAG "D"
|
|
END
|
|
|
|
STRING F_I_SCCLIENTI 2
|
|
BEGIN
|
|
PROMPT 2 4 "Sconto cliente "
|
|
FIELD LF_SCONTI->CODART[1,2]
|
|
FLAG "U"
|
|
KEY 1
|
|
USE LF_SCONTI
|
|
INPUT TIPO "D" SELECT
|
|
INPUT CODCAT F_I_SCCLIENTI
|
|
DISPLAY "Sc. Cliente" CODCAT
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_I_SCCLIENTI CODCAT
|
|
OUTPUT F_I_DESSCCLI DESCR
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_I_DESSCCLI 50
|
|
BEGIN
|
|
PROMPT 24 4 ""
|
|
FLAG "D"
|
|
END
|
|
|
|
STRING F_I_ZONE 2
|
|
BEGIN
|
|
PROMPT 2 6 "Zona "
|
|
FIELD LF_SCONTI->CODART[3,4]
|
|
FLAG "U"
|
|
KEY 1
|
|
USE %ZON
|
|
INPUT CODTAB F_I_ZONE
|
|
DISPLAY "Zona" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_I_ZONE CODTAB
|
|
OUTPUT F_I_DESZONE S0
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_I_DESZONE 50
|
|
BEGIN
|
|
PROMPT 24 6 ""
|
|
FLAG "D"
|
|
END
|
|
|
|
STRING F_I_CONDPAG 4
|
|
BEGIN
|
|
PROMPT 2 8 "Cond. pagam. "
|
|
FIELD LF_SCONTI->CODART[5,8]
|
|
FLAG "U"
|
|
KEY 1
|
|
USE %CPG
|
|
INPUT CODTAB F_I_CONDPAG
|
|
DISPLAY "Cond. pag." CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_I_CONDPAG CODTAB
|
|
OUTPUT F_I_DESCONPAG S0
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_I_DESCONPAG 50
|
|
BEGIN
|
|
PROMPT 24 8 ""
|
|
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 "
|
|
FIELD LF_SCONTI->SCONTO
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|