Codeunit 9656 Report Layout Update Log, source in 29

// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace Microsoft.Foundation.Reporting;

using System;

codeunit 9656 "Report Layout Update Log"
{

    trigger OnRun()
    begin
    end;

    [Scope('OnPrem')]
    procedure ViewLog(IReportChangeLogCollection: DotNet IReportChangeLogCollection)
    var
        TempReportLayoutUpdateLog: Record "Report Layout Update Log" temporary;
    begin
        if ApplyLogEntriesToTableData(TempReportLayoutUpdateLog, IReportChangeLogCollection) > 0 then
            PAGE.RunModal(PAGE::"Report Layout Update Log", TempReportLayoutUpdateLog);
    end;

    local procedure ApplyLogEntriesToTableData(var TempReportLayoutUpdateLog: Record "Report Layout Update Log" temporary; IReportChangeLogCollection: DotNet IReportChangeLogCollection): Integer
    var
        IReportChangeLog: DotNet IReportChangeLog;
        LogCollection: DotNet ReportChangeLogCollection;
        intValue: Integer;
        startValue: Integer;
    begin
        if IsNull(IReportChangeLogCollection) then
            exit(0);
        LogCollection := IReportChangeLogCollection;

        // TODO: FOREACH IReportChangeLog IN IReportChangeLogCollection DO BEGIN
        foreach IReportChangeLog in LogCollection do begin
            startValue += 1;
            TempReportLayoutUpdateLog.Init();
            TempReportLayoutUpdateLog."No." := startValue;
            intValue := IReportChangeLog.Status;
            TempReportLayoutUpdateLog.Status := intValue;
            TempReportLayoutUpdateLog."Field Name" := IReportChangeLog.ElementName;
            TempReportLayoutUpdateLog.Message := IReportChangeLog.Message;
            TempReportLayoutUpdateLog."Report ID" := IReportChangeLog.ReportId;
            TempReportLayoutUpdateLog."Layout Description" := IReportChangeLog.LayoutName;
            intValue := IReportChangeLog.LayoutFormat;
            if intValue = 0 then
                intValue := 1;
            TempReportLayoutUpdateLog."Layout Type" := intValue - 1;
            TempReportLayoutUpdateLog.Insert();
        end;

        exit(startValue - 1);
    end;
}