mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-08-06 09:26:52 +01:00
bad62d2763
Document SetAutoCalcFields for per-row FlowFields and direct writes on iterated records, with focused reviewer retrieval cues. Co-authored-by: Copilot App <223556219+Copilot@users.noreply.github.com> Copilot-Session: 85be3fc4-5253-47b8-ba1b-6b8fd188fcea
19 lines
666 B
AL
19 lines
666 B
AL
codeunit 50493 "Perf Record Clone Bad"
|
|
{
|
|
procedure IncreaseCustomerCreditLimits(Percent: Decimal)
|
|
var
|
|
Customer: Record Customer;
|
|
CustomerCopy: Record Customer;
|
|
begin
|
|
Customer.SetLoadFields("Credit Limit (LCY)");
|
|
Customer.SetFilter("Credit Limit (LCY)", '>0');
|
|
if Customer.FindSet(true) then
|
|
repeat
|
|
CustomerCopy.Copy(Customer);
|
|
CustomerCopy.Validate(
|
|
"Credit Limit (LCY)",
|
|
Round(CustomerCopy."Credit Limit (LCY)" * (1 + Percent / 100)));
|
|
CustomerCopy.Modify(true);
|
|
until Customer.Next() = 0;
|
|
end;
|
|
}
|