Introducción a la Programación AL

// Ejemplo: usar variables especiales en un trigger de tabla
trigger OnInsert()
begin
    // Registrar quién y cuándo creó el registro
    Rec."Creado Por"     := UserId;
    Rec."Fecha Creacion" := Today;

    // Mostrar un mensaje con info del entorno
    Message('Usuario: %1, Empresa: %2, Fecha trabajo: %3',
            UserId, CompanyName, WorkDate);
end;

// Ejemplo: CurrPage y CurrReport

// En una página: cerrar la página tras guardar
trigger OnAfterValidate()
begin
    CurrPage.Update(false); // refresca la página sin guardar
end;

// En un informe: saltar registros que no cumplan condición
trigger OnAfterGetRecord()
begin
    if Rec.Cantidad = 0 then
        CurrReport.Skip(); // no incluir este registro en el informe
end;

// Procedimiento NO modificable — nadie puede interceptarlo
local procedure CalcularMulta(DiasRetraso: Integer): Decimal
begin
    exit(DiasRetraso * 0.50); // 0,50 € por día de retraso
end;

// Procedimiento con evento de integración — otras extensiones
// pueden suscribirse para añadir lógica antes o después
[IntegrationEvent(false, false)]
local procedure OnBeforeRegistrarPrestamo(var Prestamo: Record Prestamo)
begin
    // Vacío: el evento solo define el punto de extensión
end;

// Suscripción desde otra extensión
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Gestion Prestamos",
                  'OnBeforeRegistrarPrestamo', '', false, false)]
local procedure MiLogicaExtra(var Prestamo: Record Prestamo)
begin
    // Añadir validación personalizada
    Prestamo.TestField("No. Socio");
end;

// Procedimiento local sin retorno
local procedure MostrarSaludo(NombreUsuario: Text[50])
begin
    Message('¡Bienvenido, %1!', NombreUsuario);
end;

// Procedimiento público con valor de retorno
procedure ObtenerEdad(FechaNacimiento: Date): Integer
var
    Edad: Integer;
begin
    Edad := Date2DMY(Today, 3) - Date2DMY(FechaNacimiento, 3);
    exit(Edad);
end;

// Procedimiento con parámetro por referencia (var)
local procedure AplicarDescuento(var Precio: Decimal; PctDescuento: Decimal)
begin
    Precio := Precio * (1 - PctDescuento / 100);
    // Al usar 'var', el cambio se refleja en la variable original
end;

// Ejemplos de sintaxis AL — asignación y expresiones
var
    Nombre: Text[50];
    Precio: Decimal;
    Cantidad: Integer;
    Total: Decimal;
    Activo: Boolean;
begin
    // Asignación simple
    Nombre   := 'Biblioteca Municipal';
    Precio   := 15.50;
    Cantidad := 3;

    // Expresión aritmética
    Total := Precio * Cantidad;

    // Concatenación de cadenas
    Message('Total para ' + Nombre + ': %1 €', Total);

    // Asignación booleana
    Activo := (Cantidad > 0);
end;

// ¡Cuidado con la precedencia!

// INCORRECTO — da error de compilación: and se evalúa antes que >
if Cantidad > 0 and Precio > 10 then  // ERROR

// CORRECTO — los paréntesis fuerzan el orden deseado
if (Cantidad > 0) and (Precio > 10) then
    Message('Condición cumplida');

// MESSAGE — información al usuario
Message('El préstamo %1 ha sido registrado.', Prestamo."No.");

// ERROR — detiene la ejecución y revierte
if Socio."No." = '' then
    Error('Debe seleccionar un socio antes de continuar.');

// CONFIRM — pregunta Sí/No
if not Confirm('¿Desea eliminar el préstamo %1?', false, Prestamo."No.") then
    exit; // El usuario dijo No, salimos

// STRMENU — menú de opciones
var
    Opcion: Integer;
begin
    Opcion := StrMenu('Renovar,Devolver,Cancelar', 1, 'Acción sobre el préstamo:');
    case Opcion of
        1: Message('Renovando...');
        2: Message('Devolviendo...');
        3: Message('Operación cancelada.');
    end;
end;

// DIALOG — barra de progreso
var
    Ventana: Dialog;
    i: Integer;
begin
    Ventana.Open('Procesando registro #1##########');
    for i := 1 to 100 do begin
        Ventana.Update(1, i);
        Sleep(50);
    end;
    Ventana.Close();
end;

// GET — buscar por clave primaria
var
    Socio: Record Socio;
begin
    if Socio.Get('S-0001') then
        Message('Socio encontrado: %1', Socio.Nombre)
    else
        Error('No existe el socio S-0001');
end;

// SETRANGE + FINDSET — iterar sobre registros filtrados
var
    Prestamo: Record Prestamo;
begin
    Prestamo.SetRange(Estado, Prestamo.Estado::Activo);
    if Prestamo.FindSet() then
        repeat
            Message('Préstamo: %1 - Socio: %2',
                    Prestamo."No.", Prestamo."No. Socio");
        until Prestamo.Next() = 0;
end;

// SETFILTER — filtro con expresión flexible
var
    Libro: Record Libro;
begin
    Libro.SetFilter(Titulo, '@*central*'); // @ = case-insensitive, * = comodín
    Message('Libros encontrados: %1', Libro.Count);
end;

// Una sola sentencia — no necesita begin...end
if Prestamo.Estado = Prestamo.Estado::Vencido then
    Message('Este préstamo está vencido.');

// Con rama alternativa
if Socio."No." <> '' then
    Message('Socio seleccionado: %1', Socio.Nombre)
else
    Error('Debe seleccionar un socio.');

// NOTA: NO hay punto y coma antes de 'else'. Esto es un error muy común.

// Cuando hay más de una sentencia, se necesita begin...end
if (Prestamo."Fecha Devolucion" < Today) and
   (Prestamo.Estado = Prestamo.Estado::Activo) then
begin
    Prestamo.Estado := Prestamo.Estado::Vencido;
    Prestamo.Modify(true);
    Message('Préstamo %1 marcado como vencido.', Prestamo."No.");
end else begin
    Message('Préstamo %1 sigue activo.', Prestamo."No.");
end;

// IFs anidados — se evalúan en cascada
if DiasRetraso = 0 then
    Message('Devuelto a tiempo.')
else if DiasRetraso <= 7 then
    Message('Retraso leve: %1 días.', DiasRetraso)
else if DiasRetraso <= 30 then
    Message('Retraso moderado: %1 días.', DiasRetraso)
else
    Error('Retraso grave: %1 días. Se bloqueará la cuenta.', DiasRetraso);

// Ejecutar un informe desde un botón de acción en una página
action(ImprimirInforme)
{
    Caption = 'Imprimir Informe de Socios';
    ApplicationArea = All;
    Image = Report;

    trigger OnAction()
    var
        InformeSocios: Report "Listado de Socios";
    begin
        InformeSocios.Run(); // abre la RequestPage y ejecuta el informe
    end;
}

// Ejecutar con filtros predefinidos (sin RequestPage)
trigger OnAction()
var
    Socio: Record Socio;
    InformeSocios: Report "Listado de Socios";
begin
    Socio.SetRange("No.", 'S-0001', 'S-0050');
    InformeSocios.SetTableView(Socio); // aplica el filtro al informe
    InformeSocios.RunModal(); // RunModal = espera a que el usuario cierre
end;