Microsoft/bcquality
1
0
Fork 0
mirror of https://github.com/microsoft/BCQuality.git synced 2026-10-07 23:56:56 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix(community/performance): address review feedback

Browse source
This commit is contained in:
Stefano Demiliani 2026-08-24 16:06:07 +02:00
parent 8373bc4717
commit 6a75a425af
13 changed files with 79 additions and 165 deletions
Download patch file Download diff file Expand all files Collapse all files

20
community/knowledge/performance/changecompany-in-loop-drops-caches.good.al
View file

@ -1,25 +1,19 @@
codeunit 50100 "ChangeCompany Loop Good"
{
procedure NameInCompany(CompanyNameValue: Text[30]; CustomerNo: Code[20]): Text
procedure NamesForCustomers(var Buffer: Record Customer)
var
Customer: Record Customer;
Company: Record Company;
begin
Customer.ChangeCompany(CompanyNameValue);
Customer.SetLoadFields(Name);
if Customer.Get(CustomerNo) then
exit(Customer.Name);
end;
procedure NamesForCompanies(var Company: Record Company)
var
Customer: Record Customer;
begin
if Company.FindSet() then
repeat
Customer.ChangeCompany(Company.Name);
Customer.SetLoadFields(Name);
if Customer.FindFirst() then
Message(Customer.Name);
if Buffer.FindSet() then
repeat
if Customer.Get(Buffer."No.") then
Message(Customer.Name);
until Buffer.Next() = 0;
until Company.Next() = 0;
end;
}