From 7594910c5c4edcc714aa231a6098b72b08c39f2a Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Fri, 30 Oct 2020 18:28:45 -0700
Subject: [PATCH] -

---
 Compras/Compras.aspx.vb | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index a00ce6aba..36819bc16 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -18133,9 +18133,9 @@ Partial Class Compras_Compras
         Dim IEPSPS = (TxtIEPSModal.Text.ToDouble / 100)
         Dim IEPSPSIVA = 0
 
-        'If Not (CveCompra > 0 Or CveFactura > 0 Or OCVinculada) Then
-        'If DdlIVA.SelectedValue.ToDouble = 0 Then DrPS("IVA") = 0 Else DrPS("IVA") = IVA * Total
-        DrPS("IVA") = IVA * Total
+        If Not (CveCompra > 0 Or CveFactura > 0 Or OCVinculada) Then
+            'If DdlIVA.SelectedValue.ToDouble = 0 Then DrPS("IVA") = 0 Else DrPS("IVA") = IVA * Total
+            DrPS("IVA") = IVA * Total
             DrPS("IVAPorcentaje") = IVA
             DrPS("RetIVA") = RetIVA * Total
             DrPS("RetIVAPorcentaje") = RetIVA
@@ -18146,9 +18146,9 @@ Partial Class Compras_Compras
             DrPS("IEPSPSIVA") = IEPSPSIVA * Total
             DrPS("IEPSPSIVAPorcentaje") = IEPSPSIVA
             AplicaCalculaTotales = True
-            'End If
+        End If
 
-            TmpDT.AcceptChanges()
+        TmpDT.AcceptChanges()
 
         AddPS2(AplicaCalculaTotales)
         CargaGvInv()