mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-05 06:36:55 +01:00
56b80e6dcf
Add read-only planning and repository-changing development skills so BCQuality knowledge can guide features, bug fixes, refactors, upgrades, and maintenance before the existing AL review gate runs. Track Microsoft Learn ingestion and add development and BCApps-shaped guidance evaluation fixtures. Co-authored-by: Copilot App <223556219+Copilot@users.noreply.github.com> Copilot-Session: 638b66d2-9f06-4f60-8781-808709e1485c
24 lines
543 B
AL
24 lines
543 B
AL
interface "I Quote Amount Good"
|
|
{
|
|
procedure GetAmount(): Decimal;
|
|
}
|
|
|
|
interface "I Quote Date Good"
|
|
{
|
|
procedure GetDate(): Date;
|
|
}
|
|
|
|
codeunit 50610 "Quote Reader Good"
|
|
{
|
|
procedure TryGetDate(Quote: Interface "I Quote Amount Good"; var QuoteDate: Date): Boolean
|
|
var
|
|
DatedQuote: Interface "I Quote Date Good";
|
|
begin
|
|
if not (Quote is "I Quote Date Good") then
|
|
exit(false);
|
|
|
|
DatedQuote := Quote as "I Quote Date Good";
|
|
QuoteDate := DatedQuote.GetDate();
|
|
exit(true);
|
|
end;
|
|
}
|