Page 5235 HR Confidential Comment List, 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.HumanResources.Employee;

page 5235 "HR Confidential Comment List"
{
    Caption = 'Comment List';
    DataCaptionExpression = Caption(Rec);
    Editable = false;
    LinksAllowed = false;
    PageType = List;
    SourceTable = "HR Confidential Comment Line";

    layout
    {
        area(content)
        {
            repeater(Control1)
            {
                ShowCaption = false;
                field("No."; Rec."No.")
                {
                    ApplicationArea = BasicHR;
                }
                field(Date; Rec.Date)
                {
                    ApplicationArea = BasicHR;
                }
                field(Comment; Rec.Comment)
                {
                    ApplicationArea = Comments;
                }
                field("Code"; Rec.Code)
                {
                    ApplicationArea = BasicHR;
                    Visible = false;
                }
            }
        }
    }

    actions
    {
    }

    var
        Employee: Record Employee;
        ConfidentialInfo: Record "Confidential Information";
#pragma warning disable AA0074
        Text000: Label 'untitled', Comment = 'it is a caption for empty page';
#pragma warning restore AA0074

    procedure Caption(HRCommentLine: Record "HR Confidential Comment Line"): Text
    begin
        if ConfidentialInfo.Get(HRCommentLine."No.", HRCommentLine.Code, HRCommentLine."Table Line No.") and
           Employee.Get(HRCommentLine."No.")
        then
            exit(HRCommentLine."No." + ' ' + Employee.FullName() + ' ' +
              ConfidentialInfo."Confidential Code");
        exit(Text000);
    end;
}