HX-PGS-ERP-SYS-SIU/06、業務管理系統/業務報表/合約執行進度.vb

Option Strict Off
Public Class 合約執行進度
    Dim 對話框(3) 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
        合約清單_dgv.RowTemplate.Height = 40
        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
        合約清單_dgv.Columns("AB3").Visible = False : 合約清單_dgv.Columns("AB4").Visible = False
        For i As Integer = 3 To 21 : 合約清單_dgv.Columns(i).Visible = False : Next
        'For i As Integer = 3 To 12 : 合約清單_dgv.Columns(i).Visible = True : Next
        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
                If 合約清單_dgv.Rows(I).Cells("AB2").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
                ElseIf 合約清單_dgv.Rows(I).Cells("AB3").Value.ToString <> "" Then
                    合約清單_dgv.Rows(I).Cells(表頭(134)).Value = 合約清單_dgv.Rows(I).Cells("AB3").Value.ToString
                ElseIf 合約清單_dgv.Rows(I).Cells("AB4").Value.ToString <> "" Then
                    合約清單_dgv.Rows(I).Cells(表頭(134)).Value = 合約清單_dgv.Rows(I).Cells("AB3").Value.ToString
                End If
            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 <> "" And 合約清單_dgv.Rows(I).Cells(表頭(116)).Value.ToString = 對話框(1) 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 <> "" And 合約清單_dgv.Rows(I).Cells(表頭(116)).Value.ToString <> 對話框(1) 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" And
                   合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" And 合約清單_dgv.Rows(I).Cells(表頭(116)).Value.ToString = 對話框(1) 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 <> "" And 合約清單_dgv.Rows(I).Cells(表頭(116)).Value.ToString <> 對話框(1) 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 <> "" And 合約清單_dgv.Rows(I).Cells(表頭(116)).Value.ToString = 對話框(1) 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 <> "" And 合約清單_dgv.Rows(I).Cells(表頭(116)).Value.ToString <> 對話框(1) 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" And
                   合約清單_dgv.Rows(I).Cells(表頭(152)).Value.ToString <> "" And 合約清單_dgv.Rows(I).Cells(表頭(116)).Value.ToString = 對話框(1) 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 <> "" And 合約清單_dgv.Rows(I).Cells(表頭(116)).Value.ToString <> 對話框(1) 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 <> "" And
                   合約清單_dgv.Rows(I).Cells(表頭(116)).Value.ToString <> 對話框(1) Then
                合約清單_dgv.Rows(I).Cells("SOP8/結案").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("施工款").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 <> "" And
                   合約清單_dgv.Rows(I).Cells(表頭(116)).Value.ToString = 對話框(1) 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 <> "" And
                   合約清單_dgv.Rows(I).Cells(表頭(116)).Value.ToString <> 對話框(1) Then
                合約清單_dgv.Rows(I).Cells("SOP8/結案").Value = My.Resources._1_124
            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 <> "" And
                   合約清單_dgv.Rows(I).Cells(表頭(116)).Value.ToString = 對話框(1) Then
                合約清單_dgv.Rows(I).Cells("SOP8/結案").Value = My.Resources._1_125
            Else : End If
        Next
        'My.Resources._1_123 綠色  My.Resources._1_124 紅色  My.Resources._1_125 橘色  My.Resources._1_125 藍色
        合約清單_dgv.Sort(合約清單_dgv.Columns("日期"), System.ComponentModel.ListSortDirection.Descending)

        合約清單_dgv.Columns(0).FillWeight = 55 : 合約清單_dgv.Columns(1).FillWeight = 165 : 合約清單_dgv.Columns(2).FillWeight = 65
        合約清單_dgv.Columns("SOP1/報價").FillWeight = 30 : 合約清單_dgv.Columns("SOP2/立約").FillWeight = 30 : 合約清單_dgv.Columns("SOP3/收訂").FillWeight = 30
        合約清單_dgv.Columns("SOP4/到料").FillWeight = 30 : 合約清單_dgv.Columns("SOP5/施工").FillWeight = 30 : 合約清單_dgv.Columns("SOP6/驗收").FillWeight = 30
        合約清單_dgv.Columns("SOP7/保固").FillWeight = 30 : 合約清單_dgv.Columns("SOP8/結案").FillWeight = 30
        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 語言轉換讀取()
        Dim 介面1 As String = "H001"
        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
        Me.Text = 系統語言字典("H001-123-" & 語言) : 對話框(2) = 系統語言字典("H101-114-" & 語言) : 對話框(3) = 系統語言字典("H527-211-" & 語言)
        表頭(152) = 系統語言字典("H101-100-" & 語言) : 表頭(134) = 系統語言字典("H101-101-" & 語言) : 表頭(116) = 系統語言字典("H101-102-" & 語言)
        甲方_lb.Text = 系統語言字典("H101-103-" & 語言) : 合約號_lb.Text = 系統語言字典("H101-104-" & 語言) : 對話框(0) = 系統語言字典("H101-105-" & 語言)
        對話框(1) = 系統語言字典("H101-106-" & 語言) : 異常說明_lb.Text = 系統語言字典("H101-107-" & 語言) : 修改合約編號_bt.Text = 系統語言字典("H101-108-" & 語言)
        表頭(1) = 系統語言字典("H101-109-" & 語言) : Label17.Text = 系統語言字典("H101-110-" & 語言) : Label22.Text = 系統語言字典("H101-111-" & 語言)
        Label24.Text = 系統語言字典("H101-112-" & 語言) : Label23.Text = 系統語言字典("H101-113-" & 語言)
    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" : 語言轉換讀取() : 顯示說明(999, False)
    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 : MyMod.虛擬桌面開啟()
    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 <> "0.0000" And 合約清單_dgv.Rows(e.RowIndex).Cells("預付款").Value.ToString <> "0.0000" And
               合約清單_dgv.Rows(e.RowIndex).Cells(表頭(152)).Value.ToString <> "" Then
            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
            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 : 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
            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
            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 : 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
            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
            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 : 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
            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
            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 : 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
            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
            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 : 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
            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
            Else : 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 甲方_cb_Click(sender As Object, e As EventArgs) Handles 甲方_cb.Click
        CB選擇清單(甲方_cb, 甲方_cb.Text)
    End Sub
    Private Sub 修改合約編號_bt_Click(sender As Object, e As EventArgs) Handles 修改合約編號_bt.Click
        If 登入人級別 > 3 Then : MGB(對話框(2), 1) : Else
            If PA18 = "" Then : MGB(對話框(3), 1) : Else : 合約編號修改器.ShowDialog() : PA18 = "" : PA19 = "" : PA20 = "" : PA21 = "" : PA = 甲方_cb.Text : Set_清單() : End If
        End If
    End Sub

    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = SystemColors.Control
            '----------------黑-------------------------------------------
            甲方_lb.ForeColor = Color.Black : Label17.ForeColor = Color.Black : Label22.ForeColor = Color.Black : Label24.ForeColor = Color.Black
            Label23.ForeColor = Color.Black
            異常說明_lb.ForeColor = Color.Blue
            語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black : 修改合約編號_bt.BackColor = Color.White : 修改合約編號_bt.ForeColor = Color.Black
            甲方_cb.BackColor = Color.White : 甲方_cb.ForeColor = Color.Black

            合約清單_dgv.EnableHeadersVisualStyles = True : 合約清單_dgv.BackgroundColor = Color.White : 合約清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            合約清單_dgv.DefaultCellStyle.BackColor = Color.White : 合約清單_dgv.DefaultCellStyle.ForeColor = Color.Black
        Else
            Me.BackColor = Color.Black
            '----------------黑-------------------------------------------
            甲方_lb.ForeColor = Color.White : Label17.ForeColor = Color.White : Label22.ForeColor = Color.White : Label24.ForeColor = Color.White
            Label23.ForeColor = Color.White
            異常說明_lb.ForeColor = Color.LightBlue
            語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White : 修改合約編號_bt.BackColor = Color.DimGray : 修改合約編號_bt.ForeColor = Color.White
            甲方_cb.BackColor = Color.DimGray : 甲方_cb.ForeColor = Color.White

            合約清單_dgv.EnableHeadersVisualStyles = False : 合約清單_dgv.BackgroundColor = Color.DimGray : 合約清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            合約清單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合約清單_dgv.DefaultCellStyle.BackColor = Color.Black : 合約清單_dgv.DefaultCellStyle.ForeColor = Color.White
        End If
    End Sub
End Class