Compras no modificar porcentaje de iva si la Factura no tiene Iva

Compras/Compras.aspx.vb

@@ -18391,8 +18391,17 @@ Partial Class Compras_Compras
 
         Row("PU") = Math.Round(PU, DecimalesPermitidos)
         If CargaXml And (Version = "3.3" Or Version = "4.0") Then
-            Row("IVA") = Math.Round(IVA, DecimalesPermitidos)
-            Row("IVAPorcentaje") = PorcentajeIVA
+
+            If CveFactura > 0 And TxtIVA.Text.ToDecimal = 0 Then
+                Row("IVA") = 0
+                Row("IVAPorcentaje") = 0
+            Else
+                Row("IVA") = Math.Round(IVA, DecimalesPermitidos)
+                Row("IVAPorcentaje") = PorcentajeIVA
+            End If
+
+
+
             Row("RetIVA") = Math.Round(RetIVA, DecimalesPermitidos)
             Row("RetIVAPorcentaje") = PorcentajeRetIVA
             Row("RetISR") = Math.Round(RetISR, DecimalesPermitidos)
@@ -18401,8 +18410,16 @@ 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") = (IVA * Total).RoundSQL
-            Row("IVAPorcentaje") = IVA
+
+            If CveFactura > 0 And TxtIVA.Text.ToDecimal = 0 Then
+                Row("IVA") = 0
+                Row("IVAPorcentaje") = 0
+            Else
+                Row("IVA") = (IVA * Total).RoundSQL
+                Row("IVAPorcentaje") = IVA
+            End If
+
+
             Row("RetIVA") = (RetIVA * Total).RoundSQL
             Row("RetIVAPorcentaje") = RetIVA
             Row("RetISR") = (RetISR * Total).RoundSQL
@@ -18569,8 +18586,15 @@ Partial Class Compras_Compras
 
         'I f 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).RoundSQL
-        DrPS("IVAPorcentaje") = IVA
+
+        If CveFactura > 0 And TxtIVA.Text.ToDecimal = 0 Then
+            DrPS("IVA") = 0
+            DrPS("IVAPorcentaje") = 0
+        Else
+            DrPS("IVA") = (IVA * Total).RoundSQL
+            DrPS("IVAPorcentaje") = IVA
+        End If
+
         DrPS("RetIVA") = (RetIVA * Total).RoundSQL
         DrPS("RetIVAPorcentaje") = RetIVA
         DrPS("RetISR") = RetISR * Total