#include "batbpdb.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Tabella periodi di bilancio" 0 -1 0 19

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

STRING F_CODTAB 2
BEGIN
  PROMPT 2 1 "Codice tabella "
  HELP "Codice della tabella periodi di bilancio"
  FLAS "U_"
  FIELD %PDB->CODTAB
  KEY 1
  USE %PDB KEY 1 
  INPUT CODTAB F_CODTAB
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@40" S0
  DISPLAY "Inizio" I0
  DISPLAY "@2" I1
  DISPLAY "Fine" I2
  DISPLAY "@2" I3
  OUTPUT F_CODTAB CODTAB
  OUTPUT F_DESCR S0
  CHECKTYPE REQUIRED
END

STRING F_DESCR 50
BEGIN
  PROMPT 2 2 "Descrizione    "
  HELP "Descrizione del codice tabella periodi di bilancio"
  KEY 2
  USE %PDB KEY 2
  INPUT S0 F_DESCR
  DISPLAY "Descrizione@40" S0
  DISPLAY "Codice" CODTAB
  DISPLAY "Inizio" I0
  DISPLAY "@2" I1
  DISPLAY "Fine" I2
  DISPLAY "@2" I3
  COPY OUTPUT F_CODTAB
  CHECKTYPE REQUIRED
  FIELD %PDB->S0
END

NUMBER F_GIORNO_INI 2
BEGIN
  PROMPT 2 5 "Inizio periodo "
  HELP "Inserire il giorno relativo al periodo di inizio"
  FIELD %PDB->I0
  FLAGS "R"
  CHECKTYPE REQUIRED
END

NUMBER F_MESE_INI 2
BEGIN
  PROMPT 21 5 ""
  HELP "Inserire il mese relativo al periodo di inizio"
  FIELD %PDB->I1
  FLAGS "R"
  CHECKTYPE REQUIRED
END                       

TEXT DLG_NULL
BEGIN
  PROMPT 25 5 "gg/mm"
END
                
NUMBER F_GIORNO_FINE 2
BEGIN
  PROMPT 2 7 "Fine periodo   "
  HELP "Inserire il giorno relativo alla fine del periodo"
  FIELD %PDB->I2
  FLAGS "R"
  CHECKTYPE REQUIRED
END
                
NUMBER F_MESE_FINE 2
BEGIN
  PROMPT 21 7 ""
  HELP "Inserire il mese relativo alla fine del periodo"
  FIELD %PDB->I3
  FLAGS "R"
  CHECKTYPE REQUIRED
END

TEXT DLG_NULL
BEGIN
  PROMPT 25 7 "gg/mm"
END
                
STRING F_DESCRAGG 50
BEGIN
  PROMPT 2 9 "Descrizione    "
  FLAGS "D"
  FIELD %PDB->S1
END

ENDPAGE

ENDMASK