From e8bbb344467675360a5459b89051259e6b6b83e0 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 20 Feb 2024 17:35:51 -0700
Subject: [PATCH] -- mejora

---
 Compras/Compras.aspx.vb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 21e682bbb..6c60b6c04 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -3293,7 +3293,7 @@ Partial Class Compras_Compras
                     If RetIVAOriginal > 0 Then
                         Dim CalRetIVAPor As Decimal = (RetIVAOriginal * 1 / SubTotal2Original).RoundAD(6).ToDecimal
 
-                        If (CalRetIVAPor).RoundSQL(6) = 0.106667 OrElse (CalRetIVAPor).RoundSQL(6) = 0.053333 Then
+                        If (CalRetIVAPor).RoundSQL(5) = 0.10666 OrElse (CalRetIVAPor).RoundSQL(5) = 0.05333 Then
                             DdlRetIVAConcepto.SelectedValueExist("1") '10.66 servicios profesionales
                         End If
                         If RetIVAFlete Then '4 Fletes
@@ -3314,6 +3314,7 @@ Partial Class Compras_Compras
                         'permitido en un margen de 1% a 2%
                         If RetISRResico OrElse (CalRetISRPor >= 0.01 AndAlso CalRetISRPor <= 0.02) Then '1.25 Recico regimen simplificado confianza
                             DdlRetISRConcepto.SelectedValueExist("3")
+                            RetISRResico = True
                         End If
                     End If
                 End If