From f5d8badd2ba259717ac22d2c55a657f00dc28287 Mon Sep 17 00:00:00 2001
From: bonazzi <bonazzi@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Wed, 18 Jan 2017 20:13:41 +0000
Subject: [PATCH] Patch level         : 12.0 332 Files correlati     :

Patch 332Patch level         : 12.0 332
Files correlati     : ve0.exe ve6.exe

Aggiunte le spese di trasporto all'imponibile intra suddivise per nomenclatura.
La tabella spese ha ora una tipologia di spesa esplicita ( Altro, Incasso, Rimborsi, Trasporto).


git-svn-id: svn://10.65.10.50/branches/R_10_00@23539 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 src/ve/velib04b.cpp | 52 +++++++++++++++++++++++++--------------------
 1 file changed, 29 insertions(+), 23 deletions(-)

diff --git a/src/ve/velib04b.cpp b/src/ve/velib04b.cpp
index a95d088a1..4f91ab197 100755
--- a/src/ve/velib04b.cpp
+++ b/src/ve/velib04b.cpp
@@ -3807,7 +3807,30 @@ error_type TContabilizzazione::write_intra(TDocumento& doc)
   // Effettuando il raggruppamento in un comodo TAssoc_array
   TToken_string key;
   int numrig = 1;
-  FOR_EACH_PHYSICAL_RDOC(doc, i, prdoc) if (prdoc->is_articolo())
+	const real spese = doc.spese(TIPO_SPESE_TRASPORTO);
+	real speselit = spese;
+
+	if (is_val)
+	{
+    TCurrency_documento sp(speselit, doc);
+    sp.change_to_firm_val();
+    speselit = sp.get_num();
+	}
+
+	TGeneric_distrib d(spese, doc.decimals());
+	TGeneric_distrib dlit(speselit, TCurrency::get_firm_dec());
+
+	FOR_EACH_PHYSICAL_RDOC(doc, i, prdoc0) if (prdoc0->is_articolo())
+  {
+    const TRiga_documento& rr = doc[i];
+	  TCurrency_documento imp_val(rr.TVariable_rectype::exist("VALINTRA") ? rr.get_real("VALINTRA") : rr.importo(true, false), doc);
+    TCurrency_documento imp(imp_val); imp.change_to_firm_val();
+  
+		d.add(imp_val.get_num());
+		dlit.add(imp.get_num());
+	}
+
+	FOR_EACH_PHYSICAL_RDOC(doc, i, prdoc) if (prdoc->is_articolo())
   {
     const TRiga_documento& rr = doc[i];
     const TRectype& rec_anamag = cchh.get(LF_ANAMAG, rr.get(RDOC_CODARTMAG));
@@ -3881,7 +3904,11 @@ error_type TContabilizzazione::write_intra(TDocumento& doc)
     const real qta = rr.get_real(RDOC_QTA);
     TCurrency_documento imp_val(rr.TVariable_rectype::exist("VALINTRA") ? rr.get_real("VALINTRA") : rr.importo(true, false), doc);
     TCurrency_documento imp(imp_val); imp.change_to_firm_val();
-    imp_val.change_value(codvali, cambioi);
+
+		imp_val += d.get();
+		imp += dlit.get();
+		imp_val.change_value(codvali, cambioi);
+
     real ammeuro   = rc->get_real("AMMLIRE");
     real ammvaluta = rc->get_real("AMMVALUTA");
     real massakg   = rc->get_real("MASSAKG");
@@ -3963,37 +3990,16 @@ error_type TContabilizzazione::write_intra(TDocumento& doc)
 			totale_righe += imp.get_num();
   }
 
-  if (nota_credito)
-		totale_righe -= doc.spese(TIPO_SPESE_TRASPORTO);  
-	else
-		totale_righe += doc.spese(TIPO_SPESE_TRASPORTO);
    
   if (_error == no_error)
   {
-		TGeneric_distrib d(doc.spese(TIPO_SPESE_TRASPORTO));
     TRectype* rc;
-
-    for(rc = (TRectype*)righe.first_item(); rc != NULL; rc = (TRectype*)righe.succ_item()) 
-			d.add(is_val ? rc->get_real("AMMVALUTA") : rc->get_real("AMMLIRE"));
     // Copia il contenuto dell'assoc nel record array
 		rc = new TRectype(LF_RINTRA);
     rc->put("NUMREG", numreg);
     rintra.set_key(rc);
     for(rc = (TRectype*)righe.first_item(); rc != NULL; rc = (TRectype*)righe.succ_item()) 
-		{
-			real amm = is_val ? rc->get_real("AMMVALUTA") : rc->get_real("AMMLIRE");
-			
-			amm += d.get();
-			rc->put(is_val ? "AMMVALUTA" : "AMMLIRE", amm);
-			if (is_val)
-			{
-				TCurrency_documento imp(amm, doc);
-				
-				imp.change_to_firm_val();
-				rc->put("AMMLIRE", imp.get_num());
-			}
       rintra.add_row(*rc); // Devo aggiungere una copia della riga dell'assoc array!
-		}
     // Testa (de coccio...)
     intra.zero();
     intra.put("NUMREG",    numreg);