#include "ce0400a.h"

TOOLBAR "topbar" 0 0 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" 0 2 0 0

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 1 1 "@bEsercizio/Attivita' corrente"
  FLAGS "R"
END

NUMBER F_DITTA 5
BEGIN
  PROMPT 2 2 "Ditta     "
  FLAGS "DFG"
  USE LF_NDITTE
  INPUT CODDITTA F_DITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 25 2 ""
  FLAGS "D"
END

NUMBER F_ESERCORR 4
BEGIN
   PROMPT 2 3 "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 3 "Data inizio "
   FLAGS "D"
END

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

NUMBER F_GRUPPOCORR 2
BEGIN
  PROMPT 2 4 "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 4 ""
  FLAGS "D"
END

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

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

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

TEXT DLG_NULL
BEGIN
  PROMPT 1 8 "Anno inizio applicazione TUIR"
END

RADIOBUTTON F_ANNOTUIR 30
BEGIN
  FLAGS "Z"
  PROMPT 33 7 ""
  ITEM "1988|1988"
  ITEM "1989|1989"
  FIELD CATSU
END

BOOLEAN F_AMMPROP
BEGIN
  PROMPT 1 9 "Attiva ammortamento proporzionale da entrata in funzione"
  FIELD AMMPROP
END

ENDPAGE

//-----------------------------------------------------------------------------------------------//

PAGE "Campi personalizzati" -1 -1 78 10

SPREADSHEET F_USER
BEGIN
  PROMPT 0 1 "Parametri campi personalizzati"
  ITEM "Nome@10"  
  ITEM "Prompt@20"  
  ITEM "Picture@50"
  ITEM "Ricerca"
END

ENDPAGE

//-----------------------------------------------------------------------------------------------//

PAGE "Collegamento a Contabilita'" -1 -1 78 10

BOOLEAN F_COLLCOGE
BEGIN
  PROMPT 2 0 "Attiva collegamento a contabilita'"
  FIELD COLLCOGE
  MESSAGE FALSE DISABLE,9@
  MESSAGE TRUE ENABLE,9@
END

BOOLEAN F_PLUSMIN
BEGIN
  PROMPT 2 1 "Genera anche movimenti plus/minusvalenza"
  MESSAGE FALSE DISABLE,F_TIPOSCRIT|"X",F_TIPOSCRIT|CLEAR,F_PLUSVAL_GR|CLEAR,F_PLUSVAL_CO|CLEAR,F_PLUSVAL_SO|CLEAR,F_PLUSVAL_D|CLEAR,F_MINUSVAL_GR|CLEAR,F_MINUSVAL_CO|CLEAR,F_MINUSVAL_SO|CLEAR,F_MINUSVAL_D  
  MESSAGE TRUE ENABLE,F_TIPOSCRIT|ENABLE,F_PLUSVAL_GR|ENABLE,F_PLUSVAL_CO|ENABLE,F_PLUSVAL_SO|ENABLE,F_PLUSVAL_D|REQUIRED,F_PLUSVAL_SO|ENABLE,F_MINUSVAL_GR|ENABLE,F_MINUSVAL_CO|ENABLE,F_MINUSVAL_SO|ENABLE,F_MINUSVAL_D|REQUIRED,F_MINUSVAL_SO
  FIELD COPLMN
  GROUP 9
END

RADIOBUTTON F_TIPOSCRIT 1 60
BEGIN
  PROMPT 2 2 "Tipo scrittura per vendita cespite "
  ITEM "|Su Conto Vendite"
    MESSAGE ENABLE,F_VEND_CESP_GR|ENABLE,F_VEND_CESP_CO|ENABLE,F_VEND_CESP_SO|ENABLE,F_VEND_CESP_D
  ITEM "X|Su Conto Cespite"
    MESSAGE CLEAR,F_VEND_CESP_GR|CLEAR,F_VEND_CESP_CO|CLEAR,F_VEND_CESP_SO|CLEAR,F_VEND_CESP_D
  FIELD COR5PM
  FLAGS "Z"
  GROUP 9
END

LIST F_TIPOAMM 15
BEGIN
  PROMPT 2 5 "Tipo ammortamenti   "
  ITEM "1|Fiscali"
  ITEM "2|Civilistici"
  FIELD TPAMM
  GROUP 9
END

