campo-sirio/ce/ce2300b.uml

#include "ce2300a.h"

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

PAGE "Collegamento Contabilità" 0 2 0 0

GROUPBOX DLG_NULL 78 10
BEGIN
  PROMPT 0 1 "@bParametri ditta"
END

NUMBER F_DITTA 5
BEGIN
  PROMPT 1 2 "Ditta     "
  FLAGS "DF"
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 26 2 ""
  USE LF_NDITTE
  INPUT CODDITTA F_DITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
  FLAGS "D"
END

NUMBER F_ESERCIZIO 4
BEGIN
  PROMPT 1 3 "Esercizio "
  FLAGS "AZD"
  USE CCE
  JOIN ESC ALIAS 104 INTO CODTAB==CODTAB
  INPUT CODTAB F_ESERCIZIO
  DISPLAY "Codice esercizio" CODTAB
  DISPLAY "Inizio esercizio" 104@->D0
  DISPLAY "Fine esercizio" 104@->D1
  OUTPUT F_ESERCIZIO CODTAB
  OUTPUT F_INIZIO_ES 104@->D0
  OUTPUT F_FINE_ES 104@->D1
END

DATE F_INIZIO_ES
BEGIN
  PROMPT 26 3 "Inizio "
  FLAGS "D"
END

DATE F_FINE_ES
BEGIN
  PROMPT 50 3 "Fine "
  FLAGS "D"
END

NUMBER F_GRUPPO 2
BEGIN
  PROMPT 1 4 "Gruppo    "
  FLAGS "PZD"
  FIELD CODGRUPPO
  KEY 1
END

STRING F_SPECIE 4
BEGIN
  PROMPT 16 4 "Specie "
  FLAGS "_PD"
  USE CCB 
  JOIN %CAT ALIAS 400 INTO CODTAB=CODTAB[5,10]
  INPUT CODTAB[1,4] F_ESERCIZIO SELECT
  INPUT CODTAB[5,6] F_GRUPPO
  INPUT CODTAB[7,10] F_SPECIE
  DISPLAY "Gruppo" CODTAB[5,6]
  DISPLAY "Specie" CODTAB[7,10]
  DISPLAY "Descrizione@50" 400@->S0
  OUTPUT F_GRUPPO CODTAB[5,6]
  OUTPUT F_SPECIE CODTAB[7,10]
  OUTPUT F_DESC_GRSP 400@->S0
  FIELD CODSPECIE
END

STRING F_DESC_GRSP 60 45
BEGIN
  PROMPT 31 4 ""
  FLAGS "D"
END

RADIOBUTTON F_TIPO 1 14
BEGIN
  PROMPT 0 6 "Selezione"
  ITEM "1|Categorie"
  ITEM "2|Cespiti"
	FLAGS "DG"
END

NUMBER F_CODCAT 2
BEGIN                  
  PROMPT 16 7 ""
  FLAGS "BZD"
  CHECKTYPE REQUIRED
  FIELD CODCAT
  MESSAGE COPY,F_CODCAT2
END

STRING F_DESCAT 70 54
BEGIN                  
  PROMPT 22 7 ""
  FLAGS "D"
END

STRING F_IDCESPITE 10
BEGIN
  PROMPT 16 8 ""
  FLAGS "UZD"
  USE LF_COLLCES SELECT IDCESPITE!=""
  JOIN LF_CESPI INTO IDCESPITE==IDCESPITE
  INPUT CODGRUPPO F_GRUPPO SELECT
  INPUT CODSPECIE F_SPECIE SELECT
  INPUT IDCESPITE F_IDCESPITE
  DISPLAY "Cespite@10" IDCESPITE
  DISPLAY "Categoria" LF_CESPI->CODCAT
  DISPLAY "Descrizione@50" LF_CESPI->DESC
  OUTPUT F_IDCESPITE IDCESPITE
  OUTPUT F_DESCES LF_CESPI->DESC
  FIELD IDCESPITE
END

BOOLEAN F_COMPL 
BEGIN
  PROMPT 18 8 "Chiave completa "
	FLAGS "H"
END

STRING F_DESCES 50 47
BEGIN                  
  PROMPT 29 8 ""
  FLAGS "D"
END

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

TEXT DLG_NULL
BEGIN
  PROMPT 25 11 "Gruppo"
END

TEXT DLG_NULL
BEGIN
  PROMPT 31 11 "Conto"
END

TEXT DLG_NULL
BEGIN
  PROMPT 37 11 "Sottoc."
END

TEXT DLG_NULL
BEGIN
  PROMPT 46 11 "Descrizione"
END

NUMBER F_IMM_G 3
BEGIN
  PROMPT 2 13 "Immobilizzazione       "
  FIELD GRUPPO
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT CONTO=""
  INPUT GRUPPO F_IMM_G
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_IMM_G GRUPPO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_IMM_C 3
BEGIN
  PROMPT 31 13 ""
  FIELD CONTO
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
  COPY INPUT F_IMM_G
  INPUT CONTO F_IMM_C
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_IMM_G GRUPPO
  OUTPUT F_IMM_C CONTO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_IMM_S 6
BEGIN
  PROMPT 37 13 ""
  FIELD SOTTOC
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
  COPY INPUT F_IMM_C
  INPUT SOTTOCONTO F_IMM_S
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_IMM_S SOTTOCONTO
  OUTPUT F_IMM_G GRUPPO
  OUTPUT F_IMM_C CONTO
  OUTPUT F_IMM_D DESCR
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

STRING F_IMM_D 50 29
BEGIN
  PROMPT 46 13 ""
  USE LF_PCON KEY 2
  INPUT DESCR F_IMM_D
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_IMM_S
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_QNOR_G 3
BEGIN
  PROMPT 2 14 "Quote amm.to normale   "
  FIELD GRUPPOQNO
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT CONTO=""
  INPUT GRUPPO F_QNOR_G
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_QNOR_G GRUPPO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_QNOR_C 3
BEGIN
  PROMPT 31 14 ""
  FIELD CONTOQNO
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
  COPY INPUT F_QNOR_G
  INPUT CONTO F_QNOR_C
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_QNOR_G GRUPPO
  OUTPUT F_QNOR_C CONTO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_QNOR_S 6
BEGIN
  PROMPT 37 14 ""
  FIELD SOTTOCQNO
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
  COPY INPUT F_QNOR_C
  INPUT SOTTOCONTO F_QNOR_S
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_QNOR_S SOTTOCONTO
  OUTPUT F_QNOR_G GRUPPO
  OUTPUT F_QNOR_C CONTO
  OUTPUT F_QNOR_D DESCR
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

STRING F_QNOR_D 50 29
BEGIN
  PROMPT 46 14 ""
  USE LF_PCON KEY 2
  INPUT DESCR F_QNOR_D
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_QNOR_S
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_QANT_G 3
BEGIN
  PROMPT 2 15 "Quote amm.to anticipato"
  FIELD GRUPPOQAN
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT CONTO=""
  INPUT GRUPPO F_QANT_G 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_QANT_G GRUPPO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_QANT_C 3
BEGIN
  PROMPT 31 15 ""
  FIELD CONTOQAN
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
  COPY INPUT F_QANT_G
  INPUT CONTO F_QANT_C
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_QANT_G GRUPPO
  OUTPUT F_QANT_C CONTO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_QANT_S 6
BEGIN
  PROMPT 37 15 ""
  FIELD SOTTOCQAN
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
  COPY INPUT F_QANT_C
  INPUT SOTTOCONTO F_QANT_S
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_QANT_S SOTTOCONTO
  OUTPUT F_QANT_G GRUPPO
  OUTPUT F_QANT_C CONTO
  OUTPUT F_QANT_D DESCR
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

STRING F_QANT_D 50 29
BEGIN
  PROMPT 46 15 ""
  USE LF_PCON KEY 2
  INPUT DESCR F_QANT_D
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_QANT_S
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_QACC_G 3
BEGIN
  PROMPT 2 16 "Quote amm.to accelerato"
  FIELD GRUPPOQAC
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT CONTO=""
  INPUT GRUPPO F_QACC_G 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_QACC_G GRUPPO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_QACC_C 3
BEGIN
  PROMPT 31 16 ""
  FIELD CONTOQAC
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
  COPY INPUT F_QACC_G
  INPUT CONTO F_QACC_C
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_QACC_G GRUPPO
  OUTPUT F_QACC_C CONTO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_QACC_S 6
BEGIN
  PROMPT 37 16 ""
  FIELD SOTTOCQAC
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
  COPY INPUT F_QACC_C
  INPUT SOTTOCONTO F_QACC_S
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_QACC_S SOTTOCONTO
  OUTPUT F_QACC_G GRUPPO
  OUTPUT F_QACC_C CONTO
  OUTPUT F_QACC_D DESCR
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

STRING F_QACC_D 50 29
BEGIN
  PROMPT 46 16 ""
  USE LF_PCON KEY 2
  INPUT DESCR F_QACC_D
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_QACC_S
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_FNOR_G 3
BEGIN
  PROMPT 2 17 "Fondo amm.to normale   "
  FIELD GRUPPOFN
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT CONTO=""
  INPUT GRUPPO F_FNOR_G 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_FNOR_G GRUPPO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_FNOR_C 3
BEGIN
  PROMPT 31 17 ""
  FIELD CONTOFN
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO="")&&(INDBIL==4))
  COPY INPUT F_FNOR_G
  INPUT CONTO F_FNOR_C
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_FNOR_G GRUPPO
  OUTPUT F_FNOR_C CONTO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_FNOR_S 6
BEGIN
  PROMPT 37 17 ""
  FIELD SOTTOCFN
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
  INPUT GRUPPO F_FNOR_G SELECT
  INPUT CONTO F_FNOR_C SELECT
  INPUT SOTTOCONTO F_FNOR_S
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_FNOR_S SOTTOCONTO
  OUTPUT F_FNOR_G GRUPPO
  OUTPUT F_FNOR_C CONTO
  OUTPUT F_FNOR_D DESCR
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

STRING F_FNOR_D 50 29
BEGIN
  PROMPT 46 17 ""
  USE LF_PCON KEY 2
  INPUT DESCR F_FNOR_D
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_FNOR_S
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_FANT_G 3
BEGIN
  PROMPT 2 18 "Fondo amm.to anticipato"
  FIELD GRUPPOFA
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT CONTO=""
  INPUT GRUPPO F_FANT_G 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_FANT_G GRUPPO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_FANT_C 3
BEGIN
  PROMPT 31 18 ""
  FIELD CONTOFA
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO="")&&(INDBIL==3))
  COPY INPUT F_FANT_G
  INPUT CONTO F_FANT_C
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_FANT_G GRUPPO
  OUTPUT F_FANT_C CONTO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_FANT_S 6
BEGIN
  PROMPT 37 18 ""
  FIELD SOTTOCFA
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
  INPUT GRUPPO F_FANT_G SELECT
  INPUT CONTO F_FANT_C  SELECT
  INPUT SOTTOCONTO F_FANT_S
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_FANT_S SOTTOCONTO
  OUTPUT F_FANT_G GRUPPO
  OUTPUT F_FANT_C CONTO
  OUTPUT F_FANT_D DESCR
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

STRING F_FANT_D 50 29
BEGIN
  PROMPT 46 18 ""
  USE LF_PCON KEY 2
  INPUT DESCR F_FANT_D
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_FANT_S
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_FACC_G 3
BEGIN
  PROMPT 2 19 "Fondo amm.to accelerato"
  FIELD GRUPPOACC
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT CONTO=""
  INPUT GRUPPO F_FACC_G 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_FACC_G GRUPPO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_FACC_C 3
BEGIN
  PROMPT 31 19 ""
  FIELD CONTOACC
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
  COPY INPUT F_FACC_G
  INPUT CONTO F_FACC_C
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_FACC_G GRUPPO
  OUTPUT F_FACC_C CONTO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_FACC_S 6
BEGIN
  PROMPT 37 19 ""
  FIELD SOTTOCACC
  FLAGS "R"
  USE LF_PCON SELECT SOTTOCONTO!=""
  COPY INPUT F_FACC_C
  INPUT SOTTOCONTO F_FACC_S
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Sospeso" SOSPESO
  OUTPUT F_FACC_S SOTTOCONTO
  OUTPUT F_FACC_G GRUPPO
  OUTPUT F_FACC_C CONTO
  OUTPUT F_FACC_D DESCR
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

STRING F_FACC_D 50 29
BEGIN
  PROMPT 46 19 ""
  USE LF_PCON KEY 2
  INPUT DESCR F_FACC_D
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_FACC_S
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

ENDPAGE

ENDMASK