#include "ab0400.h"

PAGE "Riclassificazione" -1 -1 76 17

LIST F_TIPO 20
BEGIN
  PROMPT 2 1 "Tipo di calcolo  "
  ITEM "1|IV Direttiva CEE"
  ITEM "2|Analisi"
END

NUMBER F_ESER 4
BEGIN
  PROMPT 2 3 "Esercizio        "
  HELP "Codice d'esercizio da assegnare"
  FLAGS "ZR"
  USE ESC
  INPUT CODTAB F_ESER
  DISPLAY "Codice esercizio" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio" D1
  DISPLAY "Data di scarico" D2
  DISPLAY "Data chiusura esercizio" D3
  OUTPUT F_ESER CODTAB
  CHECKTYPE NORMAL
END

STRING F_PDB 2
BEGIN
  PROMPT 2 5 "Codice periodo   "
  HELP "Codice della tabella periodi di bilancio"
  FLAGS "U_"
  USE %PDB
  INPUT CODTAB F_PDB
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@40" S0
  DISPLAY "gg.inizio" I0
  DISPLAY "mm.inizio" I1
  DISPLAY "gg.fine" I2
  DISPLAY "mm.fine" I3
  OUTPUT F_PDB CODTAB
  CHECKTYPE NORMAL
END

DATE F_DAL
BEGIN  
  PROMPT 2 7 "Dal              "
END

DATE F_AL
BEGIN  
  PROMPT 2 9 "Al               "
  VALIDATE DATE_CMP_FUNC > F_DAL
  WARNING "La data finale deve essere maggiore alla data iniziale"
END

BOOLEAN F_PROVV
BEGIN
  PROMPT 2 11 "Anche i movimenti provvisori"
END

STRING F_OUTPUT 50 30
BEGIN  
  PROMPT 2 13 "File di output   "
  FSELECT ""
END

BOOLEAN F_CLEAR
BEGIN
  PROMPT 55 13 "Azzera"
END

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

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

ENDPAGE

ENDMASK