// *******************************************************************************
// 创建任务
procedure TDMCJWLCRW.CreateCustomTaskClick(Sender: TObject);
VAR
tpf : TTaskPubFunc;
AFuncURL, ATaskTypeName, ATaskTypeID, ASubject, ABizField, ABizFieldValue,
ADept, APosition, APerson : string;
begin
if dsb.DataSet.FieldByName('GUID').AsString = '' then exit;
tpf := TTaskPubFunc.Create(Self.Context);
try
AFuncURL := 'Biz:\PXAL\ZDYYWGN.Func'; // 自定义任务关联功能
ATaskTypeName := '我的功能'; // 自定义任务关联的任务名称
ATaskTypeID := 'MYCUSTOMFUNCDEAL'; // 自定义任务关联的任务ID
ASubject := dsb.DataSet.FieldByName('Subject').AsString;
ABizField := 'BIZ:\PXAL\DEMOSJK.DATABASE\ZDYRWGLDEMOB.TABLE\GUID.Field'; // 关联字段
ABizFieldValue := dsb.DataSet.FieldByName('GUID').AsString; // 关联字段值
ADept := dsb.DataSet.FieldByName('FDept').AsString;; // 接收部门
APosition := dsb.DataSet.FieldByName('FPosition').AsString;; // 接收岗位
APerson := dsb.DataSet.FieldByName('FPerson').AsString;; // 接收人
tpf.UserStartTask(AFuncURL, ATaskTypeName, ATaskTypeID, ASubject, ABizField,
ABizFieldValue, ADept, APosition, APerson);
jsDialogs.ShowMsg('启动 ' + ASubject + ' 成功', '启动无流程任务');
finally
tpf.Free;
end;
end;
这个里面的dsb对应的是哪个数据集,或者是哪个表,请指出,谢谢--------------------------GAIL |