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

-- globalDtUsuarios

Browse Source
This commit is contained in:
rrene
2023-02-01 00:00:59 -07:00
parent 97c04f1c02
commit 78e8f1637c
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
asmx/WSSIGApp.asmx
View File

@@ -511,7 +511,7 @@ Public Class WSSIGApp
' End If
'End If
If ObjUsuarios.GetUsuariosEmpresas(Salida.CveUsuario) Then
If ObjUsuarios.GetUsuariosEmpresas(Salida.CveUsuario, Salida.CveEmpresa) Then
For Each Row As DataRow In ObjUsuarios.DtResultados.FiltraParametros("", "", {"CveEmpresa", "CveEncuestaCRM", "Empresa", "Tipo_CentroCosto"}).Rows
Empresas.Add(New WsEmpresa With {
.CveEmpresa = Row("CveEmpresa").ToString.ToEntero(),
@@ -572,7 +572,7 @@ Public Class WSSIGApp
Next
End If
Salida.Modulos = UsuariosModulos
If tUsuario.GetUsuariosEmpresas(Salida.CveUsuario) Then
If tUsuario.GetUsuariosEmpresas(Salida.CveUsuario, Salida.CveEmpresa) Then
For Each Row As DataRow In tUsuario.DtResultados.Rows
Empresas.Add(New WsEmpresa With {.CveEmpresa = Row("CveEmpresa").ToString.ToEntero, .Empresa = Row("Empresa").ToString})
Next