mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-08-07 09:56:52 +01:00
Add P0 extensibility compatibility knowledge
Co-authored-by: Copilot App <223556219+Copilot@users.noreply.github.com> Copilot-Session: 645349fd-1892-48f3-8a84-db77d6abd1c3
This commit is contained in:
parent
9214f73819
commit
23af51e02d
18 changed files with 307 additions and 15 deletions
|
|
@ -0,0 +1,34 @@
|
|||
// 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)
|
||||
{
|
||||
}
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue