Business Central: Funciones recursivas en AL


En este artículo mostraré cómo se realizan funciones recursivas dentro de Microsoft Dynamics 365 Business Central con el lenguaje de programación AL.

Versión: 2021 Wave 1 (KID: 5007779)

Como en cualquier lenguaje de programación tenemos funciones recursivas que pueden ser utilizadas dentro del lenguaje AL.

En este ejemplo, haremos la serie Fibonacci, tan común en el mundo de la programación.

En alguna página vamos a escribir el siguiente código:

pageextension 50102 CustomerListExt extends "Customer List"
{
    trigger OnOpenPage()
    var
        Contador: Integer;
        Texto: Text;
    begin
        Texto := '';
        Contador := 0;
        while Contador < 10 do begin
            Texto += Format(Fibonacci(Contador)) + ' ';
            Contador += 1;
        end;
        Message(Texto);
    end;

    procedure Fibonacci(numero: integer): integer
    var
        resultado: integer;
    begin
        if numero = 0 then
            exit(0)
        else
            if numero = 1 then
                exit(1)
            else begin
                exit(fibonacci(numero - 1) + fibonacci(numero - 2));
            end;
    end;
}

Para este ejemplo, la función Fibonacci es recursiva porque se llama a sí misma indefinidamente.

El resultado queda de la siguiente manera en Microsoft Dynamics 365 Business Central.

¡Espero resulte útil!


Ver también

comments powered by Disqus