我在一功能中调用另外一个流程,代码如下:
procedure TMAINFORM.Button1Click(Sender: TObject);
begin
TSYSTEMCORE.FuncManager.RunFunc(Context, '', 'Biz:\OPERATION\OASPACE2\CARAPPLYFUNC.FUNC', '048CD7D645D14B0FA2CDAF27B597B783', false, nil, false);
end;
procedure TMAINFORM.BizFormShow(Sender: TObject);
begin
Inherited;
TSQLDataSet(DataSetBroker.DataSet).SQLFilter := FuncBroker.Func.Parameters;
TSQLDataSet(DataSetBroker.DataSet).SQLFiltered := true;
end;
老提示有语法错误,请帮忙分析下这代码应该没问题吧 |