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

Add P0 extensibility compatibility knowledge

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

Copilot-Session: 645349fd-1892-48f3-8a84-db77d6abd1c3
This commit is contained in:
Jesper Schulz-Wedde 2026-07-14 11:43:55 +02:00
parent 9214f73819
commit 23af51e02d
18 changed files with 307 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

36
microsoft/knowledge/interfaces/handle-unknown-enum-ordinals-with-unknownvalueimplementation.bad.al Normal file
View file

@ -0,0 +1,36 @@
// Demonstration-only AL. A removed enum-extension value left ordinal 700 in data.
enum 50503 "Delivery Method Bad" implements "I Delivery Method Bad"
{
Extensible = true;
DefaultImplementation = "I Delivery Method Bad" = "Default Delivery Method Bad";
value(0; Default)
{
}
}
interface "I Delivery Method Bad"
{
procedure Deliver();
}
codeunit 50504 "Default Delivery Method Bad" implements "I Delivery Method Bad"
{
procedure Deliver()
begin
end;
}
codeunit 50505 "Delivery Dispatch Bad"
{
procedure DeliverPersistedValue()
var
DeliveryMethod: Enum "Delivery Method Bad";
Delivery: Interface "I Delivery Method Bad";
begin
DeliveryMethod := 700;
// DefaultImplementation does not handle an ordinal that is not declared.
Delivery := DeliveryMethod;
Delivery.Deliver();
end;
}