107 lines
1.8 KiB
Plaintext
107 lines
1.8 KiB
Plaintext
|
#include "ps0430500a.h"
|
|||
|
|
|
|||
|
|
PAGE "Generazione rimanenze finali" -1 -1 60 9
|
|||
|
|
|
|||
|
|
LIST F_SOCIETA 1 20
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 0 "Societ<65> "
|
|||
|
|
ITEM "1|Il Cigno"
|
|||
|
|
ITEM "2|Team Service"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
GROUPBOX DLG_NULL 56 4
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 1 "@bRimanenze finali"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING F_CODCAUS_FIN 3
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 2 "Causale "
|
|||
|
|
USE LF_CAUSALI SELECT (REG="")&&(TIPOMOV="")&&(MOVAP="")&&(MOVIND!="")
|
|||
|
|
INPUT CODCAUS F_CODCAUS_FIN
|
|||
|
|
DISPLAY "Codice" CODCAUS
|
|||
|
|
DISPLAY "Descrizione@50" DESCR
|
|||
|
|
OUTPUT F_CODCAUS_FIN CODCAUS
|
|||
|
|
OUTPUT F_DESCAUS_FIN DESCR
|
|||
|
|
ADD RUN cg0 -4
|
|||
|
|
CHECKTYPE REQUIRED
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING F_DESCAUS_FIN 50
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 3 ""
|
|||
|
|
USE LF_CAUSALI KEY 2 SELECT (REG="")&&(TIPOMOV="")&&(MOVAP="")&&(MOVIND!="")
|
|||
|
|
INPUT CODCAUS F_CODCAUS_FIN
|
|||
|
|
DISPLAY "Descrizione@50" DESCR
|
|||
|
|
DISPLAY "Codice" CODCAUS
|
|||
|
|
COPY OUTPUT F_CODCAUS_FIN
|
|||
|
|
ADD RUN cg0 -4
|
|||
|
|
CHECKTYPE REQUIRED
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
DATE F_DATAREG_FIN
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 37 2 "Data "
|
|||
|
|
CHECKTYPE REQUIRED
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
GROUPBOX DLG_NULL 56 4
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 5 "@bRimanenze iniziali"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING F_CODCAUS_INI 3
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 6 "Causale "
|
|||
|
|
COPY USE F_CODCAUS_FIN
|
|||
|
|
INPUT CODCAUS F_CODCAUS_INI
|
|||
|
|
COPY DISPLAY F_CODCAUS_FIN
|
|||
|
|
OUTPUT F_CODCAUS_INI CODCAUS
|
|||
|
|
OUTPUT F_DESCAUS_INI DESCR
|
|||
|
|
ADD RUN cg0 -4
|
|||
|
|
CHECKTYPE REQUIRED
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING F_DESCAUS_INI 50
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 7 ""
|
|||
|
|
COPY USE F_DESCAUS_FIN
|
|||
|
|
INPUT CODCAUS F_CODCAUS_INI
|
|||
|
|
COPY DISPLAY F_DESCAUS_FIN
|
|||
|
|
COPY OUTPUT F_CODCAUS_INI
|
|||
|
|
ADD RUN cg0 -4
|
|||
|
|
CHECKTYPE REQUIRED
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
DATE F_DATAREG_INI
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 37 6 "Data "
|
|||
|
|
FLAGS "A"
|
|||
|
|
CHECKTYPE REQUIRED
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
STRING DLG_PROFILE 256 50
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 4 "Profilo "
|
|||
|
|
PSELECT
|
|||
|
|
FLAGS "H"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
ENDPAGE
|
|||
|
|
|
|||
|
|
TOOLBAR "" 0 0 0 2
|
|||
|
|
|
|||
|
|
BUTTON DLG_SAVEREC 2 2
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 1 "Ricalcola"
|
|||
|
|
PICTURE TOOL_SAVEREC
|
|||
|
|
MESSAGE RUN,mg1,-2
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
#include <elabar.h>
|
|||
|
|
|
|||
|
|
ENDPAGE
|
|||
|
|
|
|||
|
|
ENDMASK
|