mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-05 06:36:55 +01:00
45ac371e7a
* knowledge(appsource): add AL validation guidance * Address Marketplace review feedback * Address remaining Marketplace review feedback * Align AppSource review applicability outcome
21 lines
No EOL
620 B
AL
21 lines
No EOL
620 B
AL
codeunit 50100 "Rental Service"
|
|
{
|
|
[ServiceEnabled]
|
|
procedure CloseAgreement(AgreementNo: Code[20]): Boolean
|
|
var
|
|
RentalAgreement: Record "Rental Agreement";
|
|
begin
|
|
if not Confirm(CloseAgreementQst, false, AgreementNo) then
|
|
exit(false);
|
|
|
|
RentalAgreement.Get(AgreementNo);
|
|
RentalAgreement.Closed := true;
|
|
RentalAgreement.Modify(true);
|
|
Message(AgreementClosedMsg, AgreementNo);
|
|
exit(true);
|
|
end;
|
|
|
|
var
|
|
CloseAgreementQst: Label 'Close rental agreement %1?';
|
|
AgreementClosedMsg: Label 'Rental agreement %1 was closed.';
|
|
} |