#include "ri0400a.h"

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

TOOLBAR "bottombar" 0 -1 0 1

STRING DLG_PROFILE 50
BEGIN
  PROMPT 1 -1 "Profilo "
  PSELECT
END

ENDPAGE

PAGE "Riclassificazione" 0 2 0 0

LIST F_TIPORICL 2 17
BEGIN
  PROMPT 2 2 "Tipo          "
  ITEM "RI|Riclassificazione" MESSAGE ENABLE,F_RICL|"",F_RICL
  ITEM "TS|TeamSystem" MESSAGE DISABLE,F_RICL|"CONTI",F_RICL
  ITEM "ZU|Zucchetti" MESSAGE DISABLE,F_RICL|"CONTI",F_RICL
  FIELD TRICL
END

STRING F_RICL 7
BEGIN
  PROMPT 2 3 "Codice        "
  USE &RIC
  INPUT CODTAB F_RICL
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_RICL CODTAB
  OUTPUT F_DESCRR S0
  CHECKTYPE NORMAL
  FIELD RICL
  FLAGS "U"
END

STRING F_DESCRR 50
BEGIN
  PROMPT 29 3 ""
  USE &RCO KEY 2
  INPUT S0 F_DESCRR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_RICL
  CHECKTYPE NORMAL
END

NUMBER F_ESER 4
BEGIN
  PROMPT 2 4 "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_PER 2
BEGIN
  PROMPT 2 5 "Codice periodo"
  HELP "Codice della tabella periodi"
  FLAGS "UZ"
  USE &PER
  INPUT CODTAB F_PER
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@40" S0
  DISPLAY "Giorni" I0
  DISPLAY "Settimane" I1
  DISPLAY "Mesi" I2
  DISPLAY "Anni" I3
  OUTPUT F_PER CODTAB
  OUTPUT F_DESCRP S0
  CHECKTYPE NORMAL
  FIELD PER
END

STRING F_DESCRP 70 50
BEGIN
  PROMPT 29 5 ""
  HELP "Descrizione del codice tabella periodi di bilancio"
  USE &PER KEY 2
  INPUT S0 F_DESCRP
  DISPLAY "Descrizione@40" S0
  DISPLAY "Codice" CODTAB
  DISPLAY "Giorni" I0
  DISPLAY "Settimane" I1
  DISPLAY "Mesi" I2
  DISPLAY "Anni" I3  
  COPY OUTPUT F_PER
  CHECKTYPE NORMAL
END

NUMBER F_NPER 2
BEGIN
  PROMPT 2 6 "Numero periodi"
  FIELD NPER
END

DATE F_DAL
BEGIN  
  PROMPT 2 7 "Dal           "
  FIELD DAL
END

DATE F_AL
BEGIN  
  PROMPT 29 7 "Al            "
  FLAGS "D"
  WARNING "La data finale deve essere maggiore alla data iniziale"
END

BOOLEAN F_STRUCT
BEGIN
  PROMPT 2 8 "Intera struttura"
  FIELD ALL
END

BOOLEAN F_PROVV
BEGIN
  PROMPT 29 8 "Anche i movimenti provvisori"
  FIELD PROVV
END

BOOLEAN F_PROG
BEGIN
  PROMPT 2 9 "Progessivi"
  FIELD PROG
END

LIST F_TIPOCOL 2 14
BEGIN
  PROMPT 2 10 "Esporta       "
  ITEM "0|Saldi"
  ITEM "1|Tutti i valori"
  FIELD COLTYPE
END

STRING F_OUTPUT 50 30
BEGIN  
  PROMPT 2 12 "Output        "
  CHECKTYPE REQUIRED
  FSELECT ""
END

ENDPAGE
ENDMASK