146 lines
2.4 KiB
Plaintext
146 lines
2.4 KiB
Plaintext
|
#include "pd0300100a.h"
|
||
|
|
|
||
|
|
TOOLBAR "" 0 -2 0 2
|
||
|
|
|
||
|
|
BUTTON DLG_ELABORA 10 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -14 -11 "~Elabora"
|
||
|
|
PICTURE BMP_ELABORA
|
||
|
|
END
|
||
|
|
|
||
|
|
BUTTON DLG_SAVEREC 10 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -24 -11 "~Registra"
|
||
|
|
PICTURE BMP_SAVEREC
|
||
|
|
PICTURE BMP_SAVERECDN
|
||
|
|
END
|
||
|
|
|
||
|
|
BUTTON DLG_PRINT 10 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -34 -11 ""
|
||
|
|
FLAGS "D"
|
||
|
|
GROUP 4
|
||
|
|
END
|
||
|
|
|
||
|
|
BUTTON DLG_QUIT 10 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -44 -11 "~Fine"
|
||
|
|
MESSAGE EXIT,K_ENTER
|
||
|
|
PICTURE BMP_QUIT
|
||
|
|
PICTURE BMP_QUITDN
|
||
|
|
END
|
||
|
|
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
PAGE "Valorizzazione" 0 0 80 19
|
||
|
|
|
||
|
|
GROUPBOX DLG_NULL 74 4
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 1 "@bSelezione"
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_DIST_FROM 20
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 2 "Da codice "
|
||
|
|
FLAGS "U"
|
||
|
|
USE LF_DIST
|
||
|
|
JOIN LF_ANAMAG INTO CODART==CODDIST
|
||
|
|
INPUT CODDIST F_DIST_FROM
|
||
|
|
DISPLAY "Codice@20" CODDIST
|
||
|
|
DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
|
||
|
|
OUTPUT F_DIST_FROM CODDIST
|
||
|
|
CHECKTYPE SEARCH
|
||
|
|
ADD RUN DB0 -4
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_DIST_TO 20
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 3 "A codice "
|
||
|
|
FLAGS "U"
|
||
|
|
USE LF_DIST
|
||
|
|
JOIN LF_ANAMAG INTO CODART==CODDIST
|
||
|
|
INPUT CODDIST F_DIST_TO
|
||
|
|
DISPLAY "Codice@20" CODDIST
|
||
|
|
DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
|
||
|
|
OUTPUT F_DIST_TO CODDIST
|
||
|
|
CHECKTYPE SEARCH
|
||
|
|
ADD RUN DB0 -4
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_CODMAG 3
|
||
|
|
BEGIN
|
||
|
|
FLAGS "U"
|
||
|
|
PROMPT 38 2 "Magazzino "
|
||
|
|
USE MAG SELECT CODTAB[4,5]=""
|
||
|
|
INPUT CODTAB F_CODMAG
|
||
|
|
DISPLAY "Magazzino" CODTAB
|
||
|
|
DISPLAY "Descrizione@50" S0
|
||
|
|
OUTPUT F_CODMAG CODTAB
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_CODDEP 2
|
||
|
|
BEGIN
|
||
|
|
FLAGS "U"
|
||
|
|
PROMPT 38 3 "Deposito "
|
||
|
|
USE MAG
|
||
|
|
INPUT CODTAB[1,3] F_CODMAG
|
||
|
|
INPUT CODTAB[4,5] F_CODDEP
|
||
|
|
DISPLAY "Magazzino" CODTAB[1,3]
|
||
|
|
DISPLAY "Deposito" CODTAB[4,5]
|
||
|
|
DISPLAY "Descrizione@50" S0
|
||
|
|
OUTPUT F_CODMAG CODTAB[1,3]
|
||
|
|
OUTPUT F_CODDEP CODTAB[4,5]
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
END
|
||
|
|
|
||
|
|
GROUPBOX DLG_NULL 34 4
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 5 "@bParametri in ingresso"
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_ANNOES 4
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 6 "Anno esercizio "
|
||
|
|
FLAGS "ZA"
|
||
|
|
USE ESC
|
||
|
|
INPUT CODTAB F_ANNOES
|
||
|
|
DISPLAY "Codice esercizio" CODTAB
|
||
|
|
DISPLAY "Inizio esercizio" D0
|
||
|
|
DISPLAY "Fine esercizio" D1
|
||
|
|
OUTPUT F_ANNOES CODTAB
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_SCONTO 6 3
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 7 "Sconto "
|
||
|
|
WARNING "Indicare lo sconto "
|
||
|
|
END
|
||
|
|
|
||
|
|
GROUPBOX DLG_NULL 34 4
|
||
|
|
BEGIN
|
||
|
|
PROMPT 41 5 "@bParametri in uscita"
|
||
|
|
END
|
||
|
|
|
||
|
|
LIST F_VALORIZZA 1 16
|
||
|
|
BEGIN
|
||
|
|
PROMPT 42 6 "Valorizza "
|
||
|
|
ITEM "0|Costo standard"
|
||
|
|
ITEM "1|Ultimo costo"
|
||
|
|
ITEM "2|Prezzo vendita"
|
||
|
|
END
|
||
|
|
|
||
|
|
DATE F_DATA
|
||
|
|
BEGIN
|
||
|
|
PROMPT 42 7 "Data elaborazione "
|
||
|
|
FLAGS "A"
|
||
|
|
END
|
||
|
|
|
||
|
|
BROWSEFILE F_PREVIEW 0 -1
|
||
|
|
BEGIN
|
||
|
|
PROMPT 0 8 ""
|
||
|
|
END
|
||
|
|
|
||
|
|
ENDMASK
|