- VERSION 5.09.10

- Se escondio el boton de NoVenta en cliente hata tener ubicacion.
- Se habilitó los clientes nuevos POR RUTA, en la tabla "CLIENTES_NUEVOS_X_RUTA", y si ya llegaron a limite, se "deshabilita" el boton en principal.
- Se corrige que para Trade Spending, estaba todavia la ruta y almacen en duro.

B4A/B4XMainPage.bas

@@ -120,6 +120,7 @@ Sub Class_Globals
 '	Type TResultado(Tag As String, Success As Boolean, resultado As DBResult, ErrorMessage As String)
 	Private Label4 As Label
 	Private clicked As Int = 0
+	Dim linker As C_deviceLinker
 End Sub
 
 Public Sub Initialize
@@ -395,9 +396,10 @@ End Sub
 
 Sub B4XPage_Appear
 	Log(">>>>>>  APPEAR - INICIAMOS MAIN PAGE  <<<<<<<<<")
+	linker.Initialize(Me, "Linker", True)
 	clicked = 0
 	If Not(MES1.IsInitialized) Then MES1.Initialize(Me, "MES1")
-	Log(DateTime.GetDayOfWeek(DateTime.Now))
+'	Log(DateTime.GetDayOfWeek(DateTime.Now))
 	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))
@@ -465,7 +467,7 @@ Sub B4XPage_Appear
 	cmd.Name = "select_fecha"
 '	cmd.Parameters = Array As Object(Null)
 	reqManager.ExecuteQuery(cmd , 0, "fecha")
-	Log("###############    APPEAR PAGE    ####################")
+	Log("###############    PAGE_APPEAR    ####################")
 	Log(MES1.IsInitialized)
 	If MES1.IsInitialized Then
 		LogColor("Permisos de almacenamiento: " & MES1.HasPermission, Colors.Magenta)
@@ -1033,15 +1035,18 @@ End Sub
 Private Sub ImageView1_LongClick
 '	Log("######    TRAEMOS FECHA #######")
 '	GetFecha
-	
-	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")
+
+'	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")
+	If Subs.traeAlmacen <> "" Then
+		linker.VerifyAndLinkDevice(Subs.traeAlmacen, Subs.traeRuta)
+	End If
 End Sub
 
 Sub ponUsuario
@@ -1060,3 +1065,33 @@ Private Sub Label4_Click
 		ponUsuario
 	End If
 End Sub
+
+Sub Linker_Response(Status As String) ' << AÑADE ESTE SUB [New Query]
+	If Starter.Logger Then LogColor($"Respuesta de DeviceLinker para la verificación del dispositivo: ${Status}"$, Colors.Magenta) '
+	Select Status
+		Case "UUID_ERROR"
+			ToastMessageShow("Error interno al obtener el identificador único del dispositivo.", True)
+		Case "HTTP_ERROR"
+			LogColor("Error HTTP al verificar el dispositivo: " & linker.lastJobDoneError, Colors.Red)
+			ToastMessageShow("Error de conexión al servidor durante la verificación del dispositivo.", True)
+		Case "SERVER_LOGIC_ERROR"
+			ToastMessageShow("El servidor no proporcionó un estado de verificación válido. Contacte a soporte.", True)
+		Case "OK"
+			If Starter.Logger Then Log("Dispositivo ligado y verificado exitosamente.")
+			ToastMessageShow("Dispositivo verificado y ligado correctamente.", False)
+			' Aquí puedes añadir lógica adicional si la verificación es exitosa, por ejemplo, habilitar ciertos botones o continuar con el flujo normal.
+		Case "NO_REGISTRADO"
+			If Starter.Logger Then Log("Dispositivo NO registrado.")
+			ToastMessageShow("Dispositivo NO registrado.", False)
+		Case "REGISTRO_NUEVO"
+			If Starter.Logger Then Log("¡¡Registro nuevo!!")
+			ToastMessageShow("¡¡Registro nuevo!!", False)
+		Case "ALREADY_REGISTERED"
+			If Starter.Logger Then Log("¡¡El dispositivo ya esta registrado con otra ruta!!")
+			ToastMessageShow("¡¡El dispositivo ya esta registrado con otra ruta!!", True)
+		Case Else ' Otros estados que tu servidor pueda devolver (ej. "UNAUTHORIZED", "PENDING_APPROVAL")
+			If Starter.Logger Then Log($"Estado de verificación del dispositivo: ${Status}"$)
+			ToastMessageShow($"Verificación del dispositivo: ${Status}"$, True)
+			' Puedes decidir si bloquear la funcionalidad o mostrar un mensaje específico según el estado.
+	End Select
+End Sub