Foxtable(狐表)用户栏目专家坐堂 → 自定义流程通知


  共有1585人关注过本帖树形打印复制链接

主题:自定义流程通知

美女呀,离线,留言给我吧!
xiaohuli
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:461 积分:3442 威望:0 精华:0 注册:2014/2/8 11:13:00
自定义流程通知  发帖心情 Post By:2016/1/14 10:57:00 [只看该作者]

送货单由用户张三开单,由李四审核。
当张三开送货单保存时,系统自动发给李四发一个消息:“张三已新增送货单20151028001,请审核”。
李四收到此消息后,点此消息,打开这张送货单,进行审核,审核后,反馈回张三消息:“送货单20151028001已由用户李四审”

If fhs.Count > 0 AndAlso Forms("审核申请").Opened = False Then
    Dim pts() As String = fhs(0).Split("|")
    fhs.RemoveAt(0)
    With Forms("审核申请")
        .Open()
        .Controls("Label1").Text = pts(2) & "新增订货单" & pts(1) & ",请审核!"
        .Controls("Label2").Text = pts(0) '将发货单主健设置为Label2的标题
    End
With

End
If

上述代码在系统空闲的时间检查fhs集合,判断是否有新的审核申请;如果有新的申请且审核申请提示窗口未显示,则显示集合中的第一个审核申请,并将其从集合中移除。
当张三一次性开了很多个订单,李四打开系统会弹出第一个需要审核的订单,弹出的消息李四不关闭的话会一直显示,当李四不关闭弹出的消息框,然后直接关闭系统,那么李四第二次打开系统的时候,之前张三开的那些订单的消息还能继续弹出来不?目前测试的时候是不能弹出来了,能不能实现这样的,当李四打开系统后,会弹出第一个需要审核的消息,李四不关闭消息窗口,直接关闭系统,等李四再次打开系统会,继续从第二个消息开始继续弹出。


 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/1/14 11:20:00 [只看该作者]

fhs集合是怎样查询的,每次查询没有审核的单不就行了

或者调换下位置

If fhs.Count > 0 AndAlso Forms("审核申请").Opened = False Then
    Dim pts() As String = fhs(0).Split("|")
    With Forms("审核申请")
        .Open()
        .Controls("Label1").Text = pts(2& "新增订货单" & pts(1& ",请审核!"
        .Controls("Label2").Text = pts(0'将发货单主健设置为Label2的标题
    End 
With

    fhs.RemoveAt(0)
End
 If

 回到顶部