-- SMS - Avista, que no valide que se entrege completo

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