From b4d5ec380eb4502bd9f8e4c723a3bf7141a07535 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 20 Jun 2024 13:11:26 -0700 Subject: [PATCH] =?UTF-8?q?--EE.=20validaci=C3=B3n=20de=20precios=20m?= =?UTF-8?q?=C3=ADnimos=20en=20cotizaciones.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx.vb | 40 +++++++++++++++++++++++++++++++--------- 1 file changed, 31 insertions(+), 9 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index ac099a4ad..d4001e38b 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -8870,6 +8870,14 @@ Partial Class Ventas Dim DatarowPS As DataRow = Nothing DatarowPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=TmpDT.Rows(e.RowIndex)("CvePS").ToString().ToEntero()).FiltroPrimero("") ' Estado = -1 + + If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then + If PU < DatarowPS("PrecioMinimo").ToString().ToDecimal() Then + Alert($"El precio no puede ser menor al precio mínimo. Precio Mínimo: {DatarowPS("PrecioMinimo"):N2}", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + End If + 'verifica si tiene ventaminima 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... @@ -13181,10 +13189,10 @@ Partial Class Ventas End If 'SI ES DEVOLUCION DIRECTA, SIN RELACION A UNA FACTURA - 'If UsuarioActual.CveEmpresa.Contiene(1, 192) AndAlso DdlTipoComprobante.SelectedValue = "Dev" AndAlso CveVentaDevolucion <= 0 AndAlso Timbre.CFDIRelacionados.UUID.Count = 0 Then - ' Timbre.CFDIRelacionados.TipoRelacion = "" - ' Timbre.CFDIRelacionados.TipoRelacionTexto = "" - 'End If + If UsuarioActual.CveEmpresa.Contiene(1, 190) AndAlso DdlTipoComprobante.SelectedValue = "Dev" AndAlso CveVentaDevolucion <= 0 AndAlso Timbre.CFDIRelacionados.UUID.Count = 0 Then + Timbre.CFDIRelacionados.TipoRelacion = "" + Timbre.CFDIRelacionados.TipoRelacionTexto = "" + End If 'SI LAS FACTURAS SE RELACIONARAN MANUALMENTE SE AGREGAN If Me.AplicaRelacionManual AndAlso DdlTipoRelacionARelacionar.SelectedValue.ToEntero() > 0 Then @@ -16705,6 +16713,10 @@ Partial Class Ventas If ObjMovtos.DtResultados.SUM("Saldo", "Saldo > 0 AND SaldoSubtotal > 0 AND Tipo = 'Ant'") > 0 Then HdnTieneAnticipos.Value = "1" End If + + If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso DtMovtos IsNot Nothing AndAlso DtMovtos.Rows.Count = 0 Then + ImgAntiPend.Visible = False + End If Else GVAnticipos.DataSource = Nothing End If @@ -18737,6 +18749,16 @@ Partial Class Ventas Return False End If + If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then + Dim DatarowPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") + If DatarowPS IsNot Nothing Then + If PU < DatarowPS("PrecioMinimo").ToString().ToDecimal() Then + Alert($"El precio no puede ser menor al precio mínimo. Precio Mínimo: {DatarowPS("PrecioMinimo"):N2}", TipoMensaje.MsgAdvertencia) + Return False + End If + End If + End If + 'SI NO VIENE DESDE EL MODAL If CantidadModal = 0 Then If TxtCantidad.Text.ToDecimal() <= 0 Then @@ -20266,11 +20288,11 @@ Partial Class Ventas If Not UsuarioActual.TienePermisoProceso(264) Then DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Dev")) Else - 'If UsuarioActual.CveEmpresa.Contiene(1, 192) Then - ' If DdlTipoComprobante.Items.FindByValue("Dev") Is Nothing Then - ' DdlTipoComprobante.Items.Add(New ListItem("Devolución", "Dev")) - ' End If - 'End If + If UsuarioActual.CveEmpresa.Contiene(1, 190) Then + If DdlTipoComprobante.Items.FindByValue("Dev") Is Nothing Then + DdlTipoComprobante.Items.Add(New ListItem("Devolución", "Dev")) + End If + End If End If 'Puede facturar