-

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