- cambio en acceso

Ashx/E119.ashx

@@ -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

Ashx/E141.ashx

@@ -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

Ashx/E48.ashx

@@ -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

Ashx/MHRedes.ashx

@@ -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
 

Ashx/SIGFacturacion.ashx

@@ -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

Ashx/SIGFacturacionCiclica.ashx

@@ -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

Ashx/TareasProgramadas.ashx

@@ -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

asmx/WSApp.asmx

@@ -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

asmx/WSCGame.asmx

@@ -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