AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- mejora

Browse Source
This commit is contained in:
rrene
2024-08-14 07:03:00 -07:00
parent 756c027807
commit 5e0fba66a9
1 changed files with 45 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Sistemas/PopUpCambiaUsuario.aspx.vb
View File

@@ -25,7 +25,13 @@ Partial Class Sistemas_PopUpCambiaUsuario
RegistraScript("window.close();") RegistraScript("window.close();")
End If End If
Dim DtEmp As DataTable = GlobalDTEmpresas(CveEmpresa:=-1).Copy Dim DtEmp As DataTable = Nothing '= GlobalDTEmpresas(CveEmpresa:=-1, tUsrActual:=UsuarioActual).Copy
Using ObjEmpresas As New ClsSisEmpresas()
If ObjEmpresas.GetEmpresas(-1, "-1", "-1", "-1", "-1") Then
DtEmp = ObjEmpresas.DtResultados
End If
End Using
Dim NombreEmp As String = UsuarioActual.Empresa.Empresa Dim NombreEmp As String = UsuarioActual.Empresa.Empresa
''condición para ocultar los nombres de las empresas y ponerles "mi empresa de venta (xxx)" ''condición para ocultar los nombres de las empresas y ponerles "mi empresa de venta (xxx)"
''If UsuarioActual.CveUsuario = 100 Then ''If UsuarioActual.CveUsuario = 100 Then