mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-07 15:46:55 +01:00
17 lines
No EOL
505 B
AL
17 lines
No EOL
505 B
AL
codeunit 50100 "Rental Service"
|
|
{
|
|
[ServiceEnabled]
|
|
procedure CloseAgreement(AgreementNo: Code[20]): Boolean
|
|
var
|
|
RentalAgreement: Record "Rental Agreement";
|
|
begin
|
|
if not Confirm('Close rental agreement %1?', false, AgreementNo) then
|
|
exit(false);
|
|
|
|
RentalAgreement.Get(AgreementNo);
|
|
RentalAgreement.Closed := true;
|
|
RentalAgreement.Modify(true);
|
|
Message('Rental agreement %1 was closed.', AgreementNo);
|
|
exit(true);
|
|
end;
|
|
} |