起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 319|回复: 10

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

[复制链接]
发表于 2008-3-5 13:27:38 | 显示全部楼层 |阅读模式
在流程监控中,如何在流程表中,把超期的列变成红色。

未命名.jpg

96.34 KB, 下载次数: 178

回复

使用道具 举报

发表于 2008-3-5 14:05:43 | 显示全部楼层
楼主,你现在帖的图不是已经把超期的任务变成红色了吗?下面那个DataGrid第二条记录已经是红色了,你还想把哪条记录变成红色呢?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-3-5 14:08:25 | 显示全部楼层
是把上面把那个列表中的“AAAAAAAA”那条记录也变成红色。
回复 支持 反对

使用道具 举报

发表于 2008-3-5 14:33:25 | 显示全部楼层
业务模型\系统空间\系统功能\业务流程\流程监控\流程监控信息\流程控制者列表
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;
回复 支持 反对

使用道具 举报

发表于 2008-3-5 14:39:39 | 显示全部楼层
流程超期和任务超期不一样。
流程这样改
业务模型\系统空间\系统功能\业务流程\流程监控\流程监控信息\流程实例列表
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;
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-3-5 14:49:51 | 显示全部楼层
那流程实例表中的限定时间是在什么地方设置的。
回复 支持 反对

使用道具 举报

发表于 2008-3-5 15:39:54 | 显示全部楼层
任务流转的对话框中设置的。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-3-6 09:48:19 | 显示全部楼层
麻烦下,我想问一下,业务模型\系统空间\系统数据库\流程表,限定时间这个字段的值是什么时候向里面赋值的。
回复 支持 反对

使用道具 举报

发表于 2008-3-6 09:52:53 | 显示全部楼层
在“业务模型\系统空间\用户界面基础\界面\系统接口\流程任务编辑窗体”  中
,你看下面两个事件
  procedure LoadFromFlowTask(const AFlowTask: TFlowTask);
    procedure SaveToFlowTask(var AFlowTask: TFlowTask);
回复 支持 反对

使用道具 举报

发表于 2008-4-29 13:48:36 | 显示全部楼层
楼主还有问题吗?没有就结了
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-11 22:24 , Processed in 0.045765 second(s), 19 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表