mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-08-06 17:36:53 +01:00
078b869e33
* Add per-row performance guidance 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 * Bound commit checkpoints by key range Use a capped ordered query to discover each checkpoint watermark before locking and processing only that key range. Co-authored-by: Copilot App <223556219+Copilot@users.noreply.github.com> Copilot-Session: 85be3fc4-5253-47b8-ba1b-6b8fd188fcea * Address performance retrieval review Retrieve Commit-in-loop guidance precisely, process exact checkpoint key lists, and narrow clone-before-write discovery. Co-authored-by: Copilot App <223556219+Copilot@users.noreply.github.com> Copilot-Session: 85be3fc4-5253-47b8-ba1b-6b8fd188fcea --------- Co-authored-by: Jesper Schulz-Wedde <jesper.schulzwedde@microsoft.com> Co-authored-by: Copilot App <223556219+Copilot@users.noreply.github.com>
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;
|
|
}
|