主题：审批流程

如果审批完了  如何提醒下一道工序人员进行审核 有没有教学视频和帮助文件 最好是教学视频因为没有相关经验可以帮我快速了解一下  谢谢

1、参考 http://www.foxtable.com/webhelp/scr/2264.htm

 

2、http://www.foxtable.com/webhelp/scr/3055.htm

 

 

1、参考 http://www.foxtable.com/webhelp/scr/2264.htm   我按这个帮助设置好了 但我还想增加提醒功能怎么办呢

不是在这里处理了？如果有新的，就加载出来了。加载出来之后，你可以弹出一个提示框。

 

9、在计划管理中新增一个计划，计划的执行间隔为10秒（即10000毫秒），代码为：

 

Dim Filter As String
Dim bj As String
Dim drs As List(Of DataRow)
If DataTables("表A").DataRows.Count > 0 Then
    Return
End If
Select Case User.Name
    Case "李四"
        Filter = "进度 = '1B'"
        bj= "2A"
    Case "王五"
        Filter = "进度 = '2B'"
        bj = "3A"
    Case Else
Return '其他用户不追载
End Select
drs = DataTables("表A").AppendLoad(Filter,False) '追载待处理行
If drs.Count > 0 Then '设置新流程的开始标记
    For Each dr As DataRow In drs
        dr("进度") = bj
        dr.Save() '一定要保存 ,以更新后台的流程进度标记
    Next
End If

 

上面的代码就会每隔10秒执行一次,如果当前表已经没有数据,就从后台追载新的待处理行,并为新追载行设置本流程开始标记.
具体间隔时间可以根据需要调整,但不宜过短,以免服务器的负载过重.

这个我设置了   也能定位我就想弹出一个提示框明显一点 好让具体操作人员知道怎么回事

这样写代码

 

Dim Filter As String
Dim bj As String
Dim drs As List(Of DataRow)
If DataTables("表A").DataRows.Count > 0 Then
    Return
End If
Select Case User.Name
    Case "李四"
        Filter = "进度 = '1B'"
        bj= "2A"
    Case "王五"
        Filter = "进度 = '2B'"
        bj = "3A"
    Case Else
Return '其他用户不追载
End Select
drs = DataTables("表A").AppendLoad(Filter,False) '追载待处理行
If drs.Count > 0 Then '设置新流程的开始标记
    msgbox("有新数据，请注意审核")
    For Each dr As DataRow In drs
        dr("进度") = bj
        dr.Save() '一定要保存 ,以更新后台的流程进度标记
    Next
End If

在计划管理中新增一个计划，计划的执行间隔为10秒（即10000毫秒）

 

http://www.foxtable.com/webhelp/scr/0657.htm

 

此主题相关图片如下：1.png


此主题相关图片如下：2.png

代码改成这样

 

Dim Filter As String
Dim bj As String
Dim drs As List(Of DataRow)
Select Case User.Group
    Case "员工之家"
        Filter = "进度 = '1B'"
        bj= "2A"
    Case "车间管理人员"
        Filter = "进度 = '2B'"
        bj = "3A"
    Case Else
        filter = "1=1"
End Select
output.show(Date.now)
Dim str = DataTables("物品领用单").GetComboListString("_Identify").replace("|", ",")
str = iif(str="", "-1", str)
drs = DataTables("物品领用单").AppendLoad(Filter & " and [_Identify] not in (" & str & ")",False) '追载待处理行
If drs.Count > 0 Then '设置新流程的开始标记
    MessageBox.Show("有新数据录入 请及时处理!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    For Each dr As DataRow In drs
        dr("进度") = bj
        dr.Save() '一定要保存 ,以更新后台的流程进度标记
    Next
End If