cheveguerra/FLP_2.0
1
0
Fork 0
mirror of https://github.com/cheveguerra/FLP_2.0.git synced 2026-04-19 20:29:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Correccion de error en Tracker

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-01-18 19:05:54 -06:00
parent 6fd36f54b4
commit e678345281
5 changed files with 34 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
FLP_2.0.b4a
View File

@@ -13,6 +13,7 @@ Library14=reflection
Library15=replyauto Library15=replyauto
Library16=runtimepermissions Library16=runtimepermissions
Library17=sql Library17=sql
Library18=javaobject
Library2=byteconverter Library2=byteconverter
Library3=compressstrings Library3=compressstrings
Library4=core Library4=core
@@ -23,22 +24,23 @@ Library8=gps
Library9=json Library9=json
ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="14" android:targetSdkVersion="29"/>~\n~<supports-screens android:largeScreens="true" ~\n~ android:normalScreens="true" ~\n~ android:smallScreens="true" ~\n~ android:anyDensity="true"/>)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~CreateResourceFromFile(Macro, Themes.LightTheme)~\n~'End of default text.~\n~AddPermission(android.permission.ACCESS_FINE_LOCATION)~\n~AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)~\n~CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)~\n~CreateResourceFromFile(Macro, FirebaseAnalytics.Firebase)~\n~CreateResourceFromFile(Macro, FirebaseAnalytics.FirebaseAnalytics)~\n~CreateResourceFromFile(Macro, FirebaseNotifications.FirebaseNotifications)~\n~SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~AddApplicationText(<receiver android:name="anywheresoftware.b4a.objects.AdminReceiver2"~\n~ android:permission="android.permission.BIND_DEVICE_ADMIN">~\n~ <meta-data android:name="android.app.device_admin"~\n~ android:resource="@xml/device_admin" />~\n~ <intent-filter>~\n~ <action android:name="android.app.action.DEVICE_ADMIN_ENABLED" />~\n~ </intent-filter>~\n~</receiver>)~\n~~\n~CreateResource(xml, device_admin.xml,~\n~<device-admin xmlns:android="http://schemas.android.com/apk/res/android">~\n~ <uses-policies>~\n~ <limit-password />~\n~ <reset-password />~\n~ <force-lock />~\n~ </uses-policies>~\n~</device-admin>~\n~)~\n~AddPermission(android.permission.SEND_SMS)~\n~AddPermission(android.permission.RECEIVE_SMS)~\n~AddPermission(android.permission.READ_PHONE_STATE)~\n~AddPermission(android.permission.READ_CALL_LOG)~\n~AddApplicationText(~\n~<service android:name="b4a.jsaplication.com.br.ReplyAuto"~\n~ android:label="FLP" android:permission="android.permission.BIND_NOTIFICATION_LISTENER_SERVICE">~\n~ <intent-filter><action android:name="android.service.notification.NotificationListenerService" /></intent-filter>~\n~ </service>)~\n~ ~\n~AddPermission(android.permission.RECEIVE_BOOT_COMPLETED)~\n~AddReceiverText(R_Test, <intent-filter>~\n~<action android:name="android.intent.action.BOOT_COMPLETED"/>~\n~</intent-filter>) ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="14" android:targetSdkVersion="29"/>~\n~<supports-screens android:largeScreens="true" ~\n~ android:normalScreens="true" ~\n~ android:smallScreens="true" ~\n~ android:anyDensity="true"/>)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~CreateResourceFromFile(Macro, Themes.LightTheme)~\n~'End of default text.~\n~AddPermission(android.permission.ACCESS_FINE_LOCATION)~\n~AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)~\n~CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)~\n~CreateResourceFromFile(Macro, FirebaseAnalytics.Firebase)~\n~CreateResourceFromFile(Macro, FirebaseAnalytics.FirebaseAnalytics)~\n~CreateResourceFromFile(Macro, FirebaseNotifications.FirebaseNotifications)~\n~SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~AddApplicationText(<receiver android:name="anywheresoftware.b4a.objects.AdminReceiver2"~\n~ android:permission="android.permission.BIND_DEVICE_ADMIN">~\n~ <meta-data android:name="android.app.device_admin"~\n~ android:resource="@xml/device_admin" />~\n~ <intent-filter>~\n~ <action android:name="android.app.action.DEVICE_ADMIN_ENABLED" />~\n~ </intent-filter>~\n~</receiver>)~\n~~\n~CreateResource(xml, device_admin.xml,~\n~<device-admin xmlns:android="http://schemas.android.com/apk/res/android">~\n~ <uses-policies>~\n~ <limit-password />~\n~ <reset-password />~\n~ <force-lock />~\n~ </uses-policies>~\n~</device-admin>~\n~)~\n~AddPermission(android.permission.SEND_SMS)~\n~AddPermission(android.permission.RECEIVE_SMS)~\n~AddPermission(android.permission.READ_PHONE_STATE)~\n~AddPermission(android.permission.READ_CALL_LOG)~\n~AddApplicationText(~\n~<service android:name="b4a.jsaplication.com.br.ReplyAuto"~\n~ android:label="FLP" android:permission="android.permission.BIND_NOTIFICATION_LISTENER_SERVICE">~\n~ <intent-filter><action android:name="android.service.notification.NotificationListenerService" /></intent-filter>~\n~ </service>)~\n~ ~\n~AddPermission(android.permission.RECEIVE_BOOT_COMPLETED)~\n~AddReceiverText(R_Test, <intent-filter>~\n~<action android:name="android.intent.action.BOOT_COMPLETED"/>~\n~</intent-filter>)
Module1=DBRequestManager Module1=DBRequestManager
Module2=FirebaseMessaging Module2=errorManager
Module3=Mods Module3=FirebaseMessaging
Module4=NotificationService Module4=Mods
Module5=R_Test Module5=NotificationService
Module6=Starter Module6=R_Test
Module7=Subs Module7=Starter
Module8=Tracker Module8=Subs
Module9=Tracker
NumberOfFiles=2 NumberOfFiles=2
NumberOfLibraries=17 NumberOfLibraries=18
NumberOfModules=8 NumberOfModules=9
Version=12.5 Version=12.5
@EndOfDesignText@ @EndOfDesignText@
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: FLP 2.0 #ApplicationLabel: FLP 2.0
#VersionCode: 1 #VersionCode: 1
#VersionName: 4.01.04 #VersionName: 4.01.17
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified #SupportedOrientations: unspecified
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

