增加功能到平台**

shangxy

你这个代码是写到那里的？
系统初始化运行还是调试单个功能？

xhsoft

在写在time控件里的
初始化运行的

xhsoft

datasetbroker2连的是业务任务数据表[BizTaskData]这个表

shangxy

把你写的代码全贴出来吧

xhsoft

// 自动转任务
    if lx = '自动转待办任务' then
    begin
      if p22<sd then  //日期小于系统日期
      begin
   lContextCurrent := business.model.TContextCurrent.create(self.context); //取当前操作者部门
   ii1:=TSystemCore.Operator.Positions.PositionMember.Parent.ID;
   ii :=TSystemCore.Operator.Positions.PositionMember.Parent.DisplayName;
    jj:=TSystemCore.Operator.Positions.Personmember.ID;
   jj1 :=TSystemCore.Operator.Positions.PersonMember.DisplayName;
    gg:=TSystemCore.Operator.Positions.PositionMember.ID;
  gg1 :=TSystemCore.Operator.Positions.Positionmember.DisplayName;

  // ii := lContextCurrent.dept.DisplayName;
  // ii1 :=lcontextcurrent.dept.ID;
//  jj := lcontextcurrent.PersonMember.DisplayName;
  // jj1 := lcontextcurrent.PersonMember.ID;
  // gg := lcontextcurrent.PositionMember.DisplayName;
  // gg1 := lcontextcurrent.PositionMember.ID;
   nr := datasetbroker1.DataSet.FieldByName('txnr').AsString;
   datasetbroker2.DataSet.Open;
   datasetbroker2.DataSet.Append;
  // dialogs.ShowMessage(datasetbroker2.DataSet.FieldByName('fid').AsString);
   datasetbroker2.DataSet.Edit;
   datasetbroker2.DataSet.FieldByName('FTopic').AsString := '提醒任务';
   datasetbroker2.DataSet.FieldByName('FDealDeptName').AsString := ii;//取当前操作者的部门名称
   datasetbroker2.DataSet.FieldByName('FDealDept').AsString := ii1; //取当前操作者的部门ID
   datasetbroker2.DataSet.FieldByName('FDealManName').AsString := jj;//取当前操作者名称
   datasetbroker2.DataSet.FieldByName('FDealMan').AsString := jj1;//取当前操作者名称ID
   datasetbroker2.DataSet.FieldByName('FPostDetail').AsString := nr; //取当前内容
   datasetbroker2.DataSet.FieldByName('FDealPtmName').AsString := gg;//取当前操作者的岗位名称
   datasetbroker2.DataSet.FieldByName('FDealPtm').AsString := gg1;// 取当前操作者的岗位id
   datasetbroker2.DataSet.Post;
   datasetbroker2.DataSet.ApplyUpdates;
   //改变执行记录的状态
   datasetbroker1.DataSet.Edit;
   datasetbroker1.DataSet.FieldByName('sczt').AsString := 'autotask';
   datasetbroker1.DataSet.Post;
   datasetbroker1.DataSet.ApplyUpdates;
   end

shangxy

datasetbroker2.DataSet.Edit;
   datasetbroker2.DataSet.FieldByName('FTopic').AsString := '提醒任务';
   datasetbroker2.DataSet.FieldByName('FDealDeptName').AsString := ii;//取当前操作者的部门名称
   datasetbroker2.DataSet.FieldByName('FDealDept').AsString := ii1; //取当前操作者的部门ID
   datasetbroker2.DataSet.FieldByName('FDealManName').AsString := jj;//取当前操作者名称
   datasetbroker2.DataSet.FieldByName('FDealMan').AsString := jj1;//取当前操作者名称ID
   datasetbroker2.DataSet.FieldByName('FPostDetail').AsString := nr; //取当前内容
   datasetbroker2.DataSet.FieldByName('FDealPtmName').AsString := gg;//取当前操作者的岗位名称
   datasetbroker2.DataSet.FieldByName('FDealPtm').AsString := gg1;// 取当前操作者的岗位id


这是对那个表操作？是不是表中有自动填充当前操作者信息的字段呢？

xhsoft

是的，是协同数据库下的，业务数据表

xhsoft

要怎么处理才好

xhsoft

晚上要发布，请帮忙

shangxy

数据集是你自己的么？可以在数据集中重载这些自动填充人员信息的字段把自动填充去掉，代码来填充。