【结帖】流程监控提醒的问题。**

thb425

在流程监控中，如何在流程表中，把超期的列变成红色。

atiger

楼主，你现在帖的图不是已经把超期的任务变成红色了吗？下面那个DataGrid第二条记录已经是红色了，你还想把哪条记录变成红色呢？

thb425

是把上面把那个列表中的“AAAAAAAA”那条记录也变成红色。

lixy

业务模型\系统空间\系统功能\业务流程\流程监控\流程监控信息\流程控制者列表
datagrid添加CustomDrawCell事件，填写代码
procedure TFLOWCONTROLLERLIST.DataGrid1CustomDrawCell(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TTreeListNode; AColumn: TTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean; var AText: string; var AColor: Integer; AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
begin
//限定时间[FLIMITTIME]
//结束时间[FFINISHTIME]
if (not FlowControllerData.DataSet.FieldByName('FFINISHTIME').IsNull) and (not FlowControllerData.DataSet.FieldByName('FLIMITTIME').IsNull) then
   if FlowControllerData.DataSet.FieldByName('FFINISHTIME').AsDateTime>FlowControllerData.DataSet.FieldByName('FLIMITTIME').AsDateTime then
      AFont.Color:=255;
end;

lixy

流程超期和任务超期不一样。
流程这样改
业务模型\系统空间\系统功能\业务流程\流程监控\流程监控信息\流程实例列表
procedure TFLOWCASELIST.DataGrid1CustomDrawCell(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TTreeListNode; AColumn: TTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean; var AText: string; var AColor: Integer; AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
begin
//限定时间[FLIMITTIME]
//结束时间[FFINISHTIME]
if (not FlowData.DataSet.FieldByName('FFINISHTIME').IsNull) and (not FlowData.DataSet.FieldByName('FLIMITTIME').IsNull) then
   if FlowData.DataSet.FieldByName('FFINISHTIME').AsDateTime>FlowData.DataSet.FieldByName('FLIMITTIME').AsDateTime then
      AFont.Color:=255;
end;

thb425

那流程实例表中的限定时间是在什么地方设置的。

atiger

任务流转的对话框中设置的。

thb425

麻烦下，我想问一下，业务模型\系统空间\系统数据库\流程表，限定时间这个字段的值是什么时候向里面赋值的。

zfang

在“业务模型\系统空间\用户界面基础\界面\系统接口\流程任务编辑窗体”　　中
，你看下面两个事件
  procedure LoadFromFlowTask(const AFlowTask: TFlowTask);
    procedure SaveToFlowTask(var AFlowTask: TFlowTask);

atiger

楼主还有问题吗？没有就结了