- VERSION 5.06.25

- Se quito que el almacen de guadalajara NO tuviera geocerca.
- Se corrigio el error de que cuando se desinstala la app y se vuelve a instalar, en la priera venta se trababa la aplicacion.
- Se puso codigo de prueba para usar el "wait for" con el DBReqManager.

B4A/B4XMainPage.bas

@@ -117,6 +117,7 @@ Sub Class_Globals
 	Dim intentUsado As Boolean = False
 	Private p_importarBDWA As Panel
 	Private cb_importarBDWA As CheckBox
+'	Type TResultado(Tag As String, Success As Boolean, resultado As DBResult, ErrorMessage As String)
 End Sub
 
 Public Sub Initialize
@@ -129,6 +130,7 @@ End Sub
 
 'This event will be called once, before the page becomes visible.
 Private Sub B4XPage_Created (Root1 As B4XView)
+	Log(">>>>>>  CREATE - INICIAMOS MAIN PAGE  <<<<<<<<<")
 	If Not(Starter.Logger) Then logger = False
 	Dim sDate, sTime As String
 	DateTime.DateFormat = "yyyyMMdd"
@@ -212,7 +214,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	ruta = Starter.ruta
 	Starter.tiempos.Initialize
 	kh.guardaAppInfo
-
+Log(111)
 	'Revisamos si se disparo el intent de cargar la base de datos desde WhatApp.
 	If kh.traeUsarIntentBDWA Then kh.importaBDDesdeWhatsApp
 
@@ -312,6 +314,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 			Msgbox("No se puede crear el archivo de foto","Aviso") 'ignore
 		End Try
 	End If
+	Log(222)
 '	Dim ph As Phone 'Get Id Device
 '	Dim DeviceID As String = Starter.ph.GetSettings("android_id").ToUpperCase
 '	If logger Then Log($"Marca: ${Starter.ph.manufacturer}, Modelo: ${Starter.ph.model}"$)
@@ -346,7 +349,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	Else
 		ToastMessageShow("Sin permisos para GPS", True)
 	End If
-	Log("***********************************************")
+	Log("33***********************************************33")
 	MES1.Initialize(Me, "MES1")
 '	Log("SDK: " & device.SdkVersion)
 '	Get the device SDK version
@@ -376,7 +379,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	End If
 	Log(MES1.IsInitialized)
 	Log(MES1.HasPermission)
-	Log("***********************************************")
+	Log("44***********************************************44")
 	MES1.Initialize(Me, "MES1")
 '	Log("Permisos BT: " & rp.Check("android.permission.BLUETOOTH_CONNECT"))
 '	Log("REVISAMOS PERMISOS DE BT")
@@ -389,7 +392,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 End Sub
 
 Sub B4XPage_Appear
-	Log(">>>>>>  INICIAMOS MAIN PAGE  <<<<<<<<<")
+	Log(">>>>>>  APPEAR - INICIAMOS MAIN PAGE  <<<<<<<<<")
+	If Not(MES1.IsInitialized) Then MES1.Initialize(Me, "MES1")
 	Log(DateTime.GetDayOfWeek(DateTime.Now))
 	kh.RD_Init
 	kh.SetButtonTintList(cb_geocerca, Colors.LightGray, Colors.RGB(43, 154, 211))
@@ -462,10 +466,10 @@ Sub B4XPage_Appear
 	Log(MES1.IsInitialized)
 	If MES1.IsInitialized Then
 		LogColor("Permisos de almacenamiento: " & MES1.HasPermission, Colors.Magenta)
-		If MES1.HasPermission Then kh.revisaSiExisteRespaldo
+'		If MES1.HasPermission Then kh.revisaSiExisteRespaldo  '' Se comenta causa el error de que en el primer cliente,al guardar la venta se trabe la aplicacion!!
 	End If
 	DateTime.DateFormat = "yyyy-MM-dd HH:mm:ss"
-	Starter.skmt.ExecNonQuery($"insert into versiones (version, fecha) values ('${Application.VersionName}', '${datetime.Date(DateTime.Now)}')"$)
+	Starter.skmt.ExecNonQuery($"insert into versiones (version, fecha) values ('${Application.VersionName}', '${DateTime.Date(DateTime.Now)}')"$)
 End Sub
 
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
@@ -705,6 +709,52 @@ Private Sub i_engranes_LongClick
 '	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
 '	Subs.copiaDB(Result)
 '	Dim x As Int = "a"
+	Dim reqManagerW As DBRequestManagerW
+	reqManagerW.Initialize
+	cmd.Initialize
+
+	cmd.Name = "select_usuario_guna_KELL"
+	cmd.Parameters = Array As Object(user.Text, pass.Text)
+	reqManagerW.ExecuteQuery(Starter.DBReqServer, cmd, Me, "elUsuario")
+	Wait For elUsuario_Completed (res1 As TResultado)
+	Log("tag: " & res1.tag & " Success: " & res1.Success)
+	If res1.Success Then
+		Subs.logJobDoneResultados(res1.resultado)
+	Else
+		Log(res1.ErrorMessage)
+	End If
+
+	cmd.Name = "select_version_KELL"
+	cmd.Parameters = Array()
+	reqManagerW.ExecuteQuery(Starter.DBReqServer, cmd, Me, "laVersion")
+	Wait For laVersion_Completed (res2 As TResultado)
+	Log("tag: " & res2.tag & " Success: " & res2.Success)
+	If res2.Success Then
+		Subs.logJobDoneResultados(res2.resultado)
+	Else
+		Log(res2.ErrorMessage)
+	End If
+
+	cmd.Name = "delete_geoPass"
+	cmd.Parameters = Array As Object( Subs.traeAlmacen, Subs.traeRuta)
+	reqManagerW.ExecuteCommand(Starter.DBReqServer, cmd, Me, "borraGeoPass")
+	Wait For borraGeoPass_Completed (res3 As TResultado)	
+	Log("tag: " & res3.tag & " Success: " & res3.Success)
+	If res3.Success Then
+		Subs.logJobDoneResultados(res3.resultado)
+	Else
+		Log(res3.ErrorMessage)
+	End If
+End Sub
+
+Sub elUsuario_Completed (res As DBResult)
+	Log("abc: " & res.tag)
+	Log("wrapper: " & res)
+End Sub
+
+Sub laVersion_Completed (res As DBResult)
+	Log("def: " & res.tag)
+	Log("wrapper2: " & res)
 End Sub
 
 Sub B_SERVER_Click