Patch level : 12.0 934

Files correlati     : cg4.exe cg5000a.msk cg5300a.msk ba3.exe batbiva.msk f124.trr
Commento            :

 - Corretto ricalcolo saldi per i movimenti provvisori
 - Aggiunto calcolo pro rata con numeratore e denominatore impostato sui codici IVA

src/cg/cg4100.cpp

@@ -90,7 +90,7 @@ bool CG4100_App::sort_sal()
   sal.clear_saldi(year);
   long numreg = 0L;
   tiposal tsal = normale;
-  bool provvis = FALSE;
+  char provvis;
   TDate datareg;
 
   TString query; query << "USE RMOV SELECT ANNOES=" << _year;
@@ -108,14 +108,13 @@ bool CG4100_App::sort_sal()
       break;
     if (_year != rmov.get_int(RMV_ANNOES))
       continue;
-    
     numreg = rmov.get_long(RMV_NUMREG);
-      
     gruppo = rmov.get_int(RMV_GRUPPO);
     conto = rmov.get_int(RMV_CONTO);
     sottoconto = rmov.get_long(RMV_SOTTOCONTO);                     
 
     bool scaricato = false;
+    
 		if (numreg != oldnumreg)
     {
       if (sal.items() > 0)
@@ -143,7 +142,7 @@ bool CG4100_App::sort_sal()
       }  
 
       scaricato = mov.get_bool(MOV_SCARCON);
-      provvis   = mov.get(MOV_PROVVIS).not_empty();
+      provvis   = mov.get_char(MOV_PROVVIS);
       datareg   = mov.get_date(MOV_DATAREG);
 
       sal.set_anno_es(_year);

src/cg/cg4300.cpp

@@ -308,6 +308,9 @@ bool TLiquidazione_app::user_create()
   
   __firm = TApplication::get_firm();
 
+	_prorata_nd = ini_get_bool(CONFIG_STUDIO, "cg", "ProRataNumDen", false);
+
+
   pnd.add_status(1);
   
   if (_is_interactive)

src/cg/cg4300.h

@@ -273,6 +273,7 @@ class TLiquidazione_app : public TPrint_application
   bool       _stampa_acc;      // stampa trafiletto saldo/acconto 
   bool       _riepilogo;       // stampa riepilogo sul registro
   bool       _sind11;          // somma imposte non detraibili in trasferimento IVA11 (da configurazione dati studio)
+	bool			 _prorata_nd;			 // calcolo pro rata con numeratore e denominatore su codice IVA
 	tbc        _basecalc;        // tipo base di calcolo acconto
   TString8   _freqviva;        // frequenza versamenti (M|T)
   long       _n_ditte;         // numero ditte

src/cg/cg4301.cpp

@@ -1644,11 +1644,11 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt, TAssoc_array &
 							const TPartita& p = arrpart.partita(pagsca);
 							const TRiga_partite& rp = p.riga(nrigp);
 
-							datapag = rp.get(PART_DATAPAG);
+						  datapag = rp.get(PART_DATAREG);
 							if (!datapag.ok())
 								datapag = rp.get(PART_DATADOC);
 							if (!datapag.ok())
-								datapag = rp.get(PART_DATAREG);
+								datapag = rp.get(PART_DATAPAG);
 							if (datapag < datafat)
 								datapag = datafat;
 						}
@@ -2922,10 +2922,10 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt, TAssoc_array &
       
       // Somma i vari prorata calcolati per gli anni precedenti
       prorata += prorata_precedente1 + prorata_precedente2;
-	  acquisti_iva -= prorata; // Rettifica acquisti_iva
 	  prorata += prorata_diff;
 	  if (!lia.get_bool("B7"))
 			prorata = ZERO;
+		acquisti_iva -= prorata; // Rettifica acquisti_iva
 	  fdiffinc_iva_acq -= prorata_diff; // Rettifica acquisti_iva differiti incassati
     }
     look_plm(month, codatt, true);   
@@ -4259,20 +4259,30 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
 				real es_c1a_am = _pla->get_real("R17");
 				real csamm = _pla->get_real("R4");
 				real ven_rev = _pla->get_real("R18");
+
 				real prorata;
 				real conguaglio;
 				real topay;
-        const real ris = vf1 + vf2;  // gia' esclusi: NS, B3, cess. amm
 
 				// calcola nuovo prorata dal 1998 per ogni attivita' (miste: 1+2)
