diff --git a/cg/cg4301.cpp b/cg/cg4301.cpp index 9c17fa565..62b0358d7 100755 --- a/cg/cg4301.cpp +++ b/cg/cg4301.cpp @@ -599,6 +599,7 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt) real cessioni_cd1_2 = ZERO; // non imponibili real cessioni_cd1_3 = ZERO; // esenti real cessioni_cd1_4 = ZERO; // intra + real cessioni_cd1_5 = ZERO; // beni strumentali real acquisti_cd2_1 = ZERO; // Totale operazioni passive real acquisti_cd2_2 = ZERO; // non imponibili real acquisti_cd2_3 = ZERO; // esenti @@ -851,7 +852,7 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt) TPartite_array arrpart; const long numreg = _mov->get_long(MOV_NUMREG); - if (has_sc && movdiff) + if (has_sc && movdiff && (!datainc.ok() || datainc > inizio)) { arrpart.add_numreg(numreg); if (arrpart.utilizzata(numreg, 1)) @@ -1204,6 +1205,11 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt) sosp_imp != normale && sosp_imp != liquidazione) { cessioni_cd1_1 += imponibile; + if (iva_vpn.starts_with("CD1")) + { + if (tipocr == 4) + cessioni_cd1_5 += imponibile; + } if (!cau_intra) { if (iva_vpn == "CD12") @@ -1225,7 +1231,7 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt) acquisti_cd2_1 += imponibile; if (iva_vpn.starts_with("CD2")) { - if (tipocr == 2 || tipocr == 3) + if (tipocr == 2 || tipocr == 3 || tipocr == 8) acquisti_cd2_5 += imponibile; } if (!cau_intra) @@ -2214,6 +2220,7 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt) _pum->put("R24", rottami_cd3_3); _pum->put("R25", rottami_cd3_4); _pum->put("R26", acquisti_cd2_5); + _pum->put("R27", cessioni_cd1_5); _pam->put("R0", acquisti); _pam->put("R1", vendite); _pam->put("R6", assp_imp); diff --git a/cg/cg4304.cpp b/cg/cg4304.cpp index 6cde06046..b88d9b559 100755 --- a/cg/cg4304.cpp +++ b/cg/cg4304.cpp @@ -1702,7 +1702,7 @@ void TLiquidazione_app::set_pim_head(_DescrItem& d) set_row(r++,""); if (d._flags == PIM_HEAD_D) { - set_row(r++, TR("Fatture a liquidazione differita")); + set_row(r++, TR("Fatture a liquidazione differita da incassare")); set_bookmark(TR("Riepilogo progressivi a liquidazione differita"), _att_bookmark); } else @@ -1722,7 +1722,7 @@ void TLiquidazione_app::set_pim_head(_DescrItem& d) else if (d._flags == PIS_HEAD_D) { - set_row(r++, TR("Fatture a liquidazione differita")); + set_row(r++, TR("Fatture a liquidazione differita da incassare")); set_bookmark(TR("Riepilogo progressivi successivi a liquidazione differita"), _att_bookmark); } else diff --git a/cg/cg5700.cpp b/cg/cg5700.cpp index 4e9b9584b..5100edb13 100755 --- a/cg/cg5700.cpp +++ b/cg/cg5700.cpp @@ -295,6 +295,7 @@ void TDich_periodica_iva_mask::read_iva_data() real cd1_2 = ZERO; real cd1_3 = ZERO; real cd1_4 = ZERO; + real cd1_5 = ZERO; real cd2_1 = ZERO; real cd2_2 = ZERO; real cd2_3 = ZERO; @@ -337,11 +338,12 @@ void TDich_periodica_iva_mask::read_iva_data() cd3_3 += pum.get_real("R24"); cd3_4 += pum.get_real("R25"); cd2_5 += pum.get_real("R26"); + cd1_5 += pum.get_real("R27"); } } // Arrotondare tutto all'Euro - cd1_1.round(); cd1_2.round(); cd1_3.round(); cd1_4.round(); + cd1_1.round(); cd1_2.round(); cd1_3.round(); cd1_4.round(); cd1_5.round(); cd2_1.round(); cd2_2.round(); cd2_3.round(); cd2_4.round(); cd2_5.round(); cd3_1.round(); cd3_2.round(); cd3_3.round(); cd3_3.round(); @@ -365,7 +367,7 @@ void TDich_periodica_iva_mask::read_iva_data() else cd6_2 = -cd6; - set(F_CD1_1, cd1_1); set(F_CD1_2, cd1_2); set(F_CD1_3, cd1_3); set(F_CD1_4, cd1_4); + set(F_CD1_1, cd1_1); set(F_CD1_2, cd1_2); set(F_CD1_3, cd1_3); set(F_CD1_4, cd1_4); set(F_CD1_5, cd1_5); set(F_CD2_1, cd2_1); set(F_CD2_2, cd2_2); set(F_CD2_3, cd2_3); set(F_CD2_4, cd2_4); set(F_CD2_5, cd2_5); set(F_CD3_1, cd3_1); set(F_CD3_2, cd3_2); set(F_CD3_3, cd3_3); set(F_CD3_4, cd3_4); set(F_CD4, cd4); set(F_CD5, cd5); @@ -387,6 +389,7 @@ void TDich_periodica_iva_mask::print_prospect() frm.find_field('B', odd_page, FF_CD1_2).set(get(F_CD1_2)); frm.find_field('B', odd_page, FF_CD1_3).set(get(F_CD1_3)); frm.find_field('B', odd_page, FF_CD1_4).set(get(F_CD1_4)); + frm.find_field('B', odd_page, FF_CD1_5).set(get(F_CD1_5)); frm.find_field('B', odd_page, FF_CD2_1).set(get(F_CD2_1)); frm.find_field('B', odd_page, FF_CD2_2).set(get(F_CD2_2)); diff --git a/cg/cg5700.h b/cg/cg5700.h index 95b3a23c8..425c6559d 100755 --- a/cg/cg5700.h +++ b/cg/cg5700.h @@ -19,6 +19,7 @@ #define F_CD6_1 119 #define F_CD6_2 120 #define F_CD2_5 121 +#define F_CD1_5 122 #define FF_YEAR 101 #define FF_CODDITTA 102 @@ -40,3 +41,4 @@ #define FF_CD6_1 119 #define FF_CD6_2 120 #define FF_CD2_5 121 +#define FF_CD1_5 122 diff --git a/cg/cg5700a.frm b/cg/cg5700a.frm index 635df1fe3..a4704c772 100755 --- a/cg/cg5700a.frm +++ b/cg/cg5700a.frm @@ -174,111 +174,123 @@ END STRINGA -1 BEGIN - PROMPT 2 22 "______________________________________________________________________________" + KEY "CD12_5 - Descrizione" + PROMPT 6 22 "di cui: acquisti beni strumentali" +END + +VALUTA FF_CD1_5 18 +BEGIN + KEY "CD1_5 - Valore" + PROMPT 40 22 "@b" END STRINGA -1 BEGIN - PROMPT 2 23 "@b- OPERAZIONI PASSIVE -" + PROMPT 2 23 "______________________________________________________________________________" +END + +STRINGA -1 +BEGIN + PROMPT 2 24 "@b- OPERAZIONI PASSIVE -" END STRINGA -1 BEGIN KEY "CD2_1 - Descrizione" - PROMPT 2 24 "@bCD2@r Totale operazioni passive" + PROMPT 2 25 "@bCD2@r Totale operazioni passive" END VALUTA FF_CD2_1 18 BEGIN KEY "CD2_1 - Valore" - PROMPT 40 24 "@b" + PROMPT 40 25 "@b" END STRINGA -1 BEGIN KEY "CD2_2 - Descrizione" - PROMPT 6 25 "di cui: operazioni non imponibili" + PROMPT 6 26 "di cui: operazioni non imponibili" END VALUTA FF_CD2_2 18 BEGIN KEY "CD2_2 - Valore" - PROMPT 60 25 "@b" -END - -STRINGA -1 -BEGIN - KEY "CD2_3 - Descrizione" - PROMPT 6 26 " operazioni esenti" -END - -VALUTA FF_CD2_3 18 -BEGIN - KEY "CD2_3 - Valore" PROMPT 60 26 "@b" END STRINGA -1 BEGIN - KEY "CD2_4 - Descrizione" - PROMPT 6 27 " acquisti intracomunitari di beni" + KEY "CD2_3 - Descrizione" + PROMPT 6 27 " operazioni esenti" END -VALUTA FF_CD2_4 18 +VALUTA FF_CD2_3 18 BEGIN - KEY "CD2_4 - Valore" + KEY "CD2_3 - Valore" PROMPT 60 27 "@b" END STRINGA -1 BEGIN KEY "CD2_4 - Descrizione" - PROMPT 6 28 "di cui: acquisti beni strumentali" + PROMPT 6 28 " acquisti intracomunitari di beni" +END + +VALUTA FF_CD2_4 18 +BEGIN + KEY "CD2_4 - Valore" + PROMPT 60 28 "@b" +END + +STRINGA -1 +BEGIN + KEY "CD2_5 - Descrizione" + PROMPT 6 29 "di cui: acquisti beni strumentali" END VALUTA FF_CD2_5 18 BEGIN KEY "CD2_5 - Valore" - PROMPT 40 28 "@b" + PROMPT 40 29 "@b" END STRINGA -1 BEGIN KEY "CD3 - Descrizione" - PROMPT 2 30 "@b-Importazioni d'oro industriale e argento puro senza pagamento IVA in dogana-" + PROMPT 2 31 "@b-Importazioni d'oro industriale e argento puro senza pagamento IVA in dogana-" END STRINGA -1 BEGIN - PROMPT 2 31 "@bCD3@r Imponibile" + PROMPT 2 32 "@bCD3@r Imponibile" END VALUTA FF_CD3_1 18 BEGIN KEY "CD3_1 - Imponibile" - PROMPT 20 31 "@b" + PROMPT 20 32 "@b" END STRINGA -1 BEGIN - PROMPT 50 31 "@rImposta" + PROMPT 50 32 "@rImposta" END VALUTA FF_CD3_2 18 BEGIN KEY "CD3_2 - Imposta " - PROMPT 60 31 "@b" + PROMPT 60 32 "@b" END STRINGA -1 BEGIN KEY "CD3 - Descrizione" - PROMPT 2 32 "@b-Rottami e altri materiali di recupero-" + PROMPT 2 33 "@b-Rottami e altri materiali di recupero-" END STRINGA -1 BEGIN - PROMPT 2 33 "@bCD3@r Imponibile" + PROMPT 2 34 "@bCD3@r Imponibile" END VALUTA FF_CD3_3 18 @@ -289,7 +301,7 @@ END STRINGA -1 BEGIN - PROMPT 50 33 "@rImposta" + PROMPT 50 34 "@rImposta" END VALUTA FF_CD3_4 18 diff --git a/cg/cg5700b.uml b/cg/cg5700b.uml index dbb37a41e..57632d76b 100755 --- a/cg/cg5700b.uml +++ b/cg/cg5700b.uml @@ -64,6 +64,12 @@ BEGIN FLAGS "D" END +CURRENCY F_CD1_5 18 +BEGIN + PROMPT 1 8 " di cui: cess. beni strument. " + FLAGS "D" +END + CURRENCY F_CD2_1 18 BEGIN PROMPT 1 9 "@bCD2 Operazioni passive "