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

Add BC performance knowledge from OptimAL learnings

Browse source 
Co-authored-by: Copilot App <223556219+Copilot@users.noreply.github.com>
This commit is contained in:
Jesper Schulz-Wedde 2026-09-25 14:13:37 +02:00
parent 07e324ddbc
commit af94c135ad
37 changed files with 881 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

7
microsoft/knowledge/performance/calcsums-instead-of-calcfields-in-loop.good.al
View file

@ -1,11 +1,12 @@
codeunit 50222 "Perf Sample CalcSums Good"
{
procedure TotalRemaining(CustomerNo: Code[20]) Total: Decimal
procedure TotalSales(CustomerNo: Code[20]) Total: Decimal
var
CustLedgerEntry: Record "Cust. Ledger Entry";
begin
CustLedgerEntry.SetCurrentKey("Customer No.");
CustLedgerEntry.SetRange("Customer No.", CustomerNo);
CustLedgerEntry.CalcSums("Remaining Amount");
Total := CustLedgerEntry."Remaining Amount";
CustLedgerEntry.CalcSums("Sales (LCY)");
Total := CustLedgerEntry."Sales (LCY)";
end;
}