- VERSION 5.09.10.2

- Se corrigio que Trade Spending no consideraba los productos fijos de las promos a la hora de afectar el presupuesto.
- Se agregó la validacion de la version de la app desde cat_rutas (CAT_RU_VERSION_REQUERIDA).
- Se agregó el ligar el telefono a una ruta desde cat_rutas (CAT_RU_IDTELEFONO).

B4A/C_Principal.bas

@@ -218,6 +218,7 @@ Sub Class_Globals
 	Type TCuantos (query As String, esperados As Int, guardados As Int)
 	Dim validaCuantos As TCuantos
 	Dim ts As C_TrendSpending
+	Dim linker As C_deviceLinker
 End Sub
 
 'You can add more parameters here.
@@ -321,6 +322,7 @@ End Sub
 
 Sub B4XPage_Appear
 '	Log(Subs.traeDiaSemana)
+	linker.Initialize(Me, "Linker", True)
 	Starter.errorConnDBReq = False
 	connecta.TextColor = Colors.White
 	StartBluetooth
@@ -1773,11 +1775,17 @@ Sub JobDone(Job As HttpJob)
 '				Subs.logJobDoneResultados(RESULT)
 				For Each records() As Object In RESULT.Rows
 					Starter.skmt.ExecNonQuery("delete from VERSION")
-					Dim CAT_VE_VERSION As String = records(RESULT.Columns.Get("CAT_VE_VERSION"))
-					Log(">>>>>>>  Version minima: " & CAT_VE_VERSION & " - Actual: " & Application.VersionName & " --> " &  Subs.comparaVersiones(CAT_VE_VERSION, Application.VersionName))
+					Dim CAT_RU_VERSION_REQUERIDA As String = records(RESULT.Columns.Get("CAT_RU_VERSION_REQUERIDA"))
+					Log(">>>>>>>  Version requerida: " & CAT_RU_VERSION_REQUERIDA & " - Actual: " & Application.VersionName & " --> " &  Subs.comparaVersiones(CAT_RU_VERSION_REQUERIDA, Application.VersionName))
 					Starter.skmt.ExecNonQuery("delete from VERSION")
-					Starter.skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object (CAT_VE_VERSION))
+					Starter.skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object (CAT_RU_VERSION_REQUERIDA))
 				Next
+				If CAT_RU_VERSION_REQUERIDA = 0 Or Subs.comparaVersiones(CAT_RU_VERSION_REQUERIDA, Application.VersionName) = 0 Then
+					connecta3
+				Else
+					Msgbox2("Es necesario actualizar la versión de la aplicación.", "VERSION INCORRECTA","Aceptar", "", "",Null) 'ignore
+'					ExitApplication
+				End If
 			End If
 
 			If RESULT.Tag = "count_cli" Then 'query tag
@@ -2248,10 +2256,23 @@ Sub connecta_Click
 
 	reqManager.trackInit
 
+	linker.VerifyAndLinkDevice(Subs.traeAlmacen, Subs.traeRuta)
+
+'	Else
+'		Msgbox("LA RUTA NO ES CORRECTA","") 'ignore
+'	End If
+End Sub
+
+Sub connecta2
 	Dim cmd As DBCommand
 	cmd.Initialize
 	cmd.Name = "select_version_KELL"
+	cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
 	reqManager.ExecuteQuery(cmd , 0, "version")
+End Sub
+
+
+Sub connecta3
 	Dim cmd As DBCommand
 	cmd.Initialize
 	cmd.Name = "select_ruta4_KELL"
@@ -2262,9 +2283,6 @@ Sub connecta_Click
 	If e_ruta.Text = "KMTSKLL1" Then e_ruta.Enabled = True
 	ToastMessageShow("Validando Conexión." , False)
 	ruta_valida = e_ruta.Text
-'	Else
-'		Msgbox("LA RUTA NO ES CORRECTA","") 'ignore
-'	End If
 End Sub
 
 Private Sub connecta_LongClick
@@ -3877,4 +3895,39 @@ End Sub
 Private Sub l_efectiva_Click
 	l_descripcion.Text = "Clientes visitados / Clientes totales"
 	l_descripcion.Visible = True
+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"
+			Log("Error interno al obtener el identificador único del dispositivo.")
+			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"
+			Log("El servidor no proporcionó un estado de verificación válido. Contacte a soporte.")
+			ToastMessageShow("El servidor no proporcionó un estado de verificación válido. Contacte a soporte.", True)
+		Case "OK"
+			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.
+			connecta2
+'		Case "NO_REGISTRADO"
+'			Log("Dispositivo NO registrado.")
+'			ToastMessageShow("Dispositivo NO registrado.", False)
+		Case "REGISTRO_NUEVO"
+			Log("¡¡Registro nuevo!!")
+			connecta2
+			ToastMessageShow("¡¡Registro nuevo!!", False)
+		Case "YA_REGISTRADO"
+			Log("¡¡El dispositivo ya esta registrado con otra ruta!!")
+			ToastMessageShow("¡¡El dispositivo ya esta registrado con otra ruta!!", True)
+			Msgbox2("Ruta registrada en otro dispositivo", "RUTA INCORRECTA","Aceptar", "", "",Null) 'ignore
+		Case Else ' Otros estados que tu servidor pueda devolver (ej. "UNAUTHORIZED", "PENDING_APPROVAL")
+			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