Reports y DataItems

report 50100 "Informe Flota Maquinaria"
{
    Caption         = 'Informe de Flota de Maquinaria';
    UsageCategory   = ReportsAndAnalysis;
    ApplicationArea = All;

    dataset
    {
        dataitem(Maquinaria; "Maquinaria")
        {
            column(No_Maquina;  "No.")         { Caption = 'Nº Máquina'; }
            column(Descripcion; "Descripcion") { Caption = 'Descripción'; }
            column(Categoria;   "Categoria")   { Caption = 'Categoría'; }
            column(Estado;      "Estado")      { Caption = 'Estado'; }
            column(FechaAlta;   "Fecha Alta")  { Caption = 'Fecha de Alta'; }
            column(DiasEnParque; DiasEnParque) { Caption = 'Días en el Parque'; }

            trigger OnPreDataItem()
            begin
                SetCurrentKey("Descripcion"); // ordenamos A → Z
            end;

            trigger OnAfterGetRecord()
            begin
                if "Fecha Alta" = 0D then
                    DiasEnParque := 0
                else
                    DiasEnParque := Today() - "Fecha Alta";
            end;
        }
    }

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

    var
        DiasEnParque: Integer; // variable global del Report
}

        dataitem(Maquinaria; "Maquinaria")
        {
            // ... columnas del nivel padre (Ejercicio 01)
            column(TotalAlq; TotalAlquileresMaquina) { Caption = 'Total Alquileres'; }

            // ── DataItem hijo: un nivel más adentro ─────────────────────
            dataitem(CabeceraAlquiler; "Cabecera Alquiler")
            {
                DataItemLink = "No. Maquina Principal" = FIELD("No.");

                column(Alquiler_No;    "No.")          { Caption = 'Nº Alquiler'; }
                column(Alq_FechaIni;  "Fecha Inicio") { Caption = 'Fecha Inicio'; }
                column(Alq_FechaFin;  "Fecha Fin")    { Caption = 'Fecha Fin'; }
                column(Alq_Estado;    "Estado")       { Caption = 'Estado'; }
                column(Alq_NoLineas; "No. Lineas")   { Caption = 'Nº Líneas'; }

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

                trigger OnAfterGetRecord()
                begin
                    TotalAlquileresMaquina += 1; // cuenta alquileres de esta máquina
                end;

                trigger OnPostDataItem()
                begin
                    TotalAlquileresMaquina := 0; // reset para la siguiente máquina
                end;
            }

            // ... triggers del nivel padre
        }

    dataset
    {
        dataitem(Maquinaria; "Maquinaria")
        {
            // Filtro fijo: el usuario no puede ver ni cambiar esto
            DataItemTableFilter = "Estado" = filter(<> Retirado);

            // ... columnas y DataItem hijo del ejercicio anterior

            trigger OnAfterGetRecord()
            begin
                TotalMaquinas += 1;

                if "Fecha Alta" = 0D then
                    DiasEnParque := 0
                else
                    DiasEnParque := Today() - "Fecha Alta";
            end;
        }
    }

    // ── Trigger global: se ejecuta UNA VEZ antes de todo ────────────
    trigger OnPreReport()
    begin
        Maquinaria.SetFilter("Estado", '<>%1', Maquinaria."Estado"::Retirado);
        if Maquinaria.IsEmpty() then
            Error('No hay máquinas activas que incluir en el informe.');
    end;

    // ── Trigger global: se ejecuta UNA VEZ al terminar todo ─────────
    trigger OnPostReport()
    begin
        Message(
            'Informe generado.\nMáquinas procesadas: %1\nAlquileres incluidos: %2',
            TotalMaquinas,
            TotalAlquileresFinal
        );
    end;

    var
        DiasEnParque          : Integer;
        TotalAlquileresMaquina: Integer;
        TotalMaquinas         : Integer;
        TotalAlquileresFinal  : Integer;