第一个问题,从你1楼的描述,开始感觉应该是取到本地的任务和实际数据库的任务不一致了。是否楼主对任务表或者任务消息表中的数据做了处理了呢(这里是所有字段)?
=========================================
肯定没有改过。我猜想可能是有两种可能:(1)是由于这个是从2250->2241->2617升级上来的,可能服务器端在一些缓存处理上有一些问题(2)工作台本身功能有BUG。或者是我之前改过工作台的显示:
业务模型\协同系统\公共资源\协同常量库
static function TRTLConsts.DefaultFuncs: TStringArray;
begin
Result := ['Biz:\COLLABORATION\DesktopFunc.Func',
'Biz:\COLLABORATION\TaskCenterFunc.Func',
'Biz:\COLLABORATION\MyTaskFunc.Func',
'Biz:\COLLABORATION\JustepMail.Func'];
end;
static function TRTLConsts.DefaultDesktopPanelDesc: TDesktopPanelDescArray;
const
cTaskFuncURL = 'Biz:\COLLABORATION\MyTaskFunc.Func';
cPlanFuncURL = 'Biz:\COLLABORATION\PlanCenterFunc.Func';
cCustomerFuncURL = 'Biz:\OPERATION\CRMSPACE\CustomerMngFunc.Func';
cNeedProcessDocURL = 'Biz:\COLLABORATION\TaskCenterInfo.Info\GridNav_NeedProcess.FormDoc';
cPlanDocURL = 'Biz:\COLLABORATION\PlanCenterInfo.Info\GridNav.FormDoc';
cPostDocURL = 'Biz:\COLLABORATION\TaskCenterInfo.Info\GridNav_Post.FormDoc';
cCustomerDocURL = 'Biz:\OPERATION\CRMSPACE\CustomerInfo.Info\CustomerNav.FormDoc';
{//todo wdx 不要删除此注释,这里如果需要OA有新闻公告板,则需将此放开
cNewsDocURL = 'Biz:\OPERATION\OASPACE\NEWSPLACARD_NAVINFO.INFO\GRIDNAV.FORMDOC';
cNewsFuncURL = 'Biz:\OPERATION\OASPACE\TASKCENTERNEWSFUNC.Func';}
begin
Result := [CreateDesktopPanel('待办任务', cNeedProcessDocURL, cTaskFuncURL, SysUtils.Format('-f%s -vvmTaskGrid -d待办', [TRTLConsts.NeedProcessTaskTypeStr])),
//CreateDesktopPanel('当前计划', cPlanDocURL, cPlanFuncURL, '-p'),
CreateDesktopPanel('提交任务', cPostDocURL, cTaskFuncURL, SysUtils.Format('-vvmTaskGrid -f%s -d交办', [TRTLConsts.PostTaskTypeStr]))
//CreateDesktopPanel('我的客户', cCustomerDocURL, cCustomerFuncURL, '')
{//todo wdx 不要删除此注释,这里如果需要OA有新闻公告板,则需将此放开
CreateDesktopPanel('新闻公告', cNewsDocURL, cNewsFuncURL, '')}
];
end;
业务模型\协同系统\任务\任务中心信息\任务网格导航(基类)
procedure TGRIDNAV.FormDocCreate(Sender: TObject);
begin
FFilterBuilder := TFilterBuilder.Create(Context);
FFilterBuilder.OrgTypes := [TOrgType.otPerson];
FTaskOperations := TTaskOperations.Create(TaskCenterInfo);
TaskCenterInfo.OnGetTaskFieldsEvent := DoGetTaskFields;
TaskDataSet.DataFetch.PageRecords := 40;
DataGrid.BorderStyle := TBorderStyle.bsNone;
Timer.Enabled := True;
end;
另外我看了代码以后感觉出错的地方可能是在
业务模型\协同系统\任务\任务中心信息的procedure TTASKCENTERINFO.TaskUpdate(const TaskGUID: array of string);
中DataSetTaskIndex.Delete这句。 |