- VERSION 4.10.15

- Se genera un GUID para pruebas en lugar del IMEI

B4A/B4XMainPage.bas

@@ -303,9 +303,9 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 		End Try
 	End If
 '	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}"$)
-	If logger Then LogColor($"//////////////////   DeviceID: ${DeviceID} ////////////////// "$, Colors.Blue)
+'	Dim DeviceID As String = Starter.ph.GetSettings("android_id").ToUpperCase
+'	If logger Then Log($"Marca: ${Starter.ph.manufacturer}, Modelo: ${Starter.ph.model}"$)
+'	If logger Then LogColor($"//////////////////   DeviceID: ${DeviceID} ////////////////// "$, Colors.Blue)
 '	If Logger Then LogColor("Revisa permisos Phone_State", Colors.Green)
 	'este codigo es para lo del menu
 '	PopupMenu.Initialize("PopupMenu", b_menu)
@@ -315,16 +315,18 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 '	PopupMenu.AddMenuItem(3, 3, "Remove")
 	' menu fin
 '	Subs.borraArribaDe100Errores
-	Log("Pedimos permisos de estado del cel")
-	rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE)
-	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
-	If Result Then
-'		Dim Phn As PhoneId
-		IMEN.Text = "" 'Phn.GetDeviceId
-		IMEI ="" ' Phn.GetDeviceId
-		If logger Then LogColor($"//////////////////  IMEI: ${IMEI} ////////////////// "$, Colors.Blue)
-	End If
-	Log("Permisos cel terminados")
+'	Log("Pedimos permisos de estado del cel")
+'	rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE)
+'	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
+'	If Result Then
+''		Dim Phn As PhoneId
+'		IMEN.Text = "" 'Phn.GetDeviceId
+'		IMEI ="" ' Phn.GetDeviceId
+'		If logger Then LogColor($"//////////////////  IMEI: ${IMEI} ////////////////// "$, Colors.Blue)
+'	End If
+'	Log("Permisos cel terminados")
+	IMEN.Text = ""
+	IMEI ="" ' Phn.GetDeviceId
 
 	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
 	Wait For B4XPAge_PermissionResult (Permission As String, Result As Boolean)
@@ -334,20 +336,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	Else
 		ToastMessageShow("Sin permisos para GPS", True)
 	End If
-
-'	Log("Permisos BT: " & rp.Check("android.permission.BLUETOOTH_CONNECT"))
-'	Log("REVISAMOS PERMISOS DE BT")
-'	rp.CheckAndRequest("android.permission.BLUETOOTH_CONNECT")
-'	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
-'	If Result Then Log("Tenemos permisos de bluetooth.")
-'	Log("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
-'	Log("Check phone state: " & rp.Check(rp.PERMISSION_READ_PHONE_STATE))
-	kh.centraPanel(p_botones, Root.Width)
-End Sub
-
-Sub B4XPage_Appear
 	MES1.Initialize(Me, "MES1")
-	Log("SDK: " & device.SdkVersion)
+'	Log("SDK: " & device.SdkVersion)
 '	Get the device SDK version
 	Dim SdkVersion As Int = device.SdkVersion
 	' Choose which permission to request in order to access external storgage
@@ -363,16 +353,29 @@ Sub B4XPage_Appear
 		Wait For B4XPage_PermissionResult (Permission As String, ResultX As Boolean)
 		Log($"PERMISSION_READ_EXTERNAL_STORAGE = ${ResultX}"$)
 	Else
-'		Log("SDK = " & SdkVersion & " : Requesting MANAGE_EXTERNAL_STORAGE permission")
-'		Log("On Entry MANAGE_EXTERNAL_STORAGE = " & MES1.HasPermission)
+		Log("SDK = " & SdkVersion & " : Requesting MANAGE_EXTERNAL_STORAGE permission")
+		Log("On Entry MANAGE_EXTERNAL_STORAGE = " & MES1.HasPermission)
 		If Not(MES1.HasPermission) Then
 			MsgboxAsync("This app requires access to all files, please enable the option", "Manage All Files")
 			Wait For Msgbox_Result(Res As Int)
-'			Log("Getting permission")
+			Log("Getting MES permission")
 			MES1.GetPermission
 			Wait For MES_StorageAvailable
 		End If
 	End If
+
+
+'	Log("Permisos BT: " & rp.Check("android.permission.BLUETOOTH_CONNECT"))
+'	Log("REVISAMOS PERMISOS DE BT")
+'	rp.CheckAndRequest("android.permission.BLUETOOTH_CONNECT")
+'	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
+'	If Result Then Log("Tenemos permisos de bluetooth.")
+'	Log("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
+'	Log("Check phone state: " & rp.Check(rp.PERMISSION_READ_PHONE_STATE))
+	kh.centraPanel(p_botones, Root.Width)
+End Sub
+
+Sub B4XPage_Appear
 	kh.RD_Init
 	kh.SetButtonTintList(cb_geocerca, Colors.LightGray, Colors.RGB(43, 154, 211))
 	kh.SetButtonTintList(cb_cartaPorte, Colors.LightGray, Colors.RGB(43, 154, 211))
@@ -438,7 +441,7 @@ Sub B4XPage_Appear
 '	Log(">>>>>>  FECHA")
 	cmd.Initialize
 	cmd.Name = "select_fecha"
-	cmd.Parameters = Array As Object("", "")
+'	cmd.Parameters = Array As Object(Null)
 	reqManager.ExecuteQuery(cmd , 0, "fecha")
 End Sub
 
@@ -867,4 +870,38 @@ Private Sub cb_importarBDWA_CheckedChange(Checked As Boolean)
 '	LogColor($"cb_importarBDWA_CheckedChange = ${Checked}"$, Colors.Red)
 	Starter.skmt.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'IMPORTAR_BD_WA'")
 	Starter.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('IMPORTAR_BD_WA', '${Checked}')"$)
+End Sub
+
+Sub CreateRequest As DBRequestManager
+	Dim req As DBRequestManager
+	req.Initialize(Me, Starter.DBReqServer)
+	Return req
+End Sub
+
+Sub CreateCommand(Name As String, Parameters() As Object) As DBCommand
+	Dim cmd As DBCommand
+	cmd.Initialize
+	cmd.Name = Name
+	If Parameters <> Null Then cmd.Parameters = Parameters
+	Return cmd
+End Sub
+
+Sub GetFecha
+'	Dim req As DBRequestManager = CreateRequest
+'	Dim cmd As DBCommand = CreateCommand("select_fecha", Array(Null))
+'	Wait For (req.ExecuteQuery(cmd, 0, Null)) JobDone(j As HttpJob)
+'	If j.Success Then
+'		req.HandleJobAsync(j, "req")
+'		Wait For (req) req_Result(res As DBResult)
+'		'work with result
+'		req.PrintTable(res)
+'	Else
+'		Log("ERROR: " & j.ErrorMessage)
+'	End If
+'	j.Release
+End Sub
+
+Private Sub ImageView1_LongClick
+	Log("######    TRAEMOS FECHA #######")
+	GetFecha
 End Sub