Page 9453 File Scenarios FactBox in 28
- App
- System Application
- Namespace
- System.ExternalFileStorage
- Source table
- 9454
Versions171819202122232425262728latest
Source in 28
src/System Application/App/External File Storage/src/Scenario/FileScenariosFactBox.Page.al77 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 System.ExternalFileStorage;
/// <summary>
/// Lists of all scenarios assigned to an account.
/// </summary>
page 9453 "File Scenarios FactBox"
{
PageType = ListPart;
ApplicationArea = All;
Extensible = false;
SourceTable = "File Scenario";
InsertAllowed = false;
ModifyAllowed = false;
DeleteAllowed = false;
Editable = false;
ShowFilter = false;
LinksAllowed = false;
Permissions = tabledata "File Scenario" = r;
InherentPermissions = X;
InherentEntitlements = X;
layout
{
area(Content)
{
repeater(ScenariosByFile)
{
field(Name; Format(Rec.Scenario))
{
ToolTip = 'Specifies the name of the file scenario.';
Caption = 'File scenario';
Editable = false;
trigger OnDrillDown()
begin
OpenAdditionalScenarioSetup();
end;
}
}
}
}
actions
{
area(Processing)
{
action(ScenarioSetup)
{
Caption = 'Additional Scenario Setup';
ToolTip = 'Additional scenario setup for the selected scenario.';
Image = Setup;
Scope = Repeater;
trigger OnAction()
begin
OpenAdditionalScenarioSetup();
end;
}
}
}
local procedure OpenAdditionalScenarioSetup()
var
FileScenarioInterface: Interface "File Scenario";
FileScenarioEnum: Enum "File Scenario";
NoSetupAvailableMsg: Label 'No additional setup is available for this scenario.';
begin
FileScenarioEnum := Rec.Scenario;
FileScenarioInterface := FileScenarioEnum;
if not FileScenarioInterface.GetAdditionalScenarioSetup(Rec.Scenario, Rec.Connector) then
Message(NoSetupAvailableMsg);
end;
}