Codeunit 6100 Data Migration Facade
- App
- Base Application
- Namespace
- System.Integration
- Versions
- 17-28
Versions171819202122232425262728
Source29
Source in 29
src/Layers/W1/BaseApp/System/DataMigration/DataMigrationFacade.Codeunit.al160 lines, Copyright (c) Microsoft Corporation. MIT
namespace System.Integration;
codeunit 6100 "Data Migration Facade"
{
trigger OnRun()
begin
end;
procedure StartMigration(MigrationType: Text[250]; Retry: Boolean)
var
DataMigrationMgt: Codeunit "Data Migration Mgt.";
begin
DataMigrationMgt.StartMigration(MigrationType, Retry);
end;
[EventSubscriber(ObjectType::Table, Database::"Data Migrator Registration", 'OnRegisterDataMigrator', '', false, false)]
local procedure OnRegisterDataMigratorWizardSubscriber(var Sender: Record "Data Migrator Registration")
begin
OnRegisterDataMigrator(Sender);
end;
[IntegrationEvent(true, false)]
[Scope('OnPrem')]
procedure OnRegisterDataMigrator(var DataMigratorRegistration: Record "Data Migrator Registration")
begin
// Event which makes all data migrators register themselves in this table.
end;
[EventSubscriber(ObjectType::Table, Database::"Data Migrator Registration", 'OnGetInstructions', '', false, false)]
local procedure OnRegisterGetInstructionsWizardSubscriber(var Sender: Record "Data Migrator Registration"; var Instructions: Text; var Handled: Boolean)
begin
OnGetInstructions(Sender, Instructions, Handled);
end;
[IntegrationEvent(true, false)]
[Scope('OnPrem')]
procedure OnGetInstructions(var DataMigratorRegistration: Record "Data Migrator Registration"; var Instructions: Text; var Handled: Boolean)
begin
// Event which makes all registered data migrators publish their instructions.
end;
[EventSubscriber(ObjectType::Table, Database::"Data Migrator Registration", 'OnDataImport', '', false, false)]
local procedure OnDataImportWizardSubscriber(var Sender: Record "Data Migrator Registration"; var Handled: Boolean)
begin
OnDataImport(Sender, Handled);
end;
[IntegrationEvent(true, false)]
[Scope('OnPrem')]
procedure OnDataImport(var DataMigratorRegistration: Record "Data Migrator Registration"; var Handled: Boolean)
begin
// Event which makes all registered data migrators import data.
end;
[EventSubscriber(ObjectType::Table, Database::"Data Migrator Registration", 'OnSelectDataToApply', '', false, false)]
local procedure OnSelectDataToApplyWizardSubscriber(var Sender: Record "Data Migrator Registration"; var DataMigrationEntity: Record "Data Migration Entity"; var Handled: Boolean)
begin
OnSelectDataToApply(Sender, DataMigrationEntity, Handled);
end;
[IntegrationEvent(true, false)]
[Scope('OnPrem')]
procedure OnSelectDataToApply(var DataMigratorRegistration: Record "Data Migrator Registration"; var DataMigrationEntity: Record "Data Migration Entity"; var Handled: Boolean)
begin
// Event which makes all registered data migrators populate the Data Migration Entities table, which allows the user to choose which imported data should be applied.
end;
[EventSubscriber(ObjectType::Table, Database::"Data Migrator Registration", 'OnApplySelectedData', '', false, false)]
local procedure OnApplySelectedDataWizardSubscriber(var Sender: Record "Data Migrator Registration"; var DataMigrationEntity: Record "Data Migration Entity"; var Handled: Boolean)
begin
OnApplySelectedData(Sender, DataMigrationEntity, Handled);
end;
[IntegrationEvent(true, false)]
[Scope('OnPrem')]
procedure OnApplySelectedData(var DataMigratorRegistration: Record "Data Migrator Registration"; var DataMigrationEntity: Record "Data Migration Entity"; var Handled: Boolean)
begin
// Event which makes all registered data migrators apply the data, which is selected in the Data Migration Entities table.
end;
[EventSubscriber(ObjectType::Table, Database::"Data Migrator Registration", 'OnShowThatsItMessage', '', false, false)]
local procedure OnShowThatsItMessageWizardSubscriber(var Sender: Record "Data Migrator Registration"; var Message: Text)
begin
OnShowThatsItMessage(Sender, Message);
end;
[IntegrationEvent(true, false)]
[Scope('OnPrem')]
procedure OnShowThatsItMessage(var DataMigratorRegistration: Record "Data Migrator Registration"; var Message: Text)
begin
// Event which shows specific data migrator text at the last page
end;
[EventSubscriber(ObjectType::Table, Database::"Data Migrator Registration", 'OnEnableTogglingDataMigrationOverviewPage', '', false, false)]
local procedure OnEnableTogglingDataMigrationOverviewPageWizardSubscriber(var Sender: Record "Data Migrator Registration"; var EnableTogglingOverviewPage: Boolean)
begin
OnEnableTogglingDataMigrationOverviewPage(Sender, EnableTogglingOverviewPage);
end;
[IntegrationEvent(true, false)]
[Scope('OnPrem')]
procedure OnEnableTogglingDataMigrationOverviewPage(var DataMigratorRegistration: Record "Data Migrator Registration"; var EnableTogglingOverviewPage: Boolean)
begin
// Event which determines if the option to launch the overview page will be shown to the user at the end.
end;
[IntegrationEvent(false, false)]
procedure OnFillStagingTables()
begin
end;
[IntegrationEvent(false, false)]
procedure OnFindBatchForItemTransactions(MigrationType: Text[250]; var ItemJournalBatchName: Code[10])
begin
end;
[IntegrationEvent(false, false)]
procedure OnFindBatchForCustomerTransactions(MigrationType: Text[250]; var GenJournalBatchName: Code[10])
begin
end;
[IntegrationEvent(false, false)]
procedure OnFindBatchForVendorTransactions(MigrationType: Text[250]; var GenJournalBatchName: Code[10])
begin
end;
[IntegrationEvent(false, false)]
procedure OnFindBatchForAccountTransactions(DataMigrationStatus: Record "Data Migration Status"; var GenJournalBatchName: Code[10])
begin
end;
[IntegrationEvent(false, false)]
procedure OnGetMigrationHelpTopicUrl(MigrationType: Text; var Url: Text)
begin
end;
[IntegrationEvent(false, false)]
procedure OnSelectRowFromDashboard(var DataMigrationStatus: Record "Data Migration Status")
begin
end;
[IntegrationEvent(false, false)]
[Scope('OnPrem')]
procedure OnMigrationCompleted(DataMigrationStatus: Record "Data Migration Status")
begin
end;
[IntegrationEvent(false, false)]
procedure OnInitDataMigrationError(MigrationType: Text[250]; var BulkFixErrorsButtonEnabled: Boolean)
begin
end;
[IntegrationEvent(false, false)]
procedure OnBatchEditFromErrorView(MigrationType: Text[250]; DestinationTableId: Integer)
begin
end;
}