AL Intermedio

/// <summary>
/// Calcula la multa por retraso en la devolución de un libro.
/// </summary>
/// <param name="DiasRetraso">Número de días de retraso.</param>
/// <returns>Importe de la multa en euros.</returns>
procedure CalcularMulta(DiasRetraso: Integer): Decimal
begin
    exit(DiasRetraso * 0.50);
end;

// Ejemplo de .gitignore para un proyecto AL de Business Central
*.app
.alpackages/
.alcache/
launch.json
rad.json
*.g.xlf

// ROUND — redondeo controlado
var
    Precio: Decimal;
begin
    Precio := 19.999;
    Precio := Round(Precio, 0.01);           // 20.00 (2 decimales)
    Precio := Round(Precio, 0.01, '<');    // Redondeo hacia abajo
    Precio := Round(Precio, 0.01, '>');    // Redondeo hacia arriba
end;

// FORMAT — convertir a texto para mostrar
var
    FechaTexto: Text;
    ImporteTexto: Text;
begin
    FechaTexto   := Format(Today);            // '08/03/2026'
    ImporteTexto := Format(1234.50, 0, '<Integer>.<Decimals,2> €');
    Message('Fecha: %1 — Importe: %2', FechaTexto, ImporteTexto);
end;

// EVALUATE — convertir texto a otro tipo
var
    FechaDesdeTexto: Date;
    NumeroDesdeTexto: Integer;
begin
    Evaluate(FechaDesdeTexto, '08/03/2026');
    Evaluate(NumeroDesdeTexto, '42');
    Message('Fecha: %1 — Número: %2', FechaDesdeTexto, NumeroDesdeTexto);
end;

// Ejecuta al menos una vez. El patrón más usado con FindSet().
var
    Prestamo: Record Prestamo;
begin
    Prestamo.SetRange(Estado, Prestamo.Estado::Activo);
    if Prestamo.FindSet() then
        repeat
            Message('Préstamo: %1', Prestamo."No.");
        until Prestamo.Next() = 0;
end;

// Evalúa la condición ANTES de entrar. Puede no ejecutarse nunca.
var
    Intentos: Integer;
begin
    Intentos := 0;
    while Intentos < 5 do begin
        Intentos += 1;
        Message('Intento %1 de 5', Intentos);
    end;
end;

// Bucle con contador — número fijo de iteraciones
var
    i: Integer;
    Suma: Integer;
begin
    Suma := 0;
    for i := 1 to 10 do
        Suma += i;
    Message('Suma de 1 a 10: %1', Suma); // 55

    // Cuenta atrás
    for i := 5 downto 1 do
        Message('%1...', i);
end;

// Selección múltiple — alternativa limpia a IF-ELSE anidados
var
    DiaSemana: Integer;
begin
    DiaSemana := Date2DWY(Today, 1); // 1=Lun, 7=Dom
    case DiaSemana of
        1: Message('Lunes');
        2: Message('Martes');
        3: Message('Miércoles');
        4: Message('Jueves');
        5: Message('Viernes');
        6, 7: Message('Fin de semana');
        else
            Error('Día inválido: %1', DiaSemana);
    end;
end;

// EXIT — salir de una función con valor de retorno
procedure EsSocioPremium(NoSocio: Code[20]): Boolean
var
    Socio: Record Socio;
begin
    if not Socio.Get(NoSocio) then
        exit(false); // no existe → no es premium
    exit(Socio.Tipo = Socio.Tipo::Premium);
end;

// SKIP — en un informe, excluir registros sin préstamos
trigger OnAfterGetRecord()
begin
    if Socio."Total Prestamos" = 0 then
        CurrReport.Skip(); // no aparecerá en el informe
end;

// BREAK — salir de un bucle anticipadamente
var
    Libro: Record Libro;
    Encontrado: Boolean;
begin
    Encontrado := false;
    if Libro.FindSet() then
        repeat
            if Libro.Titulo = 'El Quijote' then begin
                Encontrado := true;
                break; // salimos del repeat
            end;
        until Libro.Next() = 0;
end;

// Patrón COMPLETO: filtrar → buscar → iterar → modificar
var
    Prestamo: Record Prestamo;
    Contador: Integer;
begin
    Prestamo.SetRange(Estado, Prestamo.Estado::Activo);
    Prestamo.SetFilter("Fecha Devolucion", '..%1', Today - 30); // vencidos hace 30+ días

    Contador := 0;
    if Prestamo.FindSet(true) then // true = vamos a modificar
        repeat
            Prestamo.Estado := Prestamo.Estado::Vencido;
            Prestamo.Modify(true);
            Contador += 1;
        until Prestamo.Next() = 0;

    Message('Se actualizaron %1 préstamos.', Contador);
end;

// INSERT — crear un nuevo socio
var
    Socio: Record Socio;
begin
    Socio.Init();                        // inicializa campos con valores por defecto
    Socio."No."   := 'S-0100';
    Socio.Nombre := 'Ana García';
    Socio.Email  := 'ana@example.com';
    Socio.Insert(true);                  // true = ejecutar trigger OnInsert
