cheveguerra/Durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo.git synced 2026-04-17 19:36:12 +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

25
B4A/C_Principal.bas
View File

@@ -129,7 +129,9 @@ Sub Class_Globals
Dim cuantos_ped As String
Dim conteo As String
Private PASO_info As String
Private bpv1 As BatteryProgressView
Dim batterystatus(11) As Int
Private bu As BatteryUtilities
Private bpv1 As BatteryProgressView
Dim batterystatus(11) As Int
Private bu As BatteryUtilities
@@ -263,6 +265,7 @@ Sub IsConnectedToInternet As Boolean
End Sub
Sub B4XPage_Appear
Log(Starter.lat_gps& " "& Starter.lon_gps)
SERVER = Starter.DBReqServer
HORAINGRESO ="000000"
NUEVO.Visible = True
@@ -276,6 +279,9 @@ Sub B4XPage_Appear
SERVER = c.GetString("CAT_VA_VALOR")
End If
bu.Initialize
batterystatus = bu.BatteryInformation
reqManager.Initialize(Me, SERVER)
Log(SERVER)
@@ -386,12 +392,17 @@ Sub B4XPage_Appear
End If
' Main.montoActual = L_MONTOD.Text
' Main.clientestotal = L_CUANTOST.Text
' Main.clientesventa = l_cuantosc.Text
' Main.clientesvisitados = l_porvisitar.TEXT
' Main.ALMACEN = ALMACEN
' Main.rutapreventa = l_ruta.text
c=Starter.skmt.ExecQuery("select usuario from usuarioa")
c.Position = 0
usuario = c.GetString("USUARIO")
c.Close
B4XPages.MainPage.batt = batterystatus(0)
B4XPages.MainPage.montoActual = L_MONTOD.Text
B4XPages.MainPage.clientestotal = L_CUANTOST.Text
B4XPages.MainPage.clientesventa = l_cuantosc.Text
B4XPages.MainPage.clientesvisitados = l_porvisitar.TEXT
B4XPages.MainPage.ALMACEN = ALMACEN
B4XPages.MainPage.rutapreventa = l_ruta.text
DateTime.TimeFormat = "HH:mm:ss"