GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/06、業務管理系統/合約執行進度.vb

Option Strict Off
Public Class 合約執行進度
    ReadOnly ds8 As New DataSet
    ReadOnly 對話框(1) As String
    Private Sub Set_甲方1()
        Dim ds1 As New DataSet : 甲方1_dgv.DataSource = Nothing : ds1.Clear()
        甲方1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        甲方1_dgv.ColumnHeadersHeight = 25 : 甲方1_dgv.AllowUserToAddRows = False
        SQL_甲1()
        da.Fill(ds1) : 甲方1_dgv.DataSource = ds1.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_甲方2()
        Dim ds1 As New DataSet : 甲方2_dgv.DataSource = Nothing : ds1.Clear()
        甲方2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        甲方2_dgv.ColumnHeadersHeight = 25 : 甲方2_dgv.AllowUserToAddRows = False
        SQL_甲2()
        da.Fill(ds1) : 甲方2_dgv.DataSource = ds1.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_清單()
        Dim ds1 As New DataSet : 合約清單_dgv.DataSource = Nothing : ds1.Clear()
        合約清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        合約清單_dgv.ColumnHeadersHeight = 40 : 合約清單_dgv.AllowUserToAddRows = False
        If 系統語言 = "繁體中文" Then : SQL2 = "工程名稱_中" : Else : SQL2 = "工程名稱_英" : End If
        SQL_合約清單查詢()
        da.Fill(ds1) : 合約清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
        合約清單_dgv.Columns("驗收完成日期").Visible = False : 合約清單_dgv.Columns("保固期限").Visible = False
        For I As Integer = 0 To 合約清單_dgv.Rows.Count - 1
            If 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString = "" Then
                合約清單_dgv.Rows(I).Cells(表頭(116)).Value = 對話框(0)
            Else
                If 合約清單_dgv.Rows(I).Cells("驗收完成日期").Value.ToString = "" Then
                    合約清單_dgv.Rows(I).Cells(表頭(116)).Value = 對話框(1)
                Else
                    DTP1.Value = 合約清單_dgv.Rows(I).Cells("驗收完成日期").Value.ToString
                    合約清單_dgv.Rows(I).Cells(表頭(116)).Value = Strings.Format(DTP1.Value.AddMonths(CInt(合約清單_dgv.Rows(I).Cells("保固期限").Value.ToString)), "yyyy/MM/dd")
                End If
            End If
            If 合約清單_dgv.Rows(I).Cells(表頭(134)).Value.ToString = "" Then
                合約清單_dgv.Rows(I).Cells(表頭(134)).Value = 合約清單_dgv.Rows(I).Cells("AB2").Value.ToString
                合約清單_dgv.Rows(I).Cells("甲方").Value = 合約清單_dgv.Rows(I).Cells("B1").Value.ToString
                合約清單_dgv.Rows(I).Cells("日期").Value = 合約清單_dgv.Rows(I).Cells("B2").Value.ToString
                合約清單_dgv.Rows(I).Cells("序號").Value = 合約清單_dgv.Rows(I).Cells("B3").Value.ToString
            End If
            If Strings.Left(合約清單_dgv.Rows(I).Cells(表頭(134)).Value.ToString, 2) = "HX" Then
                合約清單_dgv.Rows(I).Cells("乙方").Value = "HX" : Else : 合約清單_dgv.Rows(I).Cells("乙方").Value = "PGS"
            End If
            If 合約清單_dgv.Rows(I).Cells("第一期比例").Value.ToString = "" Then : 合約清單_dgv.Rows(I).Cells("第一期比例").Value = "0.0000" : End If
            If 合約清單_dgv.Rows(I).Cells("第二期比例").Value.ToString = "" Then : 合約清單_dgv.Rows(I).Cells("第二期比例").Value = "0.0000" : End If
            If 合約清單_dgv.Rows(I).Cells("第三期比例").Value.ToString = "" Then : 合約清單_dgv.Rows(I).Cells("第三期比例").Value = "0.0000" : End If
            If 合約清單_dgv.Rows(I).Cells("第四期比例").Value.ToString = "" Then : 合約清單_dgv.Rows(I).Cells("第四期比例").Value = "0.0000" : End If
            If 合約清單_dgv.Rows(I).Cells("第五期比例").Value.ToString = "" Then : 合約清單_dgv.Rows(I).Cells("第五期比例").Value = "0.0000" : End If
            If 合約清單_dgv.Rows(I).Cells("預付款").Value.ToString = "" Then : 合約清單_dgv.Rows(I).Cells("預付款").Value = "0.0000" : End If
            If 合約清單_dgv.Rows(I).Cells("到貨款").Value.ToString = "" Then : 合約清單_dgv.Rows(I).Cells("到貨款").Value = "0.0000" : End If
            If 合約清單_dgv.Rows(I).Cells("施工款").Value.ToString = "" Then : 合約清單_dgv.Rows(I).Cells("施工款").Value = "0.0000" : End If
            If 合約清單_dgv.Rows(I).Cells("驗收款").Value.ToString = "" Then : 合約清單_dgv.Rows(I).Cells("驗收款").Value = "0.0000" : End If
            If 合約清單_dgv.Rows(I).Cells("保留款").Value.ToString = "" Then : 合約清單_dgv.Rows(I).Cells("保留款").Value = "0.0000" : End If

            'My.Resources._1_123 綠色  My.Resources._1_124 紅色  My.Resources._1_125 橘色
            If 合約清單_dgv.Rows(I).Cells("報價").Value.ToString = "" And 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString = "" Then
                合約清單_dgv.Rows(I).Cells("SOP1/報價").Value = My.Resources._1_124 : 合約清單_dgv.Rows(I).Cells("SOP2/立約").Value = My.Resources._1_124
                合約清單_dgv.Rows(I).Cells("SOP3/收訂").Value = My.Resources._1_124 : 合約清單_dgv.Rows(I).Cells("SOP4/到料").Value = My.Resources._1_124
                合約清單_dgv.Rows(I).Cells("SOP5/施工").Value = My.Resources._1_124 : 合約清單_dgv.Rows(I).Cells("SOP6/驗收").Value = My.Resources._1_124
                合約清單_dgv.Rows(I).Cells("SOP7/保固").Value = My.Resources._1_124 : 合約清單_dgv.Rows(I).Cells("SOP8/結案").Value = My.Resources._1_124
            ElseIf 合約清單_dgv.Rows(I).Cells("報價").Value.ToString <> "" And 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString = "" Then
                合約清單_dgv.Rows(I).Cells("SOP1/報價").Value = My.Resources._1_123 : 合約清單_dgv.Rows(I).Cells("SOP2/立約").Value = My.Resources._1_125
            ElseIf 合約清單_dgv.Rows(I).Cells("報價").Value.ToString = "" And 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then
                合約清單_dgv.Rows(I).Cells("SOP1/報價").Value = My.Resources._1_125 : 合約清單_dgv.Rows(I).Cells("SOP2/立約").Value = My.Resources._1_123
            ElseIf 合約清單_dgv.Rows(I).Cells("報價").Value.ToString <> "" And 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then
                合約清單_dgv.Rows(I).Cells("SOP1/報價").Value = My.Resources._1_123 : 合約清單_dgv.Rows(I).Cells("SOP2/立約").Value = My.Resources._1_123 : End If

            If 合約清單_dgv.Rows(I).Cells("第一期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(I).Cells("預付款").Value.ToString <> "0.0000" And
               合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP3/收訂").Value = My.Resources._1_125
            ElseIf 合約清單_dgv.Rows(I).Cells("第一期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(I).Cells("預付款").Value.ToString = "0.0000" And
               合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP3/收訂").Value = My.Resources._1_123
            ElseIf 合約清單_dgv.Rows(I).Cells("第一期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells("預付款").Value.ToString = "0.0000" And
               合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP3/收訂").Value = My.Resources._1_124
            ElseIf 合約清單_dgv.Rows(I).Cells("第一期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells("預付款").Value.ToString <> "0.0000" Then
                合約清單_dgv.Rows(I).Cells("SOP3/收訂").Value = My.Resources._1_122
            End If

            If 合約清單_dgv.Rows(I).Cells("第二期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(I).Cells("到貨款").Value.ToString <> "0.0000" And
               合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP4/到料").Value = My.Resources._1_125
            ElseIf 合約清單_dgv.Rows(I).Cells("第二期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(I).Cells("到貨款").Value.ToString = "0.0000" And
               合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP4/到料").Value = My.Resources._1_123
            ElseIf 合約清單_dgv.Rows(I).Cells("第二期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells("到貨款").Value.ToString = "0.0000" And
               合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP4/到料").Value = My.Resources._1_124
            ElseIf 合約清單_dgv.Rows(I).Cells("第二期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells("到貨款").Value.ToString <> "0.0000" Then
                合約清單_dgv.Rows(I).Cells("SOP4/到料").Value = My.Resources._1_122
            End If

            If 合約清單_dgv.Rows(I).Cells("第三期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(I).Cells("施工款").Value.ToString <> "0.0000" And
               合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP5/施工").Value = My.Resources._1_125
            ElseIf 合約清單_dgv.Rows(I).Cells("第三期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(I).Cells("施工款").Value.ToString = "0.0000" And
               合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP5/施工").Value = My.Resources._1_123
            ElseIf 合約清單_dgv.Rows(I).Cells("第三期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells("施工款").Value.ToString = "0.0000" And
               合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP5/施工").Value = My.Resources._1_124
            ElseIf 合約清單_dgv.Rows(I).Cells("第三期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells("施工款").Value.ToString <> "0.0000" Then
                合約清單_dgv.Rows(I).Cells("SOP5/施工").Value = My.Resources._1_122
            End If

            If 合約清單_dgv.Rows(I).Cells("第四期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(I).Cells("驗收款").Value.ToString <> "0.0000" And
               合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP6/驗收").Value = My.Resources._1_125
            ElseIf 合約清單_dgv.Rows(I).Cells("第四期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(I).Cells("驗收款").Value.ToString = "0.0000" And
               合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP6/驗收").Value = My.Resources._1_123
            ElseIf 合約清單_dgv.Rows(I).Cells("第四期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells("驗收款").Value.ToString = "0.0000" And
               合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP6/驗收").Value = My.Resources._1_124
            ElseIf 合約清單_dgv.Rows(I).Cells("第四期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells("驗收款").Value.ToString <> "0.0000" Then
                合約清單_dgv.Rows(I).Cells("SOP6/驗收").Value = My.Resources._1_122
            End If

            If 合約清單_dgv.Rows(I).Cells("第五期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(I).Cells("保留款").Value.ToString <> "0.0000" And
               合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP7/保固").Value = My.Resources._1_125
            ElseIf 合約清單_dgv.Rows(I).Cells("第五期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(I).Cells("保留款").Value.ToString = "0.0000" And
               合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP7/保固").Value = My.Resources._1_123
            ElseIf 合約清單_dgv.Rows(I).Cells("第五期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells("保留款").Value.ToString = "0.0000" And
               合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then : 合約清單_dgv.Rows(I).Cells("SOP7/保固").Value = My.Resources._1_124
            ElseIf 合約清單_dgv.Rows(I).Cells("第五期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells("保留款").Value.ToString <> "0.0000" Then
                合約清單_dgv.Rows(I).Cells("SOP7/保固").Value = My.Resources._1_122 : End If

            If 合約清單_dgv.Rows(I).Cells("預付款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells("到貨款").Value.ToString = "0.0000" And
               合約清單_dgv.Rows(I).Cells("施工款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells("驗收款").Value.ToString = "0.0000" And
               合約清單_dgv.Rows(I).Cells("保留款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then
                合約清單_dgv.Rows(I).Cells("SOP8/結案").Value = My.Resources._1_123
            ElseIf (合約清單_dgv.Rows(I).Cells("預付款").Value.ToString <> "0.0000" Or 合約清單_dgv.Rows(I).Cells("到貨款").Value.ToString <> "0.0000" Or
               合約清單_dgv.Rows(I).Cells("施工款").Value.ToString <> "0.0000" Or 合約清單_dgv.Rows(I).Cells("驗收款").Value.ToString <> "0.0000" Or
               合約清單_dgv.Rows(I).Cells("保留款").Value.ToString <> "0.0000") And 合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" Then
                合約清單_dgv.Rows(I).Cells("SOP8/結案").Value = My.Resources._1_125
            Else : 合約清單_dgv.Rows(I).Cells("SOP8/結案").Value = My.Resources._1_124 : End If
        Next
        合約清單_dgv.Sort(合約清單_dgv.Columns("日期"), System.ComponentModel.ListSortDirection.Descending)
        For i As Integer = 3 To 21 : 合約清單_dgv.Columns(i).Visible = False : Next
        合約清單_dgv.Columns(0).FillWeight = 45 : 合約清單_dgv.Columns(1).FillWeight = 165 : 合約清單_dgv.Columns(2).FillWeight = 70
        合約清單_dgv.Columns("SOP1/報價").FillWeight = 20 : 合約清單_dgv.Columns("SOP2/立約").FillWeight = 20 : 合約清單_dgv.Columns("SOP3/收訂").FillWeight = 20
        合約清單_dgv.Columns("SOP4/到料").FillWeight = 20 : 合約清單_dgv.Columns("SOP5/施工").FillWeight = 20 : 合約清單_dgv.Columns("SOP6/驗收").FillWeight = 20
        合約清單_dgv.Columns("SOP7/保固").FillWeight = 20 : 合約清單_dgv.Columns("SOP8/結案").FillWeight = 20
        Dim mycol1 As DataGridViewImageColumn = 合約清單_dgv.Columns("SOP1/報價") : Dim mycol2 As DataGridViewImageColumn = 合約清單_dgv.Columns("SOP2/立約")
        Dim mycol3 As DataGridViewImageColumn = 合約清單_dgv.Columns("SOP3/收訂") : Dim mycol4 As DataGridViewImageColumn = 合約清單_dgv.Columns("SOP4/到料")
        Dim mycol5 As DataGridViewImageColumn = 合約清單_dgv.Columns("SOP5/施工") : Dim mycol6 As DataGridViewImageColumn = 合約清單_dgv.Columns("SOP6/驗收")
        Dim mycol7 As DataGridViewImageColumn = 合約清單_dgv.Columns("SOP7/保固") : Dim mycol8 As DataGridViewImageColumn = 合約清單_dgv.Columns("SOP8/結案")
        mycol1.ImageLayout = DataGridViewImageCellLayout.Zoom : mycol2.ImageLayout = DataGridViewImageCellLayout.Zoom : mycol3.ImageLayout = DataGridViewImageCellLayout.Zoom
        mycol4.ImageLayout = DataGridViewImageCellLayout.Zoom : mycol5.ImageLayout = DataGridViewImageCellLayout.Zoom : mycol6.ImageLayout = DataGridViewImageCellLayout.Zoom
        mycol7.ImageLayout = DataGridViewImageCellLayout.Zoom : mycol8.ImageLayout = DataGridViewImageCellLayout.Zoom
    End Sub
    Private Sub 甲方_cb_下拉表單資料載入()
        Set_甲方1() : Set_甲方2()
        甲方_cb.Items.Clear() : 甲方_cb.Items.Add("")
        Dim 甲(199) As String : Dim ni As Integer = 0 : Dim 寫入 As Boolean
        For i As Integer = 0 To 甲方1_dgv.Rows.Count - 1 : 甲(ni) = 甲方1_dgv.Rows(i).Cells(0).Value.ToString : ni += 1 : Next
        For i As Integer = 0 To 甲方2_dgv.Rows.Count - 1
            寫入 = True
            For ii As Integer = 0 To 甲方1_dgv.Rows.Count - 1 : If 甲方1_dgv.Rows(ii).Cells(0).Value.ToString = 甲方2_dgv.Rows(i).Cells(0).Value.ToString Then : 寫入 = False : Exit For : End If : Next
            If 寫入 = True Then : 甲(ni) = 甲方2_dgv.Rows(i).Cells(0).Value.ToString : ni += 1 : End If
        Next
        For i As Integer = 0 To ni - 1 : 甲方_cb.Items.Add(甲(i)) : Next
    End Sub
    Private Sub Set_語言()
        語言_dgv.DataSource = Nothing : ds8.Clear()
        語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        語言_dgv.ColumnHeadersHeight = 25
        語言_dgv.AllowUserToAddRows = False
        SQL_系統語言導入()
        da.Fill(ds8) : 語言_dgv.DataSource = ds8.Tables(0) : conn.Close()
    End Sub
    Private Sub 語言轉換讀取()
        Set_語言() : conn.Close()
        For i As Integer = 0 To 語言_dgv.Rows.Count - 1
            If 語言_dgv("控件", i).Value.ToString = "合約執行進度" Then : Me.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "甲方_lb" Then : 甲方_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "合約號_lb" Then : 合約號_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_合約號" Then : 表頭(134) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_工程" Then : 表頭(152) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_保固到期" Then : 表頭(116) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框1" Then : 對話框(0) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框2" Then : 對話框(1) = 語言_dgv("內容", i).Value.ToString : End If
        Next
    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
        H(101) = True : 介面 = "H101" : 語言轉換讀取()
        SOP1_P.Image = My.Resources._1_124 : SOP2_P.Image = My.Resources._1_124 : SOP3_P.Image = My.Resources._1_124 : SOP4_P.Image = My.Resources._1_124
        SOP5_P.Image = My.Resources._1_124 : SOP6_P.Image = My.Resources._1_124 : SOP7_P.Image = My.Resources._1_124 : SOP8_P.Image = My.Resources._1_124
        SOP1_P.SizeMode = 4 : SOP2_P.SizeMode = 4 : SOP3_P.SizeMode = 4 : SOP4_P.SizeMode = 4 : SOP5_P.SizeMode = 4 : SOP6_P.SizeMode = 4 : SOP7_P.SizeMode = 4 : SOP8_P.SizeMode = 4
    End Sub
    Private Sub 合約執行進度_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        甲方_cb_下拉表單資料載入() : PA = "" : Set_清單()
    End Sub
    Private Sub 合約執行進度_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        H(101) = False : MyModule1.虛擬桌面開啟()
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H101" : 語言轉換讀取() : Set_清單()
    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 合約清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 合約清單_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            合約號_tb.Text = 合約清單_dgv.Rows(e.RowIndex).Cells(0).Value.ToString
            PA18 = 合約清單_dgv.Rows(e.RowIndex).Cells(0).Value.ToString
            If 合約清單_dgv.Rows(e.RowIndex).Cells(14).Value.ToString = "" Then : PA19 = 合約清單_dgv.Rows(e.RowIndex).Cells(18).Value.ToString
            Else : PA19 = 合約清單_dgv.Rows(e.RowIndex).Cells(14).Value.ToString : End If
            If 合約清單_dgv.Rows(e.RowIndex).Cells(15).Value.ToString = "" Then : PA20 = 合約清單_dgv.Rows(e.RowIndex).Cells(19).Value.ToString
            Else : PA20 = 合約清單_dgv.Rows(e.RowIndex).Cells(15).Value.ToString : End If
            If 合約清單_dgv.Rows(e.RowIndex).Cells(16).Value.ToString = "" Then : PA21 = 合約清單_dgv.Rows(e.RowIndex).Cells(20).Value.ToString
            Else : PA21 = 合約清單_dgv.Rows(e.RowIndex).Cells(16).Value.ToString : End If

            'My.Resources._1_123 綠色  My.Resources._1_124 紅色  My.Resources._1_125 橘色
            If 合約清單_dgv.Rows(e.RowIndex).Cells("報價").Value.ToString = "" And 合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString = "" Then
                SOP1_P.Image = My.Resources._1_124 : SOP2_P.Image = My.Resources._1_124 : SOP3_P.Image = My.Resources._1_124 : SOP4_P.Image = My.Resources._1_124
                SOP5_P.Image = My.Resources._1_124 : SOP6_P.Image = My.Resources._1_124 : SOP7_P.Image = My.Resources._1_124 : SOP8_P.Image = My.Resources._1_124
            ElseIf 合約清單_dgv.Rows(e.RowIndex).Cells("報價").Value.ToString <> "" And 合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString = "" Then
                SOP1_P.Image = My.Resources._1_123 : SOP2_P.Image = My.Resources._1_125
            ElseIf 合約清單_dgv.Rows(e.RowIndex).Cells("報價").Value.ToString = "" And 合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then
                SOP1_P.Image = My.Resources._1_125 : SOP2_P.Image = My.Resources._1_123
            ElseIf 合約清單_dgv.Rows(e.RowIndex).Cells("報價").Value.ToString <> "" And 合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then
                SOP1_P.Image = My.Resources._1_123 : SOP2_P.Image = My.Resources._1_123 : End If
            If 合約清單_dgv.Rows(e.RowIndex).Cells("第一期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("預付款").Value.ToString <> "0.0000" And
               合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP3_P.Image = My.Resources._1_125
            ElseIf 合約清單_dgv.Rows(e.RowIndex).Cells("第一期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("預付款").Value.ToString = "0.0000" And
               合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP3_P.Image = My.Resources._1_123
            ElseIf 合約清單_dgv.Rows(e.RowIndex).Cells("第一期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("預付款").Value.ToString = "0.0000" And
               合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP3_P.Image = My.Resources._1_124 : End If
            If 合約清單_dgv.Rows(e.RowIndex).Cells("第二期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("到貨款").Value.ToString <> "0.0000" And
               合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP4_P.Image = My.Resources._1_125
            ElseIf 合約清單_dgv.Rows(e.RowIndex).Cells("第二期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("到貨款").Value.ToString = "0.0000" And
               合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP4_P.Image = My.Resources._1_123
            ElseIf 合約清單_dgv.Rows(e.RowIndex).Cells("第二期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("到貨款").Value.ToString = "0.0000" And
               合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP4_P.Image = My.Resources._1_124 : End If
            If 合約清單_dgv.Rows(e.RowIndex).Cells("第三期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("施工款").Value.ToString <> "0.0000" And
               合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP5_P.Image = My.Resources._1_125
            ElseIf 合約清單_dgv.Rows(e.RowIndex).Cells("第三期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("施工款").Value.ToString = "0.0000" And
               合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP5_P.Image = My.Resources._1_123
            ElseIf 合約清單_dgv.Rows(e.RowIndex).Cells("第三期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("施工款").Value.ToString = "0.0000" And
               合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP5_P.Image = My.Resources._1_124 : End If
            If 合約清單_dgv.Rows(e.RowIndex).Cells("第四期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("驗收款").Value.ToString <> "0.0000" And
               合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP6_P.Image = My.Resources._1_125
            ElseIf 合約清單_dgv.Rows(e.RowIndex).Cells("第四期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("驗收款").Value.ToString = "0.0000" And
               合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP6_P.Image = My.Resources._1_123
            ElseIf 合約清單_dgv.Rows(e.RowIndex).Cells("第四期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("驗收款").Value.ToString = "0.0000" And
               合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP6_P.Image = My.Resources._1_124 : End If
            If 合約清單_dgv.Rows(e.RowIndex).Cells("第五期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("保留款").Value.ToString <> "0.0000" And
               合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP7_P.Image = My.Resources._1_125
            ElseIf 合約清單_dgv.Rows(e.RowIndex).Cells("第五期比例").Value.ToString <> "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("保留款").Value.ToString = "0.0000" And
               合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP7_P.Image = My.Resources._1_123
            ElseIf 合約清單_dgv.Rows(e.RowIndex).Cells("第五期比例").Value.ToString = "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("保留款").Value.ToString = "0.0000" And
               合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then : SOP7_P.Image = My.Resources._1_124 : End If
            If 合約清單_dgv.Rows(e.RowIndex).Cells("預付款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("到貨款").Value.ToString = "0.0000" And
               合約清單_dgv.Rows(e.RowIndex).Cells("施工款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("驗收款").Value.ToString = "0.0000" And
               合約清單_dgv.Rows(e.RowIndex).Cells("保留款").Value.ToString = "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then
                SOP8_P.Image = My.Resources._1_123
            ElseIf (合約清單_dgv.Rows(e.RowIndex).Cells("預付款").Value.ToString <> "0.0000" Or 合約清單_dgv.Rows(e.RowIndex).Cells("到貨款").Value.ToString <> "0.0000" Or
               合約清單_dgv.Rows(e.RowIndex).Cells("施工款").Value.ToString <> "0.0000" Or 合約清單_dgv.Rows(e.RowIndex).Cells("驗收款").Value.ToString <> "0.0000" Or
               合約清單_dgv.Rows(e.RowIndex).Cells("保留款").Value.ToString <> "0.0000") And 合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then
                SOP8_P.Image = My.Resources._1_125
            Else : SOP8_P.Image = My.Resources._1_124 : End If
        End If
    End Sub
    Private Sub 甲方_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 甲方_cb.SelectedIndexChanged
        PA = 甲方_cb.Text : Set_清單() : PA = ""
    End Sub
    Private Sub 修改合約編號_bt_Click(sender As Object, e As EventArgs) Handles 修改合約編號_bt.Click
        If 登入人級別 > 3 Then
            If 系統語言 = "繁體中文" Then : MsgBox("權限不足!!") : Else : MsgBox("Izin Tidak Memadai!!") : End If : Else
            If PA18 = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("沒有資料!!") : Else : MsgBox("No Date!!") : End If
            Else : 合約編號修改器.ShowDialog() : PA18 = "" : PA19 = "" : PA20 = "" : PA21 = "" : Set_清單() : End If
        End If
    End Sub
End Class