From 2977212c009af5f2420c93b0c6dda9d0e7ec2614 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 24 Jun 2022 18:34:28 -0700
Subject: [PATCH] =?UTF-8?q?--=20mejora=20en=20emisi=C3=B3n=20usd-mxn,=20co?=
 =?UTF-8?q?mplemento=20pago=204.0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/CFDITimbre.vb | 4 ++--
 App_Code/Timbrado.vb   | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/App_Code/CFDITimbre.vb b/App_Code/CFDITimbre.vb
index c1f2e0bf7..34560682c 100644
--- a/App_Code/CFDITimbre.vb
+++ b/App_Code/CFDITimbre.vb
@@ -640,7 +640,7 @@ Public Class CFDIComplementoPago
                     End If
                 Next
             Next
-            'ya generado todos los registros posibles, los agrupo y los sumo
+            'ya generado todos los registros posibles, los agrupo y los sumo   
             If tRetorno.Count > 0 Then
                 TTraslados = tRetorno.GroupBy(Function(t) New With {Key t.TipoFactor, Key t.Impuesto, Key t.TasaOCuota}) _
                                         .Select(Function(t) New CFDITraslados With {.Impuesto = t.Key.Impuesto,
@@ -648,7 +648,7 @@ Public Class CFDIComplementoPago
                                                  .TasaOCuota = t.Key.TasaOCuota,
                                                  .Base = t.Sum(Function(tt) tt.Base),
                                                  .Importe = t.Sum(Function(tt) tt.Importe),
-                                                 .BaseMN = t.Sum(Function(tt) tt.BaseMN),
+                                                 .BaseMN = t.Sum(Function(tt) tt.BaseMN).TruncateDecimal, '' se trunca solo al final, NO EN EL DESGLOSE,
                                                  .ImporteMN = t.Sum(Function(tt) tt.ImporteMN)}) _
                                         .OrderBy(Function(x) x.Impuesto).ToList
 
diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 94e8e4207..2fea81acd 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -1166,8 +1166,8 @@ Public Class Timbrado
                                                 .TasaOCuota = drp("PorcentajeImpuesto").ToString().ToDecimal,
                                                 .Impuesto = drp("TipoImpuesto").ToString,
                                                 .Importe = drp("Importe").ToString().ToDecimal.RoundSQL,
-                                                .BaseMN = Math.Round((drp("Base").ToString.ToDecimal / Equivalencia), 2),
-                                                .ImporteMN = Math.Round((drp("Importe").ToString.ToDecimal / Equivalencia), 2)
+                                                .BaseMN = Math.Round((drp("Base").ToString.ToDecimal / Equivalencia), 6),
+                                                .ImporteMN = Math.Round((drp("Importe").ToString.ToDecimal / Equivalencia), 6)
                                               }
                                             )