Skip to content

SL Migration Update May 2026 #30188

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Closed
blauerPCL wants to merge 2 commits into from
+2,900 −0
Closed

SL Migration Update May 2026 #30188

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
10d3f4a
Add support for SL historical project transactions to SL Historical D…
blauerPCL Jun 1, 2026
b89f7b3
Add support for SL historical project transactions to SL Migration ex…
blauerPCL Jun 1, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
16 changes: 16 additions & 0 deletions Apps/W1/DynamicsSLHistoricalData/app/src/Codeunits/SLHistMigrationStatusMgmt.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -91,6 +91,10 @@ codeunit 42800 "SL Hist. Migration Status Mgmt"
SLHistGLTran: Record "SL Hist. GLTran Archive";
SLHistINTran: Record "SL Hist. INTran Archive";
SLHistLotSerT: Record "SL Hist. LotSerT Archive";
SLHistPJEmploy: Record "SL Hist. PJEmploy";
SLHistPJProj: Record "SL Hist. PJProj";
SLHistPJTran: Record "SL Hist. PJTran";
SLHistPJTranEx: Record "SL Hist. PJTranEx";
SLHistPOReceipt: Record "SL Hist. POReceipt";
SLHistPOTran: Record "SL Hist. POTran";
SLHistPurchOrd: Record "SL Hist. PurchOrd";
Expand Down Expand Up @@ -134,6 +138,18 @@ codeunit 42800 "SL Hist. Migration Status Mgmt"
if not SLHistPOReceipt.IsEmpty() then
BatchDeleteAll(Database::"SL Hist. POReceipt", SLHistPOReceipt.FieldNo(SLHistPOReceipt.RcptNbr));

if not SLHistPJTranEx.IsEmpty() then
BatchDeleteAll(Database::"SL Hist. PJTranEx", SLHistPJTranEx.FieldNo(SLHistPJTranEx.fiscalno));

if not SLHistPJTran.IsEmpty() then
BatchDeleteAll(Database::"SL Hist. PJTran", SLHistPJTran.FieldNo(SLHistPJTran.fiscalno));

if not SLHistPJProj.IsEmpty() then
BatchDeleteAll(Database::"SL Hist. PJProj", SLHistPJProj.FieldNo(SLHistPJProj.project));

if not SLHistPJEmploy.IsEmpty() then
BatchDeleteAll(Database::"SL Hist. PJEmploy", SLHistPJEmploy.FieldNo(SLHistPJEmploy.employee));

if not SLHistLotSerT.IsEmpty() then
BatchDeleteAll(Database::"SL Hist. LotSerT Archive", SLHistLotSerT.FieldNo(SLHistLotSerT.LotSerNbr));

Expand Down
1 change: 1 addition & 0 deletions Apps/W1/DynamicsSLHistoricalData/app/src/Enums/SLHistMigrationStepType.Enum.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -15,6 +15,7 @@ enum 42800 "SL Hist. Migration Step Type"
value(5; "SL Payables Trx.") { Caption = 'SL Payables Trx.'; }
value(6; "SL Inventory Trx.") { Caption = 'SL Inventory Trx.'; }
value(7; "SL Purchase Receivables Trx.") { Caption = 'SL Purchase Receivables Trx.'; }
value(8; "SL Project Trx.") { Caption = 'SL Project Trx.'; }
value(98; "Resetting Data") { Caption = 'Resetting Historical Data'; }
value(99; Finished) { Caption = 'Finished'; }
}
44 changes: 44 additions & 0 deletions Apps/W1/DynamicsSLHistoricalData/app/src/PageExt/SLHistProjectCard.PageExt.al
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,44 @@
// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------

namespace Microsoft.DataMigration.SL.HistoricalData;

using Microsoft.Projects.Project.Job;

pageextension 42807 "SL Hist. Project Card" extends "Job Card"
{
actions
{
addlast("&Job")
{
group(SLHistorical)
{
Caption = 'SL Historical';
Image = History;
action("SL Hist. Project Transactions")
{
ApplicationArea = Basic, Suite;
Caption = 'SL Historical Project Transactions';
Image = Transactions;
ToolTip = 'View the historical project transactions for this project.';
RunObject = page "SL Hist. PJTran Entries";
RunPageLink = project = field("No.");
Visible = SLHistPJTranDataAvailable;
}
}
}
}

trigger OnOpenPage()
var
SLHistPJTran: Record "SL Hist. PJTran";
begin
if SLHistPJTran.ReadPermission() then
SLHistPJTranDataAvailable := not SLHistPJTran.IsEmpty();
end;

var
SLHistPJTranDataAvailable: Boolean;
}
44 changes: 44 additions & 0 deletions Apps/W1/DynamicsSLHistoricalData/app/src/PageExt/SLHistProjectList.PageExt.al
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,44 @@
// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------

