Report 187 Update Reminder Text
- App
- Base Application
- Namespace
- Microsoft.Sales.Reminder
- Versions
- 17-28
Versions171819202122232425262728
Source29
Source in 29
src/Layers/W1/BaseApp/Sales/Reminder/UpdateReminderText.Report.al75 lines, Copyright (c) Microsoft Corporation. MIT
// ------------------------------------------------------------------------------------------------
// 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>
/// Updates the beginning and ending text on reminder documents to match a specified reminder level.
/// </summary>
report 187 "Update Reminder Text"
{
Caption = 'Update Reminder Text';
ProcessingOnly = true;
dataset
{
dataitem("Reminder Header"; "Reminder Header")
{
RequestFilterFields = "No.";
trigger OnAfterGetRecord()
begin
ReminderHeader.Get("No.");
if ReminderLevel.Get(ReminderHeader."Reminder Terms Code", ReminderLevelNo) then begin
ReminderHeader.Validate("Reminder Level", ReminderLevelNo);
ReminderHeader.Modify();
ReminderHeader.UpdateLines(ReminderHeader, UpdateAdditionalFee);
end
end;
}
}
requestpage
{
layout
{
area(content)
{
group(Options)
{
Caption = 'Options';
field(ReminderLevelNo; ReminderLevelNo)
{
ApplicationArea = Basic, Suite;
Caption = 'Reminder Level';
ToolTip = 'Specifies the reminder level to which the beginning and/or ending text you want to use is linked.';
}
field(UpdateAdditionalFee; UpdateAdditionalFee)
{
ApplicationArea = Basic, Suite;
Caption = 'Update Additional Fee';
ToolTip = 'Specifies whether you want to update the additional fee.';
}
}
}
}
actions
{
}
}
labels
{
}
var
ReminderHeader: Record "Reminder Header";
ReminderLevel: Record "Reminder Level";
ReminderLevelNo: Integer;
UpdateAdditionalFee: Boolean;
}