Clientes reacomodo, limpieza modulos, rep compras af

Sistemas/CatEmpresas.aspx

@@ -8,7 +8,7 @@
     <asp:UpdatePanel runat="server">
         <ContentTemplate>
             <li>
-                <asp:LinkButton ID="LBAdd" PostBackUrl="/Sistemas/Empresa.aspx" CommandArgument="-1" runat="server"><i class="fa fa-plus-circle"></i> Nueva Empresa</asp:LinkButton>
+                <asp:LinkButton ID="LBAdd" PostBackUrl="/Sistemas/Empresa.aspx" CommandArgument="-1" runat="server" Visible="false"><i class="fa fa-plus-circle"></i> Nueva Empresa</asp:LinkButton>
             </li>
         </ContentTemplate>
     </asp:UpdatePanel>

Sistemas/CatEmpresas.aspx.vb

@@ -45,12 +45,13 @@ Partial Class Sistemas_CatEmpresas
 #End Region
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
-            'If UsuarioActual.CveRol <> 1 Then Response.Redirect("/Inicio.aspx")
             ViewState("Orden") = "CveEmpresa ASC"
             ViewState("CveRol") = -1
-
-            'CargaRoles()
             CargaDatos()
+
+            If UsuarioActual.CveRol = 1 Or UsuarioActual.CveUsuario = 100 Then
+                LBAdd.Visible = True
+            End If
         End If
     End Sub