cheveguerra/Mariana
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana.git synced 2026-04-21 22:59:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

vistas...

Browse Source
This commit is contained in:
cvaldes1201
2024-05-20 09:53:42 -06:00
parent 0a184e3baf
commit 2a8817aa02
24 changed files with 704 additions and 1855 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
B4A/Starter.bas
View File

@@ -16,7 +16,7 @@ Sub Process_Globals
Dim skmt As SQL
Dim ph As Phone
Public rp As RuntimePermissions
Dim kh As kms_helperSubs
Dim s As C_Subs
Public FLP As FusedLocationProvider
' Private flpStarted As Boolean
Dim reqManager As DBRequestManager
@@ -40,8 +40,8 @@ End Sub
Sub Service_Create
'This is the program entry point.
'This is a good place to load resources that are not specific to a single activity.
kh.Initialize(Me, "Subs") 'Inicializamos la clase Subs
skmt = kh.inicializaBD(File.DirInternal, "kmt.db")
s.Initialize(Me, "Subs") 'Inicializamos la clase Subs
skmt = s.inicializaBD(File.DirInternal, "kmt.db")
gps.Initialize("GPS")
Timer1.Initialize("Timer1", Interval * 1000)
Timer1.Enabled = True
@@ -56,7 +56,7 @@ End Sub
Sub Service_Start (StartingIntent As Intent)
Service.StopAutomaticForeground 'Starter service can start in the foreground state in some edge cases.
Subs.revisaBD
If kh.traeDBReqServerDeBD(skmt) <> "N/A" Then DBReqServer = kh.traeDBReqServerDeBD(skmt)
If s.traeDBReqServerDeBD(skmt) <> "N/A" Then DBReqServer = s.traeDBReqServerDeBD(skmt)
reqManager.Initialize(Me, DBReqServer)
' StartService(NotificationService)
End Sub