Report 5978 Serv. Contract - Salesperson, 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.Service.Reports;

using Microsoft.Service.Contract;

report 5978 "Serv. Contract - Salesperson"
{
    DefaultLayout = RDLC;
    RDLCLayout = './Service/Reports/ServContractSalesperson.rdlc';
    ApplicationArea = Service;
    Caption = 'Serv. Contract - Salesperson';
    ToolTip = 'View customer number, name, description, starting date and the annual amount for each service contract. You can use the report to calculate and document sales commission. You can print a list of service contracts for each salesperson for a selected period.';
    UsageCategory = ReportsAndAnalysis;

    dataset
    {
        dataitem("Service Contract Header"; "Service Contract Header")
        {
            DataItemTableView = sorting("Salesperson Code", Status) where("Contract Type" = const(Contract));
            RequestFilterFields = "Salesperson Code", Status, "Contract No.", "Starting Date";
            column(TodayFormatted; Format(Today, 0, 4))
            {
            }
            column(CompanyName; COMPANYPROPERTY.DisplayName())
            {
            }
            column(ServCntrctFlt_ServContract; TableCaption + ': ' + ServContractFilter)
            {
            }
            column(ServContractFilter; ServContractFilter)
            {
            }
            column(SlspersonCod_ServContract; "Salesperson Code")
            {
                IncludeCaption = true;
            }
            column(ContractNo_ServContract; "Contract No.")
            {
                IncludeCaption = true;
            }
            column(CustomerNo_ServContract; "Customer No.")
            {
                IncludeCaption = true;
            }
            column(Name_ServContract; Name)
            {
                IncludeCaption = true;
            }
            column(StartingDate_ServContract; Format("Starting Date"))
            {
            }
            column(AnnualAmount_ServContract; "Annual Amount")
            {
                IncludeCaption = true;
            }
            column(ShiptoCode_ServContract; "Ship-to Code")
            {
                IncludeCaption = true;
            }
            column(CntrctGrCode_ServContract; "Contract Group Code")
            {
                IncludeCaption = true;
            }
            column(NextInvoDt_ServContract; Format("Next Invoice Date"))
            {
            }
            column(TtlFldCptnSalespersonCode; Text000 + FieldCaption("Salesperson Code"))
            {
            }
            column(TotalFor; TotalForLbl)
            {
            }
            column(ServContrctSalepersonCptn; ServContrctSalepersonCptnLbl)
            {
            }
            column(CurrReportPageNoCaptn; CurrReportPageNoCaptnLbl)
            {
            }
            column(ServContractStrtgDtCptn; ServContractStrtgDtCptnLbl)
            {
            }
            column(ServCntrctNxtInvDtCptn; ServCntrctNxtInvDtCptnLbl)
            {
            }
        }
    }

    requestpage
    {
        AboutTitle = 'About Serv. Contract - Salesperson';
        AboutText = 'Get an overview of service contracts for each salesperson for a selected period. For example, the overview can help you calculate and document commissions.';
        layout
        {
        }

        actions
        {
        }
    }

    labels
    {
    }

    trigger OnPreReport()
    begin
        ServContractFilter := "Service Contract Header".GetFilters();
    end;

    var
#pragma warning disable AA0074
        Text000: Label 'Total for ';
#pragma warning restore AA0074
        ServContractFilter: Text;
        TotalForLbl: Label 'Total ';
        ServContrctSalepersonCptnLbl: Label 'Service Contract - Salesperson';
        CurrReportPageNoCaptnLbl: Label 'Page';
        ServContractStrtgDtCptnLbl: Label 'Starting Date';
        ServCntrctNxtInvDtCptnLbl: Label 'Next Invoice Date';
}