PAGE "Bilancio di Budget" -1 -1 52 9

NUMBER 101 4
BEGIN
  PROMPT 1 1 "Esercizio       "
  USE ESC
  INPUT CODTAB 101
  DISPLAY "Codice Esercizio" CODTAB
  DISPLAY "Inizio Esercizio" D0
  DISPLAY "Fine Esercizio  " D1
  OUTPUT 101 CODTAB
  OUTPUT 102 D0
  OUTPUT 103 D1
  CHEKCTYPE REQUIRED
END

DATE 102
BEGIN
  PROMPT 27 1 ""
  FLAGS "D"
  FIELD DATAINI
END

DATE 103
BEGIN
  PROMPT 39 1 ""
  FLAGS "D"
  FIELD DATAFIN
END

DATE 104
BEGIN
  PROMPT 1 2 "Data stampa     "
  FIELD DATASTA
  CHECKTYPE REQUIRED
  STR_EXPR BETWEEN(#104,#102,#103)
  WARNING "Data non compresa nell'anno selezionato"
END

STRING 105 20
BEGIN
  PROMPT 1 3 "Centro di Costo "
  USE 146
  INPUT CODCOSTO 105
  DISPLAY "Centro di Costo@20" CODCOSTO
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT 105 CODCOSTO
  CHECKTYPE NORMAL
  FIELD CODCOSTO
END


BUTTON 1 10 2
BEGIN
  PROMPT -12 -1 ""
END

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

ENDPAGE

ENDMASK