Hola a todos! Una vez más, les traigo un nuevo post muy interesante.
En esta ocasión, vamos a aprender sobre la lectura y creación de archivos JSON en Business Central, una plataforma ERP basada en la nube que permite gestionar y automatizar procesos empresariales.
Antes de adentrarnos en el código, hagamos una breve explicación. JSON es un formato de intercambio de datos muy utilizado en aplicaciones web y móviles para transmitir información estructurada. En este post, aprenderemos cómo trabajar con archivos JSON en Business Central utilizando el lenguaje AL.
Como siempre después de la breve explicación ¡Vamos manos a la obra! 😋
Lectura de archivos JSON
Para leer un archivo JSON en Business Central, debemos seguir algunos pasos.
En primer lugar, necesitamos subir el archivo para luego poder leer su contenido y convertirlo en un objeto JSON para procesar los datos.
A continuación, les mostraré un ejemplo de cómo leer un archivo JSON en Business Central utilizando el lenguaje AL:
procedure ReadJsonFromFile()
var
DocInStream: InStream;
FileName: Text;
jsonText: Text;
jsonString: Text;
jsonObj: JsonObject;
JToken: JsonToken;
filePath: Text;
id: Text;
name: Text;
age: Integer;
begin
if not UploadIntoStream('', '', '', FileName, DocInStream) then
exit;
DocInStream.ReadText(jsonText);
// Leer el contenido del archivo JSON
Clear(jsonObj);
jsonObj.ReadFrom(jsonText);
// Leer los valores de los campos
jsonObj.SelectToken('id', JToken);
id := JToken.AsValue().AsText();
jsonObj.SelectToken('name', JToken);
name := JToken.AsValue().AsText();
jsonObj.SelectToken('age', JToken);
age := JToken.AsValue().AsInteger();
// Procesar los datos
Message('ID: %1, Name: %2, Age: %3', id, name, age);
end;
En esta función, leeremos el contenido del archivo JSON y lo convertiremos en un objeto JSON.
Luego, seleccionaremos los valores de los campos que nos interesen y los almacenaremos en variables.
Finalmente, procesaremos los datos obtenidos, en este caso, los mostraremos en un mensaje.
Creación de archivos JSON
Ahora, pasemos a la creación de archivos JSON en Business Central. Para ello, debemos definir la estructura del objeto JSON y luego convertirlo en una cadena JSON que se pueda escribir en un archivo.
A continuación, les presento un ejemplo de cómo crear un archivo JSON en Business Central utilizando el lenguaje AL:
procedure CreateJsonFile()
var
TempBlob: Codeunit "Temp Blob";
DocOutStream: OutStream;
DocInStream: InStream;
FileName: Text;
jsonObj: JsonObject;
jsonString: Text;
filePath: Text;
begin
// Crear un objeto JSON
Clear(jsonObj);
jsonObj.Add('id', '1234');
jsonObj.Add('name', 'Esteve');
jsonObj.Add('age', '25');
//convertimos Json en un texto
jsonObj.WriteTo(jsonString);
// Escribir la cadena JSON en un archivo y lo descargamos
FileName := 'archivo.json';
TempBlob.CreateOutStream(DocOutStream);
DocOutStream.WriteText(jsonString);
TempBlob.CreateInStream(DocInStream);
DownloadFromStream(DocInStream, '', '', '', FileName);
end;
En este ejemplo, creamos un objeto JSON y definimos los valores de los campos que queremos incluir en él.
Luego, convertimos ese objeto JSON en una cadena de texto que representa el formato JSON.
Finalmente, escribimos la cadena JSON en un archivo y lo descargamos.
En resumen, en este artículo hemos aprendido a leer y crear archivos JSON en Business Central utilizando el lenguaje AL. La lectura de archivos JSON implica leer el contenido del archivo, convertirlo en un objeto JSON y procesar los datos obtenidos. Por otro lado, la creación de archivos JSON implica definir la estructura del objeto JSON, convertirlo en una cadena JSON y escribirlo en un archivo.
Como siempre, podréis ver el ejemplo entero en el Link
¡Y eso es todo! Espero que esta explicación y el código os hayan sido de ayuda. Si tenéis algún comentario o pregunta, no dudéis en hacerla. ¡Hasta la próxima!