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

- VERSION 5.05.27

Browse Source 
- Se cambio el servidor de DBReq a keymon.net
- Se hizo que el envio de ubicacion en tiempo real siempre inicialize el servidor de DBReq con la ip correcta, porque si se modificaba la direccion desde el engrane, no enviaba bien la informacion!
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-05-28 16:40:29 -06:00
parent 75ac8e75af
commit 22c0be4b6d
4 changed files with 18 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
B4A/Starter.bas
View File

@@ -19,12 +19,12 @@ Sub Process_Globals
Public FLP As FusedLocationProvider
' Private flpStarted As Boolean
Dim reqManager As DBRequestManager
Dim server As String = "http://keymon.lat:1781"
Dim server As String = "http://keymon.net:1781"
' Dim server As String = "http://187.189.244.154:1783"
' Dim server As String = "http://10.0.0.205:1782"
' Dim server As String = "http://11.0.0.231:1782"
Dim Timer1 As Timer
Dim Interval As Int = 500
Dim Interval As Int = 10
Dim ruta As String = File.DirInternal
'Para los Logs
Private logs As StringBuilder
@@ -77,12 +77,11 @@ Sub Service_Destroy
End Sub
Sub ENVIA_ULTIMA_GPS
' reqManager.Initialize(Me, server)
reqManager.Initialize(Me, server)
Dim logger As Boolean = True
If logger Then LogColor("Iniciamos ENVIA_ULTIMA_GPS", Colors.Magenta)
If logger Then LogColor("############### Iniciamos ENVIA_ULTIMA_GPS #####################", Colors.Magenta)
Dim skmt As SQL
skmt.Initialize(ruta,"kmt.db", False)
If Subs.traeAlmacen <> Null And Subs.traeAlmacen <> "" Then
'Primero borramos de CAT_RUTAS_CENSOS el registro (por almacen y ruta)
'y LUEGO lo insertamos en JobDone
@@ -90,7 +89,7 @@ Sub ENVIA_ULTIMA_GPS
cmd.Initialize
cmd.Name = "deleteRutaCensos2"
cmd.Parameters = Array As Object(Subs.traeAlmacen, Subs.traeRuta, Subs.traeUsuarioDeBD)
Log($"${Subs.traeAlmacen}, ${Subs.traeRuta}, ${Subs.traeUsuarioDeBD}"$)
' Log($"${Subs.traeAlmacen}, ${Subs.traeRuta}, ${Subs.traeUsuarioDeBD}"$)
reqManager.ExecuteCommand(cmd , "delCatRutas")
End If
@@ -121,7 +120,7 @@ Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
End Sub
Sub JobDone(Job As HttpJob)
' Log(Job.Success)
Log("Starter.JobDone: " & Job.Success)
If Job.Success = False Then
' ToastMessageShow("Error: " & Job.ErrorMessage, True)
LogColor("Error: " & Job.ErrorMessage, Colors.red)
@@ -136,6 +135,7 @@ Sub JobDone(Job As HttpJob)
Subs.logJobDoneResultados(resultado)
End If
If resultado.Tag = "delCatRutas" Then
Log(123)
Subs.logJobDoneResultados(resultado)
Dim cmd As DBCommand
cmd.Initialize