From e83a767e33122412946ac8c78a32c2057622a38b Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 27 Jun 2024 06:49:50 -0700 Subject: [PATCH] -- SMS - Avista, que no valide que se entrege completo --- Inventarios/EntregaAlmacen.aspx.vb | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index d29e4a631..6b9b7b89c 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -2059,12 +2059,6 @@ Partial Class Inventarios_EntregaAlmacen End If Next - - - 'ValidaSeccion = False - 'ValidaCaducidad = False - 'ValidaLote = False - If ValidaSeccion Then Alert("La sección de almacen no ha sido especificada en todos los productos.", TipoMensaje.MsgAdvertencia) Exit Sub @@ -2081,10 +2075,17 @@ Partial Class Inventarios_EntregaAlmacen If Not Cantidad > 0 Then Alert("No se detecto ningun movimiento por hacer. Por favor verifique e intente nuevamente.", TipoMensaje.MsgAdvertencia) Exit Sub + End If + + If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso TipoDocto = "Ped" Then + VerificaCancelada = False End If - 'PROCESO , si tiene proceso "176" no lo valida - If Not UsuarioActual.TienePermisoProceso(176) Then + Dim ValidaEntregaCompleto As Boolean = Not UsuarioActual.TienePermisoProceso(176) + If CveTipoVenta = 3 Then ValidaEntregaCompleto = False + + 'PROCESO , si tiene proceso "176" no lo valida + If ValidaEntregaCompleto Then 'Tipoventa diferente a A-vista If Not TipoDocto.Contiene("Dev") Then 'para devoluciones debe de aceptar parcialidades For Each Gvr As GridViewRow In GvDatos.Rows If Gvr.DataKey("CantidadF").ToDecimal <> Gvr.FCTextBox("TbCantidadF").Text.ToDecimal Then