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

Correct performance knowledge guidance (#94)

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

Copilot-Session: 667c64a8-eb36-4440-bc41-6a97d8fb5542

Co-authored-by: Jesper Schulz-Wedde <jesper.schulzwedde@microsoft.com>
This commit is contained in:
Jesper Schulz-Wedde 2026-07-14 11:26:29 +02:00 • committed by GitHub
parent 5706959e4a
commit 0e06485027
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
31 changed files with 279 additions and 261 deletions
Download patch file Download diff file Expand all files Collapse all files

14
microsoft/knowledge/performance/prefer-readisolation-over-locktable-for-reads.good.al
View file

@ -1,11 +1,13 @@
codeunit 50232 "Perf Sample ReadIso Good"
{
procedure GetOrCreate(var AgentStatus: Record "Agent Status")
procedure IsCustomerBlocked(CustomerNo: Code[20]): Boolean
var
Customer: Record Customer;
begin
AgentStatus.ReadIsolation := IsolationLevel::ReadCommitted;
if not AgentStatus.Get() then begin
AgentStatus.Init();
AgentStatus.Insert();
end;
Customer.ReadIsolation := IsolationLevel::ReadCommitted;
if not Customer.Get(CustomerNo) then
exit(false);
exit(Customer.Blocked <> Customer.Blocked::" ");
end;
}