-- 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
@@ -2083,8 +2077,15 @@ Partial Class Inventarios_EntregaAlmacen
             Exit Sub
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso TipoDocto = "Ped" Then
+            VerificaCancelada = False
+        End If
+
+        Dim ValidaEntregaCompleto As Boolean = Not UsuarioActual.TienePermisoProceso(176)
+        If CveTipoVenta = 3 Then ValidaEntregaCompleto = False
+
         'PROCESO , si tiene proceso "176" no lo valida 
-        If Not UsuarioActual.TienePermisoProceso(176) Then
+        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