GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/06、業務管理系統/合約文件簽核控制表.vb

Public Class 合約文件簽核控制表
    Private Sub Set_合約清單()
        Dim ds6 As New DataSet
        合約_dgv.DataSource = Nothing : ds6.Clear()
        合約_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        合約_dgv.ColumnHeadersHeight = 25 : 合約_dgv.AllowUserToAddRows = False
        PA = 關鍵字搜尋_tb.Text : PA46 = 合約編號1_cb.Text
        SQL_合約文件簽核控制表()
        da.Fill(ds6) : 合約_dgv.DataSource = ds6.Tables(0) : conn.Close()
        合約_dgv.Columns(0).FillWeight = 180 : 合約_dgv.Columns("工程名稱_中").FillWeight = 400 : 合約_dgv.Columns("工程名稱_英").FillWeight = 400
        合約_dgv.Columns("保固期限").Visible = False : 合約_dgv.Columns("簽回檔圖庫").Visible = False
        合約_dgv.Columns(0).ReadOnly = True
        For i As Integer = 0 To 合約_dgv.Rows.Count - 1
            If 合約_dgv("保固期限", i).Value.ToString = "" Then : 合約_dgv("開始保固", i).Value = False : Else : 合約_dgv("開始保固", i).Value = True : End If
            If IsDBNull(合約_dgv("報價完成", i).Value) = True Then : 合約_dgv("報價完成", i).Value = False : End If
            If 合約_dgv("報價完成", i).Value = True Then : 合約_dgv("報價完成", i).Value = False : Else : 合約_dgv("報價完成", i).Value = True : End If
        Next
        If 系統語言 = "繁體中文" Then
            合約_dgv.Columns("工程名稱_中").Visible = True : 合約_dgv.Columns("工程名稱_英").Visible = False
        Else
            合約_dgv.Columns("工程名稱_中").Visible = False : 合約_dgv.Columns("工程名稱_英").Visible = True
        End If
        資料數_tb.Text = Strings.Format(合約_dgv.Rows.Count, "#,##0")
    End Sub
    Private Sub 甲方條件下拉清單讀取()
        SQL合約條件讀取() : 合約編號1_cb.Items.Clear() : 合約編號1_cb.Items.Add("") : While (dr.Read()) : 合約編號1_cb.Items.Add(dr("約號甲方")) : End While : conn.Close()
    End Sub
    Private Sub 合約文件簽核控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        MyModule1.清單字體大小調整()
        合約_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub 合約文件簽核控制表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        SQL2 = "" : SQL3 = "" : SQL4 = "" : SQL5 = "" : SQL6 = "" : SQL7 = "" : SQL8 = "" : SQL9 = "" : SQL10 = ""
        甲方條件下拉清單讀取() : SQL2 = " AND (合約停止 = 0 OR 合約停止 IS NULL)" : SQL3 = "" : Set_合約清單()
    End Sub
    Private Sub 合約文件簽核控制表_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
        MyModule1.清單字體大小調整()
        合約_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub 合約文件簽核控制表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        MyModule1.虛擬桌面開啟()
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 合約編號1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約編號1_cb.SelectedIndexChanged
        Set_合約清單()
    End Sub
    Private Sub 全部資料_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 全部資料_ch.Click
        全部資料_ch.Checked = True : 報價放行_ch.Checked = False : 報價未放行_ch.Checked = False : 報價簽回_ch.Checked = False : 報價未簽回_ch.Checked = False : 合約簽回_ch.Checked = False
        合約未簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 驗收未簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 請款未簽回_ch.Checked = False : 保固簽回_ch.Checked = False
        保固未簽回_ch.Checked = False : 報價完成_ch.Checked = False : 報價未完成_ch.Checked = False
        SQL2 = "" : SQL3 = "" : SQL4 = "" : SQL5 = "" : SQL6 = "" : SQL7 = "" : SQL8 = "" : SQL9 = "" : SQL10 = "" : Set_合約清單()
    End Sub
    Private Sub 報價完成_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 報價完成_ch.Click
        全部資料_ch.Checked = False : 報價放行_ch.Checked = False : 報價未放行_ch.Checked = False : 報價簽回_ch.Checked = False : 報價未簽回_ch.Checked = False : 合約簽回_ch.Checked = False
        合約未簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 驗收未簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 請款未簽回_ch.Checked = False : 保固簽回_ch.Checked = False
        保固未簽回_ch.Checked = False : 報價完成_ch.Checked = True : 報價未完成_ch.Checked = False
        SQL2 = " AND (合約停止 = 0 OR 合約停止 IS NULL)" : SQL3 = "" : Set_合約清單()
    End Sub
    Private Sub 報價未完成_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 報價未完成_ch.Click
        全部資料_ch.Checked = False : 報價放行_ch.Checked = False : 報價未放行_ch.Checked = False : 報價簽回_ch.Checked = False : 報價未簽回_ch.Checked = False : 合約簽回_ch.Checked = False
        合約未簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 驗收未簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 請款未簽回_ch.Checked = False : 保固簽回_ch.Checked = False
        保固未簽回_ch.Checked = False : 報價完成_ch.Checked = False : 報價未完成_ch.Checked = True
        SQL2 = " AND (合約停止 = 1)" : SQL3 = "" : SQL4 = "" : Set_合約清單()
    End Sub
    Private Sub 報價放行_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 報價放行_ch.Click
        全部資料_ch.Checked = False : 報價放行_ch.Checked = True : 報價未放行_ch.Checked = False : 報價簽回_ch.Checked = False : 報價未簽回_ch.Checked = False : 合約簽回_ch.Checked = False
        合約未簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 驗收未簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 請款未簽回_ch.Checked = False : 保固簽回_ch.Checked = False
        保固未簽回_ch.Checked = False : 報價完成_ch.Checked = False : 報價未完成_ch.Checked = False
        SQL2 = " AND (合約停止 = 0 OR 合約停止 IS NULL)" : SQL3 = " AND (報價放行 = 1)" : SQL4 = "" : Set_合約清單()
    End Sub
    Private Sub 報價未放行_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 報價未放行_ch.Click
        全部資料_ch.Checked = False : 報價放行_ch.Checked = False : 報價未放行_ch.Checked = True : 報價簽回_ch.Checked = False : 報價未簽回_ch.Checked = False : 合約簽回_ch.Checked = False
        合約未簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 驗收未簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 請款未簽回_ch.Checked = False : 保固簽回_ch.Checked = False
        保固未簽回_ch.Checked = False : 報價完成_ch.Checked = False : 報價未完成_ch.Checked = False
        SQL2 = " AND (合約停止 = 0 OR 合約停止 IS NULL)" : SQL3 = " AND (報價放行 = 0 OR 報價放行 IS NULL)" : SQL4 = "" : Set_合約清單()
    End Sub
    Private Sub 報價簽回_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 報價簽回_ch.Click
        全部資料_ch.Checked = False : 報價放行_ch.Checked = False : 報價未放行_ch.Checked = False : 報價簽回_ch.Checked = True : 報價未簽回_ch.Checked = False : 合約簽回_ch.Checked = False
        合約未簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 驗收未簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 請款未簽回_ch.Checked = False : 保固簽回_ch.Checked = False
        保固未簽回_ch.Checked = False : 報價完成_ch.Checked = False : 報價未完成_ch.Checked = False
        SQL2 = " AND (合約停止 = 0 OR 合約停止 IS NULL)" : SQL3 = " AND (報價放行 = 1)" : SQL4 = " AND (報價簽回 = 1)" : Set_合約清單()
    End Sub
    Private Sub 報價未簽回_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 報價未簽回_ch.Click
        全部資料_ch.Checked = False : 報價放行_ch.Checked = False : 報價未放行_ch.Checked = False : 報價簽回_ch.Checked = False : 報價未簽回_ch.Checked = True : 合約簽回_ch.Checked = False
        合約未簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 驗收未簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 請款未簽回_ch.Checked = False : 保固簽回_ch.Checked = False
        保固未簽回_ch.Checked = False : 報價完成_ch.Checked = False : 報價未完成_ch.Checked = False
        SQL2 = " AND (合約停止 = 0 OR 合約停止 IS NULL)" : SQL3 = " AND (報價放行 = 1)" : SQL4 = " AND (報價簽回 = 0 OR 報價簽回 IS NULL)" : Set_合約清單()
    End Sub
    Private Sub 合約簽回_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 合約簽回_ch.Click
        全部資料_ch.Checked = False : 報價放行_ch.Checked = False : 報價未放行_ch.Checked = False : 報價簽回_ch.Checked = False : 報價未簽回_ch.Checked = False : 合約簽回_ch.Checked = True
        合約未簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 驗收未簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 請款未簽回_ch.Checked = False : 保固簽回_ch.Checked = False
        保固未簽回_ch.Checked = False : 報價完成_ch.Checked = False : 報價未完成_ch.Checked = False
        SQL2 = " AND (合約停止 = 0 OR 合約停止 IS NULL)" : SQL3 = " AND (報價放行 = 1)" : SQL4 = " AND (合約簽回 = 1)" : Set_合約清單()
    End Sub
    Private Sub 合約未簽回_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 合約未簽回_ch.Click
        全部資料_ch.Checked = False : 報價放行_ch.Checked = False : 報價未放行_ch.Checked = False : 報價簽回_ch.Checked = False : 報價未簽回_ch.Checked = False : 合約簽回_ch.Checked = False
        合約未簽回_ch.Checked = True : 驗收簽回_ch.Checked = False : 驗收未簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 請款未簽回_ch.Checked = False : 保固簽回_ch.Checked = False
        保固未簽回_ch.Checked = False : 報價完成_ch.Checked = False : 報價未完成_ch.Checked = False
        SQL2 = " AND (合約停止 = 0 OR 合約停止 IS NULL)" : SQL3 = " AND (報價放行 = 1)" : SQL4 = " AND (合約簽回 = 0 OR 合約簽回 IS NULL)" : Set_合約清單()
    End Sub
    Private Sub 驗收簽回_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 驗收簽回_ch.Click
        全部資料_ch.Checked = False : 報價放行_ch.Checked = False : 報價未放行_ch.Checked = False : 報價簽回_ch.Checked = False : 報價未簽回_ch.Checked = False : 合約簽回_ch.Checked = False
        合約未簽回_ch.Checked = False : 驗收簽回_ch.Checked = True : 驗收未簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 請款未簽回_ch.Checked = False : 保固簽回_ch.Checked = False
        保固未簽回_ch.Checked = False : 報價完成_ch.Checked = False : 報價未完成_ch.Checked = False
        SQL2 = " AND (合約停止 = 0 OR 合約停止 IS NULL)" : SQL3 = " AND (報價放行 = 1)" : SQL4 = " AND (驗收簽回 = 1)" : Set_合約清單()
    End Sub
    Private Sub 驗收未簽回_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 驗收未簽回_ch.Click
        全部資料_ch.Checked = False : 報價放行_ch.Checked = False : 報價未放行_ch.Checked = False : 報價簽回_ch.Checked = False : 報價未簽回_ch.Checked = False : 合約簽回_ch.Checked = False
        合約未簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 驗收未簽回_ch.Checked = True : 請款簽回_ch.Checked = False : 請款未簽回_ch.Checked = False : 保固簽回_ch.Checked = False
        保固未簽回_ch.Checked = False : 報價完成_ch.Checked = False : 報價未完成_ch.Checked = False
        SQL2 = " AND (合約停止 = 0 OR 合約停止 IS NULL)" : SQL3 = " AND (報價放行 = 1)" : SQL4 = " AND (驗收簽回 = 0 OR 驗收簽回 IS NULL)" : Set_合約清單()
    End Sub
    Private Sub 請款簽回_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 請款簽回_ch.Click
        全部資料_ch.Checked = False : 報價放行_ch.Checked = False : 報價未放行_ch.Checked = False : 報價簽回_ch.Checked = False : 報價未簽回_ch.Checked = False : 合約簽回_ch.Checked = False
        合約未簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 驗收未簽回_ch.Checked = False : 請款簽回_ch.Checked = True : 請款未簽回_ch.Checked = False : 保固簽回_ch.Checked = False
        保固未簽回_ch.Checked = False : 報價完成_ch.Checked = False : 報價未完成_ch.Checked = False
        SQL2 = " AND (合約停止 = 0 OR 合約停止 IS NULL)" : SQL3 = " AND (報價放行 = 1)" : SQL4 = " AND (請款簽回 = 1)" : Set_合約清單()
    End Sub
    Private Sub 請款未簽回_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 請款未簽回_ch.Click
        全部資料_ch.Checked = False : 報價放行_ch.Checked = False : 報價未放行_ch.Checked = False : 報價簽回_ch.Checked = False : 報價未簽回_ch.Checked = False : 合約簽回_ch.Checked = False
        合約未簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 驗收未簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 請款未簽回_ch.Checked = True : 保固簽回_ch.Checked = False
        保固未簽回_ch.Checked = False : 報價完成_ch.Checked = False : 報價未完成_ch.Checked = False
        SQL2 = " AND (合約停止 = 0 OR 合約停止 IS NULL)" : SQL3 = " AND (報價放行 = 1)" : SQL4 = " AND (請款簽回 = 0 OR 請款簽回 IS NULL)" : Set_合約清單()
    End Sub
    Private Sub 保固簽回_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 保固簽回_ch.Click
        全部資料_ch.Checked = False : 報價放行_ch.Checked = False : 報價未放行_ch.Checked = False : 報價簽回_ch.Checked = False : 報價未簽回_ch.Checked = False : 合約簽回_ch.Checked = False
        合約未簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 驗收未簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 請款未簽回_ch.Checked = False : 保固簽回_ch.Checked = True
        保固未簽回_ch.Checked = False : 報價完成_ch.Checked = False : 報價未完成_ch.Checked = False
        SQL2 = " AND (合約停止 = 0 OR 合約停止 IS NULL)" : SQL3 = " AND (報價放行 = 1)" : SQL4 = " AND (保固簽回 = 1)" : Set_合約清單()
    End Sub
    Private Sub 保固未簽回_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 保固未簽回_ch.Click
        全部資料_ch.Checked = False : 報價放行_ch.Checked = False : 報價未放行_ch.Checked = False : 報價簽回_ch.Checked = False : 報價未簽回_ch.Checked = False : 合約簽回_ch.Checked = False
        合約未簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 驗收未簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 請款未簽回_ch.Checked = False : 保固簽回_ch.Checked = False
        保固未簽回_ch.Checked = True : 報價完成_ch.Checked = False : 報價未完成_ch.Checked = False
        SQL2 = " AND (合約停止 = 0 OR 合約停止 IS NULL)" : SQL3 = " AND (報價放行 = 1)" : SQL4 = " AND (保固簽回 = 0 OR 保固簽回 IS NULL)" : Set_合約清單()
    End Sub
End Class