LIST F_MOVDETT 50
BEGIN
  PROMPT 2 6 "Dettaglio movimenti "
  ITEM "0|Non dettagliati"
  ITEM "1|Per cespite con conto della categoria"
  ITEM "2|Per cespite con sottoconto = codice cespite"
  FIELD MOVDETT
  GROUP 9
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 7 ""
  FLAGS "R"
END

TEXT -1
BEGIN
  PROMPT 33 8 "@BCod."
END

TEXT -1
BEGIN
  PROMPT 40 8 "@BCausale"
END

STRING F_ELIMCESP 3
BEGIN
  PROMPT 2 9 "Eliminazione cespite           "
  FIELD COAUEL
  USE LF_CAUSALI SELECT ((SOSPESO!="X")&&(TIPODOC=="")&&(COLLCESP==""))
  INPUT CODCAUS F_ELIMCESP
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_ELIMCESP CODCAUS
  OUTPUT F_D_ELIMCESP DESCR
  ADD RUN CG0 -4
  CHECKTYPE REQUIRED
  GROUP 9
END

STRING F_D_ELIMCESP 50 35
BEGIN
  PROMPT 40 9 ""
  USE LF_CAUSALI KEY 2
  INPUT DESCR F_D_ELIMCESP
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODCAUS
  COPY OUTPUT F_ELIMCESP
  ADD RUN CG0 -4
  CHECKTYPE REQUIRED
  GROUP 9
END

STRING F_CHIUCESP 3
BEGIN
  PROMPT 2 10 "Chiusura cespite               "
  FIELD COAUCH
  COPY USE F_ELIMCESP
  INPUT CODCAUS F_CHIUCESP
  COPY DISPLAY F_ELIMCESP
  OUTPUT F_CHIUCESP CODCAUS
  OUTPUT F_D_CHIUCESP DESCR
  ADD RUN CG0 -4
  CHECKTYPE REQUIRED
  GROUP 9
END

STRING F_D_CHIUCESP 50 35
BEGIN
  PROMPT 40 10 ""
  COPY USE F_D_ELIMCESP
  INPUT DESCR F_D_CHIUCESP
  COPY DISPLAY F_D_ELIMCESP
  COPY OUTPUT F_CHIUCESP
  ADD RUN CG0 -4
  CHECKTYPE REQUIRED
  GROUP 9
END

STRING F_RIL_QUOT 3
BEGIN
  PROMPT 2 11 "Rilevazione quote ammortamento "
  FIELD COAUQU
  COPY USE F_ELIMCESP
  INPUT CODCAUS F_RIL_QUOT
  COPY DISPLAY F_ELIMCESP
  OUTPUT F_RIL_QUOT CODCAUS
  OUTPUT F_D_RIL_QUOT DESCR
  ADD RUN CG0 -4
  CHECKTYPE REQUIRED
  GROUP 9
END

STRING F_D_RIL_QUOT 50 35
BEGIN
  PROMPT 40 11 ""
  COPY USE F_D_ELIMCESP
  INPUT DESCR F_D_RIL_QUOT
  COPY DISPLAY F_D_ELIMCESP
  COPY OUTPUT F_RIL_QUOT
  ADD RUN CG0 -4
  CHECKTYPE REQUIRED
  GROUP 9
END

GROUPBOX DLG_NULL 78 7
BEGIN
  PROMPT 1 12 ""
  FLAGS "R"
END

TEXT -1
BEGIN
  PROMPT 25 13 "@BGr."
END

TEXT -1
BEGIN
  PROMPT 31 13 "@BCo."
END

TEXT -1
BEGIN
  PROMPT 37 13 "@BSottoc."
END

TEXT -1
BEGIN
  PROMPT 46 13 "@BDescrizione"
END

NUMBER F_SOPR_PAS_GR 3
BEGIN
  PROMPT 2 14 "Sopravvenienze passive "
  FIELD GRCOTELI
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT CONTO=""
  INPUT GRUPPO F_SOPR_PAS_GR 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_SOPR_PAS_GR GRUPPO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
  GROUP 9
END

