如何在Dynamics Business Central AL中编写通用表字段查询过程

在优化Dynamics Business Central的AL代码时，我发现按姓名、年龄等特定字段查询记录的逻辑存在大量重复，希望重构出一个能处理任意表、任意字段查询的通用函数，简化业务代码。

原始冗余代码示例 #

procedure findEmployeeNo(Name:Text[20]; Age:Integer): code[20]
begin
    // 按姓名查询
    Employee.Reset();
    Employee.ChangeCompany(company.Name);
    Employee.Setrange("Name", Name);
    If Employee.FindFirst() then begin
        exit(Employee."No.")
    end;
    // 按年龄查询
    Employee.Reset();
    Employee.Setrange("Age", Age);
    If Employee.FindFirst() then begin
        exit(Employee."No.")
    end;
    exit('');
end;

重构后的目标代码示例 #

procedure findEmployeeNo(Name:Text[20]; Age:Integer): code[20]
var 
    Employee: record Employee;
begin
    Employee := findFieldData('Employee', 'Name', Name, company.Name);
    If Employee then begin
        exit(Employee."No.");
    end;
    Employee := findFieldData('Employee', 'Age', Age, company.Name);
    If Employee then begin
        exit(Employee."No.");
    end;
    exit('');
end;

核心通用函数findFieldData实现 #

要让上述目标代码正常运行，需实现通用查询函数findFieldData，利用AL的RecordRef和FieldRef特性实现动态表与字段操作：

procedure findFieldData(TableName: Text; FieldName: Text; FieldValue: Variant; CompanyName: Text := ''): Variant
var
    RecRef: RecordRef;
    FieldRef: FieldRef;
    TempRecord: Variant;
    TableID: Integer;
begin
    // 通过表名动态获取表ID，摆脱硬编码依赖
    TableID := Database.TableId(TableName);
    if TableID = 0 then
        exit(TempRecord);

    RecRef.Open(TableID);
    
    // 支持跨公司查询（可选参数，默认不切换）
    if CompanyName <> '' then
        RecRef.ChangeCompany(CompanyName);
    
    RecRef.Reset();
    // 动态定位目标字段
    FieldRef := RecRef.Field(RecRef.FieldIndex(FieldName));
    FieldRef.SetRange(FieldValue);
    
    // 查询第一条匹配记录并返回
    if RecRef.FindFirst() then begin
        TempRecord := RecRef.Record();
    end;
    
    RecRef.Close();
    exit(TempRecord);
end;

关键优化点 #

• 完全动态化：通过表名、字段名字符串参数，支持任意表和字段的查询
• 消除冗余：把重复的重置、范围设置、查询逻辑封装到通用函数中
• 灵活扩展：可选支持跨公司查询，适配多公司场景
• 类型安全：返回对应表的记录类型，保证业务代码的类型兼容性

内容的提问来源于stack exchange，提问作者TAHER El Mehdi