root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 10.0 730

Browse Source 
Files correlati     : cg4.exe cg5.exe
Ricompilazione Demo : [ ]
Commento

Bug     	0001615: Comunicazione annuale dati IVA

Aggiungere nella comunicaziona annuale dati iva le sezioni:
CD1 - 5 esposizione dei beni strumentali
CD2 - 5 aggiunta dei beni acquistati in leasing

Bug         0001614: 13° Liquidazione

Sistemare la dicitura nella 13° liq. da "fatture a liquidazione differita" in "fatture a liquidazione differita da incassare"

Bug        0001616: Liquidazione iva ad esig. differita : attenzione alla data di incasso

Il programma non gestisce correttamente le fatture incassate quando sul movimento di pagamento del saldaconto è riportata una data pagamento diversa da quella indicata come data di incasso sul movimento contabile della fattura stessa


git-svn-id: svn://10.65.10.50/trunk@20428 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2010-05-04 15:29:08 +00:00
parent fa14bc4cd1
commit bbd2c042d6
6 changed files with 67 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
cg/cg4301.cpp
View File

@ -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);

4
cg/cg4304.cpp
View File

@ -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

7
cg/cg5700.cpp
View File

@ -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));

2
cg/cg5700.h
View File

@ -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

74
cg/cg5700a.frm
View File

@ -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

6
cg/cg5700b.uml
View File

@ -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 "