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

- cambio en acceso

Browse Source
This commit is contained in:
rrene
2024-04-13 06:54:02 -07:00
parent 3cf78ec01b
commit 2a4984b5ac
9 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Ashx/E119.ashx
View File

@@ -57,7 +57,7 @@ Public Class E119 : Implements IHttpHandler
If ObjUsuarios.DtResultados.Rows.Count > 0 Then
Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
UsuarioActual.CveEmpresa = CveEmpresa
CreaObjetoEmpresa(UsuarioActual)
End If

2
Ashx/E141.ashx
View File

@@ -67,7 +67,7 @@ Public Class E141 : Implements IHttpHandler
If ObjUsuarios.DtResultados.Rows.Count > 0 Then
Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
UsuarioActual.CveEmpresa = CveEmpresa
CreaObjetoEmpresa(UsuarioActual)
End If

2
Ashx/E48.ashx
View File

@@ -405,7 +405,7 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
If ObjUsuarios.DtResultados.Rows.Count > 0 Then
Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
UsuarioActual.CveEmpresa = CveEmpresa
CreaObjetoEmpresa(UsuarioActual)
End If

2
Ashx/MHRedes.ashx
View File

@@ -58,7 +58,7 @@ Public Class MobileHandler : Implements IHttpHandler
Dim Json As New StringBuilder
User = ObjUsuario.ValidaUsuario(Contexto.Request("Usuario"), Contexto.Request("Password"), IMEI)
User = ObjUsuario.ValidaUsuario(Contexto.Request("Usuario"), Contexto.Request("Password"))
If User IsNot Nothing Then

2
Ashx/SIGFacturacion.ashx
View File

@@ -227,7 +227,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
If ObjUsuarios.DtResultados.Rows.Count > 0 Then
Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
UsuarioActual.CveEmpresa = CveEmpresa
CreaObjetoEmpresa(UsuarioActual)
End If

2
Ashx/SIGFacturacionCiclica.ashx
View File

@@ -63,7 +63,7 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
If ObjUsuarios.DtResultados.Rows.Count > 0 Then
Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
UsuarioActual.CveEmpresa = CveEmpresa
CreaObjetoEmpresa(UsuarioActual)
End If

6
Ashx/TareasProgramadas.ashx
View File

@@ -119,7 +119,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
If GlobalDTUsuarios.Rows.Count > 0 Then
Dim dtrow As DataRow = GlobalDTUsuarios.Rows(0)
Dim ObjUsuario As New ClsSisUsuarios
usuario = ObjUsuario.ValidaUsuario(dtrow("Usuario").ToString, dtrow("Contraseña").ToString, IMEI, cveEmpresa)
usuario = ObjUsuario.ValidaUsuario(dtrow("Usuario").ToString, dtrow("Contraseña").ToString, CveEmpresa:=cveEmpresa)
ObjUsuario.Dispose()
Dim ObjEmpresa As New ClsSisEmpresas()
@@ -227,7 +227,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
#Region "obtengo el usuario con el username y la pass"
Using ObjUsuario As New ClsSisUsuarios()
usuario = ObjUsuario.ValidaUsuario(username, pass, IMEI, CveEmpresa)
usuario = ObjUsuario.ValidaUsuario(username, pass, CveEmpresa:=CveEmpresa)
End Using
#End Region
#Region "Asigno la empresa al usuario"
@@ -352,7 +352,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
If ObjUsuarios.DtResultados.Rows.Count > 0 Then
Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
UsuarioActual.CveEmpresa = CveEmpresa
CreaObjetoEmpresa(UsuarioActual)
End If

4
asmx/WSApp.asmx
View File

@@ -75,7 +75,7 @@ Public Class WSApp
If ObjUsuarios.DtResultados.Rows.Count > 0 Then
Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI)
UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia)
CreaObjetoEmpresa(UsuarioActual)
End If
End If
@@ -90,7 +90,7 @@ Public Class WSApp
Dim ObjUsuarios As New ClsSisUsuarios
Dim ObjClientes As New ClsClientes
Try
Dim UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Encripta(Contrasenia), IMEI)
Dim UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Encripta(Contrasenia))
If UsuarioActual IsNot Nothing Then
Salida = New WSUSER

2
asmx/WSCGame.asmx
View File

@@ -43,7 +43,7 @@ Public Class WSCGame
If Not IsNothing(Entrada) Then
Dim tUsuario As New ClsSisUsuarios
Dim UsuarioActual = tUsuario.ValidaUsuario(Entrada.Usuario, Encripta(Entrada.Contrasenia), IMEI)
Dim UsuarioActual = tUsuario.ValidaUsuario(Entrada.Usuario, Encripta(Entrada.Contrasenia))
tUsuario.Dispose()
If UsuarioActual IsNot Nothing Then