cheveguerra/Mazapa-Reparto
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mazapa-Reparto.git synced 2026-04-19 22:09:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

Version: 5.06.01

Browse Source 
Se corrigio el tiempo real y se guarda el server si se modifica
This commit is contained in:
IsR0d
2025-06-05 18:42:39 -06:00
parent cfe90f8b53
commit 5c8dde28d1
593 changed files with 23816 additions and 117988 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
B4A/Starter.bas
View File

@@ -22,7 +22,7 @@ Sub Process_Globals
Private BTAdmin As BluetoothAdmin
Public BluetoothState As Boolean
Dim Timer1 As Timer
Dim Interval As Int = 300
Dim Interval As Int = 10
'Para WebSockets
' Dim monitor As Timer 'Lo usamos para monitorear los servicios Tracker y PushService
' Dim monitorTicks As Int = 0
@@ -121,7 +121,10 @@ Sub ENVIA_ULTIMA_GPS
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "UPDATE_MAZAPA_ACTUALR3_GPS"
cmd.Parameters = Array As Object(B4XPages.MainPage.montoActual, B4XPages.MainPage.clientestotal, B4XPages.MainPage.clientesventa, B4XPages.MainPage.clientesvisitados, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, B4XPages.MainPage.batt, B4XPages.MainPage.montoRechazado, B4XPages.MainPage.montoEntregado, B4XPages.MainPage.clientestotal, B4XPages.MainPage.porVisitar, B4XPages.MainPage.entregas, B4XPages.MainPage.rechazos, Application.VersionName, B4XPages.MainPage.ALMACEN, B4XPages.MainPage.rutapreventa )
cmd.Parameters = Array As Object(B4XPages.MainPage.montoActual, B4XPages.MainPage.clientestotal, B4XPages.MainPage.clientesvisitados, B4XPages.MainPage.clientesventa, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, B4XPages.MainPage.batt, B4XPages.MainPage.montoRechazado, B4XPages.MainPage.montoEntregado, B4XPages.MainPage.clientestotal, B4XPages.MainPage.porVisitar, B4XPages.MainPage.entregas, B4XPages.MainPage.rechazos, Application.VersionName, B4XPages.MainPage.ALMACEN, B4XPages.MainPage.rutapreventa )
' CAT_RR_MONTO, CAT_RR_TT, CAT_RR_VISIT_ACT, CAT_RR_DEV_ACT, CAT_RR_LAT_ACT, CAT_RR_LONG_ACT, CAT_RR_BAT_ACT, CAT_RR_MRECH_ACT, CAT_RR_MONTO_ACT, CAT_RR_TOT_CLIENTES, CAT_RR_PORVISITAR, CAT_RR_ENTREGAS, CAT_RR_RECHAZOS, CAT_RR_VERSION
Log($"Monto actual: ${B4XPages.MainPage.montoActual} & Clientes totales: ${B4XPages.MainPage.clientestotal} & Clientes con venta: ${B4XPages.MainPage.clientesventa} & Clientes visitados: ${B4XPages.MainPage.clientesvisitados} & Latitud: ${B4XPages.MainPage.lat_gps} & Longitud: ${B4XPages.MainPage.lon_gps} & Bateria: ${B4XPages.MainPage.batt} & Monto Rechazado: ${B4XPages.MainPage.montoRechazado} & Monto entregado: ${B4XPages.MainPage.montoEntregado} & Clientes totales: ${B4XPages.MainPage.clientestotal} & Por visitar: ${B4XPages.MainPage.porVisitar} & Entregas: ${B4XPages.MainPage.entregas} & Rechazos: ${B4XPages.MainPage.rechazos} & Version: ${Application.VersionName} & Almacen: ${B4XPages.MainPage.ALMACEN} & Ruta cargada: ${B4XPages.MainPage.rutapreventa}"$)
If B4XPages.MainPage.logger Then Log($"montoActual: ${B4XPages.MainPage.montoActual}, cTotal: ${B4XPages.MainPage.clientestotal}, cVenta: ${B4XPages.MainPage.clientesventa}, cVisitados: ${B4XPages.MainPage.clientesvisitados}, ${B4XPages.MainPage.lat_gps}, ${B4XPages.MainPage.lon_gps}, Batt: ${B4XPages.MainPage.batt}, montoRechazado: ${B4XPages.MainPage.montoRechazado}, montoEntregado: ${B4XPages.MainPage.montoEntregado}, porVisitar: ${B4XPages.MainPage.porVisitar}, entregas: ${B4XPages.MainPage.entregas}, rechazos: ${B4XPages.MainPage.rechazos}, Almacen: ${B4XPages.MainPage.ALMACEN}, Ruta: ${B4XPages.MainPage.rutapreventa}"$)
reqManager.ExecuteCommand(cmd, "inst_visitas")
@@ -136,11 +139,6 @@ Sub ENVIA_ULTIMA_GPS
End If
End Sub
Sub IsConnectedToInternet As Boolean 'ignore
Dim r As Reflector
r.Target = r.GetContext
@@ -155,6 +153,7 @@ End Sub
Sub JobDone(Job As HttpJob)
' LogColor("starter jobdone", Colors.Red)
' Log(Job.ErrorMessage)
Log("ENTRAMOS A JOBDONE")
' Private r As DBResult = reqManager.HandleJob(Job)
If Job.Success = False Then
' LogColor("** " & Job.Tag & " Error: " & Job.ErrorMessage, Colors.Red) ' Mod by CHV - 211023