diff --git a/ce/ce0400b.h b/ce/ce0400b.h deleted file mode 100755 index eab5c01d0..000000000 --- a/ce/ce0400b.h +++ /dev/null @@ -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 - diff --git a/ce/ce0400b.uml b/ce/ce0400b.uml deleted file mode 100755 index d23050f21..000000000 --- a/ce/ce0400b.uml +++ /dev/null @@ -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 \ No newline at end of file