【结贴】我做了个计划功能,怎么调用平台自带那个任务提醒功能？？**

huangyue

RT...要用到那些资源,修改那些东东??

zfang

请楼主看看
业务模型\协同系统\任务\任务提醒库

huangyue

我想直接用可以用?

jiahaiming

不能直接用的。

huangyue

有甚么好的方法先用来顶着?要演示的...

jiahaiming

请详细描述一下您的需求。

huangyue

简单的来说我就是要对某条数据做个提醒,然后弹出个提醒框给操作者...下图

jiahaiming

哦，需要写代码来处理，楼主可以参考一下：
业务模型\协同系统\任务\任务提醒库\提醒工具栏
procedure TReminderBar.actRemindExecute(Sender: TObject);
const
  cDefSubject = '提醒： ';
var
  lFuncContext: TContext;
  lTask: TTask;
  lSubject: string;
  lShowDialog: Boolean;
  lReceiverURLs, lKeys, lValues: array of string;
  lWarningTime: TDateTime;
  lFuncURL: string;
  lFlowGUID, lParentGUID: string;
begin
  lShowDialog := True;
  lSubject := cDefSubject;
  lReceiverURLs := [];
  lKeys := [];
  lValues := [];
  lWarningTime := 0;
  lFuncContext := Context.FindParentContext(BizSys.IL_FUNC);
  if lFuncContext <> nil then
    lFuncURL := TFunc(lFuncContext.Owner).BizClassURL.BizURL.URL
  else
    lFuncURL := '';
  lFlowGUID := '';
  lParentGUID := '';

  if Assigned(FOnReminderInit) then
    FOnReminderInit(Sender, lSubject, lReceiverURLs, lKeys, lValues, lWarningTime, lFuncURL, lFlowGUID, lParentGUID, lShowDialog);

  lTask := TTaskLib.CreateReminderTask(Context, lSubject, [], lWarningTime, lFuncURL, [], []);
  lTask.ExecuteMode := TTaskExecuteMode.emSimultaneous;
  lTask.Subject := lSubject;
  lTask.WarningTime := lWarningTime;
  lTask.PlanStartTime := lWarningTime; // 开始时间设置为提醒时间
  lTask.FlowGUID := lFlowGUID;
  lTask.ParentGUID := lParentGUID;
  if Length(lReceiverURLs) > 0  then
    TTaskLib.AddReceiver(lTask, lReceiverURLs);
  if Length(lKeys) > 0 then
    TTaskLib.AddBizDataKey(lTask, lKeys, lValues);

  if lShowDialog then
  begin
    TNewReminder.Execute(Context, lTask, True, FOnBeforeSave)
  end
  else begin
    if Assigned(FOnBeforeSave) then
      FOnBeforeSave(lTask);
    TTaskLib.SaveTask(lTask);
   end;
end;

huangyue

这个我看了,它是用系统的东东,不是很明白??

huangyue

这个问题解决了。结帐！