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

GPS. Bandera de rastreo solo en inicio para app gps

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-02-28 18:06:46 -07:00
parent 5ee304ab7c
commit e591bd47b0
1 changed files with 17 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
asmx/WSGPSApp.asmx
View File

@@ -135,6 +135,11 @@ Public Class WSGPSApp
Next Next
If UsuarioActual.CveCliente <= 0 AndAlso Clientes.Any() Then If UsuarioActual.CveCliente <= 0 AndAlso Clientes.Any() Then
UsuarioRetorno.CveCliente = Clientes.FirstOrDefault().CveCliente UsuarioRetorno.CveCliente = Clientes.FirstOrDefault().CveCliente
If UsuarioRetorno.CveCliente > 0 Then
If UsuarioActual.Empresa.Funcionalidad(704).Contiene(UsuarioRetorno.CveCliente.ToString()) Then
UsuarioRetorno.RastreoSoloInicio = True
End If
End If
End If End If
End If End If
End If End If
@@ -197,6 +202,14 @@ Public Class WSGPSApp
Next Next
If UsuarioActual.CveCliente <= 0 AndAlso Clientes.Any() Then If UsuarioActual.CveCliente <= 0 AndAlso Clientes.Any() Then
UsuarioRetorno.CveCliente = Clientes.FirstOrDefault().CveCliente UsuarioRetorno.CveCliente = Clientes.FirstOrDefault().CveCliente
If UsuarioActual.CveCliente <= 0 AndAlso Clientes.Any() Then
UsuarioRetorno.CveCliente = Clientes.FirstOrDefault().CveCliente
If UsuarioRetorno.CveCliente > 0 Then
If UsuarioActual.Empresa.Funcionalidad(704).Contiene(UsuarioRetorno.CveCliente.ToString()) Then
UsuarioRetorno.RastreoSoloInicio = True
End If
End If
End If
End If End If
End If End If
End If End If
@@ -1127,6 +1140,7 @@ Namespace ADGPSModels
Public Property TienePermisoOC As Boolean Public Property TienePermisoOC As Boolean
Public Property TienePermisoPS As Boolean Public Property TienePermisoPS As Boolean
Public Property RastreoSoloInicio As Boolean = False
End Class End Class
<Serializable> <Serializable>