- VERSION 5.09.01

- Se quito el almacen y ruta en duro al traer los datos de Trade Spending
- Se corrigio la barra de busqueda de productos que no regresaba los datos correctos.

B4A/B4XMainPage.bas

@@ -118,6 +118,8 @@ Sub Class_Globals
 	Private p_importarBDWA As Panel
 	Private cb_importarBDWA As CheckBox
 '	Type TResultado(Tag As String, Success As Boolean, resultado As DBResult, ErrorMessage As String)
+	Private Label4 As Label
+	Private clicked As Int = 0
 End Sub
 
 Public Sub Initialize
@@ -393,6 +395,7 @@ End Sub
 
 Sub B4XPage_Appear
 	Log(">>>>>>  APPEAR - INICIAMOS MAIN PAGE  <<<<<<<<<")
+	clicked = 0
 	If Not(MES1.IsInitialized) Then MES1.Initialize(Me, "MES1")
 	Log(DateTime.GetDayOfWeek(DateTime.Now))
 	kh.RD_Init
@@ -468,11 +471,6 @@ Sub B4XPage_Appear
 		LogColor("Permisos de almacenamiento: " & MES1.HasPermission, Colors.Magenta)
 '		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
-	Private cu As Cursor = Starter.skmt.ExecQuery("select USUARIO from USUARIOA")
-	If cu.RowCount > 0 Then
-		cu.Position = 0
-		If cu.GetString("USUARIO") <> "" Then user.Text = cu.GetString("USUARIO")
-	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)}')"$)
 End Sub
@@ -592,6 +590,9 @@ Sub JobDone(Job As HttpJob)
 					p_importarBDWA.Visible = False
 				End If
 			End If
+			If result.tag = "traeConexion" Then
+				Subs.logJobDoneResultados(result)
+			End If
 		End If
 		Job.Release
 	End If
@@ -1030,7 +1031,32 @@ Sub GetFecha
 End Sub
 
 Private Sub ImageView1_LongClick
-	Log("######    TRAEMOS FECHA #######")
-	GetFecha
+'	Log("######    TRAEMOS FECHA #######")
+'	GetFecha
 	
-End Sub
+	Log("traeConexion")
+	Private reqManagerX As DBRequestManager
+	reqManagerX.Initialize(Me, "http://keymon.net:9010/DB2")
+	Private cmdX As DBCommand
+	cmdX.Initialize
+	cmdX.Name = "traeConexion"
+	cmdX.Parameters = Array As Object() 
+	reqManagerX.ExecuteQuery(cmdX, 0, "traeConexion")
+End Sub
+
+Sub ponUsuario
+	Private cu As Cursor = Starter.skmt.ExecQuery("select USUARIO from USUARIOA")
+	If cu.RowCount > 0 Then
+		cu.Position = 0
+		If cu.GetString("USUARIO") <> "" Then user.Text = cu.GetString("USUARIO")
+	End If
+End Sub
+
+Private Sub Label4_Click
+	clicked = clicked + 1
+	Log(clicked)
+	If clicked >= 5 Then
+		clicked = 0
+		ponUsuario
+	End If
+End Sub