15
FLP_2.0.b4a.meta
View File

@@ -7,6 +7,7 @@ ModuleBookmarks5=
ModuleBookmarks6= ModuleBookmarks6=
ModuleBookmarks7= ModuleBookmarks7=
ModuleBookmarks8= ModuleBookmarks8=
ModuleBookmarks9=
ModuleBreakpoints0= ModuleBreakpoints0=
ModuleBreakpoints1= ModuleBreakpoints1=
ModuleBreakpoints2= ModuleBreakpoints2=
@@ -16,15 +17,17 @@ ModuleBreakpoints5=
ModuleBreakpoints6= ModuleBreakpoints6=
ModuleBreakpoints7= ModuleBreakpoints7=
ModuleBreakpoints8= ModuleBreakpoints8=
ModuleBreakpoints9=
ModuleClosedNodes0= ModuleClosedNodes0=
ModuleClosedNodes1= ModuleClosedNodes1=
ModuleClosedNodes2=6,9,10 ModuleClosedNodes2=
ModuleClosedNodes3=1 ModuleClosedNodes3=
ModuleClosedNodes4= ModuleClosedNodes4=
ModuleClosedNodes5= ModuleClosedNodes5=
ModuleClosedNodes6= ModuleClosedNodes6=
ModuleClosedNodes7=2,5,6,7,9,11,13,14,16,19,20 ModuleClosedNodes7=
ModuleClosedNodes8=8,11,12 ModuleClosedNodes8=
NavigationStack=Starter,Service_Create,37,0,Starter,Process_Globals,26,0,Starter,restartTracker,84,0,Starter,PE_PhoneStateChanged,101,6,Main,b_pong_Click,92,0,Main,chkPermisosAlmacenamientoExterno,124,0,Main,b_pong_LongClick,114,0,Main,chkPermisosLeerLlamadas,145,0,Main,chkPermisosUbicacion,138,0,Main,chkPermisosEstadoTelefono,146,3,Main,Activity_Resume,71,0 ModuleClosedNodes9=
NavigationStack=Tracker,flpReConnect,197,0,Starter,Service_Create,67,0,errorManager,Activity_Resume,91,0,Starter,Application_Error,67,0,Starter,Process_Globals,18,5,Tracker,Process_Globals,28,0,Tracker,Service_Destroy,189,0,Tracker,StopFLP,141,1,Tracker,CreateLocationRequest2,136,0,NotificationService,NotiMon_NotificationPosted,69,0,Subs,revisaYmandaUUC,289,6
SelectedBuild=0 SelectedBuild=0
VisibleModules=6,2,8,3,7,4,5 VisibleModules=7,3,9,4,8,5,6,2

