mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-08-06 09:26:52 +01:00
Co-authored-by: Copilot App <223556219+Copilot@users.noreply.github.com> Copilot-Session: 645349fd-1892-48f3-8a84-db77d6abd1c3
23 lines
504 B
AL
23 lines
504 B
AL
// Demonstration-only AL. Interface inheritance requires runtime 14.0 / BC25.
|
|
interface "I Shipping Quote"
|
|
{
|
|
procedure CalculateAmount(): Decimal;
|
|
}
|
|
|
|
interface "I Shipping Quote V2" extends "I Shipping Quote"
|
|
{
|
|
procedure CalculateDeliveryDate(): Date;
|
|
}
|
|
|
|
codeunit 50510 "Shipping Quote V2" implements "I Shipping Quote V2"
|
|
{
|
|
procedure CalculateAmount(): Decimal
|
|
begin
|
|
exit(10);
|
|
end;
|
|
|
|
procedure CalculateDeliveryDate(): Date
|
|
begin
|
|
exit(Today() + 1);
|
|
end;
|
|
}
|