Preserve business filters when recommending Record.Get

This commit is contained in:
demiliani 2026-10-01 11:05:00 +02:00
parent fd59919778
commit 34424c390c
4 changed files with 44 additions and 5 deletions

View file

@ -8,4 +8,13 @@ codeunit 50211 "Perf Sample GetByPK Bad"
if Customer.FindFirst() then
Message(Customer.Name);
end;
procedure ShowUnblockedName(CustomerNo: Code[20])
var
Customer: Record Customer;
begin
Customer.SetRange(Blocked, Customer.Blocked::" ");
if Customer.Get(CustomerNo) then
Message(Customer.Name);
end;
}