-        const real rsa = ris - (es_c1a-es_c1a_am) - (es_c3-es_c3_am) - ven_rev;
+				if (_prorata_nd)
-        const real rsn = rsa - es_c1;
-        if (!rsa.is_zero())
 				{
-          prorata = CENTO - (rsn * CENTO / rsa); // Percentuale di indetraibilità: reciproco della detraibilità
+					const real rsd = _pla->get_real("R20");
-          prorata.round(0);
+					const real rsn = _pla->get_real("R19");
-        }
 
+					if (rsd != ZERO)
+						prorata = CENTO - (rsn * CENTO / rsd); // Percentuale di indetraibilita: reciproco della percentuale di detraibilita'
+				}
+				else
+				{
+					const real ris = vf1 + vf2;  // gia' esclusi: NS, B3, cess. amm
+					const real rsd = ris - (es_c1a - es_c1a_am) - (es_c3 - es_c3_am) - ven_rev;
+					const real rsn = rsd - es_c1;
+
+					if (!rsd.is_zero())
+						prorata = CENTO - (rsn * CENTO / rsd); // Percentuale di indetraibilità: reciproco della detraibilità
+				}
+				prorata.round(0);
 				// calcolo conguaglio -- se positivo e' a debito
         if (prorata > ZERO && lia.get_bool("B7"))
         {
@@ -4590,20 +4600,20 @@ void TLiquidazione_app::recalc_annual(const char* att, bool & first)
 {
   // viene chiamata 2 volte per le att.  miste; PLA e' stata
   // azzerata dove serve da update_firm se siamo all'annuale
-  real es_c1    = 0.0;
+  real es_c1;
-  real es_c2    = 0.0;
+  real es_c2;
-  real es_c3    = 0.0;
+  real es_c3;
-  real es_c1a   = 0.0;
+  real es_c1a;
-  real es_c3_am = 0.0;
+  real es_c3_am;
-  real es_c1a_am= 0.0;
+  real es_c1a_am;
-  real cess_amm = 0.0;
+  real cess_amm;
-  real vendite  = 0.0;
+  real vendite;
-  real pro_pag  = 0.0;
+  real pro_pag;
-  real iva_acq  = 0.0;
+  real iva_acq;
-  real ven_lrd  = 0.0;  
+  real ven_lrd;  
-  real volaff1  = 0.0;
+  real volaff1;
-  real volaff2  = 0.0;
+  real volaff2;
-  real ven_rev  = 0.0;
+  real ven_rev;
 	
   TString4 codiva,reg,tiva;
   TToken_string va7("",'!');
@@ -4634,6 +4644,8 @@ void TLiquidazione_app::recalc_annual(const char* att, bool & first)
   TAssoc_array corr_ann;
   _CorrItem *cc;
   bool is_key;
+  real num_pro_rata;
+  real den_pro_rata;
   
   _pim->zero(); _pim->put("CODTAB", _year); // 24-02-2014 Partiamo dall'anno giusto
 	for (int err = _pim->read(_isgteq); err == NOERR; err = _pim->next())
@@ -4641,6 +4653,7 @@ void TLiquidazione_app::recalc_annual(const char* att, bool & first)
 		if (_year != *_pim_anno || _month != atoi(*_pim_mese)) // In questo caso _month vale sempre 13
 			continue;
 
+
 		const int tipocr = atoi(*_pim_tipocr);
 		codiva = *_pim_codiva;
 		reg = *_pim_codreg;
@@ -4680,6 +4693,15 @@ void TLiquidazione_app::recalc_annual(const char* att, bool & first)
 			volaff1 += imp_ifs;
 		else
 			volaff2 += imp_ifs;
+		if (_prorata_nd)
+		{
+			TCodiceIVA ci(codiva);
+
+			if (ci.numeratore_pro_rata())
+				num_pro_rata += imp_ifs;
+			if (ci.denominatore_pro_rata())
+				den_pro_rata += imp_ifs;
+		}
 	}
   
   // Ora si scorporano i corrispettivi raggruppati per codice IVA  e si totalizzano gli imponibili
@@ -4692,6 +4714,15 @@ void TLiquidazione_app::recalc_annual(const char* att, bool & first)
       volaff1 += imp;
     else 
       volaff2 += imp;
+		if (_prorata_nd)
+		{
+			TCodiceIVA ci(codiva);
+
+			if (ci.numeratore_pro_rata())
+				num_pro_rata += imp;
+			if (ci.denominatore_pro_rata())
+				den_pro_rata += imp;
+		}
   } 
   
   // calcola esenti, cessioni, lordo vendite, prorata pagato
