Herramientas Avanzadas de AL

// Flujo típico de un proceso de préstamo en nuestra aplicación:
//
// 1. CONFIGURACIÓN → Crear Socios y Libros (tablas maestras)
// 2. ENTRADA       → Crear un nuevo Préstamo (tabla de documento)
// 3. VALIDACIÓN    → OnValidate verifica que el socio existe y el libro está disponible
// 4. PROCESO       → Codeunit cambia el estado del libro a "Prestado"
// 5. INFORMES      → Report muestra préstamos activos, vencidos, estadísticas
//
// Cada fase usa objetos AL diferentes, pero todos están conectados
// a través de TableRelation, Codeunits y Events.

// Página RoleCenter básica para un bibliotecario
page 50500 "RC Bibliotecario"
{
    PageType  = RoleCenter;
    Caption   = 'Centro de Roles — Bibliotecario';

    layout
    {
        area(RoleCenter)
        {
            // Headline dinámico
            part(Titular; "Headline Biblioteca")
            {
                ApplicationArea = All;
            }

            // Cues — indicadores numéricos
            part(Actividades; "Actividades Biblioteca")
            {
                ApplicationArea = All;
            }
        }
    }

    actions
    {
        area(Embedding)
        {
            action(Socios)
            {
                Caption         = 'Socios';
                ApplicationArea = All;
                RunObject       = page "Lista Socios";
                Image           = CustomerList;
            }
            action(Libros)
            {
                Caption         = 'Catálogo de Libros';
                ApplicationArea = All;
                RunObject       = page "Lista Libros";
                Image           = ItemList;
            }
            action(Prestamos)
            {
                Caption         = 'Préstamos';
                ApplicationArea = All;
                RunObject       = page "Lista Prestamos";
                Image           = Documents;
            }
        }
    }
}

page 50501 "Headline Biblioteca"
{
    PageType = HeadlinePart;
    Caption  = 'Titulares';

    layout
    {
        area(Content)
        {
            field(Bienvenida; BienvenidaTxt)
            {
                ApplicationArea = All;
            }
            field(PrestamosHoy; PrestamosHoyTxt)
            {
                ApplicationArea = All;
            }
        }
    }

    trigger OnOpenPage()
    var
        Prestamo: Record Prestamo;
    begin
        BienvenidaTxt := 'Buenos días, ' + UserId;

        Prestamo.SetRange("Fecha Prestamo", Today);
        PrestamosHoyTxt := StrSubstNo('Hoy se han registrado %1 préstamos nuevos',
                                       Prestamo.Count);
    end;

    var
        BienvenidaTxt: Text[100];
        PrestamosHoyTxt: Text[100];
}

// 1. Tabla de Cues — los FlowFields calculan los contadores
table 50501 "Cues Biblioteca"
{
    Caption = 'Cues Biblioteca';

    fields
    {
        field(1; "Clave"; Code[10]) { }

        field(10; "Prestamos Activos"; Integer)
        {
            FieldClass = FlowField;
            CalcFormula = count(Prestamo where(Estado = const(Activo)));
            Caption = 'Préstamos Activos';
        }
        field(20; "Prestamos Vencidos"; Integer)
        {
            FieldClass = FlowField;
            CalcFormula = count(Prestamo where(Estado = const(Vencido)));
            Caption = 'Préstamos Vencidos';
        }
        field(30; "Total Socios"; Integer)
        {
            FieldClass = FlowField;
            CalcFormula = count(Socio);
            Caption = 'Total Socios';
        }
    }

    keys
    {
        key(PK; "Clave") { Clustered = true; }
    }
}

