【结帖】[问题]任务扩展属性赋值**

rzport_jqf

1. 使用流程环节的任务取值规则,  设定扩展属性EDField33的值为 "发文主数据集.拟稿时间", 但是实际操作的时候没有赋值

rzport_jqf

图片贴颠倒了

这副是上面的问题.

前面的那个图是使用代码时的问题:

代码如下:

//拟稿时间:
     v_datetime := DataSetBroker1.DataSet.FieldByName('ngsj').AsDateTime;
     v_ngsj := Business.System.SysUtils.FormatDateTime('yymmdd hh:nn',v_datetime);

     //标题设置
     v_subject := v_ngsj + lFlowTask.ProcUnit.DisplayName +':'+ '['+v_gs+'-'+v_bm+']:'+ DataSetBroker1.DataSet.FieldByName('wjbt').AsString;

    for v_ii:=0 to (Command.FlowTasks.Count-1) do
    begin
         Command.FlowTasks[v_ii].Subject := v_subject;
         Command.FlowTasks[v_ii].ExtendAttributes[1] := v_ngsj;  //这里出错的!!!
    end;

rzport_jqf

Command.FlowTasks[v_ii].ExtendAttributes.Strings[0] := v_ngsj;

改了这样还是出那个错. 是因为扩展字段排序的问题?

rzport_jqf

图片

rzport_jqf

把规则条件设为true 还是不行的.

jiahaiming

如果要对下一个环节的任务设置扩展属性，可以在当前环节的OnCreateFlowOutFlowTasks事件中赋值：
Command.FlowTasks[0].ExtendAttributeAsString['ESField01'] := '扩展属性1';
赋值后，可以在下一个环节，查看：
  memo1.Lines.Clear;
  memo1.Lines.AddStrings( FlowBroker1.FlowControl.CurrentTask.ExtendAttributes);
以下是扩展属性内容：
EAPPROVE=
EAPPROVEUNITID=
EBField50=
EBField51=
ECField07=
ECField08=
ECONDITIONCON=
EDField33=
EDField34=
EDField35=
EDField36=
ENField17=
ENField18=
ENField19=
ENField20=
ESField01=扩展属性1
ESField02=
ESField03=
ESField04=
ESField05=
ESField06=
ETField52=
ETField53=

rzport_jqf

可以了. 谢谢!