#include "cetbccc.h"
#include <deftabap.h>

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

PAGE "Categorie collegate CG" 0 2 0 0

GROUPBOX DLG_NULL 75 5
BEGIN
  PROMPT 1 1 "@BCategorie"
  FLAGS "R"
END

NUMBER F_CODGR 2
BEGIN
  PROMPT 2 2 "Gruppo    "
  FIELD CODTAB[1,2]
  FLAGS "Z"
  KEY 1
  USE %CGR
  INPUT CODTAB F_CODGR
  DISPLAY "Codice gruppo" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODGR CODTAB
  OUTPUT F_DESCGR S0
  CHECKTYPE FORCED 
  MESSAGE EMPTY "",F_DESCGR
END

STRING F_DESCGR 60 50
BEGIN
  PROMPT 20 2 ""
  FLAGS "D"
END

STRING F_CODSP 4
BEGIN
  PROMPT 2 3 "Specie    "
  FIELD CODTAB[3,6]
  FLAGS "_"
  KEY 1
  USE %CAT
  INPUT CODTAB[1,2] F_CODGR
  INPUT CODTAB[3,6] F_CODSP
  DISPLAY "Codice gruppo " CODTAB[1,2]
  DISPLAY "Codice specie " CODTAB[3,6]
  DISPLAY "Descrizione @50" S0
  OUTPUT F_CODGR CODTAB[1,2]
  OUTPUT F_CODSP CODTAB[3,6]
  OUTPUT F_DESCSP S0
  CHECKTYPE FORCED 
  MESSAGE EMPTY "",F_DESCSP 
  VALIDATE REQIF_FUNC 1 F_CODGR
END

STRING F_DESCSP 60 50
BEGIN
  PROMPT 20 3 ""
  FLAGS "D"
END

NUMBER F_CODCAT 2
BEGIN
  PROMPT 2 4 "Categoria "
  FIELD CODTAB[7,8]
  FLAGS "UZ"
  KEY 1
  USE CCC
  JOIN %CAC ALIAS 400 INTO CODTAB==CODTAB
  INPUT CODTAB[1,2] F_CODGR
  INPUT CODTAB[3,6] F_CODSP
  INPUT CODTAB[7,8] F_CODCAT
  DISPLAY "Gruppo" CODTAB[1,2]
  DISPLAY "Specie" CODTAB[3,6]
  DISPLAY "Categoria" CODTAB[7,8]
  DISPLAY "Descrizione@50" 400@->S0
  OUTPUT F_CODGR CODTAB[1,2]
  OUTPUT F_CODSP CODTAB[3,6]
  OUTPUT F_CODCAT CODTAB[7,8]
  OUTPUT F_DESCCAT 400@->S0
  CHECKTYPE REQUIRED
END

NUMBER F_CODCAT_IN 2
BEGIN
  PROMPT 2 4 "Categoria "
  FLAGS "BUZDH"
  KEY 1
  DRIVENBY F_CODGR
  DRIVENBY F_CODSP
  MESSAGE EMPTY COPY,F_CODCAT_IN
  MESSAGE COPY,F_CODCAT
  CHECKTYPE REQUIRED
END

STRING F_DESCCAT 60 50
BEGIN
  PROMPT 20 4 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 74 8
BEGIN
  PROMPT 1 6 "@bConti per attivita'"
  FLAGS "R"
END

TEXT -1
BEGIN
  PROMPT 15 7 "@BGruppo"
END

TEXT -1
BEGIN
  PROMPT 22 7 "@BConto"
END

TEXT -1
BEGIN
  PROMPT 29 7 "@BSottoconto"
END

TEXT -1
BEGIN
  PROMPT 39 7 "@BDescrizione"
END

NUMBER F_IMM_GR 3
BEGIN
  PROMPT 2 8 "Immobilizzo  "
  FIELD S1[1,3]
  FLAGS "Z"
  USE LF_PCON SELECT CONTO=""
  INPUT GRUPPO F_IMM_GR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_IMM_GR GRUPPO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_IMM_CO 3
BEGIN
  PROMPT 22 8 ""
  FIELD S1[4,6]
  FLAGS "Z"
  USE LF_PCON SELECT ((CONTO!="")&&(SOTTOCONTO="")&&((INDBIL==1)||(INDBIL==2)))
  COPY INPUT F_IMM_GR
  INPUT CONTO F_IMM_CO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Ind.Bil." INDBIL
  DISPLAY "Descrizione@50" DESCR
  COPY OUTPUT F_IMM_GR
  OUTPUT F_IMM_CO CONTO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_IMM_SOT 6
BEGIN
  PROMPT 29 8 ""
  FIELD S1[7,12]
  FLAGS "Z"
  USE LF_PCON SELECT SOTTOCONTO!=""
  COPY INPUT F_IMM_CO
  INPUT SOTTOCONTO F_IMM_SOT
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  COPY OUTPUT F_IMM_CO
  OUTPUT F_IMM_SOT SOTTOCONTO
  OUTPUT F_IMM_DES DESCR  
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

STRING F_IMM_DES 50 32
BEGIN
  PROMPT 39 8 ""
  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
  INPUT DESCR F_IMM_DES
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_IMM_SOT
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
END

NUMBER F_FON_GR 3
BEGIN
  PROMPT 2 9 "Fondo        "
  FIELD S1[13,15]
  FLAGS "Z"
  USE LF_PCON SELECT CONTO=""
  INPUT GRUPPO F_FON_GR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_FON_GR GRUPPO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_FON_CO 3
