Biblioteca Municipal — Proyecto Completo

enum 50100 "Estado Prestamo"
{
    value(0;  " ")             { }
    value(10; "Activo")        { }
    value(20; "En Devolucion") { }
    value(30; "Devuelto")      { }
    value(40; "Vencido")       { }
}

table 50100 "Socio"
{
    fields
    {
        field(1;  "No.";          Code[20])   { NotBlank = true; }
        field(2;  "Nombre";       Text[100])  { }
        field(3;  "Email";        Text[100])
        {
            ExtendedDataType = EMail;
        }
        field(4;  "Telefono";     Text[20])   { }
        field(5;  "Fecha Alta";   Date)       { }
        field(6;  "Activo";       Boolean)
        {
            InitValue = true;
        }

        // FlowFields — se calculan bajo demanda, no se guardan en SQL
        field(20; "Total Prestamos"; Integer)
        {
            FieldClass  = FlowField;
            CalcFormula = count("Prestamo" where ("No. Socio" = field("No.")));
        }
        field(21; "Dias Totales Prestamo"; Integer)
        {
            FieldClass  = FlowField;
            CalcFormula = sum("Prestamo"."Dias Prestamo"
                              where ("No. Socio"   = field("No."),
                                     "Date Filter" = field("Date Filter")));
        }

        // FlowFilter — el usuario lo rellena en la Card para filtrar el FlowField de arriba
        field(30; "Date Filter"; Date)
        {
            FieldClass = FlowFilter;
        }
    }
    keys
    {
        key(PK; "No.")     { }
        key(SK1; "Nombre") { }
    }
}

table 50101 "Libro"
{
    fields
    {
        field(1; "No.";      Code[20])  { NotBlank = true; }
        field(2; "Titulo";   Text[200]) { }
        field(3; "Autor";    Text[100]) { }
        field(4; "ISBN";     Code[20])  { }
        field(5; "Disponible"; Boolean)
        {
            InitValue = true;
        }

        // FlowField: ¿tiene préstamos activos?
        field(20; "Tiene Prestamos Activos"; Boolean)
        {
            FieldClass  = FlowField;
            CalcFormula = exist("Prestamo"
                                 where ("No. Libro" = field("No."),
                                        Estado       = const(Activo)));
        }
    }
    keys
    {
        key(PK; "No.")    { }
        key(SK1; "Autor") { }
        key(SK2; "ISBN")
        {
            Unique = true;
        }
    }
}

table 50102 "Prestamo"
{
    fields
    {
        field(1; "Entry No.";          Integer)
        {
            AutoIncrement = true;
        }
        field(2; "No. Socio";          Code[20])
        {
            TableRelation = "Socio";  // lupa automática + validación
        }
        field(3; "No. Libro";          Code[20])
        {
            TableRelation = "Libro";
        }
        field(4; "Fecha Inicio";       Date) { }
        field(5; "Fecha Devolucion";   Date)
        {
            trigger OnValidate()
            begin
                // Validamos que la devolución no sea anterior al inicio
                if Rec."Fecha Devolucion" < Rec."Fecha Inicio" then
                    Error('La fecha de devolución no puede ser anterior a la de inicio.');

                // Calculamos los días automáticamente
                Rec."Dias Prestamo" := Rec."Fecha Devolucion" - Rec."Fecha Inicio";
            end;
        }
        field(6; "Dias Prestamo";      Integer)  { }
        field(7; "Estado";             Enum "Estado Prestamo") { }
        field(8; "Modificado Por";    Code[50]) { }
    }
    keys
    {
        key(PK;  "Entry No.")             { }
        key(SK1; "No. Socio")
        {
            MaintainSiftIndex = true;  // acelera sumas por socio
        }
        key(SK2; "No. Libro")            { }
        key(SK3; "Fecha Inicio")         { }
    }

    // Triggers de tabla
    trigger OnInsert()
    begin
        Rec."Fecha Inicio" := Today;
        Rec.Estado        := Rec.Estado::Activo;
    end;

    trigger OnModify()
    begin
        Rec."Modificado Por" := UserId;
    end;

    trigger OnDelete()
    begin
        if Rec.Estado = Rec.Estado::Activo then
            Error('No se puede eliminar un préstamo activo.');
    end;

    trigger OnRename()
    begin
        Error('Los préstamos no pueden ser renombrados.');
    end;
}

