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

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

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-01-16 19:14:34 -06:00
parent f228f59e21
commit 8e095d8bff
4 changed files with 16 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/C_Cliente.bas
View File

@@ -441,7 +441,7 @@ Sub B4XPage_Appear
StartActivity(Starter.GPS.LocationSettingsIntent) StartActivity(Starter.GPS.LocationSettingsIntent)
Else Else
Starter.GPS.Start(0, 0) 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 End If
If muestraBoleta Then LLAMA_BOLETA If muestraBoleta Then LLAMA_BOLETA
BT_QR.Enabled = False BT_QR.Enabled = False

2
B4A/KelloggsV4.b4a
View File

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

24
B4A/KelloggsV4.b4a.meta
View File

@@ -61,36 +61,36 @@ ModuleBreakpoints7=
ModuleBreakpoints8= ModuleBreakpoints8=
ModuleBreakpoints9= ModuleBreakpoints9=
ModuleClosedNodes0= ModuleClosedNodes0=
ModuleClosedNodes1= ModuleClosedNodes1=2,35
ModuleClosedNodes10= ModuleClosedNodes10=
ModuleClosedNodes11= ModuleClosedNodes11=1,3,50,51,52
ModuleClosedNodes12= ModuleClosedNodes12=3
ModuleClosedNodes13= ModuleClosedNodes13=
ModuleClosedNodes14= ModuleClosedNodes14=39,40,41,43,44
ModuleClosedNodes15= ModuleClosedNodes15=
ModuleClosedNodes16= ModuleClosedNodes16=
ModuleClosedNodes17= ModuleClosedNodes17=
ModuleClosedNodes18= ModuleClosedNodes18=3,4,5,7,8,9,10,11,12,13,15,16,18
ModuleClosedNodes19= ModuleClosedNodes19=
ModuleClosedNodes2= ModuleClosedNodes2=
ModuleClosedNodes20= ModuleClosedNodes20=
ModuleClosedNodes21= ModuleClosedNodes21=20,21,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39
ModuleClosedNodes22= ModuleClosedNodes22=
ModuleClosedNodes23= ModuleClosedNodes23=
ModuleClosedNodes24= ModuleClosedNodes24=
ModuleClosedNodes25= ModuleClosedNodes25=
ModuleClosedNodes26= ModuleClosedNodes26=2
ModuleClosedNodes27= ModuleClosedNodes27=
ModuleClosedNodes28= ModuleClosedNodes28=9,10,11
ModuleClosedNodes29= ModuleClosedNodes29=
ModuleClosedNodes3= ModuleClosedNodes3=1,3,86
ModuleClosedNodes30= ModuleClosedNodes30=
ModuleClosedNodes4= ModuleClosedNodes4=
ModuleClosedNodes5= ModuleClosedNodes5=
ModuleClosedNodes6= ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=1,3,11,12
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= 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 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

4
B4A/Tracker.bas
View File

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