mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-05 14:46:55 +01:00
ebceff2332
These articles capture BC-specific mechanics agents still invert: partial-record JIT on writes, Reset clearing SetLoadFields, HttpClient inside write transactions, and batched number series, plus negative guidance that stops over-eager Query and IsEmpty "fixes". Co-authored-by: Cursor <cursoragent@cursor.com>
19 lines
668 B
AL
19 lines
668 B
AL
codeunit 50100 "ChangeCompany Loop Bad"
|
|
{
|
|
procedure NamesForCustomers(var Buffer: Record Customer)
|
|
var
|
|
Customer: Record Customer;
|
|
Company: Record Company;
|
|
begin
|
|
if Buffer.FindSet() then
|
|
repeat
|
|
if Company.FindSet() then
|
|
repeat
|
|
// ChangeCompany per customer per company resets caches every row.
|
|
Customer.ChangeCompany(Company.Name);
|
|
if Customer.Get(Buffer."No.") then
|
|
Message(Customer.Name);
|
|
until Company.Next() = 0;
|
|
until Buffer.Next() = 0;
|
|
end;
|
|
}
|