Skip to content
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

GP Added Serial/Lot information to Historical Snapshot for Sales and Inventory transactions #26422

Merged
merged 4 commits into from
May 17, 2024
Merged

GP Added Serial/Lot information to Historical Snapshot for Sales and Inventory transactions #26422

Show file tree
Hide file tree
Changes from 1 commit
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
1b5e4ff
Added Serial/Lot information to Historical Snapshot for Sales and Inv…
jaymckinney May 6, 2024
38219d1
Changes after review
jaymckinney May 6, 2024
e4fbfa8
Merge branch 'main' into GPSnapshotSerialLotDetail
jaymckinney May 16, 2024
8006009
Merge changes from main and handle InitFromItemJnlLine change require…
jaymckinney May 16, 2024
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
81 changes: 59 additions & 22 deletions Apps/W1/DynamicsGPHistoricalData/app/Permissions/GPHistoricalTrx.permissionset.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,27 +5,64 @@ permissionset 40900 "GP Historical Trx."
Assignable = true;
Access = Public;
Caption = 'GP Historical Transactions';

Permissions = page "Hist. Gen. Journal Lines" = X,
page "Hist. G/L Account List" = X,
page "Hist. Inventory Trx." = X,
page "Hist. Inventory Trx. Headers" = X,
page "Hist. Inventory Trx. Lines" = X,
page "Hist. Payables Document" = X,
page "Hist. Payables Documents" = X,
page "Hist. Purchase Recv." = X,
page "Hist. Purchase Recv. Headers" = X,
page "Hist. Purchase Recv. Lines" = X,
page "Hist. Receivables Document" = X,
page "Hist. Receivables Documents" = X,
page "Hist. Sales Trx." = X,
page "Hist. Sales Trx. Headers" = X,
page "Hist. Sales Trx. Lines" = X,
page "Hist. Migration Step Status" = X,
page "Hist. Payables Apply" = X,
page "Hist. Payables Apply List" = X,
page "Hist. Payables Document List" = X,
page "Hist. Receivables Apply" = X,
page "Hist. Receivables Apply List" = X,
page "Hist. Recv. Document List" = X;
page "Hist. G/L Account List" = X,
page "Hist. Inventory Trx." = X,
page "Hist. Inventory Trx. Headers" = X,
page "Hist. Inventory Trx. Lines" = X,
page "Hist. Payables Document" = X,
page "Hist. Payables Documents" = X,
page "Hist. Purchase Recv." = X,
page "Hist. Purchase Recv. Headers" = X,
page "Hist. Purchase Recv. Lines" = X,
page "Hist. Receivables Document" = X,
page "Hist. Receivables Documents" = X,
page "Hist. Sales Trx." = X,
page "Hist. Sales Trx. Headers" = X,
page "Hist. Sales Trx. Lines" = X,
page "Hist. Migration Step Status" = X,
page "Hist. Payables Apply" = X,
page "Hist. Payables Apply List" = X,
page "Hist. Payables Document List" = X,
page "Hist. Receivables Apply" = X,
page "Hist. Receivables Apply List" = X,
page "Hist. Recv. Document List" = X,
tabledata "Hist. G/L Account" = RIMD,
tabledata "Hist. Gen. Journal Line" = RIMD,
tabledata "Hist. Inventory Trx. Header" = RIMD,
tabledata "Hist. Inventory Trx. Line" = RIMD,
tabledata "Hist. Invt. Trx. SerialLot" = RIMD,
tabledata "Hist. Migration Current Status" = RIMD,
tabledata "Hist. Migration Step Status" = RIMD,
tabledata "Hist. Payables Apply" = RIMD,
tabledata "Hist. Payables Document" = RIMD,
tabledata "Hist. Purchase Recv. Header" = RIMD,
tabledata "Hist. Purchase Recv. Line" = RIMD,
tabledata "Hist. Receivables Apply" = RIMD,
tabledata "Hist. Receivables Document" = RIMD,
tabledata "Hist. Recv. Trx. SerialLot" = RIMD,
tabledata "Hist. Sales Trx. Header" = RIMD,
tabledata "Hist. Sales Trx. Line" = RIMD,
table "Hist. G/L Account" = X,
table "Hist. Gen. Journal Line" = X,
table "Hist. Inventory Trx. Header" = X,
table "Hist. Inventory Trx. Line" = X,
table "Hist. Invt. Trx. SerialLot" = X,
table "Hist. Migration Current Status" = X,
table "Hist. Migration Step Status" = X,
table "Hist. Payables Apply" = X,
table "Hist. Payables Document" = X,
table "Hist. Purchase Recv. Header" = X,
table "Hist. Purchase Recv. Line" = X,
table "Hist. Receivables Apply" = X,
table "Hist. Receivables Document" = X,
table "Hist. Recv. Trx. SerialLot" = X,
table "Hist. Sales Trx. Header" = X,
table "Hist. Sales Trx. Line" = X,
codeunit "Hist. Migration Status Mgmt." = X,
codeunit "Hist. Page Navigation Handler" = X,
page "Hist. Invt. Trx. SerialLot" = X,
page "Hist. Invt. Trx. SerlLot. List" = X,
page "Hist. Recv. Trx. SerialLot" = X,
page "Hist. Recv. Trx. SerlLot. List" = X;
}
23 changes: 23 additions & 0 deletions Apps/W1/DynamicsGPHistoricalData/app/Permissions/d365FullAccessExt.permissionsetext.al
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,23 @@
namespace Microsoft.DataMigration.GP.HistoricalData;