namespace Microsoft.DataMigration.SL.HistoricalData;

using Microsoft.Projects.Project.Job;

pageextension 42806 "SL Hist. Project List" extends "Job List"
{
actions
{
addlast("&Job")
{
group(SLHistorical)
{
Caption = 'SL Historical';
Image = History;
action("SL Hist. Project Transactions")
{
ApplicationArea = Basic, Suite;
Caption = 'SL Historical Project Transactions';
Image = Transactions;
ToolTip = 'View the historical project transactions for this project.';
RunObject = page "SL Hist. PJTran Entries";
RunPageLink = project = field("No.");
visible = SLHistPJTranDataAvailable;
}
}
}
}

trigger OnOpenPage()
var
SLHistPJTran: Record "SL Hist. PJTran";
begin
if SLHistPJTran.ReadPermission() then
SLHistPJTranDataAvailable := not SLHistPJTran.IsEmpty();
end;

var
SLHistPJTranDataAvailable: Boolean;
}
140 changes: 140 additions & 0 deletions Apps/W1/DynamicsSLHistoricalData/app/src/Pages/SLHistBatchEntries.Page.al
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,140 @@
// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------

namespace Microsoft.DataMigration.SL.HistoricalData;

page 42803 "SL Hist. Batch Entries"
{
AdditionalSearchTerms = 'SL Batches, SL Historical Entries, SL Historical Batch Entries';
ApplicationArea = Basic, Suite;
Caption = 'SL Historical Batch Entries';
DeleteAllowed = false;
Editable = false;
InsertAllowed = false;
LinksAllowed = false;
ModifyAllowed = false;
MultipleNewLines = false;
PageType = List;
Permissions = TableData "SL Hist. Batch" = m;
SourceTable = "SL Hist. Batch";
UsageCategory = History;

layout
{
area(Content)
{
repeater(General)
{
field("Company ID"; Rec.CpnyID)
{
Caption = 'Company ID';
Editable = false;
ToolTip = 'Specifies the Company ID that the batch belongs to.';
}
field("Account"; Rec.Acct)
{
Caption = 'Account';
Editable = false;
ToolTip = 'Specifies the Account that the batch is associated with.';
}
field("Subaccount"; Rec.Sub)
{
Caption = 'Subaccount';
Editable = false;
ToolTip = 'Specifies the Subaccount that the batch is associated with.';
}
field("Batch Number"; Rec.BatNbr)
{
Caption = 'Batch Number';
Editable = false;
ToolTip = 'Specifies the Batch Number that the entry belongs to.';
}
field("Journal Type"; Rec.JrnlType)
{
Caption = 'Journal Type';
Editable = false;
ToolTip = 'Specifies the Journal Type that the batch belongs to.';
}
field("Ledger ID"; Rec.LedgerID)
{
Caption = 'Ledger ID';
Editable = false;
ToolTip = 'Specifies the Ledger ID that the batch is posted to.';
}
field("Description"; Rec.Descr)
{
Caption = 'Description';
Editable = false;
ToolTip = 'Specifies the Description of the batch.';
}
field("Balance Type"; Rec.BalanceType)
{
Caption = 'Balance Type';
Editable = false;
ToolTip = 'Specifies the Balance Type of the batch.';
}
field("Module"; Rec.Module)
{
Caption = 'Module';
Editable = false;
ToolTip = 'Specifies the Module that the batch belongs to.';
}
field("Period Entered"; Rec.PerEnt)
{
Caption = 'Period Entered';
Editable = false;
ToolTip = 'Specifies the period that the batch was entered.';
}
field("Period to Post"; Rec.PerPost)
{
Caption = 'Period to Post';
Editable = false;
ToolTip = 'Specifies the period that the batch was posted to.';
}
field("Status"; Rec.Status)
{
Caption = 'Status';
Editable = false;
ToolTip = 'Specifies the status of the batch.';
}
field("Credit Total"; Rec.CrTot)
{
Caption = 'Credit Total';
Editable = false;
ToolTip = 'Specifies the credit total for the batch.';
}
field("Debit Total"; Rec.DrTot)
{
Caption = 'Debit Total';
Editable = false;
ToolTip = 'Specifies the debit total for the batch.';
}
}
}
}

trigger OnOpenPage()
begin
if FilterAcct <> '' then
Rec.SetRange(Acct, FilterAcct);

if FilterLedgerID <> '' then
Rec.SetRange(LedgerID, FilterLedgerID);
end;

procedure SetFilterAcct(Acct: Text[10])
begin
FilterAcct := Acct;
end;

procedure SetLedgerID(LedgerID: Code[10])
begin
FilterLedgerID := LedgerID;
end;

var
FilterAcct: Text[10];
FilterLedgerID: Code[10];
}
Loading
Loading