Microsoft/bcquality
1
0
Fork 0
mirror of https://github.com/microsoft/BCQuality.git synced 2026-08-06 09:26:52 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Correct performance knowledge guidance

Browse source 
Co-authored-by: Copilot App <223556219+Copilot@users.noreply.github.com>

Copilot-Session: 667c64a8-eb36-4440-bc41-6a97d8fb5542
This commit is contained in:
Jesper Schulz-Wedde 2026-07-14 11:18:52 +02:00
parent 7a678d1aff
commit 3f0b6a41db
31 changed files with 279 additions and 261 deletions
Download patch file Download diff file Expand all files Collapse all files

12
microsoft/knowledge/performance/avoid-get-inside-loop-on-large-table.bad.al
View file

@ -1,15 +1,17 @@
codeunit 50253 "Perf Sample NPlus1 Bad"
{
procedure SumStdCost(var BOMLine: Record "BOM Component") TotalCost: Decimal
procedure SumStdCost(BOMNo: Code[20]; BOMVersionCode: Code[20]) TotalCost: Decimal
var
BOMLine: Record "Production BOM Line";
Item: Record Item;
begin
BOMLine.SetRange("Production BOM No.", BOMNo);
BOMLine.SetRange("Version Code", BOMVersionCode);
if BOMLine.FindSet() then
repeat
// Full-row Item.Get per BOM line — no partial loading, no caching.
Item.Get(BOMLine."No.");
if Item."Costing Method" = Item."Costing Method"::Standard then
TotalCost += Item."Standard Cost" * BOMLine."Quantity per";
if Item.Get(BOMLine."No.") then
if Item."Costing Method" = Item."Costing Method"::Standard then
TotalCost += Item."Standard Cost" * BOMLine."Quantity per";
until BOMLine.Next() = 0;
end;
}