Report 6010 Delete Service Item Log, source in 29

Source29

src/Layers/W1/BaseApp/Service/Item/DeleteServiceItemLog.Report.al80 lines, Copyright (c) Microsoft Corporation. MIT

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

using System.Utilities;

report 6010 "Delete Service Item Log"
{
    Caption = 'Delete Service Item Log';
    ToolTip = 'Delete Service Item Log';
    ProcessingOnly = true;

    dataset
    {
        dataitem("Service Item Log"; "Service Item Log")
        {
            DataItemTableView = sorting("Change Date");
            RequestFilterFields = "Change Date", "Service Item No.";

            trigger OnPostDataItem()
            begin
                if CounterTotal > 1 then
                    Message(Text004, CounterTotal)
                else
                    Message(Text005, CounterTotal);
            end;

            trigger OnPreDataItem()
            var
                ConfirmManagement: Codeunit "Confirm Management";
            begin
                CounterTotal := Count;
                if CounterTotal = 0 then begin
                    Message(Text000);
                    CurrReport.Break();
                end;
                if not ConfirmManagement.GetResponseOrDefault(
                     StrSubstNo(Text001, CounterTotal, TableCaption), true)
                then
                    Error(Text003);

                DeleteAll();
            end;
        }
    }

    requestpage
    {

        layout
        {
        }

        actions
        {
        }
    }

    labels
    {
    }

    var
#pragma warning disable AA0074
        Text000: Label 'There is nothing to delete.';
#pragma warning disable AA0470
        Text001: Label '%1 %2 records will be deleted.\\Do you want to continue?', Comment = '10 Service Item Log  record(s) will be deleted.\\Do you want to continue?';
#pragma warning restore AA0470
        Text003: Label 'No records were deleted.';
#pragma warning disable AA0470
        Text004: Label '%1 records were deleted.';
        Text005: Label '%1 record was deleted.';
#pragma warning restore AA0470
#pragma warning restore AA0074
        CounterTotal: Integer;
}