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 Or UsuarioActual.Empresa.Funcionalidad(567) = "1"
+            TabAlmacen.Enabled = UsuarioActual.Empresa.UsaInventarios
             TxtPorDescP.Attributes.Add("onKeyUp", "CalculaDescuento();")
             TxtDescP.Attributes.Add("onKeyUp", "CalculaDescuento();")
             TxtCantidadPyME.Attributes.Add("onkeypress", "cambiaFoco('TxtPrecioPyME')")
@@ -6193,7 +6193,7 @@ Partial Class Ventas
         End If
 
         If GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 AndAlso ddlAlmacen.SelectedValue.ToEntero() <= 0 Then
-            Alert("Tiene que seleccionar un almacen", TipoMensaje.MsgAdvertencia)
+            Alert("Tiene que seleccionar un almacén para la salida de almacén", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
 
@@ -10332,7 +10332,7 @@ Partial Class Ventas
         Dim OcurrioError As Boolean = False
         Try
 
-            If (UsuarioActual.Empresa.UsaInventarios Or UsuarioActual.Empresa.Funcionalidad(567) = "1") AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then
+            If UsuarioActual.Empresa.UsaInventarios AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then
 
                 If RemisionesLista.Count > 0 Then
                     For Each CveRemision As Integer In RemisionesLista