Funcionalidad que registra salida de almacen en automatico

Ventas/Ventas.aspx.vb

@@ -1813,7 +1813,7 @@ Partial Class Ventas
             'ImgCerrarTerminoCorte.Attributes.Add("OnClick", "$('#DivTerminarCorte').hide();")
             'ImgCerrarIE.Attributes.Add("OnClick", "$('#DivIngresoEgreso').hide();")DdlTipoComprobante
             'ImgCerrarEstadoCaja.Attributes.Add("OnClick", "$('#DivEstadoCaja').hide();")
-            TabAlmacen.Enabled = UsuarioActual.Empresa.UsaInventarios
+            TabAlmacen.Enabled = UsuarioActual.Empresa.UsaInventarios Or UsuarioActual.Empresa.Funcionalidad(567) = "1"
             TxtPorDescP.Attributes.Add("onKeyUp", "CalculaDescuento();")
             TxtDescP.Attributes.Add("onKeyUp", "CalculaDescuento();")
             TxtCantidadPyME.Attributes.Add("onkeypress", "cambiaFoco('TxtPrecioPyME')")
@@ -5705,6 +5705,10 @@ Partial Class Ventas
     Private Sub GvInv_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvInv.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
 
+            If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then
+                e.Row.FCCheckBox("cbInv").Checked = True
+            End If
+
             'SERIE ALMACEN
             If e.Row.DBCampo("CveTipoInvPS").ToEntero = 5 Then
                 If CveVenta > 0 Then
@@ -10328,7 +10332,7 @@ Partial Class Ventas
         Dim OcurrioError As Boolean = False
         Try
 
-            If UsuarioActual.Empresa.UsaInventarios AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then
+            If (UsuarioActual.Empresa.UsaInventarios Or UsuarioActual.Empresa.Funcionalidad(567) = "1") AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then
 
                 If RemisionesLista.Count > 0 Then
                     For Each CveRemision As Integer In RemisionesLista