using System.Security.AccessControl;

permissionsetextension 40901 "D365 Full Access Ext." extends "D365 FULL ACCESS"
{
Permissions = tabledata "Hist. Gen. Journal Line" = RIMD,
tabledata "Hist. G/L Account" = RIMD,
tabledata "Hist. Sales Trx. Header" = RIMD,
tabledata "Hist. Sales Trx. Line" = RIMD,
tabledata "Hist. Receivables Document" = RIMD,
tabledata "Hist. Payables Document" = RIMD,
tabledata "Hist. Inventory Trx. Header" = RIMD,
tabledata "Hist. Inventory Trx. Line" = RIMD,
tabledata "Hist. Purchase Recv. Header" = RIMD,
tabledata "Hist. Purchase Recv. Line" = RIMD,
tabledata "Hist. Migration Step Status" = RIMD,
tabledata "Hist. Migration Current Status" = RIMD,
tabledata "Hist. Payables Apply" = RIMD,
tabledata "Hist. Receivables Apply" = RIMD,
tabledata "Hist. Invt. Trx. SerialLot" = RIMD,
tabledata "Hist. Recv. Trx. SerialLot" = RIMD;
}
4 changes: 3 additions & 1 deletion Apps/W1/DynamicsGPHistoricalData/app/Permissions/d365basicext.permissionsetext.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -17,5 +17,7 @@ permissionsetextension 40900 "D365 Basic Ext." extends "D365 BASIC"
tabledata "Hist. Migration Step Status" = R,
tabledata "Hist. Migration Current Status" = R,
tabledata "Hist. Payables Apply" = R,
tabledata "Hist. Receivables Apply" = R;
tabledata "Hist. Receivables Apply" = R,
tabledata "Hist. Invt. Trx. SerialLot" = R,
tabledata "Hist. Recv. Trx. SerialLot" = R;
}
16 changes: 16 additions & 0 deletions Apps/W1/DynamicsGPHistoricalData/app/src/Codeunits/HistMigrationStatusMgmt.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -86,9 +86,25 @@ codeunit 40902 "Hist. Migration Status Mgmt."
HistInventoryTrxLine: Record "Hist. Inventory Trx. Line";
HistPurchaseRecvHeader: Record "Hist. Purchase Recv. Header";
HistPurchaseRecvLine: Record "Hist. Purchase Recv. Line";
HistPayablesApply: Record "Hist. Payables Apply";
HistReceivablesApply: Record "Hist. Receivables Apply";
HistInvtTrxSerialLot: Record "Hist. Invt. Trx. SerialLot";
HistRecvTrxSerialLot: Record "Hist. Recv. Trx. SerialLot";
begin
UpdateStepStatus("Hist. Migration Step Type"::"Resetting Data", false);

