启动流程的代码是这个:
VAR
tpf : TTaskPubFunc;
AFuncURL, ATaskTypeName, ATaskTypeID, ASubject, ABizField, ABizFieldValue,
ADept, APosition, APerson : string;
begin
tpf := TTaskPubFunc.Create(Self.Context);
try
AFuncURL := 'Biz:\XSGLXT\BDYDGN.Func';
ATaskTypeName := '我的功能';
ATaskTypeID := 'MYFUNC';
ASubject := '启动我的功能任务';
ABizField := 'Biz:\XSGLXT\SJK.DATABASE\XSB.TABLE\BH.FIELD';
ABizFieldValue := '0000000005';
ADept := 'XSB';
APosition := 'XSY';
APerson := 'ZS';
tpf.UserStartTask(AFuncURL, ATaskTypeName, ATaskTypeID, ASubject, ABizField,
ABizFieldValue, ADept, APosition, APerson);
jsDialogs.ShowMsg('启动 ' + ASubject + ' 成功', '启动无流程任务');
finally
tpf.Free;
end; |