From 3351f0a9fb05441da02bd83854cf3f0a88c9535c Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 7 May 2024 12:04:35 -0700 Subject: [PATCH] -- las devoluciones debe poder dejar libres renglones, cuando hay lotes entregados previamente --- Inventarios/EntregaAlmacen.aspx.vb | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 99e204bf0..2dd241254 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -2080,18 +2080,18 @@ 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 - - + End If 'PROCESO , si tiene proceso "176" no lo valida If Not UsuarioActual.TienePermisoProceso(176) Then - For Each Gvr As GridViewRow In GvDatos.Rows - If Gvr.DataKey("CantidadF").ToDecimal <> Gvr.FCTextBox("TbCantidadF").Text.ToDecimal Then - Alert("En la factura no se han especificado todos los productos a entregar, favor de especificarlos para poder dar salida.", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - Next + 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 + Alert("En la factura no se han especificado todos los productos a entregar, favor de especificarlos para poder dar salida.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + Next + End If End If If EsDevolucionVenta = 1 Or TipoDocto.Contiene({"Ped"}) Then