NUMBER F_SOPR_PAS_CO 3
BEGIN
  PROMPT 31 14 ""
  FIELD COCOTELI
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
  COPY INPUT F_SOPR_PAS_GR
  INPUT CONTO F_SOPR_PAS_CO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_SOPR_PAS_GR GRUPPO
  OUTPUT F_SOPR_PAS_CO CONTO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
  VALIDATE REQIF_FUNC 1 F_SOPR_PAS_SO
  WARNING "Manca il conto"
  GROUP 9
END

NUMBER F_SOPR_PAS_SO 6
BEGIN
  PROMPT 37 14 ""
  FIELD SOCOTELI
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
  COPY INPUT F_SOPR_PAS_CO
  INPUT SOTTOCONTO F_SOPR_PAS_SO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_SOPR_PAS_SO SOTTOCONTO
  OUTPUT F_SOPR_PAS_GR GRUPPO
  OUTPUT F_SOPR_PAS_CO CONTO
  OUTPUT F_SOPR_PAS_D DESCR
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
  GROUP 9
END

STRING F_SOPR_PAS_D 50 29
BEGIN
  PROMPT 46 14 ""
  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
  INPUT DESCR F_SOPR_PAS_D
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_SOPR_PAS_SO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
  WARNING "Manca la descrizione"
  GROUP 9
END

NUMBER F_PLUSVAL_GR 3
BEGIN
  PROMPT 2 15 "Plusvalenze            "
  FIELD GRCOTPLU
  FLAGS "R"
  COPY USE F_SOPR_PAS_GR
  INPUT GRUPPO F_PLUSVAL_GR 
  COPY DISPLAY F_SOPR_PAS_GR
  OUTPUT F_PLUSVAL_GR GRUPPO
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
  GROUP 9
END

NUMBER F_PLUSVAL_CO 3
BEGIN
  PROMPT 31 15 ""
  FIELD COCOTPLU
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO="")&&(INDBIL==4))
  COPY INPUT F_PLUSVAL_GR
  INPUT CONTO F_PLUSVAL_CO
  COPY DISPLAY F_SOPR_PAS_CO
  OUTPUT F_PLUSVAL_GR GRUPPO
  OUTPUT F_PLUSVAL_CO CONTO
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
  VALIDATE REQIF_FUNC 1 F_PLUSVAL_SO
  WARNING "Manca il conto"
  GROUP 9
END

NUMBER F_PLUSVAL_SO 6
BEGIN
  PROMPT 37 15 ""
  FIELD SOCOTPLU
  FLAGS "R"
  COPY USE F_SOPR_PAS_SO
  INPUT GRUPPO F_PLUSVAL_GR SELECT
  INPUT CONTO F_PLUSVAL_CO SELECT
  INPUT SOTTOCONTO F_PLUSVAL_SO
  COPY DISPLAY F_SOPR_PAS_SO
  OUTPUT F_PLUSVAL_SO SOTTOCONTO
  OUTPUT F_PLUSVAL_GR GRUPPO
  OUTPUT F_PLUSVAL_CO CONTO
  OUTPUT F_PLUSVAL_D DESCR
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
  GROUP 9
END

STRING F_PLUSVAL_D 50 29
BEGIN
  PROMPT 46 15 ""
  USE LF_PCON KEY 2
  INPUT DESCR F_PLUSVAL_D
  COPY DISPLAY F_SOPR_PAS_D
  COPY OUTPUT F_PLUSVAL_SO
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
  WARNING "Manca la descrizione"
  GROUP 9
END

NUMBER F_MINUSVAL_GR 3
BEGIN
  PROMPT 2 16 "Minusvalenze           "
  FIELD GRCOTMIN
  FLAGS "R"
  COPY USE F_SOPR_PAS_GR
  INPUT GRUPPO F_MINUSVAL_GR 
  COPY DISPLAY F_SOPR_PAS_GR
  OUTPUT F_MINUSVAL_GR GRUPPO
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
  GROUP 9
END

NUMBER F_MINUSVAL_CO 3
BEGIN
  PROMPT 31 16 ""
  FIELD COCOTMIN
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO="")&&(INDBIL==3))
  COPY INPUT F_MINUSVAL_GR
  INPUT CONTO F_MINUSVAL_CO
  COPY DISPLAY F_SOPR_PAS_CO
  OUTPUT F_MINUSVAL_GR GRUPPO
  OUTPUT F_MINUSVAL_CO CONTO
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
  VALIDATE REQIF_FUNC 1 F_MINUSVAL_SO
  WARNING "Manca il conto"
  GROUP 9
