人员调岗后Messenger的任务和平台的任务取的不一致

linjiawei

Messenger的取法：
select FSTATE, FGUID, FPRIORITY, FSPERSONNAME, FSUBJECT, FCREATETIME, FLASTCHANGETIME, FLIMITTIME, FTYPENAME
from TTASK where TTASK.FCLIENTACCOUNT = 'KYERP'
and  TTASK.FGUID in
(select TTASKMESSAGE.FTASKGUID  from TTASKMESSAGE
where TTASKMESSAGE.FCLIENTACCOUNT = 'KYERP'
and  TTASKMESSAGE.FSTATE in ('tmsSend', 'tmsReceived', 'tmsProcessing')
and ( [B]TTASKMESSAGE.FRPERSON = '0201' [/B]  
or  TTASKMESSAGE.FRORGURL in ('\ROOT\NJKY.OGN',
'\ROOT\NJKY.OGN\GSLD.DPT',
'\ROOT\NJKY.OGN\GSLD.DPT\XSZJ.PTM',
'\ROOT\NJKY.OGN\GSLD.DPT\XSZJ.PTM\0201.psm') )   )
order by FCREATETIME desc

平台的取法：
SELECT TASK.* FROM TTASK TASK  
WHERE (TASK.FCLIENTACCOUNT = 'KYERP')
AND (TASK.FGROUPGUID IN('-1'))
AND (TASK.FSTARTTIME >= '1899-12-31 00:00:00'
AND TASK.FSTARTTIME <= '3001-01-01 00:00:00')
AND TASK.FGUID IN
(SELECT DISTINCT(TMS.FTASKGUID) FROM TTASKMESSAGE TMS
WHERE (TMS.FSTATE IN ('tmsSend','tmsReceived','tmsProcessing'))
AND ((TMS.FRORGURL) IN ('\ROOT\NJKY.OGN\GSLD.DPT\XSZJ.PTM\0201.PSM' ,
'\ROOT\NJKY.OGN\GSLD.DPT\XSZJ.PTM' , '\POSITION\XSZJ.PTN' , '\ROOT\NJKY.OGN\GSLD.DPT' , '\ROOT\NJKY.OGN'))
AND (TMS.FCLIENTACCOUNT = 'KYERP') )

主要区别在于Messenger 多了句 TTASKMESSAGE.FRPERSON = '0201'
当人员调岗后，Messenger会把以把调岗前的任务也取过来（应该这样的），但平台却没有取，感觉平台的取应该把TTASKMESSAGE.FRPERSON = '0201' 这句加上。

jiahaiminghr

楼主，是2800吗？
如果是，请以人员登录系统（在选择岗位时选择“自动”）。

linjiawei

是的，但发送的SQL还是上面的，我们用的是老的功能“工作任务”。
procedure TMainForm.GetActiveTasks(ATasks: TTasks);
var
  lLoadTaskParam: TLoadTaskParam;
begin
  lLoadTaskParam := CreateLoadTaskParam;
  try
    lLoadTaskParam.GroupGUIDs.Add(JSConst.cRootID);
    [B]lLoadTaskParam.Receivers.Assign(TaskReceivers);[/B]     
    lLoadTaskParam.IncludeTaskMessage := True;
    lLoadTaskParam.IncludeSenderDisplayName := True;
    lLoadTaskParam.TaskMessageStates := Task.SActiveTaskMessageStates;
    lLoadTaskParam.StartDateTimeRange.FromDateTime := FCurparams.DateRange.BeginDate;
    lLoadTaskParam.StartDateTimeRange.ToDateTime := FCurparams.DateRange.EndDate;
    Flow.FlowEngine.GetTasks(lLoadTaskParam, ATasks);
  finally
    lLoadTaskParam.Free;
  end;
end;

TLoadTaskParam这个被你们封装了，我改不了。

linjiawei

?

jiahaiminghr

楼主，“工作任务”是一个比较旧的功能，对很多新的特性都不支持。现在推荐客户使用任务中心来替代。

对“工作任务”中的一些不足，现在已经不再做改进了。

linjiawei

千万不要这样呀，几家客户在用，都习惯了，我们不能换呀。
TLoadTaskParam，能把这个定义的源码发给我们吗？

linjiawei

好像也不是TLoadTaskParam的问题，
应该在这里
Flow.FlowEngine.GetTasks(lLoadTaskParam, ATasks);

jiahaiminghr

lLoadTaskParam.Receivers.Assign(TaskReceivers);   

这里传入的TaskReceivers值是什么？

linjiawei

TaskReceivers为TOrgURLs，里面添加了当前人员成员、岗位成员、部门、机构的URL。

jiahaiminghr

楼主，现在没有其他办法了，只能用任务中心去查看已经删除人员成员的任务。