Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
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
Original file line number Diff line number Diff line change
Expand Up @@ -43,6 +43,7 @@ permissionset 40900 "GP Historical Trx."
tabledata "Hist. Recv. Trx. SerialLot" = RIMD,
tabledata "Hist. Sales Trx. Header" = RIMD,
tabledata "Hist. Sales Trx. Line" = RIMD,
tabledata "Hist. Payroll Details" = I,
table "Hist. G/L Account" = X,
table "Hist. Gen. Journal Line" = X,
table "Hist. Inventory Trx. Header" = X,
Expand All @@ -59,6 +60,7 @@ permissionset 40900 "GP Historical Trx."
table "Hist. Recv. Trx. SerialLot" = X,
table "Hist. Sales Trx. Header" = X,
table "Hist. Sales Trx. Line" = X,
table "Hist. Payroll Details" = X,
codeunit "Hist. Migration Status Mgmt." = X,
codeunit "Hist. Page Navigation Handler" = X,
page "Hist. Invt. Trx. SerialLot" = X,
Expand Down
Original file line number Diff line number Diff line change
@@ -0,0 +1,10 @@
namespace Microsoft.DataMigration.GP.HistoricalData;

permissionset 40901 "GP Payroll Detail"
{
Assignable = true;
Access = Public;
Caption = 'GP Historical Payroll Details', MaxLength = 30;
Permissions = tabledata "Hist. Payroll Details" = R,
page "Hist. Payroll Details" = X;
}
Original file line number Diff line number Diff line change
Expand Up @@ -19,5 +19,6 @@ permissionsetextension 40901 "D365 Full Access Ext." extends "D365 FULL ACCESS"
tabledata "Hist. Payables Apply" = RIMD,
tabledata "Hist. Receivables Apply" = RIMD,
tabledata "Hist. Invt. Trx. SerialLot" = RIMD,
tabledata "Hist. Recv. Trx. SerialLot" = RIMD;
tabledata "Hist. Recv. Trx. SerialLot" = RIMD,
tabledata "Hist. Payroll Details" = I;
}
Original file line number Diff line number Diff line change
Expand Up @@ -138,6 +138,29 @@ page 41001 "Hist. Gen. Journal Lines"
HistPageNavigationHandler.NavigateToTransactionDetail(Rec);
end;
}
action(ViewPayrollDetails)
{
ApplicationArea = All;
Caption = 'View Payroll Details';
ToolTip = 'View the payroll details for this transaction.';
Promoted = true;
PromotedCategory = Process;
PromotedOnly = true;
Image = View;
Visible = HasAccessablePayrollDetails;

trigger OnAction()
var
HistPayrollDetailsRec: Record "Hist. Payroll Details";
HistPayrollDetailsPage: Page "Hist. Payroll Details";
begin
if HistPayrollDetailsRec.Get(Rec."Primary Key") then begin
HistPayrollDetailsPage.SetRecord(HistPayrollDetailsRec);
HistPayrollDetailsPage.RunModal();
end else
Error(RecordNotFoundErr);
end;
}
}
}

Expand All @@ -150,6 +173,18 @@ page 41001 "Hist. Gen. Journal Lines"
Rec.SetRange("Orig. Trx. Source No.", FilterOriginatingTrxSourceNo);
end;

trigger OnAfterGetCurrRecord()
var
HistPayrollDetails: Record "Hist. Payroll Details";
begin
HasAccessablePayrollDetails := false;

if HistPayrollDetails.ReadPermission() then begin
HistPayrollDetails.SetRange("Hist. Gen. Journal Line Key", Rec."Primary Key");
HasAccessablePayrollDetails := (not HistPayrollDetails.IsEmpty());
end;
end;

procedure SetFilterAccountNo(AccountNo: Code[130])
begin
FilterAccountNo := AccountNo;
Expand All @@ -163,4 +198,6 @@ page 41001 "Hist. Gen. Journal Lines"
var
FilterAccountNo: Code[130];
FilterOriginatingTrxSourceNo: Code[35];
HasAccessablePayrollDetails: Boolean;
RecordNotFoundErr: Label 'Record could not be found!';
}
Original file line number Diff line number Diff line change
Expand Up @@ -103,7 +103,7 @@ page 41010 "Hist. Inventory Trx."
HistGenJournalLines: Page "Hist. Gen. Journal Lines";
begin
HistGenJournalLines.SetFilterOriginatingTrxSourceNo(Rec."Audit Code");
HistGenJournalLines.Run();
HistGenJournalLines.RunModal();
end;
}
}
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -214,10 +214,13 @@ page 41008 "Hist. Payables Document"

