Actualizacion de Version y correccion de posible error en Tracker.flp_LocationChanged

This commit is contained in:
2024-01-16 19:14:34 -06:00
parent f228f59e21
commit 8e095d8bff
4 changed files with 16 additions and 16 deletions

View File

@@ -441,7 +441,7 @@ Sub B4XPage_Appear
StartActivity(Starter.GPS.LocationSettingsIntent)
Else
Starter.GPS.Start(0, 0)
If Starter.ubicacionActual.IsInitialized and Starter.ubicacionActual.Latitude <> 0 Then GPS_LocationChanged(Starter.ubicacionActual)
If Starter.ubicacionActual.IsInitialized And Starter.ubicacionActual.Latitude <> 0 Then GPS_LocationChanged(Starter.ubicacionActual)
End If
If muestraBoleta Then LLAMA_BOLETA
BT_QR.Enabled = False

View File

@@ -870,7 +870,7 @@ Version=12.5
#Region Project Attributes
#ApplicationLabel: Kelloggs Venta
#VersionCode: 3000
#VersionName: 4.01.13 P-V4
#VersionName: 4.01.16 P-V4
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#BridgeLogger:true

View File

@@ -61,36 +61,36 @@ ModuleBreakpoints7=
ModuleBreakpoints8=
ModuleBreakpoints9=
ModuleClosedNodes0=
ModuleClosedNodes1=
ModuleClosedNodes1=2,35
ModuleClosedNodes10=
ModuleClosedNodes11=
ModuleClosedNodes12=
ModuleClosedNodes11=1,3,50,51,52
ModuleClosedNodes12=3
ModuleClosedNodes13=
ModuleClosedNodes14=
ModuleClosedNodes14=39,40,41,43,44
ModuleClosedNodes15=
ModuleClosedNodes16=
ModuleClosedNodes17=
ModuleClosedNodes18=
ModuleClosedNodes18=3,4,5,7,8,9,10,11,12,13,15,16,18
ModuleClosedNodes19=
ModuleClosedNodes2=
ModuleClosedNodes20=
ModuleClosedNodes21=
ModuleClosedNodes21=20,21,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39
ModuleClosedNodes22=
ModuleClosedNodes23=
ModuleClosedNodes24=
ModuleClosedNodes25=
ModuleClosedNodes26=
ModuleClosedNodes26=2
ModuleClosedNodes27=
ModuleClosedNodes28=
ModuleClosedNodes28=9,10,11
ModuleClosedNodes29=
ModuleClosedNodes3=
ModuleClosedNodes3=1,3,86
ModuleClosedNodes30=
ModuleClosedNodes4=
ModuleClosedNodes5=
ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes7=1,3,11,12
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=C_Promos,b_prodMenos_Click,237,0,C_Productos,et_pCant_TextChanged,691,0,C_Productos,b_prodMas_Click,621,6,C_Nota,Class_Globals,0,0,C_Productos,LlenaProdsLL,1226,0,C_Productos,b_prodMenos_Click,581,6,Subs,actualizaProducto,916,0,Visual Designer,proditem.bal,-100,6,Visual Designer,nota.bal,-100,3,C_Nota,B4XPage_Appear,108,0
NavigationStack=C_Productos,b_prodMas_Click,621,6,C_Nota,Class_Globals,0,0,C_Productos,LlenaProdsLL,1226,0,C_Productos,b_prodMenos_Click,581,6,Subs,actualizaProducto,916,0,Visual Designer,proditem.bal,-100,6,Visual Designer,nota.bal,-100,3,C_Nota,B4XPage_Appear,108,0,C_Cliente,Class_Globals,0,0,Tracker,flp_LocationChanged,225,5,B4XMainPage,B4XPage_Created,169,0
SelectedBuild=0
VisibleModules=1,28,11,24,3,12,4,29,13,14,7
VisibleModules=1,28,11,24,3,12,4,29,13,14,7,30

View File

@@ -231,8 +231,8 @@ Sub flp_LocationChanged (Location1 As Location)
CallSubDelayed(Starter, "ENVIA_ULTIMA_GPS")
End If
DateTime.TimeFormat = origFormat 'Regresamos formato de fecha original.
B4XPages.MainPage.cliente.GPS_LocationChanged(Location1)
B4XPages.MainPage.nuevoCliente.GPS_LocationChanged(Location1)
If B4XPages.MainPage.cliente.IsInitialized Then B4XPages.MainPage.cliente.GPS_LocationChanged(Location1)
If B4XPages.MainPage.nuevoCliente.IsInitialized Then B4XPages.MainPage.nuevoCliente.GPS_LocationChanged(Location1)
If Not(IsPaused(MAPA_RUTAS)) Then CallSubDelayed2(MAPA_RUTAS, "GPS_LocationChanged", Location1)
End Sub