END

NUMBER F_MINUSVAL_SO 6
BEGIN
  PROMPT 37 16 ""
  FIELD SOCOTMIN
  FLAGS "R"
  COPY USE F_SOPR_PAS_SO
  INPUT GRUPPO F_MINUSVAL_GR SELECT
  INPUT CONTO F_MINUSVAL_CO  SELECT
  INPUT SOTTOCONTO F_MINUSVAL_SO
  COPY DISPLAY F_SOPR_PAS_SO
  OUTPUT F_MINUSVAL_SO SOTTOCONTO
  OUTPUT F_MINUSVAL_GR GRUPPO
  OUTPUT F_MINUSVAL_CO CONTO
  OUTPUT F_MINUSVAL_D DESCR
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
  GROUP 9
END

STRING F_MINUSVAL_D 50 29
BEGIN
  PROMPT 46 16 ""
  USE LF_PCON KEY 2
  INPUT DESCR F_MINUSVAL_D
  COPY DISPLAY F_SOPR_PAS_D
  COPY OUTPUT F_MINUSVAL_SO
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
  WARNING "Manca la descrizione"
  GROUP 9
END

NUMBER F_VEND_CESP_GR 3
BEGIN
  PROMPT 2 17 "Vendite cespiti        "
  FIELD GRCOTVEN
  FLAGS "R"
  COPY USE F_SOPR_PAS_GR
  INPUT GRUPPO F_VEND_CESP_GR 
  COPY DISPLAY F_SOPR_PAS_GR
  OUTPUT F_VEND_CESP_GR GRUPPO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
  GROUP 9
END

NUMBER F_VEND_CESP_CO 3
BEGIN
  PROMPT 31 17 ""
  FIELD COCOTVEN
  FLAGS "R"
  COPY USE F_SOPR_PAS_CO
  COPY INPUT F_VEND_CESP_GR
  INPUT CONTO F_VEND_CESP_CO
  COPY DISPLAY F_SOPR_PAS_CO
  OUTPUT F_VEND_CESP_GR GRUPPO
  OUTPUT F_VEND_CESP_CO CONTO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
  VALIDATE REQIF_FUNC 1 F_VEND_CESP_SO
  WARNING "Manca il conto"
  GROUP 9
END

NUMBER F_VEND_CESP_SO 6
BEGIN
  PROMPT 37 17 ""
  FIELD SOCOTVEN
  FLAGS "R"
  COPY USE F_SOPR_PAS_SO
  COPY INPUT F_VEND_CESP_CO
  INPUT SOTTOCONTO F_VEND_CESP_SO
  COPY DISPLAY F_SOPR_PAS_SO
  OUTPUT F_VEND_CESP_SO SOTTOCONTO
  OUTPUT F_VEND_CESP_GR GRUPPO
  OUTPUT F_VEND_CESP_CO CONTO
  OUTPUT F_VEND_CESP_D DESCR
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
  GROUP 9
END

STRING F_VEND_CESP_D 50 29
BEGIN
  PROMPT 46 17 ""
  USE LF_PCON KEY 2
  INPUT DESCR F_VEND_CESP_D
  COPY DISPLAY F_SOPR_PAS_D
  COPY OUTPUT F_VEND_CESP_SO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
  WARNING "Manca la descrizione"
  GROUP 9
END

ENDPAGE

ENDMASK

//------------------------------------------------------------------------------------------------
//-----------Pagina di riga dello sheet----------------------//

PAGE "File personalizzato" -1 -1 66 10

STRING F_NAME_USER 10
BEGIN
  PROMPT 1 1 "Nome    "
  FIELD USER_NAME
  FLAGS "BU"
  CHECKTYPE REQUIRED
END

STRING F_PROMPT_USER 20
BEGIN
  PROMPT 1 2 "Prompt  "
  FIELD USER_PROMPT
END

STRING F_PICTURE_USER 50
BEGIN
  PROMPT 1 3 "Picture "
  FIELD USER_PICTURE
  FLAGS "U"
END

BOOLEAN F_SEARCH_USER
BEGIN
  PROMPT 1 4 "Campo di ricerca"
  FIELD USER_SEARCH
END

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

BUTTON DLG_DELREC 10 2
BEGIN
 PROMPT -23 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN 
 PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK