root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/ce/ce2300b.uml
alex 7d1b49c6f2 Patch level : 10.0 0032 
Files correlati     : ba7.exe
Ricompilazione Demo : [ ]
Commento           :

Aggiornamento maschere all 10.0  nuove toolbar modulo cespiti


git-svn-id: svn://10.65.10.50/trunk@16501 c028cbd2-c16b-5b4b-a496-9718f37d4682
2008-04-11 09:08:03 +00:00

642 lines
12 KiB
Plaintext
Executable File
Raw Blame History

#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
Reference in New Issue View Git Blame Copy Permalink