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

2
Ashx/E48.ashx
View File

@@ -78,7 +78,7 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
Dim IDPoliza As Integer = 0 Dim IDPoliza As Integer = 0
Dim usuario As String = JsonRequest("usuario").ToString() Dim usuario As String = JsonRequest("usuario").ToString()
If ObjUsuarios.GetUsuariosEmpresas(-1) Then If ObjUsuarios.GetUsuariosEmpresas(-1, -1) Then
CveUsuario = ObjUsuarios.DtResultados.FiltroPrimeroValor("CveUsuario", String.Format("Usuario = '{0}' ", usuario)).ToEntero CveUsuario = ObjUsuarios.DtResultados.FiltroPrimeroValor("CveUsuario", String.Format("Usuario = '{0}' ", usuario)).ToEntero
If CveUsuario > 0 Then If CveUsuario > 0 Then
UsuarioActual = ValidaUsuarioSistema(CveUsuario, CveEmpresa) UsuarioActual = ValidaUsuarioSistema(CveUsuario, CveEmpresa)

4
asmx/WSSIGApp.asmx
View File

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