diff --git a/ce/ce0400a.h b/ce/ce0400a.h index e31db2d87..fd6838eb4 100755 --- a/ce/ce0400a.h +++ b/ce/ce0400a.h @@ -54,6 +54,10 @@ #define F_VEND_CESP_SO 242 #define F_VEND_CESP_D 243 +#define F_TIPOAMM 245 +#define F_MOVDETT 246 +#define F_ANNOAMM 247 + //sheet elenco files personalizzati e relative righe #define F_USER 300 diff --git a/ce/ce0400a.uml b/ce/ce0400a.uml index 0e8fac4df..36ec31341 100755 --- a/ce/ce0400a.uml +++ b/ce/ce0400a.uml @@ -181,18 +181,38 @@ BEGIN 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 + FLAGS "Z" + GROUP 9 +END + +LIST F_TIPOAMM 15 +BEGIN + PROMPT 2 5 "Tipo ammortamenti " + ITEM "1|Fiscali" + ITEM "2|Civilistici" + FIELD TPAMM + GROUP 9 +END + +LIST F_MOVDETT 50 +BEGIN + PROMPT 2 6 "Dettaglio movimenti " + ITEM "0|Non dettagliati" + ITEM "1|Per cespite con conto della categoria" + ITEM "2|Per cespite con sottoconto = codice cespite" + FIELD MOVDETT GROUP 9 END GROUPBOX DLG_NULL 78 7 BEGIN - PROMPT 1 6 "@B Cod. Causali" + PROMPT 1 7 "@B Cod. Causali" FLAGS "R" END STRING F_ELIMCESP 3 BEGIN - PROMPT 2 7 "Eliminazione cespite " + PROMPT 2 8 "Eliminazione cespite " FIELD COAUEL USE LF_CAUSALI SELECT ((SOSPESO!="X")&&(TIPODOC=="")&&(COLLCESP=="")) INPUT CODCAUS F_ELIMCESP @@ -207,7 +227,7 @@ END STRING F_D_ELIMCESP 50 35 BEGIN - PROMPT 40 7 "" + PROMPT 40 8 "" USE LF_CAUSALI KEY 2 INPUT DESCR F_D_ELIMCESP DISPLAY "Descrizione@50" DESCR @@ -220,7 +240,7 @@ END STRING F_RIL_DIFF 3 BEGIN - PROMPT 2 8 "Rilevazione differenze " + PROMPT 2 9 "Rilevazione differenze " FIELD COAUDI COPY USE F_ELIMCESP INPUT CODCAUS F_RIL_DIFF @@ -234,7 +254,7 @@ END STRING F_D_RIL_DIFF 50 35 BEGIN - PROMPT 40 8 "" + PROMPT 40 9 "" COPY USE F_D_ELIMCESP INPUT DESCR F_D_RIL_DIFF COPY DISPLAY F_D_ELIMCESP @@ -246,7 +266,7 @@ END STRING F_RIL_QUOT 3 BEGIN - PROMPT 2 9 "Rilevazione quote ammortamento " + PROMPT 2 10 "Rilevazione quote ammortamento " FIELD COAUQU COPY USE F_ELIMCESP INPUT CODCAUS F_RIL_QUOT @@ -260,7 +280,7 @@ END STRING F_D_RIL_QUOT 50 35 BEGIN - PROMPT 40 9 "" + PROMPT 40 10 "" COPY USE F_D_ELIMCESP INPUT DESCR F_D_RIL_QUOT COPY DISPLAY F_D_ELIMCESP @@ -272,7 +292,7 @@ END STRING F_RIL_PLUS 3 BEGIN - PROMPT 2 10 "Rilevazione plusvalenze " + PROMPT 2 11 "Rilevazione plusvalenze " FIELD COAUPL COPY USE F_ELIMCESP INPUT CODCAUS F_RIL_PLUS @@ -286,7 +306,7 @@ END STRING F_D_RIL_PLUS 50 35 BEGIN - PROMPT 40 10 "" + PROMPT 40 11 "" COPY USE F_D_ELIMCESP INPUT DESCR F_D_RIL_PLUS COPY DISPLAY F_D_ELIMCESP @@ -298,7 +318,7 @@ END STRING F_RIL_MIN 3 BEGIN - PROMPT 2 11 "Rilevazione minusvalenze " + PROMPT 2 12 "Rilevazione minusvalenze " FIELD COAUM COPY USE F_ELIMCESP INPUT CODCAUS F_RIL_MIN @@ -312,7 +332,7 @@ END STRING F_D_RIL_MIN 50 35 BEGIN - PROMPT 40 11 "" + PROMPT 40 12 "" COPY USE F_D_ELIMCESP INPUT DESCR F_D_RIL_MIN COPY DISPLAY F_D_ELIMCESP diff --git a/ce/ce4400.cpp b/ce/ce4400.cpp index 7c81e09bc..6c19cce9e 100755 --- a/ce/ce4400.cpp +++ b/ce/ce4400.cpp @@ -129,7 +129,7 @@ void TTrasf_mov_ce_cg::elabora() //Assoc_array Categoria-QammTot-QperseTot TAssoc_array quote_per_cat; - TProgind pi(nrec, TR("Trasferimento in corso..."), true, true); + TProgind pi(nrec, TR("Ricalcolo ammortamenti in corso..."), true, true); for (int i = 0; cespiti.move_to(i); i++) { if (!pi.addstatus(1)) @@ -141,6 +141,7 @@ void TTrasf_mov_ce_cg::elabora() //calcola gli ammortamenti di tutti i cespiti; SOLO situazione FISCALE (tiposit = 1) //la calc_amm pensa da sola a calcolare gli ammortamenti solo per i cespiti validi + //l'ultimo parametro e' true x' il calcolo viene fatto in memoria! cespite.calc_amm(1, datacalc, false, true); //controlla le quote del cespite in questione su AMMCE diff --git a/ce/cemenu.men b/ce/cemenu.men index 291351541..fe9024554 100755 --- a/ce/cemenu.men +++ b/ce/cemenu.men @@ -79,12 +79,7 @@ Caption = "Collegamenti contabili" Picture = Module = 11 Flags = "" -Item_01 = "Parametri collegamento contabilità", "ce0 -3", "" -Item_02 = "Colleg. contabilità cat/ces", "", "" -Item_03 = "St. contr. param. colleg. contab.", "", "" -Item_04 = "St. contr. colleg. contab. cat/ces", "", "" -Item_05 = "Trasferimento movimenti provvisori", "", "" -Item_06 = "Trasferimento movimenti definitivi", "", "" +Item_01 = "Trasferimento movimenti", "ce4 -3", "F" [CEMENU_009] Caption = "Operazioni giornaliere e fine esercizio" diff --git a/ce/cetbcac.h b/ce/cetbcac.h index 26655cf43..450c2b0c9 100755 --- a/ce/cetbcac.h +++ b/ce/cetbcac.h @@ -31,3 +31,25 @@ #define GR_MAT 130 #define GR_IMMAT 131 #define GR_PLURI 132 + +//pagina collegamenti con la contabilta' +#define F_IMM_GR 201 +#define F_IMM_CO 202 +#define F_IMM_SOT 203 +#define F_IMM_DES 204 +#define F_FON_GR 205 +#define F_FON_CO 206 +#define F_FON_SOT 207 +#define F_FON_DES 208 +#define F_QNOR_GR 209 +#define F_QNOR_CO 210 +#define F_QNOR_SOT 211 +#define F_QNOR_DES 212 +#define F_QANT_GR 213 +#define F_QANT_CO 214 +#define F_QANT_SOT 215 +#define F_QANT_DES 216 +#define F_QACC_GR 217 +#define F_QACC_CO 218 +#define F_QACC_SOT 219 +#define F_QACC_DES 220 diff --git a/ce/cetbcac.uml b/ce/cetbcac.uml index f3e1a6f81..dbeb7f298 100755 --- a/ce/cetbcac.uml +++ b/ce/cetbcac.uml @@ -239,5 +239,340 @@ END ENDPAGE +PAGE "Collegamento contabilita'" -1 -1 60 6 + +GROUPBOX DLG_NULL 74 7 +BEGIN + PROMPT 1 1 "@bConti per attivita' Gruppo Conto Sottoconto Descrizione" + FLAGS "R" +END + +NUMBER F_IMM_GR 3 +BEGIN + PROMPT 2 2 "Immobilizzo " + FIELD S1[1,3] + FLAGS "Z" + USE LF_PCON SELECT CONTO="" + INPUT GRUPPO F_IMM_GR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_IMM_GR GRUPPO + ADD RUN CG0 -0 + CHECKTYPE REQUIRED +END + +NUMBER F_IMM_CO 3 +BEGIN + PROMPT 22 2 "" + FIELD S1[4,6] + FLAGS "Z" + USE LF_PCON SELECT ((CONTO!="")&&(SOTTOCONTO="")&&((INDBIL==1)||(INDBIL==2))) + COPY INPUT F_IMM_GR + INPUT CONTO F_IMM_CO + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Ind.Bil." INDBIL + DISPLAY "Descrizione@50" DESCR + COPY OUTPUT F_IMM_GR + OUTPUT F_IMM_CO CONTO + ADD RUN CG0 -0 + CHECKTYPE REQUIRED +END + +NUMBER F_IMM_SOT 6 +BEGIN + PROMPT 29 2 "" + FIELD S1[7,12] + FLAGS "Z" + USE LF_PCON SELECT SOTTOCONTO!="" + COPY INPUT F_IMM_CO + INPUT SOTTOCONTO F_IMM_SOT + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + DISPLAY "Descrizione@50" DESCR + COPY OUTPUT F_IMM_CO + OUTPUT F_IMM_SOT SOTTOCONTO + OUTPUT F_IMM_DES DESCR + ADD RUN CG0 -0 + CHECKTYPE REQUIRED +END + +STRING F_IMM_DES 50 32 +BEGIN + PROMPT 39 2 "" + USE LF_PCON KEY 2 SELECT SOTTOCONTO!="" + INPUT DESCR F_IMM_DES + DISPLAY "Descrizione@50" DESCR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + COPY OUTPUT F_IMM_SOT + ADD RUN CG0 -0 + CHECKTYPE NORMAL +END + +NUMBER F_FON_GR 3 +BEGIN + PROMPT 2 3 "Fondo " + FIELD S1[13,15] + FLAGS "Z" + USE LF_PCON SELECT CONTO="" + INPUT GRUPPO F_FON_GR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_FON_GR GRUPPO + ADD RUN CG0 -0 + CHECKTYPE REQUIRED +END + +NUMBER F_FON_CO 3 +BEGIN + PROMPT 22 3 "" + FIELD S1[16,18] + FLAGS "Z" + USE LF_PCON SELECT ((CONTO!="")&&(SOTTOCONTO="")&&((INDBIL==1)||(INDBIL==2))) + COPY INPUT F_FON_GR + INPUT CONTO F_FON_CO + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Ind.Bil." INDBIL + DISPLAY "Descrizione@50" DESCR + COPY OUTPUT F_FON_GR + OUTPUT F_FON_CO CONTO + ADD RUN CG0 -0 + CHECKTYPE REQUIRED +END + +NUMBER F_FON_SOT 6 +BEGIN + PROMPT 29 3 "" + FIELD S1[19,24] + FLAGS "Z" + USE LF_PCON SELECT SOTTOCONTO!="" + COPY INPUT F_FON_CO + INPUT SOTTOCONTO F_FON_SOT + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + DISPLAY "Descrizione@50" DESCR + COPY OUTPUT F_FON_CO + OUTPUT F_FON_SOT SOTTOCONTO + OUTPUT F_FON_DES DESCR + ADD RUN CG0 -0 + CHECKTYPE REQUIRED +END + +STRING F_FON_DES 50 32 +BEGIN + PROMPT 39 3 "" + USE LF_PCON KEY 2 SELECT SOTTOCONTO!="" + INPUT DESCR F_FON_DES + DISPLAY "Descrizione@50" DESCR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + COPY OUTPUT F_FON_SOT + ADD RUN CG0 -0 + CHECKTYPE NORMAL +END + +NUMBER F_QNOR_GR 3 +BEGIN + PROMPT 2 4 "Amm. Normali " + FIELD S1[25,27] + FLAGS "Z" + USE LF_PCON SELECT CONTO="" + INPUT GRUPPO F_QNOR_GR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_QNOR_GR GRUPPO + ADD RUN CG0 -0 + CHECKTYPE REQUIRED +END + +NUMBER F_QNOR_CO 3 +BEGIN + PROMPT 22 4 "" + FIELD S1[28,30] + FLAGS "Z" + USE LF_PCON SELECT ((CONTO!="")&&(SOTTOCONTO="")&&((INDBIL==1)||(INDBIL==2))) + COPY INPUT F_QNOR_GR + INPUT CONTO F_QNOR_CO + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Ind.Bil." INDBIL + DISPLAY "Descrizione@50" DESCR + COPY OUTPUT F_QNOR_GR + OUTPUT F_QNOR_CO CONTO + ADD RUN CG0 -0 + CHECKTYPE REQUIRED +END + +NUMBER F_QNOR_SOT 6 +BEGIN + PROMPT 29 4 "" + FIELD S1[31,36] + FLAGS "Z" + USE LF_PCON SELECT SOTTOCONTO!="" + COPY INPUT F_QNOR_CO + INPUT SOTTOCONTO F_QNOR_SOT + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + DISPLAY "Descrizione@50" DESCR + COPY OUTPUT F_QNOR_CO + OUTPUT F_QNOR_SOT SOTTOCONTO + OUTPUT F_QNOR_DES DESCR + ADD RUN CG0 -0 + CHECKTYPE REQUIRED +END + +STRING F_QNOR_DES 50 32 +BEGIN + PROMPT 39 4 "" + USE LF_PCON KEY 2 SELECT SOTTOCONTO!="" + INPUT DESCR F_QNOR_DES + DISPLAY "Descrizione@50" DESCR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + COPY OUTPUT F_QNOR_SOT + ADD RUN CG0 -0 + CHECKTYPE NORMAL +END + +NUMBER F_QANT_GR 3 +BEGIN + PROMPT 2 5 "Amm. Anticip." + FIELD S1[37,39] + FLAGS "Z" + USE LF_PCON SELECT CONTO="" + INPUT GRUPPO F_QANT_GR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_QANT_GR GRUPPO + ADD RUN CG0 -0 + CHECKTYPE REQUIRED +END + +NUMBER F_QANT_CO 3 +BEGIN + PROMPT 22 5 "" + FIELD S1[40,42] + FLAGS "Z" + USE LF_PCON SELECT ((CONTO!="")&&(SOTTOCONTO="")&&((INDBIL==1)||(INDBIL==2))) + COPY INPUT F_QANT_GR + INPUT CONTO F_QANT_CO + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Ind.Bil." INDBIL + DISPLAY "Descrizione@50" DESCR + COPY OUTPUT F_QANT_GR + OUTPUT F_QANT_CO CONTO + ADD RUN CG0 -0 + CHECKTYPE REQUIRED +END + +NUMBER F_QANT_SOT 6 +BEGIN + PROMPT 29 5 "" + FIELD S1[43,48] + FLAGS "Z" + USE LF_PCON SELECT SOTTOCONTO!="" + COPY INPUT F_QANT_CO + INPUT SOTTOCONTO F_QANT_SOT + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + DISPLAY "Descrizione@50" DESCR + COPY OUTPUT F_QANT_CO + OUTPUT F_QANT_SOT SOTTOCONTO + OUTPUT F_QANT_DES DESCR + ADD RUN CG0 -0 + CHECKTYPE REQUIRED +END + +STRING F_QANT_DES 50 32 +BEGIN + PROMPT 39 5 "" + USE LF_PCON KEY 2 SELECT SOTTOCONTO!="" + INPUT DESCR F_QANT_DES + DISPLAY "Descrizione@50" DESCR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + COPY OUTPUT F_QANT_SOT + ADD RUN CG0 -0 + CHECKTYPE NORMAL +END + +NUMBER F_QACC_GR 3 +BEGIN + PROMPT 2 6 "Amm. Accel. " + FIELD S1[49,51] + FLAGS "Z" + USE LF_PCON SELECT CONTO="" + INPUT GRUPPO F_QACC_GR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_QACC_GR GRUPPO + ADD RUN CG0 -0 + CHECKTYPE REQUIRED +END + +NUMBER F_QACC_CO 3 +BEGIN + PROMPT 22 6 "" + FIELD S1[52,54] + FLAGS "Z" + USE LF_PCON SELECT ((CONTO!="")&&(SOTTOCONTO="")&&((INDBIL==1)||(INDBIL==2))) + COPY INPUT F_QACC_GR + INPUT CONTO F_QACC_CO + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Ind.Bil." INDBIL + DISPLAY "Descrizione@50" DESCR + COPY OUTPUT F_QACC_GR + OUTPUT F_QACC_CO CONTO + ADD RUN CG0 -0 + CHECKTYPE REQUIRED +END + +NUMBER F_QACC_SOT 6 +BEGIN + PROMPT 29 6 "" + FIELD S1[55,60] + FLAGS "Z" + USE LF_PCON SELECT SOTTOCONTO!="" + COPY INPUT F_QACC_CO + INPUT SOTTOCONTO F_QACC_SOT + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + DISPLAY "Descrizione@50" DESCR + COPY OUTPUT F_QACC_CO + OUTPUT F_QACC_SOT SOTTOCONTO + OUTPUT F_QACC_DES DESCR + ADD RUN CG0 -0 + CHECKTYPE REQUIRED +END + +STRING F_QACC_DES 50 32 +BEGIN + PROMPT 39 6 "" + USE LF_PCON KEY 2 SELECT SOTTOCONTO!="" + INPUT DESCR F_QACC_DES + DISPLAY "Descrizione@50" DESCR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + COPY OUTPUT F_QACC_SOT + ADD RUN CG0 -0 + CHECKTYPE NORMAL +END + +ENDPAGE + ENDMASK