68 lines
1.1 KiB
Plaintext
Executable File
68 lines
1.1 KiB
Plaintext
Executable File
#include "cg2200.h"
|
|
|
|
PAGE "Eliminazione Movimenti Provvisori" -1 -1 42 9
|
|
|
|
GROUPBOX DLG_NULL 40 3
|
|
BEGIN
|
|
PROMPT 1 1 "Dal movimento"
|
|
END
|
|
|
|
DATE F_FROMDATE
|
|
BEGIN
|
|
PROMPT 2 2 "Data "
|
|
HELP "Data del primo movimento provvisorio da eliminare"
|
|
USE LF_MOV KEY 2 SELECT PROVVIS="P"
|
|
INPUT DATAREG F_FROMDATE
|
|
INPUT NUMREG F_FROMREG
|
|
DISPLAY "Data@10" DATAREG
|
|
DISPLAY "Numero@6" NUMREG
|
|
DISPLAY "Causale" CODCAUS
|
|
DISPLAY "Documento" NUMDOC
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_FROMDATE DATAREG
|
|
OUTPUT F_FROMREG NUMREG
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_FROMREG 5
|
|
BEGIN
|
|
PROMPT 22 2 "Operazione "
|
|
FLAGS "DR"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 40 3
|
|
BEGIN
|
|
PROMPT 1 4 "Al movimento"
|
|
HELP "Data dell'ultimo movimento provvisorio da eliminare"
|
|
END
|
|
|
|
DATE F_TODATE
|
|
BEGIN
|
|
PROMPT 2 5 "Data "
|
|
COPY USE F_FROMDATE
|
|
INPUT DATAREG F_TODATE
|
|
INPUT NUMREG F_TOREG
|
|
COPY DISPLAY F_FROMDATE
|
|
OUTPUT F_TODATE DATAREG
|
|
OUTPUT F_TOREG NUMREG
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_TOREG 5
|
|
BEGIN
|
|
PROMPT 22 5 "Operazione "
|
|
FLAGS "DR"
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|