Clientes reacomodo, limpieza modulos, rep compras af

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