Page 9241 G/L Entries Dim. Overv. Matrix
- App
- Base Application
- Namespace
- Microsoft.Finance.Analysis
- Versions
- 17-28
- Source table
- 17
Versions171819202122232425262728
Source29
Source in 29
src/Layers/W1/BaseApp/Finance/Analysis/GLEntriesDimOvervMatrix.Page.al779 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.Finance.Analysis;
using Microsoft.Finance.Dimension;
using Microsoft.Finance.GeneralLedger.Account;
using Microsoft.Finance.GeneralLedger.Ledger;
using Microsoft.Foundation.Navigate;
/// <summary>
/// Matrix page displaying G/L entries organized by dimensional overview with configurable column perspectives.
/// Provides interactive matrix view of G/L entry data filtered by dimensions with drill-down and navigation capabilities.
/// </summary>
page 9241 "G/L Entries Dim. Overv. Matrix"
{
Caption = 'G/L Entries Dim. Overv. Matrix';
DataCaptionExpression = GetCaption();
DeleteAllowed = false;
InsertAllowed = false;
LinksAllowed = false;
PageType = List;
SourceTable = "G/L Entry";
layout
{
area(content)
{
repeater(Control1)
{
Editable = false;
ShowCaption = false;
field("Posting Date"; Rec."Posting Date")
{
ApplicationArea = Suite;
}
field("Document Type"; Rec."Document Type")
{
ApplicationArea = Suite;
}
field("Document No."; Rec."Document No.")
{
ApplicationArea = Suite;
}
field("G/L Account No."; Rec."G/L Account No.")
{
ApplicationArea = Suite;
}
field(Description; Rec.Description)
{
ApplicationArea = Suite;
}
field(Amount; Rec.Amount)
{
ApplicationArea = Suite;
}
field("Debit Amount"; Rec."Debit Amount")
{
ApplicationArea = Suite;
Visible = false;
}
field("Credit Amount"; Rec."Credit Amount")
{
ApplicationArea = Suite;
Visible = false;
}
field("Entry No."; Rec."Entry No.")
{
ApplicationArea = Suite;
}
field(Field1; MATRIX_CellData[1])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[1];
Visible = Field1Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(1);
MATRIX_OnLookup();
end;
}
field(Field2; MATRIX_CellData[2])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[2];
Visible = Field2Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(2);
MATRIX_OnLookup();
end;
}
field(Field3; MATRIX_CellData[3])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[3];
Visible = Field3Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(3);
MATRIX_OnLookup();
end;
}
field(Field4; MATRIX_CellData[4])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[4];
Visible = Field4Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(4);
MATRIX_OnLookup();
end;
}
field(Field5; MATRIX_CellData[5])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[5];
Visible = Field5Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(5);
MATRIX_OnLookup();
end;
}
field(Field6; MATRIX_CellData[6])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[6];
Visible = Field6Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(6);
MATRIX_OnLookup();
end;
}
field(Field7; MATRIX_CellData[7])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[7];
Visible = Field7Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(7);
MATRIX_OnLookup();
end;
}
field(Field8; MATRIX_CellData[8])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[8];
Visible = Field8Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(8);
MATRIX_OnLookup();
end;
}
field(Field9; MATRIX_CellData[9])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[9];
Visible = Field9Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(9);
MATRIX_OnLookup();
end;
}
field(Field10; MATRIX_CellData[10])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[10];
Visible = Field10Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(10);
MATRIX_OnLookup();
end;
}
field(Field11; MATRIX_CellData[11])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[11];
Visible = Field11Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(11);
MATRIX_OnLookup();
end;
}
field(Field12; MATRIX_CellData[12])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[12];
Visible = Field12Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(12);
MATRIX_OnLookup();
end;
}
field(Field13; MATRIX_CellData[13])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[13];
Visible = Field13Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(13);
MATRIX_OnLookup();
end;
}
field(Field14; MATRIX_CellData[14])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[14];
Visible = Field14Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(14);
MATRIX_OnLookup();
end;
}
field(Field15; MATRIX_CellData[15])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[15];
Visible = Field15Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(15);
MATRIX_OnLookup();
end;
}
field(Field16; MATRIX_CellData[16])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[16];
Visible = Field16Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(16);
MATRIX_OnLookup();
end;
}
field(Field17; MATRIX_CellData[17])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[17];
Visible = Field17Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(17);
MATRIX_OnLookup();
end;
}
field(Field18; MATRIX_CellData[18])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[18];
Visible = Field18Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(18);
MATRIX_OnLookup();
end;
}
field(Field19; MATRIX_CellData[19])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[19];
Visible = Field19Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(19);
MATRIX_OnLookup();
end;
}
field(Field20; MATRIX_CellData[20])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[20];
Visible = Field20Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(20);
MATRIX_OnLookup();
end;
}
field(Field21; MATRIX_CellData[21])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[21];
Visible = Field21Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(21);
MATRIX_OnLookup();
end;
}
field(Field22; MATRIX_CellData[22])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[22];
Visible = Field22Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(22);
MATRIX_OnLookup();
end;
}
field(Field23; MATRIX_CellData[23])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[23];
Visible = Field23Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(23);
MATRIX_OnLookup();
end;
}
field(Field24; MATRIX_CellData[24])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[24];
Visible = Field24Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(24);
MATRIX_OnLookup();
end;
}
field(Field25; MATRIX_CellData[25])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[25];
Visible = Field25Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(25);
MATRIX_OnLookup();
end;
}
field(Field26; MATRIX_CellData[26])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[26];
Visible = Field26Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(26);
MATRIX_OnLookup();
end;
}
field(Field27; MATRIX_CellData[27])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[27];
Visible = Field27Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(27);
MATRIX_OnLookup();
end;
}
field(Field28; MATRIX_CellData[28])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[28];
Visible = Field28Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(28);
MATRIX_OnLookup();
end;
}
field(Field29; MATRIX_CellData[29])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[29];
Visible = Field29Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(29);
MATRIX_OnLookup();
end;
}
field(Field30; MATRIX_CellData[30])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[30];
Visible = Field30Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(30);
MATRIX_OnLookup();
end;
}
field(Field31; MATRIX_CellData[31])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[31];
Visible = Field31Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(31);
MATRIX_OnLookup();
end;
}
field(Field32; MATRIX_CellData[32])
{
ApplicationArea = All;
CaptionClass = '3,' + MATRIX_ColumnCaptions[32];
Visible = Field32Visible;
trigger OnLookup(var Text: Text): Boolean
begin
MATRIX_UpdateMatrixRecord(32);
MATRIX_OnLookup();
end;
}
}
}
}
actions
{
area(navigation)
{
group(Entry)
{
Caption = 'Entry';
Image = Entry;
action(Dimensions)
{
AccessByPermission = TableData Dimension = R;
ApplicationArea = Dimensions;
Caption = 'Dimensions';
Image = Dimensions;
ShortCutKey = 'Alt+D';
ToolTip = 'View or edit dimensions, such as area, project, or department, that you can assign to sales and purchase documents to distribute costs and analyze transaction history.';
trigger OnAction()
begin
Rec.ShowDimensions();
end;
}
}
}
area(processing)
{
action("<Action16>")
{
ApplicationArea = Suite;
Caption = 'Find entries...';
Image = Navigate;
ShortCutKey = 'Ctrl+Alt+Q';
ToolTip = 'Find entries and documents that exist for the document number and posting date on the selected document. (Formerly this action was named Navigate.)';
trigger OnAction()
begin
Navigate.SetDoc(Rec."Posting Date", Rec."Document No.");
Navigate.Run();
end;
}
}
area(Promoted)
{
group(Category_Process)
{
Caption = 'Process';
actionref("<Action16>_Promoted"; "<Action16>")
{
}
group(Category_Entry)
{
Caption = 'Entry';
actionref(Dimensions_Promoted; Dimensions)
{
}
}
}
}
}
trigger OnAfterGetRecord()
var
MATRIX_Steps: Integer;
begin
MATRIX_CurrentColumnOrdinal := 0;
if MATRIX_PKFirstCaptionInSet <> '' then
MatrixRecord.SetPosition(MATRIX_PKFirstCaptionInSet);
if MATRIX_OnFindRecord('=') then begin
MATRIX_CurrentColumnOrdinal := 1;
repeat
MATRIX_OnAfterGetRecord();
MATRIX_Steps := MATRIX_OnNextRecord(1);
MATRIX_CurrentColumnOrdinal := MATRIX_CurrentColumnOrdinal + MATRIX_Steps;
until (MATRIX_CurrentColumnOrdinal - MATRIX_Steps = MATRIX_NoOfMatrixColumns) or (MATRIX_Steps = 0);
if MATRIX_CurrentColumnOrdinal <> 1 then begin
MATRIX_OnNextRecord(1 - MATRIX_CurrentColumnOrdinal);
MATRIX_CurrentColumnOrdinal := 1;
end;
end;
MATRIX_CurrentColumnOrdinal := MATRIX_CurrentColumnOrdinal;
end;
trigger OnFindRecord(Which: Text): Boolean
var
Found: Boolean;
begin
if RunOnTempRec then begin
TempGLEntry := Rec;
Found := TempGLEntry.Find(Which);
if Found then
Rec := TempGLEntry;
exit(Found);
end;
exit(Rec.Find(Which));
end;
trigger OnInit()
begin
Field32Visible := true;
Field31Visible := true;
Field30Visible := true;
Field29Visible := true;
Field28Visible := true;
Field27Visible := true;
Field26Visible := true;
Field25Visible := true;
Field24Visible := true;
Field23Visible := true;
Field22Visible := true;
Field21Visible := true;
Field20Visible := true;
Field19Visible := true;
Field18Visible := true;
Field17Visible := true;
Field16Visible := true;
Field15Visible := true;
Field14Visible := true;
Field13Visible := true;
Field12Visible := true;
Field11Visible := true;
Field10Visible := true;
Field9Visible := true;
Field8Visible := true;
Field7Visible := true;
Field6Visible := true;
Field5Visible := true;
Field4Visible := true;
Field3Visible := true;
Field2Visible := true;
Field1Visible := true;
end;
trigger OnNextRecord(Steps: Integer): Integer
var
ResultSteps: Integer;
begin
if RunOnTempRec then begin
TempGLEntry := Rec;
ResultSteps := TempGLEntry.Next(Steps);
if ResultSteps <> 0 then
Rec := TempGLEntry;
exit(ResultSteps);
end;
exit(Rec.Next(Steps));
end;
trigger OnOpenPage()
begin
MATRIX_NoOfMatrixColumns := ArrayLen(MATRIX_CellData);
SetColumnVisibility();
end;
var
GLAcc: Record "G/L Account";
TempGLEntry: Record "G/L Entry" temporary;
DimSetEntry: Record "Dimension Set Entry";
MatrixRecord: Record Dimension;
Navigate: Page Navigate;
RunOnTempRec: Boolean;
MATRIX_NoOfMatrixColumns: Integer;
MATRIX_CellData: array[32] of Text[80];
MATRIX_CurrentColumnOrdinal: Integer;
Field1Visible: Boolean;
Field2Visible: Boolean;
Field3Visible: Boolean;
Field4Visible: Boolean;
Field5Visible: Boolean;
Field6Visible: Boolean;
Field7Visible: Boolean;
Field8Visible: Boolean;
Field9Visible: Boolean;
Field10Visible: Boolean;
Field11Visible: Boolean;
Field12Visible: Boolean;
Field13Visible: Boolean;
Field14Visible: Boolean;
Field15Visible: Boolean;
Field16Visible: Boolean;
Field17Visible: Boolean;
Field18Visible: Boolean;
Field19Visible: Boolean;
Field20Visible: Boolean;
Field21Visible: Boolean;
Field22Visible: Boolean;
Field23Visible: Boolean;
Field24Visible: Boolean;
Field25Visible: Boolean;
Field26Visible: Boolean;
Field27Visible: Boolean;
Field28Visible: Boolean;
Field29Visible: Boolean;
Field30Visible: Boolean;
Field31Visible: Boolean;
Field32Visible: Boolean;
protected var
MATRIX_ColumnCaptions: array[32] of Text[80];
MATRIX_PKFirstCaptionInSet: Text;
MATRIX_CurrSetLength: Integer;
local procedure GetCaption(): Text[250]
begin
if GLAcc."No." <> Rec."G/L Account No." then
GLAcc.Get(Rec."G/L Account No.");
exit(StrSubstNo('%1 %2', GLAcc."No.", GLAcc.Name));
end;
local procedure MATRIX_UpdateMatrixRecord(MATRIX_NewColumnOrdinal: Integer)
begin
MATRIX_CurrentColumnOrdinal := MATRIX_NewColumnOrdinal;
MatrixRecord.SetPosition(MATRIX_PKFirstCaptionInSet);
MATRIX_OnFindRecord('=');
MATRIX_OnNextRecord(MATRIX_NewColumnOrdinal - 1);
end;
local procedure MATRIX_OnAfterGetRecord()
begin
if not DimSetEntry.Get(Rec."Dimension Set ID", MatrixRecord.Code)
then begin
DimSetEntry.Init();
DimSetEntry."Dimension Code" := MatrixRecord.Code;
end;
MATRIX_CellData[MATRIX_CurrentColumnOrdinal] := Format(DimSetEntry."Dimension Value Code");
end;
local procedure MATRIX_OnFindRecord(Which: Text[1024]): Boolean
begin
exit(MatrixRecord.Find(Which));
end;
local procedure MATRIX_OnNextRecord(Steps: Integer): Integer
begin
exit(MatrixRecord.Next(Steps));
end;
/// <summary>
/// Loads matrix configuration with captions and positioning for dimensional overview display.
/// Initializes the matrix page with column captions, set positioning, and length parameters for dimensional analysis.
/// </summary>
/// <param name="NewMATRIX_Captions">Array of column captions for matrix display</param>
/// <param name="PKFirstCaptionInSet">Primary key caption for first column positioning</param>
/// <param name="LengthOfCurrSet">Number of active columns in current matrix set</param>
procedure Load(NewMATRIX_Captions: array[32] of Text[80]; PKFirstCaptionInSet: Text; LengthOfCurrSet: Integer)
begin
CopyArray(MATRIX_ColumnCaptions, NewMATRIX_Captions, 1);
MATRIX_PKFirstCaptionInSet := PKFirstCaptionInSet;
MATRIX_CurrSetLength := LengthOfCurrSet;
end;
local procedure MATRIX_OnLookup()
var
DimVal: Record "Dimension Value";
begin
DimVal.SetRange("Dimension Code", MatrixRecord.Code);
DimVal."Dimension Code" := DimSetEntry."Dimension Code";
DimVal.Code := DimSetEntry."Dimension Value Code";
PAGE.RunModal(PAGE::"Dimension Value List", DimVal);
end;
/// <summary>
/// Configures the matrix to use temporary G/L entry records for analysis.
/// Loads a temporary record set for dimensional analysis when working with filtered or processed G/L entries.
/// </summary>
/// <param name="NewGLEntry">G/L Entry record set to load into temporary table</param>
procedure SetTempGLEntry(var NewGLEntry: Record "G/L Entry")
begin
RunOnTempRec := true;
TempGLEntry.DeleteAll();
if NewGLEntry.Find('-') then
repeat
TempGLEntry := NewGLEntry;
TempGLEntry.Insert();
until NewGLEntry.Next() = 0;
end;
/// <summary>
/// Configures visibility of matrix columns based on current set length.
/// Controls which matrix field columns are displayed based on the number of active columns in the current dimensional view.
/// </summary>
procedure SetColumnVisibility()
begin
Field1Visible := MATRIX_CurrSetLength >= 1;
Field2Visible := MATRIX_CurrSetLength >= 2;
Field3Visible := MATRIX_CurrSetLength >= 3;
Field4Visible := MATRIX_CurrSetLength >= 4;
Field5Visible := MATRIX_CurrSetLength >= 5;
Field6Visible := MATRIX_CurrSetLength >= 6;
Field7Visible := MATRIX_CurrSetLength >= 7;
Field8Visible := MATRIX_CurrSetLength >= 8;
Field9Visible := MATRIX_CurrSetLength >= 9;
Field10Visible := MATRIX_CurrSetLength >= 10;
Field11Visible := MATRIX_CurrSetLength >= 11;
Field12Visible := MATRIX_CurrSetLength >= 12;
Field13Visible := MATRIX_CurrSetLength >= 13;
Field14Visible := MATRIX_CurrSetLength >= 14;
Field15Visible := MATRIX_CurrSetLength >= 15;
Field16Visible := MATRIX_CurrSetLength >= 16;
Field17Visible := MATRIX_CurrSetLength >= 17;
Field18Visible := MATRIX_CurrSetLength >= 18;
Field19Visible := MATRIX_CurrSetLength >= 19;
Field20Visible := MATRIX_CurrSetLength >= 20;
Field21Visible := MATRIX_CurrSetLength >= 21;
Field22Visible := MATRIX_CurrSetLength >= 22;
Field23Visible := MATRIX_CurrSetLength >= 23;
Field24Visible := MATRIX_CurrSetLength >= 24;
Field25Visible := MATRIX_CurrSetLength >= 25;
Field26Visible := MATRIX_CurrSetLength >= 26;
Field27Visible := MATRIX_CurrSetLength >= 27;
Field28Visible := MATRIX_CurrSetLength >= 28;
Field29Visible := MATRIX_CurrSetLength >= 29;
Field30Visible := MATRIX_CurrSetLength >= 30;
Field31Visible := MATRIX_CurrSetLength >= 31;
Field32Visible := MATRIX_CurrSetLength >= 32;
end;
}