@@ -4757,8 +4788,9 @@ void TLiquidazione_app::recalc_annual(const char* att, bool & first)
 			const int tipomov = id.get(ID_TIPOMOV).as_int();
 			const int annoliq = id.get(ID_ANNOLIQ).as_int();
 			const TDate dataregp = id.get(ID_DATAREGP).as_date();
-			const TImporto imp(sezione, id.get(RMI_IMPONIBILE).as_real());
+			TImporto imp(sezione, id.get(RMI_IMPONIBILE).as_real());
 
+			imp.normalize('D');
 			key = id.get(ID_NUMREG).as_string();
 			key.add(id.get(ID_NUMRIG).as_string());
 			codiva = cache().get(LF_RMOVIVA, key, RMI_CODIVA);
@@ -4774,6 +4806,15 @@ void TLiquidazione_app::recalc_annual(const char* att, bool & first)
 				}
 				if ((annoliq == year) && (tipoiva == 1))
 					tot1 += imp;
+				if (_prorata_nd)
+				{
+					TCodiceIVA ci(codiva);
+					
+					if (ci.numeratore_pro_rata())
+						num_pro_rata += imp.valore();
+					if (ci.denominatore_pro_rata())
+						den_pro_rata += imp.valore();
+				}
 			}
 		}
 		first = false;
@@ -4795,6 +4836,11 @@ void TLiquidazione_app::recalc_annual(const char* att, bool & first)
   _pla->put("R14", volaff1);      
   _pla->put("S1",  volaff2.string());
   _pla->put("R18", ven_rev);
+	if (_prorata_nd)
+	{
+		_pla->put("R19", num_pro_rata);
+		_pla->put("R20", den_pro_rata);
+	}
 	_pla->rewrite();
 }
 

src/cg/cg4304.cpp

@@ -1095,7 +1095,7 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt, const bool
       // calcolo del prorata o del nuovo plafond o ....
       if (look_pla(codatt))
       { 
-        real v1 = _pla->get_real("R14"); // Totale imponibile vendite
+        real v1 = _pla->get_real("R14"); // Volume d'affari I attività
         real v2 = _pla->get_real("S1");  // Volume d'affari II attività
         real ris = v1 + v2;
         real e1 = _pla->get_real("R1");   // Totale vendite esenti C1
@@ -1108,32 +1108,44 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt, const bool
         real vrc = _pla->get_real("R18"); // Vendite reverse charge
         real iaq = _pla->get_real("R11"); // IVA acquisti
         real ppg = _pla->get_real("R12"); // pro-rata pagato
-				real ven_rev = _pla->get_real("R18");
-
         // calcola nuovo prorata per ogni attivita' (miste: 1+2)
-        real pr; 
+				real prorata;
-        const real rsa = ris - (e3-e5) - (e4-e6) - ven_rev;
+				real rsd;
-				const real rsn = rsa - e1;
+				real rsn;
 				
-				if (!rsa.is_zero())
+				if (_prorata_nd)
 				{
-          pr = CENTO - (rsn * CENTO / rsa); // Percentuale di indetraibilita: reciproco della percentuale di detraibilita'
+					rsd = _pla->get_real("R20");
-          pr.round(0);
+					rsn = _pla->get_real("R19");
+
+					if (!rsd.is_zero())
+						prorata = CENTO - (rsn * CENTO / rsd); // Percentuale di indetraibilita: reciproco della percentuale di detraibilita'
 				}
+				else
+				{
+					rsd = ris - (e3 - e5) - (e4 - e6) - vrc;
+					rsn = rsd - e1;
+
+					if (!rsd.is_zero())
+						prorata = CENTO - (rsn * CENTO / rsd); // Percentuale di indetraibilita: reciproco della percentuale di detraibilita'
+				}
+				prorata.round(0);
 
         real co = 0.0;  
         real topay = 0.0;
-        //if (pr != _prorata.current())
+        
-        {
 				// calcolo conguaglio -- se positivo e' a debito
-          if (pr > ZERO)
+				const TRectype & lia = get_lia();
+
+				if (prorata > ZERO && lia.get_bool("B7"))
 				{
-            topay = (iaq + ppg) * pr / CENTO;
+					topay = (iaq + ppg) * prorata / CENTO;
 					round_imposta(topay);
 				}
+				else
+					prorata = ZERO;
         co = topay - ppg;
         round_imposta(co);
-        }
           
         _DescrItem* dd = new _DescrItem(ANNUAL);
           
@@ -1156,7 +1168,7 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt, const bool
 				}
         dd->_r0 = ris;
         dd->_r1 = e1;
