【结贴】自定义属性**

vagrant

在业务功能下的主窗体中怎样才可以引用在业务信息中自定义属性？我在业务功能中引入了业务信息。



我在CPPSXX信息下的public下定义了如下属性：
property DocID :string read GetDocID;

function TCPPSXX.GetDocID :string;
begin
  with DataSetCPZLSJJ do
    if (not Active) or IsEmpty then
      Result :=''
    else
      Result := FieldByName('cp_cpbh').AsString;
end;

然后我在功能中调用：
并且也作了类型转换，代码如下：

function TZCT.GetDocInfo: TCPPSXX;
begin
  Result := InfoBroker.info as TCPPSXX;
end;

function TZCT.GetCanProcess(out WarningMsg:string) :Boolean;
begin
  WarningMsg :='';
  Result :=true;
  if GetDocInfo.DocID = '' then
  begin
    Warning :='文档数据为空';
    Result := True;
  end
end;
在此处调用不到DocID这个属性。

帮忙分析一下我是否什么地方写错了？

zfang

看看(InfoBroker.info as TCPPSXX).DocID这样子能调用么？
应该是没什么问题的

vagrant

重启了一下服务后编译 通过了，但GetDocInfo.DocID中，打点的时候看不到DocID，DocID是手动输入的，编译仍然通过，有点想不通

zfang

不会吧。我这边简单测试了一下，没有问题啊。

vagrant

结贴吧