--SMS, Unificacion y facturacion de pedidos

Inventarios/PopUpExistenciasAlmacen.aspx.vb

@@ -46,7 +46,7 @@ Partial Class Inventarios_Default
                 DivSucursal.Visible = True
             End If
 
-            If UsuarioActual.CveEmpresa.Contiene(186) Then
+            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
                 LtPrecioPS.Visible = True
                 DivListasPrecios.Visible = True
                 DivListasPreciosRow2.Visible = True
@@ -89,7 +89,7 @@ Partial Class Inventarios_Default
         Dim Txt As String = IfNull(Request("Txt"), "").ToString
         If Txt <> "" Then LblTitulo.Text = String.Format("Búsqueda de {0}", Txt)
 
-        If UsuarioActual.CveEmpresa = 186 Then
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
             CargaListasPrecios()
         End If
 
@@ -167,7 +167,7 @@ Partial Class Inventarios_Default
                 CvePrecioLista = -2
             End If
 
-            If UsuarioActual.CveEmpresa = 186 Then
+            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
                 If DdlPrecioLista.SelectedValue.ToEntero() > 0 Then
                     CvePrecioLista = DdlPrecioLista.SelectedValue.ToEntero()
                 Else