mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-08-06 17:36:53 +01:00
363f08f47e
* 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>
34 lines
813 B
AL
34 lines
813 B
AL
// Demonstration-only AL. UnknownValueImplementation requires runtime 7.0 / BC18.
|
|
interface "I Delivery Method"
|
|
{
|
|
procedure Deliver();
|
|
}
|
|
|
|
codeunit 50500 "Unknown Delivery Method" implements "I Delivery Method"
|
|
{
|
|
procedure Deliver()
|
|
begin
|
|
Error(UnknownMethodErr);
|
|
end;
|
|
|
|
var
|
|
UnknownMethodErr: Label 'The saved delivery method is no longer installed. Select another method.';
|
|
}
|
|
|
|
codeunit 50501 "Default Delivery Method" implements "I Delivery Method"
|
|
{
|
|
procedure Deliver()
|
|
begin
|
|
end;
|
|
}
|
|
|
|
enum 50502 "Delivery Method" implements "I Delivery Method"
|
|
{
|
|
Extensible = true;
|
|
DefaultImplementation = "I Delivery Method" = "Default Delivery Method";
|
|
UnknownValueImplementation = "I Delivery Method" = "Unknown Delivery Method";
|
|
|
|
value(0; Default)
|
|
{
|
|
}
|
|
}
|