75 lines
1.2 KiB
Plaintext
Executable File
75 lines
1.2 KiB
Plaintext
Executable File
#include "mg1500.h"
|
|
PAGE "Stampa lista movimenti" -1 -1 78 18
|
|
|
|
NUMBER F_ANNOES 4
|
|
BEGIN
|
|
FLAGS "A"
|
|
PROMPT 2 9 "Codice esercizio "
|
|
END
|
|
|
|
LISTBOX F_ORDINE 30
|
|
BEGIN
|
|
PROMPT 2 1 "Stampa ordinata per "
|
|
ITEM "D|data di competenza"
|
|
MESSAGE SHOW,1@|HIDE,2@
|
|
ITEM "N|numero di registrazione"
|
|
MESSAGE SHOW,2@|HIDE,1@
|
|
END
|
|
|
|
DATA F_DADATA
|
|
BEGIN
|
|
PROMPT 2 3 "Dalla data "
|
|
USE LF_MOVMAG KEY 4 SELECT ANNOES==#F_ANNOES// KEY 3 for DATAREG
|
|
INPUT DATAREG F_DADATA
|
|
DISPLAY "Esercizio" ANNOES
|
|
DISPLAY "N.@10" NUMREG
|
|
DISPLAY "Data@10" DATAREG
|
|
OUTPUT F_DADATA DATAREG
|
|
GROUP 1
|
|
END
|
|
|
|
DATA F_ADATA
|
|
BEGIN
|
|
PROMPT 2 5 "Alla data "
|
|
COPY USE F_DADATA
|
|
INPUT DATAREG F_ADATA
|
|
COPY DISPLAY F_DADATA
|
|
OUTPUT F_ADATA DATAREG
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_DANUM 7
|
|
BEGIN
|
|
PROMPT 2 3 "dal numero "
|
|
USE LF_MOVMAG KEY 1 SELECT ANNOES=#F_ANNOES
|
|
INPUT NUMREG F_DANUM
|
|
DISPLAY "Esercizio" ANNOES
|
|
DISPLAY "N.@10" NUMREG
|
|
DISPLAY "Data@10" DATAREG
|
|
OUTPUT F_DANUM NUMREG
|
|
GROUP 2
|
|
END
|
|
|
|
STRING F_ANUM 7
|
|
BEGIN
|
|
PROMPT 2 5 "Al numero "
|
|
COPY USE F_DANUM
|
|
INPUT NUMREG F_ANUM
|
|
COPY DISPLAY F_DANUM
|
|
OUTPUT F_ANUM NUMREG
|
|
GROUP 2
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|