From 746a72773d986635883c4edd5c510feb66de9cb6 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 10 Oct 2023 11:17:52 -0700 Subject: [PATCH] Promociones modal ajustes estilos --- Compras/Compras.aspx | 4 ++-- Compras/Compras.aspx.vb | 13 +++++++------ Ventas/Promociones.aspx | 12 +++++++----- 3 files changed, 16 insertions(+), 13 deletions(-) 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 @@