diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index c7c6511..f63e54d 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -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 diff --git a/B4A/KelloggsV4.b4a b/B4A/KelloggsV4.b4a index 043e228..3cd0f7b 100644 --- a/B4A/KelloggsV4.b4a +++ b/B4A/KelloggsV4.b4a @@ -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 diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta index 5a5b863..2ecbaaf 100644 --- a/B4A/KelloggsV4.b4a.meta +++ b/B4A/KelloggsV4.b4a.meta @@ -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 diff --git a/B4A/Tracker.bas b/B4A/Tracker.bas index 8b61b4b..e81c65f 100644 --- a/B4A/Tracker.bas +++ b/B4A/Tracker.bas @@ -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