Page 533 Reminder Attachment T.L. Term

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

/// <summary>
/// Displays and edits attachment text lines for a specific reminder term.
/// </summary>
page 533 "Reminder Attachment T.L. Term"
{
    PageType = ListPlus;
    ApplicationArea = All;
    UsageCategory = None;
    SourceTable = "Reminder Attachment Text";
    Caption = 'Reminder Attachment Text Line List';

    layout
    {
        area(Content)
        {
            group(General)
            {
                ShowCaption = false;
                field(ReminderTermCode; ReminderTermCode)
                {
                    ApplicationArea = All;
                    Importance = Promoted;
                    Caption = 'Reminder Term Code';
                    ToolTip = 'Specifies the code of the reminder term for the beginning and ending lines.';
                    Enabled = false;
                    Editable = false;
                }
                field("Language Code"; Rec."Language Code")
                {
                    ApplicationArea = All;
                    Importance = Promoted;
                    Caption = 'Language Code';
                    Enabled = false;
                    Editable = false;
                }
            }
            part(BeginningLines; "Reminder Attach Beginning Line")
            {
                Caption = 'Beginning Lines';
                ApplicationArea = All;
                SubPageLink = Id = field(Id),
                             "Language Code" = field("Language Code"),
                             Position = const("Beginning Line");
            }
            part(EndingLines; "Reminder Attach Ending Line")
            {
                Caption = 'Ending Lines';
                ApplicationArea = All;
                SubPageLink = Id = field(Id),
                             "Language Code" = field("Language Code"),
                             Position = const("Ending Line");
            }
        }
    }

    trigger OnAfterGetRecord()
    var
        ReminderTerms: Record "Reminder Terms";
    begin
        ReminderTerms.SetRange("Reminder Attachment Text", Rec.Id);
        if not ReminderTerms.FindFirst() then
            Error(NoReminderTermFoundErr);
        ReminderTermCode := ReminderTerms.Code;
    end;

    var
        ReminderTermCode: Code[10];
        NoReminderTermFoundErr: Label 'No reminder terms found for the current reminder attachment text.';
}