2
Starter.bas
View File

@@ -23,7 +23,7 @@ Sub Process_Globals
Dim devModel As String Dim devModel As String
Dim lastLocUpdate As String = 0 Dim lastLocUpdate As String = 0
Dim logger As Boolean = True Dim logger As Boolean = True
Dim errorLog As SQL
Dim PE As PhoneEvents Dim PE As PhoneEvents
Dim PhId As PhoneId Dim PhId As PhoneId

8
Subs.bas
View File

@@ -291,8 +291,12 @@ Sub revisaYmandaUUC
' bitacora(Tracker.flp.SuspendedCause) 'ignore ' bitacora(Tracker.flp.SuspendedCause) 'ignore
Starter.UUC.Time = DateTime.Now Starter.UUC.Time = DateTime.Now
guardaInfoEnBD(Starter.UUC) 'Guardamos la ultima ubicacion con la hora actual, para que no se reinicie la app si no consigue una ubicacion nueva. guardaInfoEnBD(Starter.UUC) 'Guardamos la ultima ubicacion con la hora actual, para que no se reinicie la app si no consigue una ubicacion nueva.
Sleep(1000) ' Sleep(1000)
ExitApplication StopService(Tracker)
Sleep(5000)
StartService(Tracker)
CallSubDelayed(Tracker, "StartFLP")
' ExitApplication
End If End If
End If End If
' LogColor($"Ultima loc: ${Subs.fechaNormal(ultimaLoc.Time)}"$, Colors.blue) ' LogColor($"Ultima loc: ${Subs.fechaNormal(ultimaLoc.Time)}"$, Colors.blue)

8
Tracker.bas
View File

@@ -145,7 +145,7 @@ End Sub
Public Sub StopFLP Public Sub StopFLP
If Starter.logger Then Log("StopFLP") If Starter.logger Then Log("StopFLP")
If flpStarted Then If flpStarted Then
flp.RemoveLocationUpdates 'Eliminamos todas las solicitudes de ubicacion If flp.IsConnected Then flp.RemoveLocationUpdates 'Eliminamos todas las solicitudes de ubicacion
flpStarted = False flpStarted = False
End If End If
End Sub End Sub
@@ -192,7 +192,11 @@ End Sub
Sub Service_Destroy Sub Service_Destroy
If Tracking Then If Tracking Then
StopFLP Try
StopFLP
Catch
Log(LastException)
End Try
End If End If
Tracking = False Tracking = False
lock.ReleasePartialLock lock.ReleasePartialLock