root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/ce/ce0400b.uml
alex 8a05210c2d Patch level : xx.7.054 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
Riportata la version 1.7 patch 054 aga sul main trunk


git-svn-id: svn://10.65.10.50/trunk@9655 c028cbd2-c16b-5b4b-a496-9718f37d4682
2001-04-30 14:22:43 +00:00

606 lines
13 KiB
Plaintext
Executable File
Raw Blame History

#include "ce0400b.h"
TOOLBAR "" 0 -2 0 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -11 ""
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -11 ""
END
ENDPAGE
PAGE " Collegamenti contabili parametri per ditta " -1 -1 60 6
RADIOBUTTON F_PLUSMINUS 40
BEGIN
FLAGS "Z"
PROMPT 2 1 "Genera anche movimenti plus/minusvalenza"
ITEM "0|SI"
MESSAGE ENABLE,F_RIL_PLUS|ENABLE,F_D_RIL_PLUS|ENABLE,F_RIL_MIN|ENABLE,F_D_RIL_MIN|ENABLE,F_TIPOSCRIT
MESSAGE REQUIRED,F_PLUSVAL_SO|REQUIRED,F_MINUSVAL_SO
ITEM "1|NO"
MESSAGE CLEAR,F_RIL_PLUS|CLEAR,F_D_RIL_PLUS|CLEAR,F_RIL_MIN|CLEAR,F_D_RIL_MIN|CLEAR,F_TIPOSCRIT
MESSAGE NORMAL,F_PLUSVAL_SO|NORMAL,F_MINUSVAL_SO
FIELD COPLMN
END
LISTBOX F_TIPOSCRIT 1 16
BEGIN
PROMPT 2 4 "Tipo scrittura per vendita cespite "
ITEM "0|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 "1|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
END
GROUPBOX DLG_NULL 78 7
BEGIN
PROMPT 1 6 "@B Cod. Causali"
FLAGS "R"
END
STRING F_ELIMCESP 3
BEGIN
PROMPT 2 7 "Eliminazione cespite "
FIELD COAUEL
USE LF_CAUSALI SELECT ((SOSPESO=="")&&(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
END
STRING F_D_ELIMCESP 50 35
BEGIN
PROMPT 40 7 ""
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
END
STRING F_RIL_DIFF 3
BEGIN
PROMPT 2 8 "Rilevazione differenze "
FIELD COAUDI
USE LF_CAUSALI SELECT ((SOSPESO=="")&&(TIPODOC=="")&&(COLLCESP==""))
INPUT CODCAUS F_RIL_DIFF
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT F_RIL_DIFF CODCAUS
OUTPUT F_D_RIL_DIFF DESCR
ADD RUN CG0 -4
CHECKTYPE REQUIRED
END
STRING F_D_RIL_DIFF 50 35
BEGIN
PROMPT 40 8 ""
USE LF_CAUSALI KEY 2
INPUT DESCR F_D_RIL_DIFF
DISPLAY "Descrizione@50" DESCR
DISPLAY "Codice" CODCAUS
COPY OUTPUT F_RIL_DIFF
ADD RUN CG0 -4
CHECKTYPE REQUIRED
END
STRING F_RIL_QUOT 3
BEGIN
PROMPT 2 9 "Rilevazione quote ammortamento "
FIELD COAUQU
USE LF_CAUSALI SELECT ((SOSPESO=="")&&(TIPODOC=="")&&(COLLCESP==""))
INPUT CODCAUS F_RIL_QUOT
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT F_RIL_QUOT CODCAUS
OUTPUT F_D_RIL_QUOT DESCR
ADD RUN CG0 -4
CHECKTYPE REQUIRED
END
STRING F_D_RIL_QUOT 50 35
BEGIN
PROMPT 40 9 ""
USE LF_CAUSALI KEY 2
INPUT DESCR F_D_RIL_QUOT
DISPLAY "Descrizione@50" DESCR
DISPLAY "Codice" CODCAUS
COPY OUTPUT F_RIL_QUOT
ADD RUN CG0 -4
CHECKTYPE REQUIRED
END
STRING F_RIL_PLUS 3
BEGIN
PROMPT 2 10 "Rilevazione plusvalenze "
FIELD COAUPL
USE LF_CAUSALI SELECT ((SOSPESO=="")&&(TIPODOC=="")&&(COLLCESP==""))
INPUT CODCAUS F_RIL_PLUS
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT F_RIL_PLUS CODCAUS
OUTPUT F_D_RIL_PLUS DESCR
ADD RUN CG0 -4
CHECKTYPE REQUIRED
END
STRING F_D_RIL_PLUS 50 35
BEGIN
PROMPT 40 10 ""
USE LF_CAUSALI KEY 2
INPUT DESCR F_D_RIL_PLUS
DISPLAY "Descrizione@50" DESCR
DISPLAY "Codice" CODCAUS
COPY OUTPUT F_RIL_PLUS
ADD RUN CG0 -4
CHECKTYPE REQUIRED
END
STRING F_RIL_MIN 3
BEGIN
PROMPT 2 11 "Rilevazione minusvalenze "
FIELD COAUM
USE LF_CAUSALI SELECT ((SOSPESO=="")&&(TIPODOC=="")&&(COLLCESP==""))
INPUT CODCAUS F_RIL_MIN
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT F_RIL_MIN CODCAUS
OUTPUT F_D_RIL_MIN DESCR
ADD RUN CG0 -4
CHECKTYPE REQUIRED
END
STRING F_D_RIL_MIN 50 35
BEGIN
PROMPT 40 11 ""
USE LF_CAUSALI KEY 2
INPUT DESCR F_D_RIL_MIN
DISPLAY "Descrizione@50" DESCR
DISPLAY "Codice" CODCAUS
COPY OUTPUT F_RIL_MIN
ADD RUN CG0 -4
CHECKTYPE REQUIRED
END
GROUPBOX DLG_NULL 78 8
BEGIN
PROMPT 1 14 "@B Gr. Co. S.co. Descrizione"
FLAGS "R"
END
NUMBER F_SOPR_PAS_GR 3
BEGIN
PROMPT 2 15 "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
END
NUMBER F_SOPR_PAS_CO 3
BEGIN
PROMPT 31 15 ""
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"
END
NUMBER F_SOPR_PAS_SO 6
BEGIN
PROMPT 37 15 ""
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
END
STRING F_SOPR_PAS_D 50 29
BEGIN
PROMPT 46 15 ""
USE LF_PCON KEY 2
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"
END
NUMBER F_DIFF_QUO_GR 3
BEGIN
PROMPT 2 16 "Differenze su quote "
FIELD GRCOTDIQ
FLAGS "R"
USE LF_PCON KEY 1 SELECT CONTO=""
INPUT GRUPPO F_DIFF_QUO_GR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_DIFF_QUO_GR GRUPPO
ADD RUN CG0 -0
CHECKTYPE REQUIRED
END
NUMBER F_DIFF_QUO_CO 3
BEGIN
PROMPT 31 16 ""
FIELD COCOTDIQ
FLAGS "R"
USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
COPY INPUT F_DIFF_QUO_GR
INPUT CONTO F_DIFF_QUO_CO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_DIFF_QUO_GR GRUPPO
OUTPUT F_DIFF_QUO_CO CONTO
ADD RUN CG0 -0
CHECKTYPE REQUIRED
VALIDATE REQIF_FUNC 1 F_DIFF_QUO_SO
WARNING "Manca il conto"
END
NUMBER F_DIFF_QUO_SO 6
BEGIN
PROMPT 37 16 ""
FIELD SOCOTDIQ
FLAGS "R"
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
COPY INPUT F_DIFF_QUO_CO
INPUT SOTTOCONTO F_DIFF_QUO_SO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Sosp." SOSPESO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_DIFF_QUO_SO SOTTOCONTO
OUTPUT F_DIFF_QUO_GR GRUPPO
OUTPUT F_DIFF_QUO_CO CONTO
OUTPUT F_DIFF_QUO_D DESCR
ADD RUN CG0 -0
CHECKTYPE REQUIRED
END
STRING F_DIFF_QUO_D 50 29
BEGIN
PROMPT 46 16 ""
USE LF_PCON KEY 2
INPUT DESCR F_DIFF_QUO_D
DISPLAY "Descrizione@50" DESCR
DISPLAY "Sosp." SOSPESO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_DIFF_QUO_SO
ADD RUN CG0 -0
CHECKTYPE REQUIRED
WARNING "Manca la descrizione"
END
NUMBER F_DIFF_FON_GR 3
BEGIN
PROMPT 2 17 "Differenze su fondi "
FIELD GRCOTDIF
FLAGS "R"
USE LF_PCON KEY 1 SELECT CONTO=""
INPUT GRUPPO F_DIFF_FON_GR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_DIFF_FON_GR GRUPPO
ADD RUN CG0 -0
CHECKTYPE REQUIRED
END
NUMBER F_DIFF_FON_CO 3
BEGIN
PROMPT 31 17 ""
FIELD COCOTDIF
FLAGS "R"
USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
COPY INPUT F_DIFF_FON_GR
INPUT CONTO F_DIFF_FON_CO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_DIFF_FON_GR GRUPPO
OUTPUT F_DIFF_FON_CO CONTO
ADD RUN CG0 -0
CHECKTYPE REQUIRED
VALIDATE REQIF_FUNC 1 F_DIFF_FON_SO
WARNING "Manca il conto"
END
NUMBER F_DIFF_FON_SO 6
BEGIN
PROMPT 37 17 ""
FIELD SOCOTDIF
FLAGS "R"
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
COPY INPUT F_DIFF_FON_CO
INPUT SOTTOCONTO F_DIFF_FON_SO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Sosp." SOSPESO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_DIFF_FON_SO SOTTOCONTO
OUTPUT F_DIFF_FON_GR GRUPPO
OUTPUT F_DIFF_FON_CO CONTO
OUTPUT F_DIFF_FON_D DESCR
ADD RUN CG0 -0
CHECKTYPE REQUIRED
END
STRING F_DIFF_FON_D 50 29
BEGIN
PROMPT 46 17 ""
USE LF_PCON KEY 2
INPUT DESCR F_DIFF_FON_D
DISPLAY "Descrizione@50" DESCR
DISPLAY "Sosp." SOSPESO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_DIFF_FON_SO
ADD RUN CG0 -0
CHECKTYPE REQUIRED
WARNING "Manca la descrizione"
END
NUMBER F_PLUSVAL_GR 3
BEGIN
PROMPT 2 18 "Plusvalenze "
FIELD GRCOTPLU
FLAGS "R"
USE LF_PCON KEY 1 SELECT CONTO=""
INPUT GRUPPO F_PLUSVAL_GR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_PLUSVAL_GR GRUPPO
ADD RUN CG0 -0
CHECKTYPE NORMAL
END
NUMBER F_PLUSVAL_CO 3
BEGIN
PROMPT 31 18 ""
FIELD COCOTPLU
FLAGS "R"
USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO="")&&(INDBIL==4))
COPY INPUT F_PLUSVAL_GR
INPUT CONTO F_PLUSVAL_CO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
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"
END
NUMBER F_PLUSVAL_SO 6
BEGIN
PROMPT 37 18 ""
FIELD SOCOTPLU
FLAGS "R"
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
INPUT GRUPPO F_PLUSVAL_GR SELECT
INPUT CONTO F_PLUSVAL_CO SELECT
INPUT SOTTOCONTO F_PLUSVAL_SO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Sosp." SOSPESO
DISPLAY "Descrizione@50" DESCR
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
END
STRING F_PLUSVAL_D 50 29
BEGIN
PROMPT 46 18 ""
USE LF_PCON KEY 2
INPUT DESCR F_PLUSVAL_D
DISPLAY "Descrizione@50" DESCR
DISPLAY "Sosp." SOSPESO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_PLUSVAL_SO
ADD RUN CG0 -0
CHECKTYPE NORMAL
WARNING "Manca la descrizione"
END
NUMBER F_MINUSVAL_GR 3
BEGIN
PROMPT 2 19 "Minusvalenze "
FIELD GRCOTMIN
FLAGS "R"
USE LF_PCON KEY 1 SELECT CONTO=""
INPUT GRUPPO F_MINUSVAL_GR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_MINUSVAL_GR GRUPPO
ADD RUN CG0 -0
CHECKTYPE NORMAL
END
NUMBER F_MINUSVAL_CO 3
BEGIN
PROMPT 31 19 ""
FIELD COCOTMIN
FLAGS "R"
USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO="")&&(INDBIL==3))
COPY INPUT F_MINUSVAL_GR
INPUT CONTO F_MINUSVAL_CO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
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"
END
NUMBER F_MINUSVAL_SO 6
BEGIN
PROMPT 37 19 ""
FIELD SOCOTMIN
FLAGS "R"
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
INPUT GRUPPO F_MINUSVAL_GR SELECT
INPUT CONTO F_MINUSVAL_CO SELECT
INPUT SOTTOCONTO F_MINUSVAL_SO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Sosp." SOSPESO
DISPLAY "Descrizione@50" DESCR
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
END
STRING F_MINUSVAL_D 50 29
BEGIN
PROMPT 46 19 ""
USE LF_PCON KEY 2
INPUT DESCR F_MINUSVAL_D
DISPLAY "Descrizione@50" DESCR
DISPLAY "Sosp." SOSPESO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_MINUSVAL_SO
ADD RUN CG0 -0
CHECKTYPE NORMAL
WARNING "Manca la descrizione"
END
NUMBER F_VEND_CESP_GR 3
BEGIN
PROMPT 2 20 "Vendite cespiti "
FIELD GRCOTVEN
FLAGS "R"
USE LF_PCON KEY 1 SELECT CONTO=""
INPUT GRUPPO F_VEND_CESP_GR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_VEND_CESP_GR GRUPPO
ADD RUN CG0 -0
CHECKTYPE REQUIRED
END
NUMBER F_VEND_CESP_CO 3
BEGIN
PROMPT 31 20 ""
FIELD COCOTVEN
FLAGS "R"
USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
COPY INPUT F_VEND_CESP_GR
INPUT CONTO F_VEND_CESP_CO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
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"
END
NUMBER F_VEND_CESP_SO 6
BEGIN
PROMPT 37 20 ""
FIELD SOCOTVEN
FLAGS "R"
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
COPY INPUT F_VEND_CESP_CO
INPUT SOTTOCONTO F_VEND_CESP_SO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Sosp." SOSPESO
DISPLAY "Descrizione@50" DESCR
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
END
STRING F_VEND_CESP_D 50 29
BEGIN
PROMPT 46 20 ""
USE LF_PCON KEY 2
INPUT DESCR F_VEND_CESP_D
DISPLAY "Descrizione@50" DESCR
DISPLAY "Sosp." SOSPESO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_VEND_CESP_SO
ADD RUN CG0 -0
CHECKTYPE REQUIRED
WARNING "Manca la descrizione"
END
Reference in New Issue View Git Blame Copy Permalink