CRM Encuestas, Compras no actualziar iva al seleccionar no deducible

Compras/Compras.aspx.vb

@@ -17603,6 +17603,11 @@ Partial Class Compras_Compras
         Dim Total = (Cantidad * PU) - Descuento + OtrosGastos
         DrPS("NoDeducible") = ChkEsNoDeduciblePS.Checked
 
+        Dim ActualizarIva As Boolean = False
+        If Cantidad.RoundSQL(2) <> TxtCantidad.Text.Trim.ToDouble.RoundSQL(2) Or PU.RoundSQL(2) <> TxtPrecio.Text.Trim.ToDouble.RoundSQL(2) Then
+            ActualizarIva = True
+        End If
+
 
         If Cantidad <> TxtCantidad.Text.Trim.ToDouble OrElse PU <> TxtPrecio.Text.Trim.ToDouble OrElse Descuento <> TxtDescuentoModal.Text.ToDouble OrElse OtrosGastos <> TxtOtrosGastos.Text.ToDouble Then
             Cantidad = TxtCantidad.Text.Trim.ToDouble
@@ -17616,8 +17621,12 @@ Partial Class Compras_Compras
             DrPS("OtrosGastos") = OtrosGastos
             DrPS("Total") = Total
             AplicaCalculaTotales = True
+
         End If
 
+
+
+
         'PS - CLASIFICACION
         If DdlPS.SelectedValue.ToEntero > 0 Then
 
@@ -17676,7 +17685,11 @@ Partial Class Compras_Compras
             DrPS("IVA") = 0
             DrPS("IVAPorcentaje") = 0
         Else
-            DrPS("IVA") = (IVA * Total).RoundSQL
+
+            If ActualizarIva Then
+                DrPS("IVA") = (IVA * Total).RoundSQL
+            End If
+
             DrPS("IVAPorcentaje") = IVA
         End If