private Sub SaveModoYPosicionAndSTOP(DeteccionGPSXFIREBASE As Boolean)
Dim TipoCaptura As String
Dim Sql As String
Dim Sql As String
Try
Log("BASE: SaveModoYPosicionAndSTOP")
If CN.SqlConexionOK(True) Then
Log("INIT SP2: SaveModoYPosicionAndSTOP.INSERT")
' alter procedure Set_CambioModo(
' @Terminal nvarchar(50),
' @Latitud As Float,
' @Longitud As Float,
' @Modo nvarchar(50),
' @IsFake Bit,
' @CambioEfectuadoPorUsuario As bit,
' @AppName nvarchar(10),
' @TipoCaptura nvarchar(20),
' @FireBase As bit)
' As
'
Sql = "Set_CambioModo ?,?,?,?,?,?,?,?,?"
Dim L As List
L.Initialize
L.Add(modGeneral.GetAndroidId)
L.Add(modGeneral.PosicionGPS.Latitud)
L.Add(modGeneral.PosicionGPS.Longitud)
l.Add(modGeneral.GetModoTXT)
L.Add(modGeneral.IIF(modGeneral.PosicionGPS.IsFake,1,0))
L.Add(modGeneral.IIF(CambioModoPorUsuario,1,0))
L.Add("APP1")
If CapturaXIniApp Then
CapturaXIniApp = False
TipoCaptura= "INI APP"
else If CambioModoPorUsuario Then
TipoCaptura= "USUARIO"
ELSE IF DeteccionGPSXFIREBASE Then
TipoCaptura= "FIREBASE APPLOCAL"
Else
TipoCaptura= "Timer"
End If
L.Add(TipoCaptura) 'tipocaptura
L.Add(modGeneral.IIF(DeteccionGPSXFIREBASE,1,0))
CN.SqlExecute2(Sql,l,True)
CambioModoPorUsuario= False
'cre oque el servicio debe ser destruido tras hacer el insert, por tanto debe ser aqui
'si se hace en otro sitio, puede ¿no ejecutar este códiog?
Log("END SP2: doit SaveModoYPosicionAndSTOP.INSERT")
StopService(Me)
Else
Log("SaveModoYPosicionAndSTOP.Sin Conexion DB en ServiceTrack ")
ToastMessageShow("Sin conexión DB(ServiceTrack)",True)
End If
Catch
Log(LastException)
End Try
End Sub