bcquality/microsoft/knowledge/performance/use-get-instead-of-findfirst-on-full-primary-key.bad.al

codeunit 50211 "Perf Sample GetByPK Bad"
{
    procedure ShowName(CustomerNo: Code[20])
    var
        Customer: Record Customer;
    begin
        Customer.SetRange("No.", CustomerNo);
        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;
}