cheveguerra/Durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo.git synced 2026-04-20 04:39:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

Envio correcto de la ubicacion 4_01_17_2

Browse Source
This commit is contained in:
cvaldes1201
2024-01-17 19:25:10 -06:00
parent ea2e131981
commit 98ee54f753
8 changed files with 677 additions and 372 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
B4A/Starter.bas
View File

@@ -73,6 +73,7 @@ Private Sub Timer1_Tick
' ToastMessageShow("Timer",False)
If logger Then Log("Siguiente actuaizacion " & DateTime.Time(DateTime.Now + Interval * 1000))
ENVIA_ULTIMA_GPS
Log("trato de enviar")
End Sub
Sub Service_TaskRemoved
@@ -100,12 +101,13 @@ Sub ENVIA_ULTIMA_GPS 'ignore
' cmd.Initialize
' cmd.Name = "select_fechat"
' reqManager.ExecuteQuery(cmd , 0, "fechat")
' Dim cmd As DBCommand
' cmd.Initialize
' cmd.Name = "UPDATE_DURK_ACTUAL2_GPS"
' cmd.Parameters = Array As Object(Main.montoActual,Main.clientestotal, Main.clientesventa,Main.clientesvisitados,lat_gps,lon_gps,Main.batt,0, 0, 0,Main.ALMACEN,Main.rutapreventa)
' reqManager.ExecuteCommand(cmd,"inst_visitas")
' skmt.ExecNonQuery2("Update cat_variables set CAT_VA_VALOR = ? WHERE CAT_VA_DESCRIPCION = ?" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso"))
LogColor(lat_gps&","&lon_gps,Colors.Blue)
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "UPDATE_DURK_ACTUAL2_GPS"
cmd.Parameters = Array As Object(B4XPages.MainPage.montoActual, B4XPages.MainPage.clientestotal, B4XPages.MainPage.clientesventa,B4XPages.MainPage.clientesvisitados,lat_gps,lon_gps,B4XPages.MainPage.batt,0, 0, 0,B4XPages.MainPage.ALMACEN,B4XPages.MainPage.rutapreventa)
reqManager.ExecuteCommand(cmd,"inst_visitas")
skmt.ExecNonQuery2("Update cat_variables set CAT_VA_VALOR = ? WHERE CAT_VA_DESCRIPCION = ?" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso"))
'Reiniciamos el timer para cuando llamamos el Sub desde "seleccion"
Timer1.Enabled = False