viewworkrep.aspx.vb

来自「网上办公自动化之工作汇报整个模块下载。JDFLOW版权所有」· VB 代码 · 共 101 行

Imports Microsoft.VisualBasic
Imports System
Imports System.Data
Imports System.Configuration
Imports System.Collections
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports System.Data.SqlClient
Imports System.Reflection

Partial Class GZHB_ViewWorkRep
    Inherits System.Web.UI.Page
    Dim sqldb As SqlDataBase = New SqlDataBase
    Shared reid As String
    Dim taskclass As New CTask
    Dim task_id As String
    Dim users As New users

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Session.Remove("FileStatus")
        reid = Request.QueryString("WorkRepID")
        Dim dt As DataTable = sqldb.GetTable("select * from T_workRep where WorkRepID ='" & CInt(reid) & "'")
        If dt.Rows.Count = 0 Then
            Label_Title.Text = "记录为空"
        Else
            Label_Title.Text = dt.Rows.Item(0).Item("Title")
            Dim idate As Date = CDate(dt.Rows.Item(0).Item("SendTime"))
            Label_SendTime.Text = Format(idate, "yyyy年MM月dd日  HH时mm分")
            Dim content As String = dt.Rows.Item(0).Item("contents")
            Label3.Text = HtmlCode(content)
            Label_SendUnit.Text = users.GetUserName(dt.Rows.Item(0).Item("SenderID"))
            If dt.Rows.Item(0).Item("status") = "draft" Then
                Label_Status.Visible = True
            End If
            '如果不是发送给所有人，则记录查看时间
            If Trim(dt.Rows.Item(0).Item("senderID")) <> Profile.user.id Then
                '如果表中阅读时间为空（表明未阅读），则写入当前时间
                dt = sqldb.GetTable("select * from T_WorkRepReturn where WorkRepID ='" & reid & "' and receiver ='" & Profile.user.id & "'")
                If dt.Rows.Count <> 0 Then
                    If dt.Rows.Item(0).Item("CheckTime") Is System.DBNull.Value Then
                        sqldb.RunSql("update T_WorkRepReturn set CheckTime='" & Date.Now & _
                         "'where WorkRepID ='" & reid & "' and receiver ='" & Profile.user.id & "'")
                        If Request.QueryString("taskid") <> "" Then
                            task_id = Request.QueryString("taskid")
                            taskclass.init("T_workRepTasks")
                            taskclass.finishTask(CInt(task_id), Date.Now)
                        End If
                    End If
                End If
                '如果本通知所有阅读时间均不为空，则写入T_docuReturn的status为true(表示所有人均已阅读此通知)
                dt = sqldb.GetTable("select * from T_workRep where WorkRepID ='" & reid & "'")
                If dt.Rows.Item(0).Item("checkStatus") = False Then
                    dt = sqldb.GetTable("select * from T_WorkRepReturn where WorkRepID ='" & reid & "'")
                    Dim i, j As Int32
                    j = dt.Rows.Count
                    For i = 0 To j - 1
                        If dt.Rows.Item(i).Item("CheckTime") Is System.DBNull.Value Then
                            sqldb.RunSql("update T_workRep set checkStatus='false' where WorkRepID='" & reid & "'")
                            Exit For
                        Else
                            sqldb.RunSql("update T_workRep set checkStatus='true' where WorkRepID='" & reid & "'")
                        End If
                    Next
                End If
            End If
            BindData()
        End If
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button_Return.Click
        Response.Write("<script>history.go(-2);</script>")
    End Sub

    Public Sub BindData()
        Dim dv As DataView = sqldb.GetDv("select * from T_WorkRepFile where WorkRepID ='" & reid & "'")
        GridView_draft.DataSource = dv
        If dv.Count <> 0 Then
            Label_Notice.Visible = True
        End If
        GridView_draft.DataBind()
    End Sub

    Public Function HtmlCode(ByVal fString) As String
        If fString <> "" Then
            fString = Replace(fString, Chr(13), "")
            fString = Replace(fString, Chr(10) & Chr(10), "</P><P>")
            fString = Replace(fString, Chr(10), "<BR>")
            fString = Replace(fString, Chr(32), "&nbsp;")
        End If
        Return fString
    End Function

    Protected Sub Button1_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Response.Redirect("newWorkRep.aspx?status=zhuanfa&id=" + Request.QueryString("WorkRepID"))
    End Sub
End Class