// 2. Página CardPart con CueGroup
page 50502 "Actividades Biblioteca"
{
    PageType    = CardPart;
    Caption     = 'Actividades';
    SourceTable = "Cues Biblioteca";

    layout
    {
        area(Content)
        {
            cuegroup(Prestamos)
            {
                Caption = 'Préstamos';

                field(PrestActivos; Rec."Prestamos Activos")
                {
                    ApplicationArea = All;
                    DrillDownPageId = "Lista Prestamos";
                    Caption = 'Activos';
                }
                field(PrestVencidos; Rec."Prestamos Vencidos")
                {
                    ApplicationArea = All;
                    DrillDownPageId = "Lista Prestamos";
                    Caption = 'Vencidos';

                    // Cambia de color según el valor
                    Style = Unfavorable;
                    StyleExpr = Rec."Prestamos Vencidos" > 0;
                }
            }
            cuegroup(General)
            {
                Caption = 'General';
                field(Socios; Rec."Total Socios")
                {
                    ApplicationArea = All;
                    DrillDownPageId = "Lista Socios";
                    Caption = 'Total Socios';
                }
            }
        }
    }

    trigger OnOpenPage()
    begin
        Rec.Reset();
        if not Rec.Get() then begin
            Rec.Init();
            Rec.Insert();
        end;
    end;
}

// Acciones en una página de tarjeta de socio
page 50110 "Tarjeta Socio"
{
    PageType    = Card;
    SourceTable = Socio;

    // ... layout omitido ...

    actions
    {
        // Acciones principales (barra superior)
        area(Processing)
        {
            action(RegistrarPrestamo)
            {
                Caption         = 'Nuevo Préstamo';
                ApplicationArea = All;
                Image           = NewDocument;
                Promoted        = true;
                PromotedCategory = Process;
                PromotedIsBig   = true;

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

        // Acciones de navegación
        area(Navigation)
        {
            group(Historial)
            {
                Caption = 'Historial';

                action(VerPrestamos)
                {
                    Caption         = 'Préstamos del Socio';
                    ApplicationArea = All;
                    Image           = Documents;
                    RunObject       = page "Lista Prestamos";
                    RunPageLink     = "No. Socio" = field("No.");
                    // Abre la lista filtrada por este socio
                }
            }
        }

        // Acciones de informes
        area(Reporting)
        {
            action(ImprimirFicha)
            {
                Caption         = 'Ficha del Socio';
                ApplicationArea = All;
                Image           = Report;
                RunObject       = report "Ficha Socio Word";
            }
        }
    }
}

// XMLport para exportar socios a CSV
xmlport 50500 "Exportar Socios CSV"
{
    Direction      = Export;
    Format         = VariableText;  // CSV
    FieldSeparator = ';';
    TextEncoding   = UTF8;
    Caption        = 'Exportar Socios a CSV';

    schema
    {
        textelement(Root)
        {
            tableelement(SocioElement; Socio)
            {
                fieldelement(No; Socio."No.") { }
                fieldelement(Nombre; Socio.Nombre) { }
                fieldelement(Email; Socio.Email) { }
                fieldelement(Tipo; Socio.Tipo) { }
            }
        }
    }

    trigger OnPostXmlPort()
    begin
        Message('Exportación completada.');
    end;
}

// XMLport para importar socios desde CSV
xmlport 50501 "Importar Socios CSV"
{
    Direction      = Import;
    Format         = VariableText;
    FieldSeparator = ';';
    TextEncoding   = UTF8;
    Caption        = 'Importar Socios desde CSV';

    schema
    {
        textelement(Root) // textelement = nodo raíz sin tabla
        {
            tableelement(SocioImport; Socio) // tableelement = vinculado a tabla Socio
            {
                // fieldelement = vinculados a campos de la tabla
                fieldelement(No; Socio."No.") { }
                fieldelement(Nombre; Socio.Nombre) { }
                fieldelement(Email; Socio.Email) { }

                // textelement dentro de tableelement = dato del CSV
                // que no corresponde directamente a un campo
                // (lo procesamos manualmente en un trigger)
                textelement(TipoTexto) { }

                trigger OnBeforeInsertRecord()
                begin
                    // Convertir el texto del CSV al enum de tipo de socio
                    case UpperCase(TipoTexto) of
                        'NORMAL':  Socio.Tipo := Socio.Tipo::Normal;
                        'PREMIUM': Socio.Tipo := Socio.Tipo::Premium;
                        else
                            Socio.Tipo := Socio.Tipo::Normal;
                    end;

                    ContadorImportados += 1;
                end;
            }
        }
    }

    trigger OnPostXmlPort()
    begin
        Message('Importación completada. Socios importados: %1', ContadorImportados);
    end;

    var
        ContadorImportados: Integer;
}