From 5eca282a9f2b0ac94e70ed2ac7c6491fa100511f Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 13 Jan 2024 16:22:01 -0700
Subject: [PATCH] =?UTF-8?q?--=20se=20aplic=C3=B3=20redondeo=20para=20compl?=
 =?UTF-8?q?ementos=20de=20pago?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

diff --git a/App_Code/CFDITimbre.vb b/App_Code/CFDITimbre.vb
index 749257ef8..22febac8e 100644
--- a/App_Code/CFDITimbre.vb
+++ b/App_Code/CFDITimbre.vb
@@ -479,14 +479,14 @@ Public Class CFDIComplementoPagos20
 
     Public ReadOnly Property MontoTotalPagos As Decimal
         Get
-            Return (From c In ComplementoPagos Select c.Monto * c.TipoCambioP).Sum()
+            Return (From c In ComplementoPagos Select c.Monto * c.TipoCambioP).Sum().RoundSQL()
         End Get
     End Property
     Public ReadOnly Property TotalTrasladosBaseIVA0 As Decimal
         Get
             Dim Ret As Decimal = 0
             For Each cfd As CFDIComplementoPago In ComplementoPagos
-                Ret = Ret + ((From c In cfd.Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.0 Select c.BaseMN).Sum() * cfd.TipoCambioP.RoundSQL(4)) 'temporal redondeo a 4, 2023.07.07
+                Ret = Ret + ((From c In cfd.Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.0 Select c.BaseMN).Sum() * cfd.TipoCambioP)
             Next
             Return Ret.RoundSQL()
         End Get