trigger OnAction()
var
HistGenJournalLine: Record "Hist. Gen. Journal Line";
HistGenJournalLines: Page "Hist. Gen. Journal Lines";
begin
HistGenJournalLines.SetFilterOriginatingTrxSourceNo(Rec."Audit Code");
HistGenJournalLines.Run();
HistGenJournalLine.SetRange("Orig. Trx. Source No.", Rec."Audit Code");
HistGenJournalLine.SetRange("Orig. Document No.", Rec."Document No.");
HistGenJournalLines.SetTableView(HistGenJournalLine);
HistGenJournalLines.RunModal();
end;
}
}
Expand Down
Original file line number Diff line number Diff line change
@@ -0,0 +1,38 @@
namespace Microsoft.DataMigration.GP.HistoricalData;

page 41031 "Hist. Payroll Details"
{
ApplicationArea = All;
Caption = 'Historical Gen. Journal Line Payroll Details';
PageType = Card;
SourceTable = "Hist. Payroll Details";
UsageCategory = None;
Editable = false;
DeleteAllowed = false;
InsertAllowed = false;
ModifyAllowed = false;

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

field("Orig. Document No."; Rec."Orig. Document No.")
{
ToolTip = 'Specifies the value of the Orig. Document No. field.';
}
field("Source No."; Rec."Source No.")
{
ToolTip = 'Specifies the value of the Source No. field.';
}
field("Source Name"; Rec."Source Name")
{
ToolTip = 'Specifies the value of the Source Name field.';
}
}
}
}
}
Original file line number Diff line number Diff line change
Expand Up @@ -203,7 +203,7 @@ page 41013 "Hist. Purchase Recv."
HistGenJournalLines: Page "Hist. Gen. Journal Lines";
begin
HistGenJournalLines.SetFilterOriginatingTrxSourceNo(Rec."Audit Code");
HistGenJournalLines.Run();
HistGenJournalLines.RunModal();
end;
}
}
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -204,10 +204,13 @@ page 41006 "Hist. Receivables Document"

trigger OnAction()
var
HistGenJournalLine: Record "Hist. Gen. Journal Line";
HistGenJournalLines: Page "Hist. Gen. Journal Lines";
begin
HistGenJournalLines.SetFilterOriginatingTrxSourceNo(Rec."Audit Code");
HistGenJournalLines.Run();
HistGenJournalLine.SetRange("Orig. Trx. Source No.", Rec."Audit Code");
HistGenJournalLine.SetRange("Orig. Document No.", Rec."Document No.");
HistGenJournalLines.SetTableView(HistGenJournalLine);
HistGenJournalLines.RunModal();
end;
}
}
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -217,7 +217,7 @@ page 41007 "Hist. Sales Trx."
HistGenJournalLines: Page "Hist. Gen. Journal Lines";
begin
HistGenJournalLines.SetFilterOriginatingTrxSourceNo(Rec."Audit Code");
HistGenJournalLines.Run();
HistGenJournalLines.RunModal();
end;
}
}
Expand Down
Original file line number Diff line number Diff line change
@@ -0,0 +1,34 @@
namespace Microsoft.DataMigration.GP.HistoricalData;

