【结贴】[请求]新建提醒报错

拓思科技

Access violation at address 074ADBA5 in module 'rt.dll'. Read of address 00000010

Akon

问一下,你任务中心没有一条任务,提醒按钮不是灰色的吗?版本是多少?

拓思科技

不是灰色 版本3012

Akon

这是一个缺陷,已经提交,有任务的时候是正常的,你可以试试

拓思科技

嗯  有任务的时候是正常的，我用下面的方法添加提醒的时候
procedure TMainForm.AddNewMessage(MessageKind :String; lOrgURL :TOrgURL);
var
  lTask: TTask;
begin
  if messagekind <> '' then
   begin
    lTask := TTask.Create;
    //lOrgURl := TOrgURL.Create('XSB','LCCS','LJQ');
    lTask.Subject:='自定义消息' ;
    lTask.Kind:=MessageKind;   &#63729;
    lTask.SenderDeptID := lOrgURl.DeptID;
    lTask.SenderPositionID := lOrgURl.PositionID;
    lTask.SenderID := lOrgURl.PersonID;
    try
      lTask.TaskMessages.AddTaskMessage(nil, lOrgURl,
                     TTaskmessagestate.tmsSend, 0, False);   
      Flow.FlowEngine.SaveTask(lTask);      
    finally
     lTask.Free;
    end;
  end;
end;

如果messagekind 为空的时候 能填进去，但是会报错，我把
任务中心信息 里 相关的表都清了 就出现这个问题了

Akon

是的,我这边测试的结果也是如果任务中心没有任务,去点提醒按钮,会报指针错,所以我说是缺陷,己提交

拓思科技

嗯 这个明白了  但是当lTask.Kind ='' 的时候
lTask.TaskMessages.AddTaskMessage(nil, lOrgURl,
                     TTaskmessagestate.tmsSend, 0, False);   
也可以提交，这样提交上去的任务，点击查看的时候会报错

Akon

楼主,1楼的缺陷,你这么改一下就好了,把原先的过程中代码注释掉,改成下方的
业务模型\协同系统\面板功能\我的功能\我的待办

procedure TMYTASKDOC.DoCanTaskRemindEvent(Sender: TObject);
begin
  (Sender as TAction).Enabled := not dsbTaskIndex.Dataset.IsEmpty and
     not (dsbTaskIndex.Dataset.FieldByName('FSTATE').AsString = 'tsFinished');
end;

Akon

楼主，像5楼这种方法可能会有问题，添加一条任务，需要将TTask与TTaskMessage对象的属性都赋上值，且任务类型必须是任务中心已有的（如：工作任务、工作日志等），若是自己想定义的任务类型，需要使用任务关联定义，定义一个

Akon

楼主，经查发现，你们公司现在的客服状态状态异常，请联系商务