d0ab8cc457
Files correlati : Ricompilazione Demo : [ ] Commento : riportata la versione 98.01.05 patch 34 git-svn-id: svn://10.65.10.50/trunk@7409 c028cbd2-c16b-5b4b-a496-9718f37d4682
120 lines
1.9 KiB
Plaintext
Executable File
120 lines
1.9 KiB
Plaintext
Executable File
#include "db2400a.h"
|
|
|
|
TOOLBAR "" 0 19 0 0
|
|
|
|
BUTTON DLG_ELABORA 10 2
|
|
BEGIN
|
|
PROMPT -13 -11 "~Elabora"
|
|
PICTURE BMP_ELABORA
|
|
END
|
|
|
|
BUTTON DLG_SAVEREC 10 2
|
|
BEGIN
|
|
PROMPT -23 -11 "~Registra"
|
|
PICTURE BMP_SAVEREC
|
|
PICTURE BMP_SAVERECDN
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -33 -11 "~Fine"
|
|
MESSAGE EXIT,K_ENTER
|
|
PICTURE BMP_QUIT
|
|
PICTURE BMP_QUITDN
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Valorizzazione" 0 0 80 19
|
|
|
|
GROUPBOX DLG_NULL 34 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 -0
|
|
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 -0
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 34 4
|
|
BEGIN
|
|
PROMPT 1 6 "@bParametri in ingresso"
|
|
END
|
|
|
|
LIST F_TIPO 1 22
|
|
BEGIN
|
|
PROMPT 2 7 "Tipo "
|
|
ITEM "0|Ultimo costo"
|
|
ITEM "1|Media costi"
|
|
ITEM "2|Prezzo listino"
|
|
ITEM "3|Costo standard"
|
|
ITEM "4|Costo medio"
|
|
ITEM "5|Costo medio ponderato"
|
|
ITEM "6|LIFO annuale"
|
|
ITEM "7|FIFO annuale"
|
|
ITEM "8|LIFO"
|
|
ITEM "9|FIFO"
|
|
END
|
|
|
|
NUMBER F_ANNOES 4
|
|
BEGIN
|
|
PROMPT 2 8 "Anno esercizio "
|
|
FLAGS "Z"
|
|
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
|
|
|
|
GROUPBOX DLG_NULL 34 4
|
|
BEGIN
|
|
PROMPT 1 11 "@bParametri in uscita"
|
|
END
|
|
|
|
LIST F_VALORIZZA 1 16
|
|
BEGIN
|
|
PROMPT 2 12 "Valorizza "
|
|
ITEM "0|Costo standard"
|
|
ITEM "1|Ultimo costo"
|
|
END
|
|
|
|
DATE F_DATA
|
|
BEGIN
|
|
PROMPT 2 13 "Data elaborazione "
|
|
FLAGS "A"
|
|
END
|
|
|
|
BROWSEFILE F_PREVIEW 42 -1
|
|
BEGIN
|
|
PROMPT 36 1 ""
|
|
END
|
|
|
|
ENDMASK
|