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