mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-08-06 09:26:52 +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>
16 lines
575 B
AL
16 lines
575 B
AL
codeunit 50491 "Perf AutoCalcFields Bad"
|
|
{
|
|
procedure CollectOverLimitCustomers(var CustomerNos: List of [Code[20]])
|
|
var
|
|
Customer: Record Customer;
|
|
begin
|
|
Customer.SetLoadFields("Credit Limit (LCY)");
|
|
Customer.SetFilter("Credit Limit (LCY)", '>0');
|
|
if Customer.FindSet() then
|
|
repeat
|
|
Customer.CalcFields("Balance (LCY)");
|
|
if Customer."Balance (LCY)" > Customer."Credit Limit (LCY)" then
|
|
CustomerNos.Add(Customer."No.");
|
|
until Customer.Next() = 0;
|
|
end;
|
|
}
|