if not HistRecvTrxSerialLot.IsEmpty() then
BatchDeleteAll(Database::"Hist. Recv. Trx. SerialLot", HistRecvTrxSerialLot.FieldNo(HistRecvTrxSerialLot."Primary Key"));

if not HistInvtTrxSerialLot.IsEmpty() then
BatchDeleteAll(Database::"Hist. Invt. Trx. SerialLot", HistInvtTrxSerialLot.FieldNo(HistInvtTrxSerialLot."Primary Key"));

if not HistReceivablesApply.IsEmpty() then
BatchDeleteAll(Database::"Hist. Receivables Apply", HistReceivablesApply.FieldNo(HistReceivablesApply."Primary Key"));

if not HistPayablesApply.IsEmpty() then
BatchDeleteAll(Database::"Hist. Payables Apply", HistPayablesApply.FieldNo(HistPayablesApply."Primary Key"));

if not HistPurchaseRecvLine.IsEmpty() then
BatchDeleteAll(Database::"Hist. Purchase Recv. Line", HistPurchaseRecvLine.FieldNo(HistPurchaseRecvLine."Primary Key"));

Expand Down
11 changes: 11 additions & 0 deletions Apps/W1/DynamicsGPHistoricalData/app/src/Enums/HistInventoryQtyType.Enum.al
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,11 @@
namespace Microsoft.DataMigration.GP.HistoricalData;

enum 40908 "Hist. Inventory Qty. Type"
{
value(0; Unknown) { Caption = 'Unknown'; }
value(1; "On Hand") { Caption = 'On Hand'; }
value(2; Returned) { Caption = 'Returned'; }
value(3; "In Use") { Caption = 'In Use'; }
value(4; "In Service") { Caption = 'In Service'; }
value(5; Damaged) { Caption = 'Damaged'; }
}
9 changes: 0 additions & 9 deletions Apps/W1/DynamicsGPHistoricalData/app/src/Pages/HistInventoryTrxHeaders.Page.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -22,47 +22,38 @@ page 41012 "Hist. Inventory Trx. Headers"
{
field("Document No."; Rec."Document No.")
{
ApplicationArea = All;
ToolTip = 'Specifies the value of the Document No. field.';
}
field("Document Type"; Rec."Document Type")
{
ApplicationArea = All;
ToolTip = 'Specifies the value of the Document Type field.';
}
field("Document Date"; Rec."Document Date")
{
ApplicationArea = All;
ToolTip = 'Specifies the value of the Document Date field.';
}
field("Post Date"; Rec."Post Date")
{
ApplicationArea = All;
ToolTip = 'Specifies the value of the Post Date field.';
}
field("Batch No."; Rec."Batch No.")
{
ApplicationArea = All;
ToolTip = 'Specifies the value of the Batch No. field.';
}
field("Batch Source"; Rec."Batch Source")
{
ApplicationArea = All;
ToolTip = 'Specifies the value of the Batch Source field.';
}
field("Source Reference No."; Rec."Source Reference No.")
{
ApplicationArea = All;
ToolTip = 'Specifies the value of the Source Reference No. field.';
}
field("Source Indicator"; Rec."Source Indicator")
{
ApplicationArea = All;
ToolTip = 'Specifies the value of the Source Indicator field.';
}
field("Audit Code"; Rec."Audit Code")
{
ApplicationArea = All;
ToolTip = 'Specifies the value of the Audit Code field.';
}
}
Expand Down
20 changes: 10 additions & 10 deletions Apps/W1/DynamicsGPHistoricalData/app/src/Pages/HistInventoryTrxLines.Page.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -2,6 +2,8 @@ namespace Microsoft.DataMigration.GP.HistoricalData;

