A实体带出B实体中某个字段

应用场景：

预付款单中  只有供应商编号，没有供应商全称。想序列化时带出供应商全称字段。

procedure TAcptk.OnAfterLoad;
var
  ASupplier: TSupplier;
  //定义实体类
begin
  ASupplier := TMVCActiveRecord.GetOneByWhere<TSupplier>('MA001 = ?', [Tk004]);
  try
   fSupplierName:= ASupplier.Ma003;
  finally
    ASupplier.Free;
  end;
end;