From 8aedc0d417572f2b1e34ffb824ebc89707539231 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 22 Feb 2024 13:24:18 -0700 Subject: [PATCH] -- candado ventaminima. para autorizacions --- Ventas/Ventas.aspx | 4 ++-- Ventas/Ventas.aspx.vb | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 4adeb74f4..227d61a28 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -1404,8 +1404,8 @@ <%--19--%> - + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index c6e1ba575..017e11e01 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -8393,7 +8393,7 @@ Partial Class Ventas DatarowPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=TmpDT.Rows(e.RowIndex)("CvePS").ToString().ToEntero()).FiltroPrimero("") ' Estado = -1 'verifica si tiene ventaminima - If Cantidad > 0 AndAlso DatarowPS("VentaMinima").ToString().ToDecimal > 0 AndAlso (DdlTipoComprobante.SelectedValue = "Rem" Or DdlTipoComprobante.SelectedValue = "Ing") Then + If Cantidad > 0 AndAlso DatarowPS("VentaMinima").ToString().ToDecimal > 0 AndAlso (DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing", "PA")) Then 'verifico que la cantidad sea multiplo de venta minima, es decir ventaminima =5, solo puede vender 5,10,15... If Cantidad Mod DatarowPS("VentaMinima").ToString().ToDecimal <> 0 Then Alert(String.Format("El producto se vende solo en cantidades de {0}", DatarowPS("VentaMinima").ToString()))