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 @@