table 40917 "Hist. Payroll Details"
{
Caption = 'Hist. Payroll Details';
DataClassification = CustomerContent;

fields
{
field(1; "Hist. Gen. Journal Line Key"; Integer)
{
Caption = 'Hist. Gen. Journal Line Key';
}
field(2; "Orig. Document No."; Text[35])
{
Caption = 'Orig. Document No.';
}
field(3; "Source No."; Text[35])
{
Caption = 'Source No.';
}
field(4; "Source Name"; Text[50])
{
Caption = 'Source Name';
}
}
keys
{
key(PK; "Hist. Gen. Journal Line Key")
{
Clustered = true;
}
}
}
Original file line number Diff line number Diff line change
Expand Up @@ -116,5 +116,7 @@ permissionset 4031 "HybridGP - Edit"
tabledata "GP IV00104" = IMD,
tabledata "GP PM00101" = IMD,
tabledata "GP PM00203" = IMD,
tabledata "GP PO Validation Buffer" = IMD;
tabledata "GP PO Validation Buffer" = IMD,
tabledata "GP GL00103" = IMD,
tabledata "GP GL00104" = IMD;
}
Original file line number Diff line number Diff line change
Expand Up @@ -143,5 +143,7 @@ permissionset 4029 "HybridGP - Objects"
table "GP PM00101" = X,
table "GP PM00203" = X,
table "GP PO Validation Buffer" = X,
codeunit "GP Migration Validator" = X;
codeunit "GP Migration Validator" = X,
table "GP GL00103" = X,
table "GP GL00104" = X;
}
Original file line number Diff line number Diff line change
Expand Up @@ -116,5 +116,7 @@ permissionset 4032 "HybridGP - Read"
tabledata "GP IV00104" = R,
tabledata "GP PM00101" = R,
tabledata "GP PM00203" = R,
tabledata "GP PO Validation Buffer" = R;
tabledata "GP PO Validation Buffer" = R,
tabledata "GP GL00103" = R,
tabledata "GP GL00104" = R;
}
Original file line number Diff line number Diff line change
Expand Up @@ -114,5 +114,7 @@ permissionsetextension 4028 "INTELLIGENT CLOUD - HGP" extends "INTELLIGENT CLOUD
tabledata "GP IV00104" = RIMD,
tabledata "GP PM00101" = RIMD,
tabledata "GP PM00203" = RIMD,
tabledata "GP PO Validation Buffer" = RIMD;
tabledata "GP PO Validation Buffer" = RIMD,
tabledata "GP GL00103" = RIMD,
tabledata "GP GL00104" = RIMD;
}
Original file line number Diff line number Diff line change
Expand Up @@ -113,5 +113,7 @@ permissionsetextension 4025 "D365 BASIC - HGP" extends "D365 BASIC"
tabledata "GP IV00104" = RIMD,
tabledata "GP PM00101" = RIMD,
tabledata "GP PM00203" = RIMD,
tabledata "GP PO Validation Buffer" = RIMD;
tabledata "GP PO Validation Buffer" = RIMD,
tabledata "GP GL00103" = RIMD,
tabledata "GP GL00104" = RIMD;
}
Original file line number Diff line number Diff line change
Expand Up @@ -113,5 +113,7 @@ permissionsetextension 4026 "D365 BASIC ISV - HGP" extends "D365 BASIC ISV"
tabledata "GP IV00104" = RIMD,
tabledata "GP PM00101" = RIMD,
tabledata "GP PM00203" = RIMD,
tabledata "GP PO Validation Buffer" = RIMD;
tabledata "GP PO Validation Buffer" = RIMD,
tabledata "GP GL00103" = RIMD,
tabledata "GP GL00104" = RIMD;
}
Original file line number Diff line number Diff line change
Expand Up @@ -113,5 +113,7 @@ permissionsetextension 4027 "D365 TEAM MEMBER - HGP" extends "D365 TEAM MEMBER"
tabledata "GP IV00104" = RIMD,
tabledata "GP PM00101" = RIMD,
tabledata "GP PM00203" = RIMD,
tabledata "GP PO Validation Buffer" = RIMD;
tabledata "GP PO Validation Buffer" = RIMD,
tabledata "GP GL00103" = RIMD,
tabledata "GP GL00104" = RIMD;
}
10 changes: 10 additions & 0 deletions Apps/W1/HybridGP/app/src/Migration/Accounts/GPAccount.table.al
Original file line number Diff line number Diff line change
Expand Up @@ -102,6 +102,16 @@ table 4090 "GP Account"
{
DataClassification = SystemMetadata;
}
field(102; "Sub Type"; Option)
{
DataClassification = SystemMetadata;
OptionMembers = "Standard","Fixed","Variable";
}
field(103; "Balance For Calculation"; Option)
{
DataClassification = SystemMetadata;
OptionMembers = "YTD","Period";
}
}

keys
Expand Down
Loading
Loading