- cambio en acceso

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