Patch level :
Files correlati : Ricompilazione Demo : [ ] Commento : git-svn-id: svn://10.65.10.50/trunk@15872 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
0b1ac7da94
commit
ad851622d8
41
ce/ce0400b.h
41
ce/ce0400b.h
@ -1,41 +0,0 @@
|
||||
// campi maschera ce0400b.msk
|
||||
|
||||
#define F_PLUSMINUS 101
|
||||
#define F_TIPOSCRIT 102
|
||||
|
||||
#define F_ELIMCESP 104
|
||||
#define F_D_ELIMCESP 105
|
||||
#define F_RIL_DIFF 106
|
||||
#define F_D_RIL_DIFF 107
|
||||
#define F_RIL_QUOT 108
|
||||
#define F_D_RIL_QUOT 109
|
||||
#define F_RIL_PLUS 110
|
||||
#define F_D_RIL_PLUS 111
|
||||
#define F_RIL_MIN 112
|
||||
#define F_D_RIL_MIN 113
|
||||
|
||||
#define F_SOPR_PAS_GR 120
|
||||
#define F_SOPR_PAS_CO 121
|
||||
#define F_SOPR_PAS_SO 122
|
||||
#define F_SOPR_PAS_D 123
|
||||
#define F_DIFF_QUO_GR 124
|
||||
#define F_DIFF_QUO_CO 125
|
||||
#define F_DIFF_QUO_SO 126
|
||||
#define F_DIFF_QUO_D 127
|
||||
#define F_DIFF_FON_GR 128
|
||||
#define F_DIFF_FON_CO 129
|
||||
#define F_DIFF_FON_SO 130
|
||||
#define F_DIFF_FON_D 131
|
||||
#define F_PLUSVAL_GR 132
|
||||
#define F_PLUSVAL_CO 133
|
||||
#define F_PLUSVAL_SO 134
|
||||
#define F_PLUSVAL_D 135
|
||||
#define F_MINUSVAL_GR 136
|
||||
#define F_MINUSVAL_CO 137
|
||||
#define F_MINUSVAL_SO 138
|
||||
#define F_MINUSVAL_D 139
|
||||
#define F_VEND_CESP_GR 140
|
||||
#define F_VEND_CESP_CO 141
|
||||
#define F_VEND_CESP_SO 142
|
||||
#define F_VEND_CESP_D 143
|
||||
|
606
ce/ce0400b.uml
606
ce/ce0400b.uml
@ -1,606 +0,0 @@
|
||||
#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
|
Loading…
x
Reference in New Issue
Block a user