#include "ce0400a.h"

TOOLBAR "" 0 -2 0 2

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

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

ENDPAGE

PAGE "Parametri Ditta" -1 -1 78 10

DATE F_DATACONS
BEGIN
  PROMPT 1 1 "Data conseguimento primi ricavi "
  FIELD CADTR
END

RADIOBUTTON F_ANNOTUIR 30
BEGIN
  FLAGS "Z"
  PROMPT 1 3 "Anno inizio applicazione TUIR"
  ITEM "0|1988"
  ITEM "1|1989"
  FIELD CATSU
END

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 1 6 "Esercizio/Attivita' corrente"
  FLAGS "R"
END


NUMBER F_ESERCORR 4
BEGIN
   PROMPT 2 7 "Esercizio "
   FIELD CODESCORR
   FLAGS "Z"
   USE CCE
   JOIN ESC ALIAS 105 INTO CODTAB==CODTAB
   INPUT CODTAB F_ESERCORR
   DISPLAY "Codice esercizio" CODTAB 
   DISPLAY "Data inizio" 105@->D0
   DISPLAY "Data fine@10" 105@->D1
   OUTPUT F_ESERCORR CODTAB
   OUTPUT F_DATAINIZIO 105@->D0
   OUTPUT F_DATAFINE 105@->D1
   CHECKTYPE REQUIRED
END

DATE F_DATAINIZIO 
BEGIN
   PROMPT 20 7 "Data inizio "
   FLAGS "D"
END

DATE F_DATAFINE
BEGIN
   PROMPT 45 7 "Data fine "
   FLAGS "D"
END

NUMBER F_GRUPPOCORR 2
BEGIN
  PROMPT 2 8 "Gruppo "
  FIELD GRUPPOCORR
  FLAGS "Z"
  USE CCB KEY 1        
  JOIN %CGR ALIAS 106 INTO CODTAB==CODTAB[5,6]
  JOIN %CAT ALIAS 107 INTO CODTAB==CODTAB[5,10]
  INPUT CODTAB[1,4] F_ESERCORR SELECT
  INPUT CODTAB[5,6] F_GRUPPOCORR
  INPUT CODTAB[7,10] F_SPECIECORR
  DISPLAY "Gruppo" CODTAB[5,6]    
  DISPLAY "Specie" CODTAB[7,10]
  DISPLAY "Descrizione@60" 107@->S0
  OUTPUT F_GRUPPOCORR CODTAB[5,6]
  OUTPUT F_D_GRUPPOCORR 106@->S0 
  OUTPUT F_SPECIECORR CODTAB[7,10]
  OUTPUT F_D_SPECIECORR 107@->S0
  CHECKTYPE NORMAL   
END

STRING F_D_GRUPPOCORR 60 58
BEGIN
   PROMPT 17 8 ""
   FLAGS "D"
END

STRING F_SPECIECORR 4
BEGIN
   PROMPT 2 9 "Specie "
   FIELD SPECIECORR
   FLAGS "_"
   COPY ALL F_GRUPPOCORR
   CHECKTYPE NORMAL
END

STRING F_D_SPECIECORR 60 58
BEGIN
   PROMPT 17 9 ""
   FLAGS "D"
END