mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-08-06 17:36:53 +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
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;
|
|
}
|