BEGIN
  PROMPT 22 9 ""
  FIELD S1[16,18]
  FLAGS "Z"
  USE LF_PCON SELECT ((CONTO!="")&&(SOTTOCONTO="")&&((INDBIL==1)||(INDBIL==2)))
  COPY INPUT F_FON_GR
  INPUT CONTO F_FON_CO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Ind.Bil." INDBIL
  DISPLAY "Descrizione@50" DESCR
  COPY OUTPUT F_FON_GR
  OUTPUT F_FON_CO CONTO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_FON_SOT 6
BEGIN
  PROMPT 29 9 ""
  FIELD S1[19,24]
  FLAGS "Z"
  USE LF_PCON SELECT SOTTOCONTO!=""
  COPY INPUT F_FON_CO
  INPUT SOTTOCONTO F_FON_SOT
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  COPY OUTPUT F_FON_CO
  OUTPUT F_FON_SOT SOTTOCONTO
  OUTPUT F_FON_DES DESCR  
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

STRING F_FON_DES 50 32
BEGIN
  PROMPT 39 9 ""
  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
  INPUT DESCR F_FON_DES
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_FON_SOT
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
END

NUMBER F_QNOR_GR 3
BEGIN
  PROMPT 2 10 "Amm. Normali "
  FIELD S1[25,27]
  FLAGS "Z"
  USE LF_PCON SELECT CONTO=""
  INPUT GRUPPO F_QNOR_GR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_QNOR_GR GRUPPO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_QNOR_CO 3
BEGIN
  PROMPT 22 10 ""
  FIELD S1[28,30]
  FLAGS "Z"
  USE LF_PCON SELECT ((CONTO!="")&&(SOTTOCONTO="")&&(INDBIL==3))
  COPY INPUT F_QNOR_GR
  INPUT CONTO F_QNOR_CO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Ind.Bil." INDBIL
  DISPLAY "Descrizione@50" DESCR
  COPY OUTPUT F_QNOR_GR
  OUTPUT F_QNOR_CO CONTO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_QNOR_SOT 6
BEGIN
  PROMPT 29 10 ""
  FIELD S1[31,36]
  FLAGS "Z"
  USE LF_PCON SELECT SOTTOCONTO!=""
  COPY INPUT F_QNOR_CO
  INPUT SOTTOCONTO F_QNOR_SOT
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  COPY OUTPUT F_QNOR_CO
  OUTPUT F_QNOR_SOT SOTTOCONTO
  OUTPUT F_QNOR_DES DESCR  
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

STRING F_QNOR_DES 50 32
BEGIN
  PROMPT 39 10 ""
  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
  INPUT DESCR F_QNOR_DES
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_QNOR_SOT
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
END

NUMBER F_QANT_GR 3
BEGIN
  PROMPT 2 11 "Amm. Anticip."
  FIELD S1[37,39]
  FLAGS "Z"
  USE LF_PCON SELECT CONTO=""
  INPUT GRUPPO F_QANT_GR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_QANT_GR GRUPPO
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
END

NUMBER F_QANT_CO 3
BEGIN
  PROMPT 22 11 ""
  FIELD S1[40,42]
  FLAGS "Z"
  USE LF_PCON SELECT ((CONTO!="")&&(SOTTOCONTO="")&&(INDBIL==3))
  COPY INPUT F_QANT_GR
  INPUT CONTO F_QANT_CO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Ind.Bil." INDBIL
  DISPLAY "Descrizione@50" DESCR
  COPY OUTPUT F_QANT_GR
  OUTPUT F_QANT_CO CONTO
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
END

NUMBER F_QANT_SOT 6
BEGIN
  PROMPT 29 11 ""
  FIELD S1[43,48]
  FLAGS "Z"
  USE LF_PCON SELECT SOTTOCONTO!=""
  COPY INPUT F_QANT_CO
  INPUT SOTTOCONTO F_QANT_SOT
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  COPY OUTPUT F_QANT_CO
  OUTPUT F_QANT_SOT SOTTOCONTO
  OUTPUT F_QANT_DES DESCR  
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
END

STRING F_QANT_DES 50 32
BEGIN
  PROMPT 39 11 ""
  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
  INPUT DESCR F_QANT_DES
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_QANT_SOT
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
END

NUMBER F_QACC_GR 3
BEGIN
  PROMPT 2 12 "Amm. Accel.  "
  FIELD S1[49,51]
  FLAGS "Z"
  USE LF_PCON SELECT CONTO=""
  INPUT GRUPPO F_QACC_GR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_QACC_GR GRUPPO
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
END

NUMBER F_QACC_CO 3
BEGIN
  PROMPT 22 12 ""
  FIELD S1[52,54]
  FLAGS "Z"
  USE LF_PCON SELECT ((CONTO!="")&&(SOTTOCONTO="")&&(INDBIL==3))
  COPY INPUT F_QACC_GR
  INPUT CONTO F_QACC_CO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Ind.Bil." INDBIL
  DISPLAY "Descrizione@50" DESCR
  COPY OUTPUT F_QACC_GR
  OUTPUT F_QACC_CO CONTO
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
END

NUMBER F_QACC_SOT 6
BEGIN
  PROMPT 29 12 ""
  FIELD S1[55,60]
  FLAGS "Z"
  USE LF_PCON SELECT SOTTOCONTO!=""
  COPY INPUT F_QACC_CO
  INPUT SOTTOCONTO F_QACC_SOT
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  COPY OUTPUT F_QACC_CO
  OUTPUT F_QACC_SOT SOTTOCONTO
  OUTPUT F_QACC_DES DESCR  
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
END

STRING F_QACC_DES 50 32
BEGIN
  PROMPT 39 12 ""
  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
  INPUT DESCR F_QACC_DES
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_QACC_SOT
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
END

ENDPAGE

ENDMASK