diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 5180079d9..ed72bc1d9 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -3505,7 +3505,7 @@
@@ -3519,7 +3519,7 @@
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 586b9a803..b91e3892e 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -2221,7 +2221,7 @@ Partial Class Compras_Compras
ChkIEPS.Visible = True
ChkIEPS.Checked = True
DdlConceptoIEPS.Visible = True
- CargaProductos(DdlConceptoIEPS, If(UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero > 0, UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero, -1), If(IVATemp > 0, False, True))
+ CargaProductos(DdlConceptoIEPS, If(UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero > 0, UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero, -1), True)
LbImporte.Text = "$" + TrasladoIEPS.ToString
End If
@@ -18173,12 +18173,13 @@ Partial Class Compras_Compras
' If CvePS = -1 Then CvePS = UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero
If CvePS = -2 Then 'opción Incluir en producto
-
For Each Dr As DataRow In TmpDT.Rows
- Dr("PU") = ((Dr("IEPSPS").ToString.ToDecimal / Dr("Cantidad").ToString.ToDecimal) + Dr("Pu").ToString.ToDecimal).RoundSQL(6)
- Dr("IEPSPS") = 0
- Dr("IEPSPSPorcentaje") = 0
- Dr("Total") = (Dr("PU").ToString.ToDecimal * Dr("Cantidad").ToString.ToDecimal - Dr("Descuento").ToString.ToDecimal)
+ If Dr("").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
+ Dr("Total") = (Dr("PU").ToString.ToDecimal * Dr("Cantidad").ToString.ToDecimal - Dr("Descuento").ToString.ToDecimal)
+ End If
Next
CalculaTotales(True)
diff --git a/Ventas/Promociones.aspx b/Ventas/Promociones.aspx
index 2c4655077..0fba64e78 100644
--- a/Ventas/Promociones.aspx
+++ b/Ventas/Promociones.aspx
@@ -444,7 +444,7 @@