Limpieza, lienas adicionales

2022-10-07 08:54:25 -07:00
parent 9636641f6c
commit 7b432333c3
17 changed files with 323 additions and 928 deletions
--- a/Sistemas/CatEmpresas.aspx.vb
+++ b/Sistemas/CatEmpresas.aspx.vb
@@ -119,9 +119,13 @@ Partial Class Sistemas_CatEmpresas

    Private Sub CargaGrid(Orden As String)

+
+
+        Dim CveUsaurioConsulta As Integer = If(UsuarioActual.CveRol = 1, -1, UsuarioActual.CveUsuario)
+
        Using ObjEmpresas As New ClsSisEmpresas()

-            If ObjEmpresas.GetEmpresas(-1, "-1", "-1", "-1", "-1", UsuarioActual.CveUsuario) Then
+            If ObjEmpresas.GetEmpresas(-1, "-1", "-1", "-1", "-1", CveUsaurioConsulta) Then
                GvDatos.DataSource = ObjEmpresas.DtResultados
            Else
                GvDatos.DataSource = Nothing