Static maxIdx As Integer
Dim idx As Integer = DataTables("任务提醒").SQLCompute("max(_Identify)")
If maxIdx = idx Then
Return
Else
maxIdx = idx
End If
Static ib As Boolean
Dim f As WinForm.Form = Forms("任务提醒")
Dim fw As Integer = 250
Dim fh As Integer = 250
Dim k As Integer = 1
If k > 0 AndAlso f.Opened = False Then
f.Open(SysInfo.WorkingAreaWidth-fw,SysInfo.WorkingAreaHeight)
End If
If f.Opened Then
Dim h As Integer = SysInfo.ScreenHeight - SysInfo.WorkingAreaHeight + fh
If f.BaseForm.Top > SysInfo.WorkingAreaHeight - fh Then
For i As Integer = 1 To h
f.setbounds(SysInfo.WorkingAreaWidth-fw,SysInfo.WorkingAreaHeight-i,fw-19,fh)
Next
End If
Dim tbr As WinForm.TopicBar = f.Controls("TopicBar1")
Dim tpg_system As WinForm.TopicPage = tbr.Pages("个案动态")
Dim tpg_new As WinForm.TopicPage = tbr.Pages("待签署个案")
Dim tpg_system1 As WinForm.TopicPage = tbr.Pages("文件动态")
Dim tpg_new1 As WinForm.TopicPage = tbr.Pages("待签署文件")
tpg_system.Links.Clear
tpg_new.Links.Clear
tpg_system1.Links.Clear
tpg_new1.Links.Clear
Dim dt As DataTable = DataTables("任务提醒")
Dim filter As String
Select Case user.Roles
Case "个案拆分"
filter = "待审核"
Case "行销部主管"
filter = "待批准"
Case "行销部经理"
filter = "待终审"
Case "Boss"
filter = "待裁决"
Case Else
filter = "1=2"
End Select
Dim filter1 As String
Select Case user.Roles
Case "行销部主管"
filter1 = "待审核"
Case "行销部经理"
filter1 = "待批准"
Case Else
filter1 = "1=2"
End Select
Dim rand As Integer = 0
Dim count1 As Integer = 0
Dim count2 As Integer = 0
Dim count3 As Integer = 0
Dim count4 As Integer = 0
For Each dr As DataRow In dt.sqlSelect("编号 is not null")
Select Case dr("表名")
Case "个案申请"
If Cstr(dr("用户")).Contains(user.name) Then
tpg_system.Links.Add(dr("表名") & "_" & dr("编号"), dr("文件名称"))
count1 += 1
End If
If dr("状态") = filter Then
tpg_new.Links.Add(dr("表名") & "_" & dr("编号"), dr("文件名称"))
count2 += 1
End If
Case "文件管理"
If Cstr(dr("用户")).Contains(user.name) Then
tpg_system1.Links.Add(dr("表名") & "_" & dr("编号"), dr("文件名称"))
count3 += 1
End If
If dr("状态") = filter1 Then
tpg_new1.Links.Add(dr("表名") & "_" & dr("编号"), dr("文件名称"))
count4 += 1
End If
End Select
Next
End If
tpg_system.Text = tpg_system.Name & "(" & count1 & ")"
tpg_new.Text = tpg_system.Name & "(" & count2 & ")"
tpg_system1.Text = tpg_system.Name & "(" & count3 & ")"
tpg_new1.Text = tpg_system.Name & "(" & count4 & ")"