From b2af8c23c128c0c4454fcbbb277730a524386f28 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 2 Oct 2024 08:32:45 -0700 Subject: [PATCH] - --- Ventas/Promociones.aspx.vb | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb index e615c3279..05c21d7f5 100644 --- a/Ventas/Promociones.aspx.vb +++ b/Ventas/Promociones.aspx.vb @@ -347,11 +347,6 @@ Partial Class Ventas_Promociones '380 AplicaDomingo '381 IncluyeImpuestos - - - - - End Sub Private Sub CargaDTUltimoCosto() @@ -530,7 +525,7 @@ Partial Class Ventas_Promociones If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then Dim tuc As Decimal = LblUltimoCosto.Text.ToDecimal Dim tpu As Decimal = TxtPromocionConcepto.Text.ToDecimal - If (tpu - tuc) / tuc < UsuarioActual.Empresa.Funcionalidad(129).ToDecimal / 100 Then + If tuc <= 0 OrElse (tpu - tuc) / tuc < UsuarioActual.Empresa.Funcionalidad(129).ToDecimal / 100 Then Alert("El producto está debajo de la utilidad permitida, la promoción requerirá autorización.", TipoMensaje.MsgAdvertencia.ToastAdventencia) End If End If