pageextension 50109 "Resource Ledger Entries Ext" extends "Resource Ledger Entries"
{
layout
{
addafter("Entry Type")
{
field(TestField; Rec.TestField)
{
ApplicationArea = All;
}
}
}
actions
{
addbefore("&Navigate")
{
action(PopulateTestField)
{
ApplicationArea = All;
trigger OnAction()
var
test: Codeunit Test;
begin
test.UpdateTestField(Rec."Entry No.");
end;
}
}
}
}
codeunit 50105 Test
{
Permissions = TableData "Res. Ledger Entry" = RMID;
procedure UpdateTestField(EntryNo: Integer)
var
ResLedgerEntry: Record "Res. Ledger Entry";
begin
if (ResLedgerEntry.Get(EntryNo)) then begin
ResLedgerEntry.TestField := ResLedgerEntry."Entry No.";
ResLedgerEntry.Modify();
end;
end;
}
tableextension 50109 "Res. Ledger Entry Ext" extends "Res. Ledger Entry"
{
fields
{
field(50100; TestField; Integer)
{
Caption = 'Test Field';
DataClassification = ToBeClassified;
}
}
}
pageextension 50109 "Resource Ledger Entries Ext" extends "Resource Ledger Entries"
{
layout
{
addafter("Entry Type")
{
field(TestField; Rec.TestField)
{
ApplicationArea = All;
}
}
}
actions
{
addbefore("&Navigate")
{
action(PopulateTestField)
{
ApplicationArea = All;
trigger OnAction()
var
ResLedgerEntry: Record "Res. Ledger Entry";
begin
if (ResLedgerEntry.Get(Rec."Entry No.")) then begin
ResLedgerEntry.TestField := ResLedgerEntry."Entry No.";
ResLedgerEntry.Modify();
end;
end;
}
}
}
}
Sohail Ahmed
1,452
YUN ZHU
1,313
Super User 2025 Season 1
Gerardo RenterÃa Ga...
1,083
Most Valuable Professional