campo-sirio/cg/cg3800a.uml

#include "cg3800a.h"

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

PAGE "Stampa lista fatture doppie" 0 2 0 0
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

ENDPAGE

ENDMASK