end;

// MODIFY — actualizar un registro existente
var
    Socio: Record Socio;
begin
    if Socio.Get('S-0100') then begin
        Socio.Email := 'nuevo@example.com';
        Socio.Modify(true);
    end;
end;

// DELETE — eliminar un registro
var
    Socio: Record Socio;
begin
    if Socio.Get('S-0100') then
        Socio.Delete(true);
end;

// MODIFYALL — actualización masiva
var
    Prestamo: Record Prestamo;
begin
    Prestamo.SetRange(Estado, Prestamo.Estado::Activo);
    Prestamo.SetFilter("Fecha Devolucion", '..%1', Today);
    Prestamo.ModifyAll(Estado, Prestamo.Estado::Vencido, false);
    // Actualiza TODOS los registros filtrados de golpe. Mucho más rápido que un bucle.
end;

// DELETEALL — borrado masivo
var
    LogTemp: Record "Log Temporal";
begin
    LogTemp.SetFilter("Fecha", '..%1', Today - 90);
    LogTemp.DeleteAll(false); // borrar logs de más de 90 días
end;

// En un trigger OnValidate de campo: comparar valor viejo y nuevo
field(10; Estado; Enum "Estado Prestamo")
{
    trigger OnValidate()
    begin
        // Detectar si el estado ha cambiado
        if Rec.Estado <> xRec.Estado then begin
            Message('Estado cambió de %1 a %2',
                    xRec.Estado, Rec.Estado);

            // Impedir volver a estado Activo desde Vencido
            if (xRec.Estado = xRec.Estado::Vencido) and
               (Rec.Estado = Rec.Estado::Activo) then
                Error('No se puede reactivar un préstamo vencido.');
        end;
    end;
}

// En un trigger OnModify de tabla: registrar cambios
trigger OnModify()
begin
    if Rec.Nombre <> xRec.Nombre then
        Message('El nombre del socio cambió de "%1" a "%2"',
                xRec.Nombre, Rec.Nombre);
end;

// Ejemplo: marcar socios que tienen préstamos vencidos
var
    Socio: Record Socio;
    Prestamo: Record Prestamo;
begin
    // Paso 1: recorrer todos los socios y marcar los que tengan vencidos
    if Socio.FindSet() then
        repeat
            Prestamo.Reset();
            Prestamo.SetRange("No. Socio", Socio."No.");
            Prestamo.SetRange(Estado, Prestamo.Estado::Vencido);
            if not Prestamo.IsEmpty then
                Socio.Mark(true); // marcamos este socio
        until Socio.Next() = 0;

    // Paso 2: filtrar para trabajar solo con los marcados
    Socio.MarkedOnly(true);
    Message('Socios con préstamos vencidos: %1', Socio.Count);

    // Ya puedes recorrer solo los socios marcados
    if Socio.FindSet() then
        repeat
            Message('Socio moroso: %1', Socio.Nombre);
        until Socio.Next() = 0;

    // Limpiar
    Socio.ClearMarks();
    Socio.MarkedOnly(false);
end;

// Codeunit con lógica de negocio
codeunit 50100 "Gestion Prestamos"
{
    procedure RegistrarPrestamo(NoSocio: Code[20]; NoLibro: Code[20])
    var
        Prestamo: Record Prestamo;
    begin
        Prestamo.Init();
        Prestamo."No. Socio" := NoSocio;
        Prestamo."No. Libro" := NoLibro;
        Prestamo."Fecha Prestamo" := Today;
        Prestamo.Insert(true);
    end;
}

// Llamar desde una página
action(NuevoPrestamo)
{
    Caption = 'Registrar Préstamo';
    ApplicationArea = All;

    trigger OnAction()
    var
        GestionPrestamos: Codeunit "Gestion Prestamos";
    begin
        GestionPrestamos.RegistrarPrestamo(Rec."No.", 'L-0001');
    end;
}

// Pasar un registro como parámetro por referencia
procedure ValidarSocio(var Socio: Record Socio): Boolean
begin
    if Socio.Nombre = '' then begin
        Error('El nombre del socio es obligatorio.');
        exit(false);
    end;
    exit(true);
end;

// Abrir una página con filtros desde código
var
    PaginaSocios: Page "Lista Socios";
    Socio: Record Socio;
begin
    Socio.SetRange(Tipo, Socio.Tipo::Premium);
    PaginaSocios.SetTableView(Socio);
    PaginaSocios.RunModal(); // abre la página filtrada por socios premium
end;

// Obtener el registro seleccionado en un LookupMode
var
    PaginaSocios: Page "Lista Socios";
    SocioSeleccionado: Record Socio;
begin
    PaginaSocios.LookupMode(true);
    if PaginaSocios.RunModal() = Action::LookupOK then begin
        PaginaSocios.GetRecord(SocioSeleccionado);
        Message('Socio seleccionado: %1', SocioSeleccionado.Nombre);
    end;
end;