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

Version 4.09.22

Browse Source 
Se agrego la Bitacora que tiene Kelloggs
This commit is contained in:
IsR0d
2024-09-23 10:34:09 -06:00
parent 36a638f265
commit 7fe1d3059d
14 changed files with 257 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
B4A/Starter.bas
View File

@@ -16,12 +16,14 @@ Sub Process_Globals
Dim ph As Phone
Public rp As RuntimePermissions
Public FLP As FusedLocationProvider
Dim reqManager As DBRequestManager
Dim enVenta As Boolean = False
' Private flpStarted As Boolean
Dim reqManager As DBRequestManager
Dim server As String = "http://187.189.244.154:1783"
Dim server As String = "http://187.189.244.154:1781"
' Dim server As String = "http://187.189.244.154:1783"
' Dim server As String = "http://11.0.0.105:1782"
' Dim server As String = "http://11.0.0.231:1782"
' Dim server As String = "http://11.0.0.220:1782"
Dim Timer1 As Timer
Dim Interval As Int = 300
Dim ruta As String = File.DirInternal
@@ -77,7 +79,7 @@ End Sub
Sub ENVIA_ULTIMA_GPS
If IsConnectedToInternet Or 1 = 1 Then
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
Dim cmd As DBCommand
skmt.Initialize(ruta,"kmt.db", False)
@@ -89,7 +91,7 @@ Sub ENVIA_ULTIMA_GPS
cmd.Name = "UPDATE_MEDI_ACTUAL2_GPS"
If B4XPages.MainPage.lat_gps.Length < 15 Then B4XPages.MainPage.lat_gps = B4XPages.MainPage.lat_gps&"0"
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,0, 0, 0,B4XPages.MainPage.ALMACEN,B4XPages.MainPage.rutapreventa)
If 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}, 0, 0, 0, Almacen: ${B4XPages.MainPage.ALMACEN}, Ruta: ${B4XPages.MainPage.rutapreventa}"$)
' If 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}, 0, 0, 0, Almacen: ${B4XPages.MainPage.ALMACEN}, Ruta: ${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"