root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/ce/ce0400a.uml
guy 5e1eb303b3 Patch level : 2.0 518 
Files correlati     : ce0.exe ce3100a.msk cemenu.men f142.dir f142.trr
Ricompilazione Demo : [ ]
Commento            :

OB200002
ce0.exe -3 p:
La scheda: Collegamento contabilità deve essere attività solo se si vuole
attivare il collegamento da CESPITI a COGE, occorre pertanto prevedere 1 flag
nella scheda PARAMETRI DITTA per l'attivazione del collegamento da CESPITI a COGE.


git-svn-id: svn://10.65.10.50/trunk@11308 c028cbd2-c16b-5b4b-a496-9718f37d4682
2003-07-02 15:27:19 +00:00

735 lines
16 KiB
Plaintext
Executable File
Raw Blame History

#include "ce0400a.h"
TOOLBAR "" 0 -2 0 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -11 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -11 ""
END
ENDPAGE
PAGE "Parametri Ditta" -1 -1 78 10
GROUPBOX DLG_NULL 76 6
BEGIN
PROMPT 1 1 "@bEsercizio/Attivita' corrente"
FLAGS "R"
END
NUMBER F_DITTA 5
BEGIN
PROMPT 2 2 "Ditta "
FLAGS "DFG"
USE LF_NDITTE
INPUT CODDITTA F_DITTA
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE NORMAL
END
STRING F_RAGSOC 50
BEGIN
PROMPT 25 2 ""
FLAGS "D"
END
NUMBER F_ESERCORR 4
BEGIN
PROMPT 2 3 "Esercizio "
FIELD CODESCORR
FLAGS "Z"
USE CCE
JOIN ESC ALIAS 105 INTO CODTAB==CODTAB
INPUT CODTAB F_ESERCORR
DISPLAY "Codice esercizio" CODTAB
DISPLAY "Data inizio" 105@->D0
DISPLAY "Data fine@10" 105@->D1
OUTPUT F_ESERCORR CODTAB
OUTPUT F_DATAINIZIO 105@->D0
OUTPUT F_DATAFINE 105@->D1
CHECKTYPE REQUIRED
END
DATE F_DATAINIZIO
BEGIN
PROMPT 20 3 "Data inizio "
FLAGS "D"
END
DATE F_DATAFINE
BEGIN
PROMPT 45 3 "Data fine "
FLAGS "D"
END
NUMBER F_GRUPPOCORR 2
BEGIN
PROMPT 2 4 "Gruppo "
FIELD GRUPPOCORR
FLAGS "Z"
USE CCB KEY 1
JOIN %CGR ALIAS 106 INTO CODTAB==CODTAB[5,6]
JOIN %CAT ALIAS 107 INTO CODTAB==CODTAB[5,10]
INPUT CODTAB[1,4] F_ESERCORR SELECT
INPUT CODTAB[5,6] F_GRUPPOCORR
INPUT CODTAB[7,10] F_SPECIECORR
DISPLAY "Gruppo" CODTAB[5,6]
DISPLAY "Specie" CODTAB[7,10]
DISPLAY "Descrizione@60" 107@->S0
OUTPUT F_GRUPPOCORR CODTAB[5,6]
OUTPUT F_D_GRUPPOCORR 106@->S0
OUTPUT F_SPECIECORR CODTAB[7,10]
OUTPUT F_D_SPECIECORR 107@->S0
CHECKTYPE NORMAL
END
STRING F_D_GRUPPOCORR 60 58
BEGIN
PROMPT 17 4 ""
FLAGS "D"
END
STRING F_SPECIECORR 4
BEGIN
PROMPT 2 5 "Specie "
FIELD SPECIECORR
FLAGS "_"
COPY ALL F_GRUPPOCORR
CHECKTYPE NORMAL
END
STRING F_D_SPECIECORR 60 58
BEGIN
PROMPT 17 5 ""
FLAGS "D"
END
DATE F_DATACONS
BEGIN
PROMPT 1 7 "Data conseguimento primi ricavi "
FIELD CADTR
END
TEXT DLG_NULL
BEGIN
PROMPT 1 8 "Anno inizio applicazione TUIR"
END
RADIOBUTTON F_ANNOTUIR 30
BEGIN
FLAGS "Z"
PROMPT 33 7 ""
ITEM "1988|1988"
ITEM "1989|1989"
FIELD CATSU
END
BOOLEAN F_AMMPROP
BEGIN
PROMPT 1 9 "Attiva ammortamento proporzionale da entrata in funzione"
FIELD AMMPROP
END
BOOLEAN F_COLLCOGE
BEGIN
PROMPT 1 10 "Attiva collegamento a contabilita'"
FIELD COLLCOGE
MESSAGE FALSE 11100,DLG_PAGE
MESSAGE TRUE 11101,DLG_PAGE
END
ENDPAGE
PAGE "Collegamento Contabilit<69>" -1 -1 78 10
BOOLEAN F_PLUSMINUS
BEGIN
PROMPT 2 1 "Genera anche movimenti plus/minusvalenza"
MESSAGE TRUE ENABLE,F_RIL_PLUS|ENABLE,F_D_RIL_PLUS|ENABLE,F_RIL_MIN|ENABLE,F_D_RIL_MIN|ENABLE,F_TIPOSCRIT|"",F_TIPOSCRIT|ENABLE,F_PLUSVAL_GR|ENABLE,F_PLUSVAL_CO|ENABLE,F_PLUSVAL_SO|ENABLE,F_PLUSVAL_D|REQUIRED,F_PLUSVAL_SO|ENABLE,F_MINUSVAL_GR|ENABLE,F_MINUSVAL_CO|ENABLE,F_MINUSVAL_SO|ENABLE,F_MINUSVAL_D|REQUIRED,F_MINUSVAL_SO
MESSAGE FALSE CLEAR,F_RIL_PLUS|CLEAR,F_D_RIL_PLUS|CLEAR,F_RIL_MIN|CLEAR,F_D_RIL_MIN|DISABLE,F_TIPOSCRIT|"X",F_TIPOSCRIT|CLEAR,F_PLUSVAL_GR|CLEAR,F_PLUSVAL_CO|CLEAR,F_PLUSVAL_SO|CLEAR,F_PLUSVAL_D|CLEAR,F_MINUSVAL_GR|CLEAR,F_MINUSVAL_CO|CLEAR,F_MINUSVAL_SO|CLEAR,F_MINUSVAL_D
FIELD COPLMN
END
RADIOBUTTON F_TIPOSCRIT 1 60
BEGIN
PROMPT 2 2 "Tipo scrittura per vendita cespite "
ITEM "|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 "X|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. Sottoc. 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 SELECT SOTTOCONTO!=""
COPY INPUT F_VEND_CESP_CO
INPUT SOTTOCONTO F_VEND_CESP_SO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
DISPLAY "Sospeso" SOSPESO
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
ENDPAGE
ENDMASK
Reference in New Issue View Git Blame Copy Permalink