Announcements
No record found.
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; } } } }
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; }
Under review
Thank you for your reply! To ensure a great experience for everyone, your content is awaiting approval by our Community Managers. Please check back later.
Congratulations to our community stars!
Expanding mentorship, skilling, and AI innovation
These are the community rock stars!
Stay up to date on forum activity by subscribing.
OussamaSabbouh 711 Super User 2026 Season 2
Teagen Boll 377 Super User 2026 Season 2
AndrewThomas81 367 Super User 2026 Season 2