¡Bienvenidos programadores! En esta ocasión, exploraremos una de las funcionalidades más útiles y versátiles que ofrece esta poderosa plataforma: la gestión de vínculos.
Los vínculos son una herramienta fundamental para relacionar y organizar la información en un sistema de gestión empresarial. Te permiten asociar registros con recursos externos, como sitios web, documentos o incluso otras aplicaciones. De esta manera, puedes enriquecer tus datos con información relevante y mantener un flujo de trabajo eficiente.
En este artículo, nos adentraremos en los aspectos prácticos de cómo añadir, extraer, eliminar y copiar vínculos. Veremos ejemplos concretos y aprenderás a implementar estas funcionalidades de manera efectiva.
Antes de sumergirnos en el código, permíteme recordarte que el manejo de vínculos no es solo una cuestión técnica, sino también una oportunidad para mejorar la experiencia del usuario final. Imagina poder acceder a información complementaria de un producto con solo un clic, o tener a mano los detalles de un proveedor al revisar una factura. Los vínculos te brindan ese poder y versatilidad.
Ahora, exploremos las funciones que he preparado para vosotros
¡Vamos manos a la obra! 🤩
Insertar un Nuevo Vínculo
Aquí tenemos dos enfoques diferentes. El primero, más clásico, pero compatible con versiones anteriores. El segundo, más optimizado y elegante, aprovechando las nuevas capacidades de la plataforma.
Método Actual
El método actual es más sencillo y requiere menos líneas de código, lo que facilita su mantenimiento y comprensión.
LOCAL PROCEDURE InsertarVinculo@1000000002(RecVariant@1000000000 : Variant;Description@1000000001 : Text[250];Path@1000000002 : Text[250]);
BEGIN
// Primero añadimos la tabla a un RecReference
CLEAR(RecRef);
RecRef.GETTABLE(RecVariant);
// Insertamos en la tabla Record Link
RecordLink.INIT();
RecordLink."Record ID" := RecRef.RECORDID;
RecordLink.URL1 := Path;
RecordLink.Description := Description;
RecordLink.Company := COMPANYNAME;
RecordLink."To User ID" := USERID;
RecordLink.Type := RecordLink.Type::Link;
RecordLink.INSERT();
END;En este enfoque clásico, utilizamos un RecReference para obtener una referencia al registro en cuestión. Luego, inicializamos un nuevo RecordLink, asignamos los valores necesarios y finalmente lo insertamos en la tabla de vínculos. Esta función te permite añadir un vínculo a cualquier tabla de manera genérica.
Método mas optimizado
El segundo enfoque es más directo y aprovecha la funcionalidad integrada de AddLink. Simplemente obtienes la referencia al registro y llamas al método AddLink, pasando la URL y la descripción del vínculo. Esta opción es más concisa y optimizada, pero requiere una versión más reciente de la plataforma.
LOCAL PROCEDURE AddLinks@1000000034(RecVariant@1000000000 : Variant;URL@1000000001 : Text;Description@1000000002 : Text);
BEGIN
// Primero añadimos la tabla a un RecReference
CLEAR(RecRef);
RecRef.GETTABLE(RecVariant);
// Añadimos el link al record seleccionado
RecRef.ADDLINK(URL, Description);
END;Funciones varias: Explorando las posibilidades de RecordLink
Hasta ahora hemos visto cómo insertar vínculos de forma individual, pero la verdadera potencia de RecordLink reside en su versatilidad y las múltiples operaciones que podemos realizar. Así que hagamos un poco de “trasteo”, como dicen por aquí, para descubrir todo lo que podemos lograr con esta herramienta.
Extraer Vínculos
¿Qué sucede si necesitas acceder a los vínculos existentes de un registro? No te preocupes, tenemos una función para eso:
LOCAL PROCEDURE ExtraerPrimerVinculo@1000000009(RecVariant@1000000000 : Variant) : Text;
BEGIN
// Primero añadimos la tabla a un RecReference
CLEAR(RecRef);
RecRef.GETTABLE(RecVariant);
// Buscamos los vínculos que hay para ese registro en concreto
RecordLink.RESET();
RecordLink.SETFILTER("Record ID", FORMAT(RecRef.RECORDID));
IF RecordLink.FINDFIRST() THEN
EXIT(RecordLink.URL1);
EXIT('');
END;En esta función, filtramos la tabla RecordLink por el ID del registro del que quieres extraer los vínculos. Si encontramos al menos un vínculo, devolvemos la URL asociada. De esta manera, puedes acceder a la información complementaria de un registro con facilidad.
Eliminar Vínculo
Así como puedes agregar vínculos, también es importante poder eliminarlos cuando ya no sean necesarios. Para ello, contamos con la siguiente función:
LOCAL PROCEDURE EliminarPrimerVinculo@1000000048(RecVariant@1000000000 : Variant);
BEGIN
// Primero añadimos la tabla a un RecReference
CLEAR(RecRef);
RecRef.GETTABLE(RecVariant);
// Buscamos los vínculos que hay para ese registro en concreto
RecordLink.RESET();
RecordLink.SETFILTER("Record ID", FORMAT(RecRef.RECORDID));
IF RecordLink.FINDFIRST() THEN
RecordLink.DELETE();
END;Similar a la función de extracción, filtramos la tabla RecordLink por el ID del registro y, si encontramos un vínculo, lo eliminamos. Esta función es crucial para mantener tu base de datos limpia y evitar enlaces rotos o innecesarios.
Verificar si Hay Vínculos
En algunos casos, puede ser útil saber si un registro tiene vínculos asociados antes de realizar alguna acción. Para ello, contamos con la función HayVinculos:
LOCAL PROCEDURE HayVinculos@1000000007(RecVariant@1000000000 : Variant) : Boolean;
BEGIN
// Primero añadimos la tabla a un RecReference
CLEAR(RecRef);
RecRef.GETTABLE(RecVariant);
EXIT(RecRef.HASLINKS);
END;Esta función utiliza el método HasLinks del RecReference para verificar si el registro tiene vínculos asociados. Puede ser útil para validar la integridad de tus datos o tomar decisiones basadas en la existencia de vínculos.
Copiar Vínculos
Finalmente, ¿qué sucede si necesitas copiar los vínculos de un registro a otro? Imagina que estás duplicando un registro o creando uno nuevo basado en uno existente. En estos casos, la función CopyLinks te será de gran ayuda:
LOCAL PROCEDURE CopyLinks@1000000035(RecVariantOrigin@1000000000 : Variant;RecVariantCopy@1000000002 : Variant);
VAR
RecRefCopy@1000000001 : RecordRef;
BEGIN
// Primero añadimos la tabla a un RecReference de origen
CLEAR(RecRef);
RecRef.GETTABLE(RecVariantOrigin);
// Ahora añadimos el RecReference de destino
CLEAR(RecRefCopy);
RecRefCopy.GETTABLE(RecVariantCopy);
// Por último copiamos los vínculos
RecRefCopy.COPYLINKS(RecRef);
END;Aquí, obtienes las referencias a los registros de origen y destino, y luego utilizas el método CopyLinks para transferir todos los vínculos del registro original al nuevo registro. Esta función te ahorra tiempo y esfuerzo al no tener que crear manualmente los vínculos en el nuevo registro.
Ejecución de Todas las Funciones
Finalmente, vamos a ejecutar todas las funciones para ver cómo interactúan entre sí.
OnRun=BEGIN
Item.GET('1000');
ItemCopy.GET('1001');
InsertarVinculo(Item, 'Vinculo Aesva', 'https://www.aesva.es');
MESSAGE(ExtraerPrimerVinculo(Item));
AddLinks(Item, 'https://www.aesva.es/blog', '2nd Vinculo Aesva');
IF NOT HayVinculos(ItemCopy) THEN
CopyLinks(Item, ItemCopy);
EliminarPrimerVinculo(Item);
END;Conclusión
No te limites a lo que hemos cubierto aquí. Explora, experimenta y encuentra nuevas formas de aprovechar al máximo esta poderosa herramienta. La clave está en comprender las necesidades específicas de tu negocio y adaptar estas funcionalidades para optimizar tus flujos de trabajo.
Recuerda que los vínculos no son solo una funcionalidad técnica, sino una oportunidad para mejorar la experiencia del usuario final. Imagina poder acceder rápidamente a información complementaria de un producto, como hojas de datos, manuales de usuario o incluso videos demostrativos. O tener a mano los detalles de un proveedor al revisar una factura, lo que facilita la comunicación y agiliza los procesos.
Además, los vínculos pueden ser una herramienta poderosa para integrar sistemas y aplicaciones. Piensa en la posibilidad de vincular registros con recursos externos, como un sistema de gestión de contenido o una plataforma de comercio electrónico. Esto te permitiría mantener una fuente única de información y evitar la duplicación de datos, mejorando la eficiencia y reduciendo los errores.
Este ejemplo entero lo tenéis colgado en GitHub en este enlace.