page 50110 "Prestamo ListPart"
{
    PageType        = ListPart;
    ApplicationArea = All;
    SourceTable     = "Prestamo";

    layout
    {
        area(Content)
        {
            repeater(Lines)
            {
                field("Entry No.";        Rec."Entry No.")        { }
                field("No. Libro";         Rec."No. Libro")         { }
                field("Fecha Inicio";      Rec."Fecha Inicio")      { }
                field("Fecha Devolucion";  Rec."Fecha Devolucion")  { }
                field("Dias Prestamo";    Rec."Dias Prestamo")    { }
                field(Estado;           Rec.Estado)           { }
            }
        }
    }
}

page 50100 "Socio List"
{
    PageType        = List;
    ApplicationArea = All;
    UsageCategory   = Lists;
    SourceTable     = "Socio";
    CardPageId      = "Socio Card";
    Editable        = false;

    layout
    {
        area(Content)
        {
            repeater(GroupName)
            {
                FreezeColumnID = "No.";  // columna fija al hacer scroll
                field("No.";              Rec."No.")              { }
                field("Nombre";           Rec.Nombre)            { }
                field("Email";            Rec.Email)             { }
                field("Fecha Alta";       Rec."Fecha Alta")       { }
                field("Total Prestamos";  Rec."Total Prestamos")  { }  // FlowField
            }
        }
        area(FactBoxes)
        {
            part(HistorialPrestamos; "Prestamo ListPart")
            {
                SubPageLink = "No. Socio" = field("No.");
            }
        }
    }
}

page 50101 "Socio Card"
{
    PageType        = Card;
    ApplicationArea = All;
    UsageCategory   = Administration;
    SourceTable     = "Socio";

    layout
    {
        area(Content)
        {
            group(General)
            {
                field("No.";        Rec."No.")        { Importance = Promoted; }
                field(Nombre;     Rec.Nombre)     { Importance = Promoted; }
                field(Email;      Rec.Email)      { }
                field(Telefono;   Rec.Telefono)   { }
                field("Fecha Alta"; Rec."Fecha Alta") { }
                field(Activo;     Rec.Activo)     { }
            }
            group(Estadisticas)
            {
                field("Total Prestamos";     Rec."Total Prestamos")
                {
                    Importance = Promoted;
                    Editable   = false;  // FlowField: solo lectura
                }
                field("Dias Totales Prestamo"; Rec."Dias Totales Prestamo")
                {
                    Importance = Additional;
                    Editable   = false;
                }
                // FlowFilter: el usuario puede filtrar los días por período
                field("Date Filter"; Rec."Date Filter") { }
            }
        }
        area(FactBoxes)
        {
            part(HistorialPrestamos; "Prestamo ListPart")
            {
                SubPageLink = "No. Socio" = field("No.");
            }
        }
    }

    trigger OnAfterGetRecord()
    begin
        // Avisamos en el título si el socio tiene préstamos activos
        if Rec."Total Prestamos" > 0 then
            CurrPage.Caption := Rec.Nombre + ' — Préstamos activos'
        else
            CurrPage.Caption := Rec.Nombre;
    end;
}

query 50100 "Dias Totales por Socio"
{
    Caption   = 'Días Totales de Préstamo por Socio';
    QueryType = Normal;

    elements
    {
        dataitem(Socio; Socio)
        {
            // Sin Method → claves de agrupación
            column(Num_Socio;    "No.")  { Caption = 'Nº Socio'; }
            column(Nombre_Socio; Nombre) { Caption = 'Nombre'; }

            dataitem(Prestamo; "Prestamo")
            {
                DataItemLink = "No. Socio" = Socio."No.";
                SqlJoinType  = LeftOuterJoin;

                column(Total_Dias; "Dias Prestamo")
                {
                    Caption = 'Total Días';
                    Method  = Sum;    // SQL suma los días por socio
                }
                column(Num_Prestamos; "Entry No.")
                {
                    Caption = 'Nº Préstamos';
                    Method  = Count;  // SQL cuenta los préstamos por socio
                }
            }
        }
    }
}

