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

...

Browse Source
This commit is contained in:
Javier
2026-01-14 11:51:35 -06:00
parent ba70f9550e
commit ef1c9fe058
5 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/C_Principal.bas
View File

@@ -1220,7 +1220,7 @@ Sub JobDone(Job As HttpJob)
If n = "OKActivo" Then If n = "OKActivo" Then
Dim cmd As DBCommand Dim cmd As DBCommand
cmd.Initialize cmd.Initialize
cmd.Name = "select_ruta_DUR4" 'Se cambio de "select_ruta_DUR2_2" el 28/5/2024 para poder deshabilitar el query de las versiones anteriores. cmd.Name = "select_ruta_DUR5" 'Se cambio de "select_ruta_DUR2_2" el 28/5/2024 para poder deshabilitar el query de las versiones anteriores.
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei) cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei)
Log($"${ALMACEN},${e_ruta.text},${imei}"$) Log($"${ALMACEN},${e_ruta.text},${imei}"$)
reqManager.ExecuteQuery(cmd , 0, "ruta") reqManager.ExecuteQuery(cmd , 0, "ruta")

3
B4A/C_Productos.bas
View File

@@ -520,7 +520,8 @@ Private Sub B4XPage_CloseRequest As ResumableSub
Return False Return False
else If entro = "4" Then else If entro = "4" Then
entro = "3" entro = "3"
B4XPage_Appear ' B4XPage_Appear178
Subs.iniciaActividad("Cliente")
Return True Return True
Else If entro = "3" Then Else If entro = "3" Then
Subs.iniciaActividad("Cliente") Subs.iniciaActividad("Cliente")

2
B4A/Durakelo.b4a
View File

@@ -1409,7 +1409,7 @@ Version=12.8
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Durakelo #ApplicationLabel: Durakelo
#VersionCode: 1 #VersionCode: 1
#VersionName: 5.05.25 #VersionName: 5.10.25
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

2
B4A/Durakelo.b4a.meta
View File

@@ -73,6 +73,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=Main,Activity_ActionBarHomeClick,35,0,Subs,procesaPromocion,1017,0,Subs,traePromo,829,6,Main,Globals,22,0,Subs,revisaFechaVigenciaPromo,1502,6,Tracker,CreateLocationRequest,112,0,Starter,ENVIA_ULTIMA_GPS,89,0,Starter,Process_Globals,20,1,C_Principal,Subir_Click,575,0,C_Principal,cargar_Click,886,2 NavigationStack=Subs,revisaFechaVigenciaPromo,1502,6,Tracker,CreateLocationRequest,112,0,Starter,ENVIA_ULTIMA_GPS,89,0,C_Principal,Subir_Click,575,0,C_Principal,cargar_Click,886,2,C_Productos,Class_Globals,0,0,C_Productos,B4XPage_CloseRequest,516,0,Starter,Process_Globals,24,1,C_Principal,B4XPage_Appear,291,0,C_Principal,connecta_Click,2005,0,C_Principal,JobDone,1216,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=22,2,10,4,11,23,12,8,24 VisibleModules=22,2,10,4,11,23,12,8,24

4
B4A/Starter.bas
View File

@@ -27,8 +27,8 @@ Sub Process_Globals
Dim Interval As Int = 300 Dim Interval As Int = 300
Private flpStarted As Boolean Private flpStarted As Boolean
' Dim DBReqServer As String = "http://keymon.lat:1781" ' Dim DBReqServer As String = "http://keymon.lat:1781"
' Dim DBReqServer As String = "http://keymon.net:1781" Dim DBReqServer As String = "http://keymon.net:1781"
Dim DBReqServer As String = "http://192.99.93.204:1781" ' Dim DBReqServer As String = "http://192.99.93.204:1781"
Dim FECHA_HOY As String Dim FECHA_HOY As String
Dim tipov As String = "" Dim tipov As String = ""
Dim muestraProgreso = 0 Dim muestraProgreso = 0