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()