#include "cg3800a.h"

PAGE "Stampa lista fatture doppie" -1 -1 64 8

GROUPBOX DLG_NULL 62 4
BEGIN
  PROMPT 1 0 "@bDitta"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 1 "Codice   "
  FLAGS "DFR"
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 2 2 "Rag.Soc. "
  FLAGS "D"
END

DATE F_DADATA
BEGIN
  PROMPT 2 4 "Dal "
  CHECKTYPE REQUIRED
END

DATE F_ADATA
BEGIN
  PROMPT 2 5 "Al  "
  VALIDATE DATE_CMP_FUNC >= F_DADATA
  WARNING "Data finale non valida"
END

BUTTON DLG_PRINT 10 2
BEGIN
  PROMPT -12 -1 ""
  MESSAGE EXIT,K_ENTER
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE
ENDMASK