page 41011 "Hist. Inventory Trx. Lines"
{
ApplicationArea = All;
UsageCategory = None;
Caption = 'Historical Inventory Trx. Lines';
PageType = ListPart;
Editable = false;
Expand All @@ -19,52 +21,50 @@ page 41011 "Hist. Inventory Trx. Lines"
{
field("Customer No."; Rec."Customer No.")
{
ApplicationArea = All;
ToolTip = 'Specifies the value of the Customer No. field.';
}
field("Item No."; Rec."Item No.")
{
ApplicationArea = All;
ToolTip = 'Specifies the value of the Item No. field.';
}
field("Unit of Measure"; Rec."Unit of Measure")
{
ApplicationArea = All;
ToolTip = 'Specifies the value of the Unit of Measure field.';
}
field(Quantity; Rec.Quantity)
{
ApplicationArea = All;
ToolTip = 'Specifies the value of the Quantity field.';

trigger OnDrillDown()
var
HistInvtTrxSerlLotList: Page "Hist. Invt. Trx. SerlLot. List";
begin
HistInvtTrxSerlLotList.SetFilterInventoryTrxLine(Rec);
HistInvtTrxSerlLotList.Run();
end;
}
field("Unit Cost"; Rec."Unit Cost")
{
ApplicationArea = All;
ToolTip = 'Specifies the value of the Unit Cost field.';
}
field("Ext. Cost"; Rec."Ext. Cost")
{
ApplicationArea = All;
ToolTip = 'Specifies the value of the Ext. Cost field.';
}
field("Location Code"; Rec."Location Code")
{
ApplicationArea = All;
ToolTip = 'Specifies the value of the Location Code field.';
}
field("Transfer To Location Code"; Rec."Transfer To Location Code")
{
ApplicationArea = All;
ToolTip = 'Specifies the value of the Transfer To Location Code field.';
}
field("Reason Code"; Rec."Reason Code")
{
ApplicationArea = All;
ToolTip = 'Specifies the value of the Reason Code field.';
}
field("Source Description"; Rec."Source Description")
{
ApplicationArea = All;
ToolTip = 'Specifies the value of the Source Description field.';
}
}
Expand Down
83 changes: 83 additions & 0 deletions Apps/W1/DynamicsGPHistoricalData/app/src/Pages/HistInvtTrxSerialLot.Page.al
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,83 @@
namespace Microsoft.DataMigration.GP.HistoricalData;

page 041029 "Hist. Invt. Trx. SerialLot"
{
Caption = 'Historical Inventory Transaction Serial/Lot Detail';
PageType = Card;
ApplicationArea = All;
UsageCategory = None;
Editable = false;
DeleteAllowed = false;
InsertAllowed = false;
ModifyAllowed = false;
SourceTable = "Hist. Invt. Trx. SerialLot";
DataCaptionExpression = DataCaptionExpressionTxt;

layout
{
area(content)
{
group(General)
{
Caption = 'General';

field("Serial/Lot Number"; Rec."Serial/Lot Number")
{
ToolTip = 'Specifies the value of the Serial/Lot Number field.';
}
field("Serial/Lot Qty."; Rec."Serial/Lot Qty.")
{
ToolTip = 'Specifies the value of the Serial/Lot Qty. field.';
}
field("Item No."; Rec."Item No.")
{
ToolTip = 'Specifies the value of the Item No. field.';
}
field("Document No."; Rec."Document No.")
{
ToolTip = 'Specifies the value of the Document No. field.';
}
field("Document Type"; Rec."Document Type")
{
ToolTip = 'Specifies the value of the Document Type field.';
}
field("Line Sequence Number"; Rec."Line Sequence Number")
{
ToolTip = 'Specifies the value of the Line Sequence Number field.';
}
field("Serial/Lot Seq. Number"; Rec."Serial/Lot Seq. Number")
{
ToolTip = 'Specifies the value of the Serial/Lot Seq. Number field.';
}
field("From Bin"; Rec."From Bin")
{
ToolTip = 'Specifies the value of the From Bin field.';
}
field("To Bin"; Rec."To Bin")
{
ToolTip = 'Specifies the value of the To Bin field.';
}
field("Manufacture Date"; Rec."Manufacture Date")
{
ToolTip = 'Specifies the value of the Manufacture Date field.';
}
field("Expiration Date"; Rec."Expiration Date")
{
ToolTip = 'Specifies the value of the Expiration Date field.';
}
field("Audit Code"; Rec."Audit Code")
{
ToolTip = 'Specifies the value of the Audit Code field.';
}
}
}
}

trigger OnAfterGetCurrRecord()
begin
DataCaptionExpressionTxt := Rec."Item No." + ' - ' + Rec."Serial/Lot Number";
end;

var
DataCaptionExpressionTxt: Text;
}
Loading
Loading