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

Preserve business filters when recommending Record.Get (#205)
Some checks failed
Validate knowledge index / validate-index (push) Has been cancelled
Details
Validate AL review fixtures / validate-review-fixtures (push) Has been cancelled
Details
Validate skill index and report schemas / validate-contract (push) Has been cancelled
Details
Validate frontmatter and structure / validate (push) Has been cancelled
Details

Browse source
This commit is contained in:
Stefano Demiliani 2026-10-02 13:07:19 +02:00 • committed by GitHub
parent 488ce50775
commit ac249ba4c9
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
4 changed files with 44 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

21
microsoft/knowledge/performance/use-get-instead-of-findfirst-on-full-primary-key.good.al
View file

@ -7,4 +7,25 @@ codeunit 50210 "Perf Sample GetByPK Good"
if Customer.Get(CustomerNo) then
Message(Customer.Name);
end;
procedure ShowUnblockedName(CustomerNo: Code[20])
var
Customer: Record Customer;
begin
Customer.SetRange("No.", CustomerNo);
Customer.SetRange(Blocked, Customer.Blocked::" ");
if Customer.FindFirst() then
Message(Customer.Name);
end;
procedure ShowUnblockedNameByKey(CustomerNo: Code[20])
var
Customer: Record Customer;
begin
if not Customer.Get(CustomerNo) then
exit;
if Customer.Blocked <> Customer.Blocked::" " then
exit;
Message(Customer.Name);
end;
}