Microsoft/bcquality
1
0
Fork 0
mirror of https://github.com/microsoft/BCQuality.git synced 2026-08-09 02:41:37 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add P0 event and interface compatibility knowledge (#98)

Browse source 
* Add P0 extensibility compatibility knowledge

Co-authored-by: Copilot App <223556219+Copilot@users.noreply.github.com>

Copilot-Session: 645349fd-1892-48f3-8a84-db77d6abd1c3

* Correct event compatibility guidance

Co-authored-by: Copilot App <223556219+Copilot@users.noreply.github.com>

Copilot-Session: 645349fd-1892-48f3-8a84-db77d6abd1c3

---------

Co-authored-by: Jesper Schulz-Wedde <jesper.schulzwedde@microsoft.com>
This commit is contained in:
Jesper Schulz-Wedde 2026-07-14 12:51:59 +02:00 • committed by GitHub
parent 078b869e33
commit 363f08f47e
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
19 changed files with 331 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

24
microsoft/knowledge/events/treat-local-and-internal-events-as-subscriber-contracts.good.al Normal file
View file

@ -0,0 +1,24 @@
// Demonstration-only AL. Version 1 had CustomerNo and var Score parameters.
codeunit 50520 "Customer Scoring Events"
{
procedure ScoreCustomer(CustomerNo: Code[20]; Reason: Text; var Score: Integer)
begin
OnCustomerScored(CustomerNo, Reason, Score);
end;
// Adding Reason between existing parameters preserves subscriber bindings.
[IntegrationEvent(false, false)]
local procedure OnCustomerScored(CustomerNo: Code[20]; Reason: Text; var Score: Integer)
begin
end;
}
codeunit 50522 "Existing Scoring Subscriber"
{
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Customer Scoring Events", 'OnCustomerScored', '', false, false)]
local procedure OnCustomerScored(CustomerNo: Code[20]; var Score: Integer)
begin
if CustomerNo = '' then
Score := 0;
end;
}