按下面的方式修改:协同系统\任务\我的任务\主窗体
OnCreate事件
//if SysUtils.SameText(lFilterType, TRTLConsts.NeedProcessTaskTypeStr) then
MyTaskDoc.ProcessStates := [TProcessState.psProcess];
//else if SysUtils.SameText(lFilterType, TRTLConsts.PostTaskTypeStr) then
// MyTaskDoc.ProcessStates := [TProcessState.psPost]
//else
// MyTaskDoc.ProcessStates := [TProcessState.psProcess, TProcessState.psFinish, TProcessState.psPost, TProcessState.psPostFinished]; |