diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index f8b63983a..c68ca3081 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -18174,7 +18174,7 @@ Partial Class Compras_Compras
 
                 If CvePS = -2 Then 'opción Incluir en producto
                     For Each Dr As DataRow In TmpDT.Rows
-                        If Dr("").ToString.ToDecimal = 0 Then
+                        If Dr("IVA").ToString.ToDecimal = 0 Then
                             Dr("PU") = ((Dr("IEPSPS").ToString.ToDecimal / Dr("Cantidad").ToString.ToDecimal) + Dr("Pu").ToString.ToDecimal).RoundSQL(6)
                             Dr("IEPSPS") = 0
                             Dr("IEPSPSPorcentaje") = 0