Hooking Business Logic with AL Event Subscribers

Back to all nuggets
Business Central (AL) al

Published on July 14, 2026

Code Snippet

codeunit 50100 "Loyalty Events"
{
    [EventSubscriber(ObjectType::Table, Database::"Sales Header",
        'OnAfterValidateEvent', 'Sell-to Customer No.', true, true)]
    local procedure OnValidateCustomer(var Rec: Record "Sales Header")
    var
        Cust: Record Customer;
    begin
        if Cust.Get(Rec."Sell-to Customer No.") then
            if Cust."Loyalty Points" > 1000 then
                Message('VIP customer: apply loyalty discount.');
    end;
}

Lorem ipsum dolor sit amet, consectetur adipiscing elit. Sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat.

Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum. Lorem ipsum dolor sit amet, consectetur adipiscing elit.

Sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat.

Premium Content Locked

Subscribe to unlock the full article, detailed explanations, and downloadable resources.

Subscribe to Read Full

Love this nugget?

Support our work to get exclusive premium nuggets and early access via a personal activation link.

Support Now & Unlock Exclusive Content