Validar, que tenga la salida de almacen, al momento de facturar. E141

Ventas/Ventas.aspx.vb

@@ -6281,6 +6281,14 @@ Partial Class Ventas
                     e.Row.FCCheckBox("cbInv").Enabled = False
                 End If
 
+                'SI DEBE HACER SALIDA DIRECTA DE ALMACEN DEBE ESTAR SELECCIONADO SIEMPRE
+                If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then
+                    e.Row.FCCheckBox("cbInv").Checked = True
+                    If UsuarioActual.CveEmpresa = 141 Then
+                        e.Row.FCCheckBox("cbInv").Enabled = False
+                    End If
+                End If
+
             End If
 
             If (CveVenta > 0 And DdlTipoComprobante.SelectedValue <> "Cot") AndAlso Not AplicaDevolucion Then
@@ -11154,6 +11162,15 @@ Partial Class Ventas
                     Next
                 End If
 
+                'EN ECONOLLANTAS DEBE REALIZAR SIEMPRE LA SALIDA DE ALMACEN
+                If UsuarioActual.CveEmpresa = 141 AndAlso UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then
+                    For Each GvRow As GridViewRow In GvInv.Rows
+                        If GvRow.RowType = DataControlRowType.DataRow Then
+                            GvRow.FCCheckBox("cbInv").Checked = True
+                        End If
+                    Next
+                End If
+
                 If DivAlmacen.Visible AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then
 
                     Dim Filtro As String = ""
@@ -11256,6 +11273,11 @@ Partial Class Ventas
                             i = i + 1
                         Next
 
+                        'VERIFICA QUE SE REALIZO EL MOVIMIENTO DE ALMACEN
+                        If Not (ObjInventario.GetInv_Mov(factura.CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0) Then
+                            OcurrioError = True
+                        End If
+
                         'REGISTRO LA PREPOLIZA DE COSTO VS ALMACEN
                         If Not OcurrioError Then
                             Dim DtCostos As DataTable = Nothing