-- las devoluciones debe poder dejar libres renglones, cuando hay lotes entregados previamente

Inventarios/EntregaAlmacen.aspx.vb

@@ -2082,10 +2082,9 @@ Partial Class Inventarios_EntregaAlmacen
             Exit Sub
         End If
 
-
-
         'PROCESO , si tiene proceso "176" no lo valida 
         If Not UsuarioActual.TienePermisoProceso(176) Then
+            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)
@@ -2093,6 +2092,7 @@ Partial Class Inventarios_EntregaAlmacen
                     End If
                 Next
             End If
+        End If
 
         If EsDevolucionVenta = 1 Or TipoDocto.Contiene({"Ped"}) Then
             If Not (EsDevolucionVenta = 1 And TipoDocto.Contiene("Rem", "Ped")) Then   ' condicion si hay una devolucion de remision, no verifique la totalidad surtido