// Uso desde código AL:
procedure MostrarTopSocios()
var
    Q: Query "Dias Totales por Socio";
begin
    Q.SetFilter(Num_Socio, 'S*');  // filtro ANTES de Open()
    Q.Open();
    while Q.Read() do
        Message('%1 | %2 | %3 días', Q.Num_Socio, Q.Nombre_Socio, Q.Total_Dias);
    Q.Close();
end;

report 50100 "Socios Morosos"
{
    Caption         = 'Listado de Socios Morosos';
    UsageCategory   = ReportsAndAnalysis;
    ApplicationArea = All;

    dataset
    {
        // ── NIVEL 1: SOCIO ─────────────────────────────────
        dataitem(Socio; Socio)
        {
            column(Socio_No;        "No.")          { }
            column(Socio_Nombre;    Nombre)         { }
            column(Socio_Email;     Email)          { }
            column(Socio_TotalDias; TotalDiasSocio) { }  // acumulado del hijo

            trigger OnPreDataItem()
            begin
                SetCurrentKey(Nombre);  // orden alfabético
            end;

            trigger OnAfterGetRecord()
            begin
                TotalDiasSocio := 0;   // reiniciamos al cambiar de socio
            end;

            // ── NIVEL 2: PRÉSTAMO ───────────────────────────────
            dataitem(Prestamo; "Prestamo")
            {
                DataItemLink        = "No. Socio" = FIELD("No.");
                DataItemTableFilter = Estado = FILTER(Vencido);  // solo vencidos

                column(Prest_No;     "Entry No.")       { }
                column(Prest_Libro;  "No. Libro")       { }
                column(Prest_Inicio; "Fecha Inicio")    { }
                column(Prest_Dev;    "Fecha Devolucion") { }
                column(Prest_Dias;   "Dias Prestamo")   { }

                trigger OnPreDataItem()
                begin
                    // Aplicamos los filtros de fecha de la RequestPage
                    if FechaDesde <> 0D then
                        SetFilter("Fecha Inicio", '>=%1', FechaDesde);
                    if FechaHasta <> 0D then
                        SetFilter("Fecha Inicio", '<=%1', FechaHasta);

                    SetCurrentKey("Fecha Inicio");
                    SetAscending("Fecha Inicio", false);  // más recientes primero
                end;

                trigger OnAfterGetRecord()
                begin
                    TotalDiasSocio += "Dias Prestamo";  // acumulamos en el padre
                end;
            }
        }
    }

    requestpage
    {
        SaveValues = true;
        layout
        {
            area(Content)
            {
                group(Fechas) { Caption = 'Filtrar por fecha de inicio';
                    field(Desde; FechaDesde) { ApplicationArea = All; Caption = 'Desde'; }
                    field(Hasta; FechaHasta) { ApplicationArea = All; Caption = 'Hasta'; }
                }
            }
        }
        trigger OnOpenPage()
        begin
            FechaDesde := DMY2Date(1, 1, Date2DMY(Today(), 3));  // 1 enero año actual
            FechaHasta := Today();
        end;
    }

    var
        TotalDiasSocio: Integer;
        FechaDesde    : Date;
        FechaHasta    : Date;

    rendering
    {
        layout(RDLCLayout)
        {
            Type       = RDLC;
            LayoutFile = 'src/layouts/SociosMorosos.rdlc';
        }
    }

    trigger OnPreReport()
    begin
        if (FechaDesde <> 0D) and (FechaHasta <> 0D) then
            if FechaDesde > FechaHasta then
                Error('La fecha "Desde" no puede ser posterior a la fecha "Hasta".');
    end;

    trigger OnPostReport()
    begin
        Message('Informe de morosos generado correctamente.');
    end;
}