Report 5197 Remove Contacts - Reduce

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

using Microsoft.CRM.BusinessRelation;
using Microsoft.CRM.Contact;
using Microsoft.CRM.Interaction;
using Microsoft.CRM.Profiling;
using Microsoft.Inventory.Ledger;

report 5197 "Remove Contacts - Reduce"
{
    Caption = 'Remove Contacts - Reduce';
    ProcessingOnly = true;

    dataset
    {
        dataitem("Segment Header"; "Segment Header")
        {
            DataItemTableView = sorting("No.");

            trigger OnPreDataItem()
            begin
                CurrReport.Break();
            end;
        }
        dataitem(Contact; Contact)
        {
            DataItemTableView = sorting("No.");
            RequestFilterFields = "No.", "Search Name", Type, "Salesperson Code", "Post Code", "Country/Region Code", "Territory Code";

            trigger OnPreDataItem()
            begin
                CurrReport.Break();
            end;
        }
        dataitem("Contact Profile Answer"; "Contact Profile Answer")
        {
            DataItemTableView = sorting("Contact No.", "Profile Questionnaire Code", "Line No.");
            RequestFilterFields = "Profile Questionnaire Code", "Line No.";

            trigger OnPreDataItem()
            begin
                CurrReport.Break();
            end;
        }
        dataitem("Contact Mailing Group"; "Contact Mailing Group")
        {
            DataItemTableView = sorting("Contact No.", "Mailing Group Code");
            RequestFilterFields = "Mailing Group Code";

            trigger OnPreDataItem()
            begin
                CurrReport.Break();
            end;
        }
        dataitem("Interaction Log Entry"; "Interaction Log Entry")
        {
            DataItemTableView = sorting("Entry No.");
            RequestFilterFields = Date, "Segment No.", "Campaign No.", Evaluation, "Interaction Template Code", "Salesperson Code";

            trigger OnPreDataItem()
            begin
                CurrReport.Break();
            end;
        }
        dataitem("Contact Job Responsibility"; "Contact Job Responsibility")
        {
            DataItemTableView = sorting("Contact No.", "Job Responsibility Code");
            RequestFilterFields = "Job Responsibility Code";

            trigger OnPreDataItem()
            begin
                CurrReport.Break();
            end;
        }
        dataitem("Contact Industry Group"; "Contact Industry Group")
        {
            DataItemTableView = sorting("Contact No.", "Industry Group Code");
            RequestFilterFields = "Industry Group Code";

            trigger OnPreDataItem()
            begin
                CurrReport.Break();
            end;
        }
        dataitem("Contact Business Relation"; "Contact Business Relation")
        {
            DataItemTableView = sorting("Contact No.", "Business Relation Code");
            RequestFilterFields = "Business Relation Code";

            trigger OnPreDataItem()
            begin
                CurrReport.Break();
            end;
        }
        dataitem("Value Entry"; "Value Entry")
        {
            DataItemTableView = sorting("Source Type", "Source No.", "Item No.", "Posting Date");
            RequestFilterFields = "Item No.", "Variant Code", "Posting Date", "Inventory Posting Group";

            trigger OnPreDataItem()
            begin
                CurrReport.Break();
            end;
        }
    }

    requestpage
    {
        SaveValues = true;

        layout
        {
            area(content)
            {
                group(Options)
                {
                    Caption = 'Options';
                    field(EntireCompanies; EntireCompanies)
                    {
                        ApplicationArea = RelationshipMgmt;
                        Caption = 'Entire Companies';
                        ToolTip = 'Specifies if you want to remove all the person contacts employed in the company that you remove from the segment.';
                    }
                }
            }
        }

        actions
        {
        }
    }

    labels
    {
    }

    trigger OnPreReport()
    var
        IsHandled: Boolean;
    begin
        Clear(ReduceRefineSegment);
        ReduceRefineSegment.SetTableView("Segment Header");
        ReduceRefineSegment.SetTableView(Contact);
        ReduceRefineSegment.SetTableView("Contact Profile Answer");
        ReduceRefineSegment.SetTableView("Contact Mailing Group");
        ReduceRefineSegment.SetTableView("Interaction Log Entry");
        ReduceRefineSegment.SetTableView("Contact Job Responsibility");
        ReduceRefineSegment.SetTableView("Contact Industry Group");
        ReduceRefineSegment.SetTableView("Contact Business Relation");
        ReduceRefineSegment.SetTableView("Value Entry");
        ReduceRefineSegment.SetOptions(REPORT::"Remove Contacts - Reduce", EntireCompanies);
        IsHandled := false;
        OnPreReportOnBeforeRunReduceRefineSegment(IsHandled, ReduceRefineSegment);
        if not IsHandled then
            ReduceRefineSegment.RunModal();
    end;

    protected var
        ReduceRefineSegment: Report "Remove Contacts";
        EntireCompanies: Boolean;

    procedure SetOptions(OptionEntireCompanies: Boolean)
    begin
        EntireCompanies := OptionEntireCompanies;
    end;

    [IntegrationEvent(true, false)]
    local procedure OnPreReportOnBeforeRunReduceRefineSegment(var IsHandled: Boolean; var ReduceRefineSegment: Report "Remove Contacts")
    begin
    end;
}