cheveguerra/Gabinete-Roit
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Gabinete-Roit.git synced 2026-04-20 12:49:15 +00:00
Code Issues Packages Projects Releases Wiki Activity

4.04.17 se agrega codigos qr

Browse Source
This commit is contained in:
Javier
2025-09-01 13:34:06 -06:00
parent dea84574e5
commit 7df82c83ae
15 changed files with 483 additions and 423 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
B4A/Starter.bas
View File

@@ -14,7 +14,7 @@ Sub Process_Globals
'These variables can be accessed from all modules.
Public rp As RuntimePermissions
Dim reqManager As DBRequestManager
Dim DBReqServer As String = "http://keymon.lat:1783" '"http://keymon.lat:1782" "http://10.0.0.205:1782" ""' CAMBIAR HACIA AFUERA O DENTRO DE LA OFNA
Dim DBReqServer As String = "http://keymon.net:1783" '"http://keymon.lat:1782" "http://10.0.0.205:1782" ""' CAMBIAR HACIA AFUERA O DENTRO DE LA OFNA
Dim rutaBD As String = File.DirInternal
Dim skmt As SQL
Dim almacen As String
@@ -39,9 +39,6 @@ Sub Process_Globals
Dim horacomin As String
Dim horacomout As String
Dim trabaja As Int
'Para los Logs
Dim logs As StringBuilder
Private logcat As LogCat
End Sub
Sub Service_Create
@@ -64,19 +61,8 @@ Sub Service_TaskRemoved
Timer1.Enabled = False
End Sub
'Return true to allow the OS default exceptions handler to handle the uncaught exception. 'Para los Logs
'Return true to allow the OS default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
'wait for 500ms to allow the logs to be updated.
Log(">>>>>>>>> ERROR")
Dim jo As JavaObject
Dim l As Long = 500: jo.InitializeStatic("java.lang.Thread").RunMethod("sleep", Array(l)) 'Sleep 500ms
logcat.LogCatStop
logs.Initialize
logs.Append(Application.LabelName & " Ver " & Application.VersionName & CRLF)
logs.Append(StackTrace)
Subs.revisaBD
Subs.errorLog.ExecNonQuery2("INSERT INTO errores(fecha, error) VALUES (?,?)", Array As Object (Subs.fechaKMT(DateTime.now), logs))
StartActivity(errorManager)
Return True
End Sub
@@ -84,6 +70,7 @@ Sub Service_Destroy
End Sub
Private Sub Timer1_Tick
' ToastMessageShow("Timer",False)
' If logger Then Log("Siguiente actuaizacion " & DateTime.Time(DateTime.Now + Interval * 1000))
@@ -114,8 +101,8 @@ Sub ENVIA_ULTIMA_GPS 'ignore
If bateria = 0 Then bateria = 100
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_ubicaprom_GABICO"
cmd.Parameters = Array As Object(sDate &" " &sTime, B4XPages.MainPage.login.user, latitud,longitud,B4XPages.MainPage.principal.bateria,almacen,B4XPages.MainPage.login.nom_proyec,B4XPages.MainPage.login.sucursal,B4XPages.MainPage.login.suc_nom)
cmd.Name = "insert_ubicaprom_GABICO_2"
cmd.Parameters = Array As Object(sDate &" " &sTime, B4XPages.MainPage.login.user, latitud,longitud,B4XPages.MainPage.principal.bateria,almacen,B4XPages.MainPage.login.nom_proyec,B4XPages.MainPage.login.sucursal,B4XPages.MainPage.login.suc_nom,Application.VersionName,B4XPages.MainPage.login.tipoenvio)
' cmd.Parameters = Array As Object(sDate &" " &sTime, " ", latitud,longitud," ",almacen," "," "," ")
reqManager.ExecuteCommand(cmd,"inst_GESTION_GPS")