Dynamics Community Forum Thread Details

New Procedure in Standard Event (Code Unit)

I wrote a code unit but I wonder whether my code overrides 3rd Vendor or standards event code

Or my code will works independently ?

[EventSubscriber(ObjectType::Table, database::/Vendor Ledger Entry/, 'OnAfterCopyVendLedgerEntryFromGenJnlLine', '', true, true)]
procedure TLC_InsertVendLed(VAR VendorLedgerEntry: Record /Vendor Ledger Entry/; GenJournalLine: Record /Gen. Journal Line/)
var

begin
IF GenJournalLine./TLC Employee Code/ <> '' THEN
VendorLedgerEntry./TLC Employee Code/ := GenJournalLine./TLC Employee Code/;

end;

[EventSubscriber(ObjectType::Table, Database::/Vendor Ledger Entry/, 'OnAfterCopyVendLedgerEntryFromCVLedgEntryBuffer', '', true, true)]
local procedure TLC_OnAfterCopyVendLedgerEntryFromCVLedgEntryBuffer(var VendorLedgerEntry: Record /Vendor Ledger Entry/; CVLedgerEntryBuffer: Record /CV Ledger Entry Buffer/)
begin
if CVLedgerEntryBuffer./TLC Employee Code/ <> '' then
VendorLedgerEntry./TLC Employee Code/ := CVLedgerEntryBuffer./TLC Employee Code/;
end;

[EventSubscriber(ObjectType::Table, Database::/Vendor Ledger Entry/, 'OnAfterCopyVendLedgerEntryFromGenJnlLine', '', true, true)]
local procedure TLC_OnAfterCopyVendLedgerEntryFromGenJnlLine(var VendorLedgerEntry: Record /Vendor Ledger Entry/; GenJournalLine: Record /Gen. Journal Line/)
begin
if GenJournalLine./TLC Employee Code/ <> '' then
VendorLedgerEntry./TLC Employee Code/ := GenJournalLine./TLC Employee Code/;
end;

Categories:

Business Central

Quick Links

Leaderboard