-        dd->_r2 = pr > ZERO ? pr : ZERO;
+        dd->_r2 = prorata;
         dd->_r3 = co;
         dd->_r4 = e2;
         dd->_r5 = e3;   
@@ -1165,8 +1177,9 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt, const bool
         dd->_r8 = e5;
         dd->_r9 = e6;
         dd->_r10 = vrc;
-				dd->_ra0 = rsa;
+				dd->_ra0 = rsn;
-				dd->_ra1 = rsn;
+				dd->_ra1 = rsd;
+				dd->_ra2 = vrc;
 				t->_arr.add(dd);
       }
     }
@@ -2792,7 +2805,7 @@ bool TLiquidazione_app::set_annual(_DescrItem& d)
   int row = get_maxrow()+1;   
   if (row == 1) row = 4;
   
-  if (d._f0 & IS_PRORATA)
+  if ((d._r2 > ZERO) && (d._f0 & IS_PRORATA))
   {                                    
     // non lo ha stampato prima se annuale, perche' Vladimiro il nefido pretende l'assurdo aggiornamento della perc. a quella nuova
     const int year_int = atoi(_year);
@@ -2817,20 +2830,46 @@ bool TLiquidazione_app::set_annual(_DescrItem& d)
 			set_row(row++, FR("%% PRO-RATA (%s%%) ed IVA non detraibile (%s%%)@69g%r"), (const char*)s1, (const char*)s2, &(d._r6));
 		else
 			set_row(row++, FR("%% PRO-RATA (%s%%)"), (const char*)s1);
-		set_row(row++, FR("Numeratore pro-rata                                        @69g%r"), &(d._ra1));
-		set_row(row++, FR("Denominatore                                               @69g%r"), &(d._ra0));
-#ifdef DBG
-        set_row(row++, FR("Numeratore pro-rata 1                                      @69g%r"), &(d._ra3));
-		set_row(row++, FR("Denominatore        1                                      @69g%r"), &(d._ra2));
-#endif
 		set_row(row++, FR("Detraibilità                                               @69g%r%%"), &perc_det);
 		row++;
+		if (_prorata_nd)
+		{
+			set_row(row++, FR("Numeratore pro-rata                                        @69g%r"), &(d._ra0));
+			set_row(row++, FR("Denominatore                                               @69g%r"), &(d._ra1));
+		}
+		else
+		{
+			set_row(row++, FR("    - Volume d'affari                                      @69g%r"), &(vol_aff));
 			set_row(row++, FR("C1  - Operazioni esenti escluse da nr. 1 a 9 e 11 art. 10  @69g%r"), &(d._r1));
 			set_row(row++, FR("C2  - Operazioni esenti di cui nr. 11 art. 10              @69g%r"), &(d._r4));
 			set_row(row++, FR("C3  - Operazioni esenti da nr. 1 a 9 art. 10               @69g%r"), &(d._r5));
 			set_row(row++, FR("@6gdi cui cessione beni ammortizzabili                     @69g%r"), &(d._r8));
+			
+			const real diff1 = d._r5 - d._r8;
+			
+			if (diff1 != ZERO)
+			{
+				set_row(row++, FR("@69g----------------"));
+				set_row(row++, FR("6g    Differenza                                           @69g%r"), &(diff1));
+				row++;
+			}
 			set_row(row++, FR("C1A - Operazioni esenti di cui all'art.10 n. 27 quinquies  @69g%r"), &(d._r7));
 			set_row(row++, FR("@6gdi cui cessione beni ammortizzabili                     @69g%r"), &(d._r9));
+			
+			const real diff2 = d._r7 - d._r9;
+			
+			if (diff2 != ZERO)
+			{
+				set_row(row++, FR("@69g----------------"));
+				set_row(row++, FR("6g    Differenza                                           @69g%r"), &(diff2));
+				row++;
+			}
+			set_row(row++, FR("    - Vendite Reverse Charge                               @69g%r"), &(d._ra2));
+			set_row(row++, FR("Numeratore pro-rata                                        @69g%r"), &(d._ra0));
+			set_row(row++, FR("   Volume d'affari - C3(senza beni amm.)  - C1A(senza beni amm.) - vendite reverse charge "));
+			set_row(row++, FR("Denominatore                                               @69g%r"), &(d._ra1));
+			set_row(row++, FR("   Denominatore - C1                                       "));
+		}
 //		set_row(row++, FR("Volume d'affari                                           @69g%r"), &vol_aff);
 //		set_row(row++, FR("Totale vendite al fine del calcolo del pro-rata           @69g%r"), &vol_aff);
 

src/cg/cg5000a.h

@@ -20,3 +20,4 @@
 #define CHK_RICACQ    120
 #define CHK_NOIDRG    121
 #define CHK_02GESCOMPCR 122
+#define CHK_PRORATAND 123

src/cg/cg5000a.uml

@@ -6,7 +6,7 @@ ENDPAGE
 
 PAGE "Parametri contabilità" 0 0 0 2
 
-GROUPBOX DLG_NULL 74 10
+GROUPBOX DLG_NULL 74 11
 BEGIN
 	PROMPT 1 1 "@bParametri IVA"
 END
@@ -98,28 +98,34 @@ BEGIN
 	CHECKTYPE NORMAL
 END
 
+BOOLEAN CHK_PRORATAND
+BEGIN
+  PROMPT 3 10  "Calcolo Pro rata con numeratore e denominatore"
+  FIELD ProRataNumDen
+END
+
 GROUPBOX DLG_NULL 74 5
 BEGIN
-	PROMPT 1 13 "@bStampa registri"
+	PROMPT 1 14 "@bStampa registri"
 END
 
 BOOLEAN CHK_STIREG
 BEGIN
-  PROMPT 3 14  "Stampare l'intestazione sui registri bollati"
+  PROMPT 3 15  "Stampare l'intestazione sui registri bollati"
   HELP "Indicare se stampare l'intestazione della ditta sui registri"
 	FIELD StiReg
 END
 
 BOOLEAN CHK_NODTRG
 BEGIN
-	PROMPT 3 15  "Non stampare la data di operazione"
+	PROMPT 3 16  "Non stampare la data di operazione"
   HELP "Indicare se non stampare la data dell'operazione sui registri IVA"
 	FIELD NoDtRg
 END
 
 BOOLEAN CHK_NOIDRG
 BEGIN
-	PROMPT 3 16  "Non stampare il prospetto IVA differita o per cassa"
+	PROMPT 3 17  "Non stampare il prospetto IVA differita o per cassa"
   HELP "Indicare se non stampare il prospetto dell'IVA differita o per cassa"
 	FIELD NoIdRg
 END

src/cg/cg5200.h

@@ -1,12 +1,12 @@
-#define F_ANNO 101
+#define F_ANNO 201
-#define F_TIPOCF 102
+#define F_TIPOCF 202
-#define F_GRUPPO 103
+#define F_GRUPPO 203
-#define F_CONTO 104
+#define F_CONTO 204
-#define F_SOTTOCONTO 105
+#define F_SOTTOCONTO 205
-#define F_SOTTOC_CLIENTE 106
+#define F_SOTTOC_CLIENTE 206
-#define F_SOTTOC_FORN 107
+#define F_SOTTOC_FORN 207
-#define F_DESCR_CONTO 108
+#define F_DESCR_CONTO 208
-#define F_DESCR_CLIENTE 109
+#define F_DESCR_CLIENTE 209
-#define F_DESCR_FORN 110
+#define F_DESCR_FORN 210
-#define F_SHEET_SALDI 111 
+#define F_SHEET_SALDI 211 
-#define F_SCARICATO 112
+#define F_SCARICATO 212

src/cg/cg5300a.uml

@@ -103,6 +103,12 @@ BEGIN
   FIELD B4
 END
 
+BOOLEAN F_PRORATAC
+BEGIN
+  PROMPT 47 6 "Calcolo Pro rata"
+  FIELD B7
+END
+
 BOOLEAN F_GESIC
 BEGIN
   PROMPT 4 7 "Gestione IVA per cassa"
@@ -151,12 +157,6 @@ BEGIN
   FIELD B6
 END
 
-BOOLEAN F_PRORATAC
-BEGIN
-  PROMPT 50 9 "Calcolo Pro rata"
-  FIELD B7
-END
-
 GROUPBOX DLG_NULL 78 6
 BEGIN
   PROMPT 1 11 "@bCredito"

src/cg/cglib02.cpp

@@ -872,7 +872,7 @@ void TTab_conti::aggiorna_conto(const TBill& tcon,
 ///////////////////////////////////////////////////////////
 
 TSaldo_agg::TSaldo_agg() : _anno_es(0), _data_ulmov(""), _num_ulmov(0l), 
-                           _movap(normale), _provv(false), _movimentato(false) 
+                           _movap(normale), _provv(' '), _movimentato(false) 
 {}
 
 void TSaldo_agg::aggiorna(const TBill& tc, const TImporto& imp, bool somma, bool scaricato)