Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
sql_local.Initialize(File.DirInternal, "TriXarSystems.db", True)
Dim r As Reflector
debugMode = r.GetStaticField("anywheresoftware.b4a.BA", "debugMode")
End If
If p.SdkVersion >= 26 Then
Dim r As Reflector
r.Target = sql_local
r.Target = r.GetField("db")
r.runMethod("disableWriteAheadLogging")
End If