Patch level : 10.0 730

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

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

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

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

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

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"
+ KEY "CD2_3 - Descrizione"
- PROMPT 6 27 "        acquisti intracomunitari di beni"
+ 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

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     "