diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 15d95c293..a00ce6aba 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -17669,7 +17669,7 @@ Partial Class Compras_Compras
                         ViewState("IVAPS") = Drr("IVA").ToString().ToDouble()
                         DdlProyecto.SelectedValueExist(Drr("CveProyecto"))
 
-                        'DdlIVA.Enabled = True
+                        DdlIVA.Enabled = True
 
                         If Not Modalidad = "U" Then
 
@@ -17989,13 +17989,13 @@ Partial Class Compras_Compras
             Row("IEPSPSPorcentaje") = PorcentajeIEPS
         Else
             'If DdlIVA.SelectedValue.ToDouble = 0 Then Row("IVA") = 0 Else Row("IVA") = Math.Round(IVA * Total, DecimalesPermitidos)
-            Row("IVA") = Math.Round(IVA * Total, DecimalesPermitidos)
+            Row("IVA") = Math.Round(IVA * Total, 2)
             Row("IVAPorcentaje") = IVA
-            Row("RetIVA") = Math.Round(RetIVA * Total, DecimalesPermitidos)
+            Row("RetIVA") = Math.Round(RetIVA * Total, 2)
             Row("RetIVAPorcentaje") = RetIVA
-            Row("RetISR") = Math.Round(RetISR * Total, DecimalesPermitidos)
+            Row("RetISR") = Math.Round(RetISR * Total, 2)
             Row("RetISRPorcentaje") = RetISR
-            Row("IEPSPS") = Math.Round(IEPSPS * Total, DecimalesPermitidos)
+            Row("IEPSPS") = Math.Round(IEPSPS * Total, 2)
             Row("IEPSPSPorcentaje") = IEPSPS
         End If
         Row("ImporteConImpuestos") = (Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble) + Row("IVA").ToString.ToDouble + Row("IEPSPS").ToString.ToDouble - (Row("RetIVA").ToString.ToDouble + Row("RetISR").ToString.ToDouble)
@@ -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()