Page 5349 CRM Case List

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

using Microsoft.Integration.Dataverse;

page 5349 "CRM Case List"
{
    ApplicationArea = Suite, Service;
    Caption = 'Cases - Microsoft Dynamics 365 Sales';
    Editable = false;
    InsertAllowed = false;
    LinksAllowed = false;
    PageType = List;
    SourceTable = "CRM Incident";
    SourceTableView = sorting(Title);
    UsageCategory = Lists;

    layout
    {
        area(content)
        {
            repeater(Group)
            {
                field(Title; Rec.Title)
                {
                    ApplicationArea = Suite;
                    Caption = 'Case Title';
                }
                field(StateCode; Rec.StateCode)
                {
                    ApplicationArea = Suite;
                    Caption = 'Status';
                    OptionCaption = 'Active,Resolved,Canceled';
                }
                field(TicketNumber; Rec.TicketNumber)
                {
                    ApplicationArea = Suite;
                    Caption = 'Case Number';
                }
                field(CreatedOn; Rec.CreatedOn)
                {
                    ApplicationArea = Suite;
                    Caption = 'Created On';
                }
            }
        }
    }

    actions
    {
        area(navigation)
        {
            group(ActionGroupCRM)
            {
                Caption = 'Dynamics 365 Sales';
                action(CRMGoToCase)
                {
                    ApplicationArea = Suite;
                    Caption = 'Case';
                    Image = CoupledOrder;
                    ToolTip = 'View the case.';

                    trigger OnAction()
                    var
                        CRMIntegrationManagement: Codeunit "CRM Integration Management";
                    begin
                        HyperLink(CRMIntegrationManagement.GetCRMEntityUrlFromCRMID(DATABASE::"CRM Incident", Rec.IncidentId));
                    end;
                }
            }
        }
        area(Promoted)
        {
            group(Category_Category4)
            {
                Caption = 'Dynamics 365 Sales', Comment = 'Generated from the PromotedActionCategories property index 3.';

            }
            group(Category_Report)
            {
                Caption = 'Report', Comment = 'Generated from the PromotedActionCategories property index 2.';
            }
            group(Category_Synchronize)
            {
                Caption = 'Synchronize';

                actionref(CRMGoToCase_Promoted; CRMGoToCase)
                {
                }
            }
        }
    }

    trigger OnInit()
    begin
        CODEUNIT.Run(CODEUNIT::"CRM Integration Management");
    end;
}