Report 5066 Questionnaire - Handouts, 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.CRM.Reports;

using Microsoft.CRM.Profiling;

report 5066 "Questionnaire - Handouts"
{
    ApplicationArea = RelationshipMgmt;
    Caption = 'Questionnaire - Handouts';
    ToolTip = 'View your profile questionnaire for the contact. You can print this report to have a printed copy of the questions that are within the profile questionnaire.';
    UsageCategory = ReportsAndAnalysis;
    DefaultRenderingLayout = RDLCLayout;

    dataset
    {
        dataitem("Profile Questionnaire Header"; "Profile Questionnaire Header")
        {
            DataItemTableView = sorting(Code);
            RequestFilterFields = "Code", "Contact Type", "Business Relation Code";
            column(COMPANYNAME; COMPANYPROPERTY.DisplayName())
            {
            }
            column(FORMAT_TODAY_0_4_; Format(Today, 0, 4))
            {
            }
            column(Profile_Questionnaire_Header__TABLECAPTION__________QuestionnaireFilter; TableCaption + ': ' + QuestionnaireFilter)
            {
            }
            column(PrintClassificationFields; PrintClassificationFields)
            {
            }
            column(Profile_Questionnaire_Header_Description; Description)
            {
            }
            column(Profile_Questionnaire_Header_Code; Code)
            {
            }
            column(CurrReport_PAGENOCaption; CurrReport_PAGENOCaptionLbl)
            {
            }
            column(Questionnaire___HandoutsCaption; Questionnaire___HandoutsCaptionLbl)
            {
            }
            column(Including_Classification_QuestionsCaption; Including_Classification_QuestionsCaptionLbl)
            {
            }
            dataitem("Profile Questionnaire Line"; "Profile Questionnaire Line")
            {
                DataItemLink = "Profile Questionnaire Code" = field(Code);
                DataItemTableView = sorting("Profile Questionnaire Code", "Line No.");
                column(Profile_Questionnaire_Line_Description; Description)
                {
                }
                column(Filter1; (Type = Type::Question) and ("Multiple Answers" = true))
                {
                }
                column(Filter2; (Type = Type::Question) and ("Multiple Answers" = true) and ("Auto Contact Classification" = false))
                {
                }
                column(Filter3; (Type = Type::Question) and ("Multiple Answers" = false))
                {
                }
                column(Filter4; (Type = Type::Question) and ("Multiple Answers" = false) and ("Auto Contact Classification" = false))
                {
                }
                column(Profile_Questionnaire_Line_Description_Control13; Description)
                {
                }
                column(Filter5; Type = Type::Answer)
                {
                }
                column(Filter6; (Type = Type::Answer) and not ClassificationQuestion)
                {
                }
                column(Profile_Questionnaire_Line_Description_Control13Caption; FieldCaption(Description))
                {
                }
                column(AnswerCaption; AnswerCaptionLbl)
                {
                }
                column(Number_of_AnswersCaption; Number_of_AnswersCaptionLbl)
                {
                }
                column(MultipleCaption; MultipleCaptionLbl)
                {
                }
                column(One_onlyCaption; One_onlyCaptionLbl)
                {
                }

                trigger OnAfterGetRecord()
                begin
                    if Type = Type::Question then
                        ClassificationQuestion := ("Auto Contact Classification" = true);
                end;
            }
        }
    }

    requestpage
    {
        AboutTitle = 'About Questionnaire - Handouts';
        AboutText = 'Print handouts for a profile questionnaire.';

        layout
        {
            area(content)
            {
                group(Options)
                {
                    Caption = 'Options';
                    field(PrintClassificationFields; PrintClassificationFields)
                    {
                        ApplicationArea = RelationshipMgmt;
                        Caption = 'Print Classification Fields ';
                        ToolTip = 'Specifies if you also want the report to include the questions that are answered automatically.';
                    }
                }
            }
        }

        actions
        {
        }
    }

    rendering
    {
        layout(RDLCLayout)
        {
            Type = RDLC;
            LayoutFile = './CRM/Reports/QuestionnaireHandouts.rdlc';
            Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.';
        }
    }

    labels
    {
    }

    trigger OnPreReport()
    begin
        QuestionnaireFilter := "Profile Questionnaire Header".GetFilters();
    end;

    var
        QuestionnaireFilter: Text;
        PrintClassificationFields: Boolean;
        ClassificationQuestion: Boolean;
        CurrReport_PAGENOCaptionLbl: Label 'Page';
        Questionnaire___HandoutsCaptionLbl: Label 'Questionnaire - Handouts';
        Including_Classification_QuestionsCaptionLbl: Label 'Including Classification Questions';
        AnswerCaptionLbl: Label 'Answer';
        Number_of_AnswersCaptionLbl: Label 'Number of Answers';
        MultipleCaptionLbl: Label 'Multiple';
        One_onlyCaptionLbl: Label 'One only';

    procedure InitializeRequest(PrintClassificationFrom: Boolean)
    begin
        PrintClassificationFields := PrintClassificationFrom;
    end;
}