#include "cg0800a.h"

#define  EXPORT_EXCEL
#define  EXPORT_PDF
#define  EXPORT_TEXT
#define  REPORT
#define  CLASS_NAME "cg0800a"

TOOLBAR "topbar" 0 0 0 2
#include <aprintbar.h>
ENDPAGE

TOOLBAR "bottombar" 0 -3 0 1
#include <bprintbar.h>
ENDPAGE

PAGE "Stampa Riepilogo IVA" -1 -1 62 5

GROUPBOX DLG_NULL 74 3
BEGIN
  PROMPT 1 0 ""
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 1 "Ditta "
  FLAGS "FRD"
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 15 1 "Ragione "
  FLAGS "D"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 3 "Anno      "
  FLAGS "AP"
  CHECKTYPE REQUIRED
END

LIST F_DAMESE 20
BEGIN
  PROMPT 2 5 "Da mese   "
	ITEM "13|13a liquid."
  FLAGS "MP"
	MESSAGE COPY,F_AMESE
END

LIST F_AMESE 20
BEGIN
  PROMPT 35 5 " A mese   "
	ITEM "13|13a liquid."
  FLAGS "MP"
	WARINIG "Il mese di inizio non puņ essere successico al mese di fine"
	VALIDATE F_DAMESE<=F_AMESE
END

ENDPAGE

ENDMASK