#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