Page 1200 Bank Export/Import Setup, source in 29
Source29
src/Layers/W1/BaseApp/Bank/Setup/BankExportImportSetup.Page.al147 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.Bank.Setup;
using Microsoft.Upgrade;
/// <summary>
/// Configuration page for setting up bank file import/export formats and processing rules.
/// Provides interface for managing electronic banking data exchange definitions and processing logic.
/// </summary>
/// <remarks>
/// Source Table: Bank Export/Import Setup (1200). Supports configuration of import, export, and positive pay formats.
/// Integrates with Data Exchange Framework for flexible file format handling.
/// </remarks>
page 1200 "Bank Export/Import Setup"
{
AdditionalSearchTerms = 'data exchange definition setup,bank file import setup,bank file export setup,bank transfer setup,amc yodlee feed stream setup';
ApplicationArea = Basic, Suite;
Caption = 'Bank Export/Import Setup';
PageType = List;
SourceTable = "Bank Export/Import Setup";
UsageCategory = Administration;
layout
{
area(content)
{
repeater(Group)
{
field("Code"; Rec.Code)
{
ApplicationArea = Basic, Suite;
ShowMandatory = true;
}
field(Name; Rec.Name)
{
ApplicationArea = Basic, Suite;
}
field(Direction; Rec.Direction)
{
ApplicationArea = Basic, Suite;
ShowMandatory = true;
}
field("Processing Codeunit ID"; Rec."Processing Codeunit ID")
{
ApplicationArea = Basic, Suite;
}
field("Processing Codeunit Name"; Rec."Processing Codeunit Name")
{
ApplicationArea = Basic, Suite;
}
field("Processing XMLport ID"; Rec."Processing XMLport ID")
{
ApplicationArea = Basic, Suite;
}
field("Processing XMLport Name"; Rec."Processing XMLport Name")
{
ApplicationArea = Basic, Suite;
}
field("Data Exch. Def. Code"; Rec."Data Exch. Def. Code")
{
ApplicationArea = Basic, Suite;
}
field("Preserve Non-Latin Characters"; Rec."Preserve Non-Latin Characters")
{
ApplicationArea = Basic, Suite;
}
field("Check Export Codeunit"; Rec."Check Export Codeunit")
{
ApplicationArea = Basic, Suite;
}
field("Check Export Codeunit Name"; Rec."Check Export Codeunit Name")
{
ApplicationArea = Basic, Suite;
}
}
}
area(factboxes)
{
systempart(Control12; Notes)
{
ApplicationArea = Notes;
}
systempart(Control13; Links)
{
ApplicationArea = RecordLinks;
}
}
}
actions
{
area(Processing)
{
action(SEPACAMT5300108)
{
ApplicationArea = Basic, Suite;
Caption = 'SEPA CAMT 053.001.08', Locked = true;
Enabled = true;
Image = SetupLines;
ToolTip = 'Sets up a bank import format for SEPA CAMT 053.001.08 files';
trigger OnAction()
begin
UpgradeSEPACAMT05300108();
end;
}
}
area(Promoted)
{
group(Category_Category4)
{
Caption = 'Setup';
actionref(SEPACAMT5300108_Promoted; SEPACAMT5300108)
{
}
}
}
}
var
ProceedWithSetupSEPACAMTQst: Label 'Do you want to set up the %1 bank import format?', Comment = '%1 - SEPA CAMT 053.001.08';
SetupCompletedMsg: Label 'Setup of data exchange definition and bank import setup %1 is completed.', Comment = '%1 - SEPA CAMT 053.001.08';
local procedure UpgradeSEPACAMT05300108()
var
UpgradeBaseApp: Codeunit "Upgrade - BaseApp";
begin
if not Confirm(StrSubstNo(ProceedWithSetupSEPACAMTQst, SEPACAMT05300108())) then
exit;
UpgradeBaseApp.UpgradeSEPACAMT05300108();
CurrPage.Update();
Message(SetupCompletedMsg, SEPACAMT05300108());
end;
local procedure SEPACAMT05300108(): Code[20]
begin
exit('SEPA CAMT 053-08');
end;
}