bcquality/microsoft/knowledge/events/publish-thin-onbefore-onafter-integration-events.good.al

// Demonstration-only AL. Not compiled by CI; illustrates the article.
table 50224 "Reservation Entry Sample"
{
    fields
    {
        field(1; "Entry No."; Integer) { }
        field(2; "Item No."; Code[20]) { }
        field(3; Quantity; Decimal) { }
        field(4; Reserved; Boolean) { }
    }
    keys
    {
        key(PK; "Entry No.") { Clustered = true; }
    }
}

codeunit 50225 "Reservation Post Good Sample"
{
    procedure Reserve(var ReservationEntry: Record "Reservation Entry Sample")
    var
        IsHandled: Boolean;
    begin
        IsHandled := false;
        OnBeforeReserve(ReservationEntry, IsHandled);
        if not IsHandled then begin
            ReservationEntry.Reserved := true;
            ReservationEntry.Modify(true);
        end;

        // OnAfter reports completion whether a subscriber or the base body handled it.
        OnAfterReserve(ReservationEntry);
    end;

    // Thin publishers: empty bodies, the calling routine owns the logic.
    [IntegrationEvent(false, false)]
    local procedure OnBeforeReserve(var ReservationEntry: Record "Reservation Entry Sample"; var IsHandled: Boolean)
    begin
    end;

    [IntegrationEvent(false, false)]
    local procedure OnAfterReserve(var ReservationEntry: Record "Reservation Entry Sample")
    begin
    end;
}