campo-sirio/cg/cg4100b.uml

#define FLD_CG41_YEAR 100

PAGE "Ricalcolo Saldi" -1 -1 47 10

TEXT DLG_NULL
BEGIN
  PROMPT 16 1 "ATTENZIONE"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 3 "Il ricalcolo degli saldi puo' richiedere"
END

TEXT DLG_NULL
BEGIN
  PROMPT 3 4 "tempo. Siate certi di voler proseguire."
END

NUMBER FLD_CG41_YEAR 4
BEGIN
  PROMPT 3 6 "Codice esercizio "
  USE ESC
  INPUT CODTAB FLD_CG41_YEAR
  DISPLAY "Codice Esercizio" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio  " D1
  OUTPUT FLD_CG41_YEAR CODTAB
  CHECKTYPE REQUIRED
  FLAGS "Z"
  HELP "Codice esercizio per il quale si desidera il ricalcolo dei saldi"
  WARNING "Il codice esercizio e' obbligatorio"
  ADD RUN cg0 -5 esc
END


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

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

ENDPAGE
ENDMASK