#include "cg3400a.h"

PAGE "" -1 -1 70 15

STRING REG_COD 3
BEGIN
	PROMPT 1 1 "Codice registro "
	FLAGS "U"
	USE REG SELECT (I0 = 5) || (I0 = 4)
	INPUT CODTAB[1,4] ANNO_ESER SELECT
	INPUT CODTAB[5,7] REG_COD
	DISPLAY "Anno" CODTAB[1,4]
	DISPLAY "Codice" CODTAB[5,7]
	DISPLAY "Descrizione@50" S0
	DISPLAY "Tipo" I0
	OUTPUT ANNO_ESER CODTAB[1,4]
	OUTPUT REG_COD CODTAB[5,7]
	OUTPUT REG_DESC S0
	OUTPUT PAGINA_DA I1
//        OUTPUT DATA_DA D0
        OUTPUT DATA_A D1
	CHECKTYPE NORMAL
END

NUMBER ANNO_ESER 4
BEGIN
	PROMPT 30 1 "Esercizio "
	USE ESC
	INPUT CODTAB ANNO_ESER
	DISPLAY "Anno" CODTAB
	DISPLAY "Data inizio " D0
	DISPLAY "Data fine   " D1
	DISPLAY "Data scarico" D2
	OUTPUT ANNO_ESER CODTAB
	CHECKTYPE REQUIRED
	FLAGS "A"
END

STRING REG_DESC 50
BEGIN
	PROMPT 1 3 "Descrizione: "
	FLAGS "D"
END

GROUPBOX DLG_NULL 25 5
BEGIN
	PROMPT 1 5 "Intervallo"
END

RADIOBUTTON DLG_NULL 20
BEGIN
	PROMPT 1 5 ""
	ITEM "1|Tutto"     MESSAGE DISABLE, PAGINA_DA
	ITEM "2|Da pagina" MESSAGE ENABLE, PAGINA_DA
END

NUMBER PAGINA_DA 5
BEGIN
	PROMPT 13 8 ""
END

GROUPBOX DLG_NULL 33 5
BEGIN
  PROMPT 33 5 "Formato pagina"
END

LISTBOX STAMPA_WIDTH 3
BEGIN
  PROMPT 35 6 "Numero di colonne "
  ITEM "1|132 colonne"
  ITEM "2|198 colonne"
END

NUMBER STAMPA_LEN 3
BEGIN
  PROMPT 35 7 "Numero di righe   "
END

DATE DATA_DA
BEGIN
  PROMPT 2 10 "Dalla data "
END

DATE DATA_A
BEGIN
  PROMPT 2 11 "Alla data  "
  VALIDATE DATE_CMP_FUNC >= DATA_DA
  WARNING "Questa data deve essere posteriore alla precedente"
  CHECKTYPE REQUIRED
END

BOOLEAN STAMPA_DEF
BEGIN
	PROMPT 34 10 "Stampa definitiva"
  MESSAGE TRUE  DISABLE,DATA_DA
  MESSAGE FALSE ENABLE,DATA_DA
END

BUTTON DLG_OK 9 2
BEGIN
 PROMPT -12 -1 ""
END

BUTTON DLG_CANCEL 9 2
BEGIN
 PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK