HX-PGS-ERP-SYS-LEEHSIEHJUI/06、業務管理系統/業務報表/合約結案控制表.vb

Option Strict Off
Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
Imports Microsoft.Office.Interop.Excel.Constants
Imports Microsoft.Office.Interop.Excel.XlThemeFont
Imports Microsoft.Office.Interop.Excel.XlThemeColor
Imports Microsoft.Office.Interop.Excel.XlWindowState
Imports Microsoft.Office.Interop.Excel
Public Class 合約結案控制表
    Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet : Dim 對話框(4) As String
    Dim 選擇項 As Integer
    Private Sub Set_合約清單()
        Dim ds2 As New DataSet
        合約控制表_dgv.DataSource = Nothing : ds2.Clear()
        合約控制表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        合約控制表_dgv.ColumnHeadersHeight = 40 : 合約控制表_dgv.AllowUserToAddRows = False
        PA46 = 合約編號1_cb.Text : PA47 = 工程期1_ch.Text
        If 系統語言 = "繁體中文" Then
            SQL3 = "工程名稱_中"
        Else
            SQL3 = "工程名稱_英"
        End If
        If 全部資料_ch.Checked = True And 請款未結束_ch.Checked = False And 請款已結束_ch.Checked = False Then
            SQL2 = "WHERE   合約控制表." & SQL3 & " NOT LIKE '' AND 合約控制表.約號甲方 Like N'%" & PA46 & "%' AND 合約控制表.合約期數 LIKE N'%" & PA47 & "%' AND 
                           (合約控制表.合約編號 LIKE N'%" & PA & "%' OR 合約控制表.客戶名稱 LIKE N'%" & PA & "%' OR 
                            合約控制表.負責人A LIKE N'%" & PA & "%' OR 合約控制表.工程地點 LIKE N'%" & PA & "%' OR 
                            合約控制表.客戶地址 LIKE N'%" & PA & "%' OR 合約控制表." & SQL3 & " LIKE N'%" & PA & "%' OR 
                            合約控制表.工程名稱_英 LIKE N'%" & PA & "%') AND (合約控制表.合約停止 = 0 OR 合約控制表.合約停止 IS NULL) AND (報價放行 = 1) AND (作廢 = 0) "
        ElseIf 全部資料_ch.Checked = False And 請款未結束_ch.Checked = True And 請款已結束_ch.Checked = False Then
            SQL2 = "WHERE   合約控制表." & SQL3 & " NOT LIKE '' AND (合約控制表.剩餘款 > 0 OR 合約控制表.剩餘款 IS NULL) AND 合約控制表.約號甲方 Like N'%" & PA46 & "%' AND 
                            合約控制表.合約期數 LIKE N'%" & PA47 & "%' AND (合約控制表.合約編號 LIKE N'%" & PA & "%' OR 
                            合約控制表.客戶名稱 LIKE N'%" & PA & "%' OR 合約控制表.負責人A LIKE N'%" & PA & "%' OR 
                            合約控制表.工程地點 LIKE N'%" & PA & "%' OR 合約控制表.客戶地址 LIKE N'%" & PA & "%' OR 
                            合約控制表." & SQL3 & " LIKE N'%" & PA & "%' OR 合約控制表.工程名稱_英 LIKE N'%" & PA & "%') AND 
                           (合約控制表.合約停止 = 0 OR 合約控制表.合約停止 IS NULL) AND (報價放行 = 1) AND (作廢 = 0) "
        ElseIf 全部資料_ch.Checked = False And 請款未結束_ch.Checked = False And 請款已結束_ch.Checked = True Then
            SQL2 = "WHERE   合約控制表." & SQL3 & " NOT LIKE '' AND 合約控制表.剩餘款 = 0 AND 合約控制表.約號甲方 Like N'%" & PA46 & "%' AND 合約控制表.合約期數 LIKE N'%" & PA47 & "%' AND 
                           (合約控制表.合約編號 LIKE N'%" & PA & "%' OR 合約控制表.客戶名稱 LIKE N'%" & PA & "%' OR 合約控制表.負責人A LIKE N'%" & PA & "%' OR 
                            合約控制表.工程地點 LIKE N'%" & PA & "%' OR 合約控制表.客戶地址 LIKE N'%" & PA & "%' OR 
                            合約控制表." & SQL3 & " LIKE N'%" & PA & "%' OR 合約控制表.工程名稱_英 LIKE N'%" & PA & "%') AND 
                           (合約控制表.合約停止 = 0 OR 合約控制表.合約停止 IS NULL)  AND (報價放行 = 1) AND (作廢 = 0) "
        End If
        SQL_合約清單_結案用()
        da.Fill(ds2) : 合約控制表_dgv.DataSource = ds2.Tables(0) : conn.Close()
        合約控制表_dgv.Columns(0).FillWeight = 120 : 合約控制表_dgv.Columns(1).FillWeight = 250 : 合約控制表_dgv.Columns(表頭(30)).Visible = False
        If 系統分區控制 = True Then : 合約控制表_dgv.Columns(表頭(23)).Visible = True : Else : 合約控制表_dgv.Columns(表頭(23)).Visible = False : End If
        合約控制表_dgv.Columns(表頭(26)).Visible = False : 合約控制表_dgv.Columns(表頭(27)).Visible = False : 合約控制表_dgv.Columns(表頭(28)).Visible = False
        合約控制表_dgv.Columns(表頭(29)).Visible = False : 合約控制表_dgv.Columns(表頭(31)).Visible = False
        合約控制表_dgv.Columns(表頭(14)).FillWeight = 30 : 合約控制表_dgv.Columns(表頭(15)).FillWeight = 30 : 合約控制表_dgv.Columns(表頭(16)).FillWeight = 30
        合約控制表_dgv.Columns(表頭(17)).FillWeight = 30 : 合約控制表_dgv.Columns(表頭(18)).FillWeight = 30 : 合約控制表_dgv.Columns(表頭(2)).FillWeight = 30
        合約控制表_dgv.Columns(表頭(20)).FillWeight = 50 : 合約控制表_dgv.Columns(表頭(2)).FillWeight = 50
        合約控制表_dgv.Columns(表頭(23)).FillWeight = 100 : 合約控制表_dgv.Columns(表頭(22)).FillWeight = 50
        合約控制表_dgv.Columns(表頭(3)).FillWeight = 80 : 合約控制表_dgv.Columns(表頭(19)).FillWeight = 80
        合約控制表_dgv.Columns(表頭(21)).FillWeight = 80 : 合約控制表_dgv.Columns(表頭(24)).FillWeight = 200
        合約控制表_dgv.Columns(表頭(2)).DefaultCellStyle.Format = "#,##0" : 合約控制表_dgv.Columns(表頭(23)).DefaultCellStyle.Format = "#,##0"
        合約控制表_dgv.Columns(表頭(2)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        合約控制表_dgv.Columns(表頭(3)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        合約控制表_dgv.Columns(表頭(19)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        合約控制表_dgv.Columns(表頭(21)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        合約控制表_dgv.Columns(表頭(22)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        合約控制表_dgv.Columns(表頭(20)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        合約控制表_dgv.Columns(表頭(23)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        For I As Integer = 4 To 13 : 合約控制表_dgv.Columns(I).Visible = False : Next : 合約控制表_dgv.Columns(表頭(25)).Visible = False
        For I As Integer = 0 To 合約控制表_dgv.Rows.Count - 1
            If 合約控制表_dgv.Rows(I).Cells(表頭(27)).Value.ToString = "" Then : 合約控制表_dgv.Rows(I).Cells(表頭(27)).Value = 0 : End If
            If 合約控制表_dgv.Rows(I).Cells(表頭(29)).Value.ToString = "" Then : 合約控制表_dgv.Rows(I).Cells(表頭(29)).Value = 0 : End If
            合約控制表_dgv.Rows(I).Cells(表頭(28)).Value = 合約控制表_dgv.Rows(I).Cells(表頭(26)).Value + 合約控制表_dgv.Rows(I).Cells(表頭(27)).Value
            合約控制表_dgv.Rows(I).Cells(表頭(23)).Value = 合約控制表_dgv.Rows(I).Cells(表頭(28)).Value - 合約控制表_dgv.Rows(I).Cells(表頭(29)).Value
            If 合約控制表_dgv.Rows(I).Cells(表頭(23)).Value < 0 Then : 合約控制表_dgv.Rows(I).Cells(表頭(23)).Value = 0 : End If
            If 合約控制表_dgv.Rows(I).Cells(表頭(19)).Value.ToString = "" Then : Else
                DTP1.Value = 合約控制表_dgv.Rows(I).Cells(表頭(19)).Value.ToString
                合約控制表_dgv.Rows(I).Cells(表頭(21)).Value = Strings.Format((DTP1.Value.AddMonths(CInt(合約控制表_dgv.Rows(I).Cells(表頭(20)).Value.ToString))), "yyyy/MM/dd")
                合約控制表_dgv.Rows(I).Cells(表頭(22)).Value =
                    DateDiff("d", Today(), 合約控制表_dgv.Rows(I).Cells(表頭(21)).Value.ToString)
            End If

            If 合約控制表_dgv.Rows(I).Cells(表頭(22)).Value.ToString = "" Then
                合約控制表_dgv.Rows(I).Cells(表頭(22)).Value = "無資料" : 合約控制表_dgv.Rows(I).Cells(表頭(30)).Value = 999999
            ElseIf CInt(合約控制表_dgv.Rows(I).Cells(表頭(22)).Value.ToString) < 0 Then
                合約控制表_dgv.Rows(I).Cells(表頭(22)).Value = "0" : 合約控制表_dgv.Rows(I).Cells(表頭(30)).Value = 999998
            Else : 合約控制表_dgv.Rows(I).Cells(表頭(30)).Value = CInt(合約控制表_dgv.Rows(I).Cells(表頭(22)).Value.ToString) : End If
            If 合約控制表_dgv.Rows(I).Cells(表頭(19)).Value.ToString = "" Then : 合約控制表_dgv.Rows(I).Cells(表頭(19)).Value = "未驗收" : End If

            If 合約控制表_dgv.Rows(I).Cells(表頭(4)).Value.ToString = "" Then : 合約控制表_dgv.Rows(I).Cells(表頭(4)).Value = "0.0000" : End If
            If 合約控制表_dgv.Rows(I).Cells(表頭(5)).Value.ToString = "" Then : 合約控制表_dgv.Rows(I).Cells(表頭(5)).Value = "0.0000" : End If
            If 合約控制表_dgv.Rows(I).Cells(表頭(6)).Value.ToString = "" Then : 合約控制表_dgv.Rows(I).Cells(表頭(6)).Value = "0.0000" : End If
            If 合約控制表_dgv.Rows(I).Cells(表頭(7)).Value.ToString = "" Then : 合約控制表_dgv.Rows(I).Cells(表頭(7)).Value = "0.0000" : End If
            If 合約控制表_dgv.Rows(I).Cells(表頭(8)).Value.ToString = "" Then : 合約控制表_dgv.Rows(I).Cells(表頭(8)).Value = "0.0000" : End If
            If 合約控制表_dgv.Rows(I).Cells(表頭(9)).Value.ToString = "" Then : 合約控制表_dgv.Rows(I).Cells(表頭(9)).Value = "0.0000" : End If
            If 合約控制表_dgv.Rows(I).Cells(表頭(10)).Value.ToString = "" Then : 合約控制表_dgv.Rows(I).Cells(表頭(10)).Value = "0.0000" : End If
            If 合約控制表_dgv.Rows(I).Cells(表頭(11)).Value.ToString = "" Then : 合約控制表_dgv.Rows(I).Cells(表頭(11)).Value = "0.0000" : End If
            If 合約控制表_dgv.Rows(I).Cells(表頭(12)).Value.ToString = "" Then : 合約控制表_dgv.Rows(I).Cells(表頭(12)).Value = "0.0000" : End If
            If 合約控制表_dgv.Rows(I).Cells(表頭(13)).Value.ToString = "" Then : 合約控制表_dgv.Rows(I).Cells(表頭(13)).Value = "0.0000" : End If
            'My.Resources._1_123 綠色  My.Resources._1_124 紅色  My.Resources._1_125 橘色
            If 合約控制表_dgv.Rows(I).Cells(表頭(4)).Value.ToString <> "0.0000" And 合約控制表_dgv.Rows(I).Cells(表頭(9)).Value.ToString <> "0.0000" And
               合約控制表_dgv.Rows(I).Cells(表頭(1)).Value.ToString <> "" Then : 合約控制表_dgv.Rows(I).Cells(表頭(14)).Value = My.Resources._1_125
            ElseIf 合約控制表_dgv.Rows(I).Cells(表頭(4)).Value.ToString <> "0.0000" And 合約控制表_dgv.Rows(I).Cells(表頭(9)).Value.ToString = "0.0000" And
               合約控制表_dgv.Rows(I).Cells(表頭(1)).Value.ToString <> "" Then : 合約控制表_dgv.Rows(I).Cells(表頭(14)).Value = My.Resources._1_123
            ElseIf 合約控制表_dgv.Rows(I).Cells(表頭(4)).Value.ToString = "0.0000" And 合約控制表_dgv.Rows(I).Cells(表頭(9)).Value.ToString = "0.0000" And
               合約控制表_dgv.Rows(I).Cells(表頭(1)).Value.ToString <> "" Then : 合約控制表_dgv.Rows(I).Cells(表頭(14)).Value = My.Resources._1_124 : End If
            If 合約控制表_dgv.Rows(I).Cells(表頭(5)).Value.ToString <> "0.0000" And 合約控制表_dgv.Rows(I).Cells(表頭(10)).Value.ToString <> "0.0000" And
               合約控制表_dgv.Rows(I).Cells(表頭(1)).Value.ToString <> "" Then : 合約控制表_dgv.Rows(I).Cells(表頭(15)).Value = My.Resources._1_125
            ElseIf 合約控制表_dgv.Rows(I).Cells(表頭(5)).Value.ToString <> "0.0000" And 合約控制表_dgv.Rows(I).Cells(表頭(10)).Value.ToString = "0.0000" And
               合約控制表_dgv.Rows(I).Cells(表頭(1)).Value.ToString <> "" Then : 合約控制表_dgv.Rows(I).Cells(表頭(15)).Value = My.Resources._1_123
            ElseIf 合約控制表_dgv.Rows(I).Cells(表頭(5)).Value.ToString = "0.0000" And 合約控制表_dgv.Rows(I).Cells(表頭(10)).Value.ToString = "0.0000" And
               合約控制表_dgv.Rows(I).Cells(表頭(1)).Value.ToString <> "" Then : 合約控制表_dgv.Rows(I).Cells(表頭(15)).Value = My.Resources._1_124 : End If
            If 合約控制表_dgv.Rows(I).Cells(表頭(6)).Value.ToString <> "0.0000" And 合約控制表_dgv.Rows(I).Cells(表頭(11)).Value.ToString <> "0.0000" And
               合約控制表_dgv.Rows(I).Cells(表頭(1)).Value.ToString <> "" Then : 合約控制表_dgv.Rows(I).Cells(表頭(16)).Value = My.Resources._1_125
            ElseIf 合約控制表_dgv.Rows(I).Cells(表頭(6)).Value.ToString <> "0.0000" And 合約控制表_dgv.Rows(I).Cells(表頭(11)).Value.ToString = "0.0000" And
               合約控制表_dgv.Rows(I).Cells(表頭(1)).Value.ToString <> "" Then : 合約控制表_dgv.Rows(I).Cells(表頭(16)).Value = My.Resources._1_123
            ElseIf 合約控制表_dgv.Rows(I).Cells(表頭(6)).Value.ToString = "0.0000" And 合約控制表_dgv.Rows(I).Cells(表頭(11)).Value.ToString = "0.0000" And
               合約控制表_dgv.Rows(I).Cells(表頭(1)).Value.ToString <> "" Then : 合約控制表_dgv.Rows(I).Cells(表頭(16)).Value = My.Resources._1_124 : End If
            If 合約控制表_dgv.Rows(I).Cells(表頭(7)).Value.ToString <> "0.0000" And 合約控制表_dgv.Rows(I).Cells(表頭(12)).Value.ToString <> "0.0000" And
               合約控制表_dgv.Rows(I).Cells(表頭(1)).Value.ToString <> "" Then : 合約控制表_dgv.Rows(I).Cells(表頭(17)).Value = My.Resources._1_125
            ElseIf 合約控制表_dgv.Rows(I).Cells(表頭(7)).Value.ToString <> "0.0000" And 合約控制表_dgv.Rows(I).Cells(表頭(12)).Value.ToString = "0.0000" And
               合約控制表_dgv.Rows(I).Cells(表頭(1)).Value.ToString <> "" Then : 合約控制表_dgv.Rows(I).Cells(表頭(17)).Value = My.Resources._1_123
            ElseIf 合約控制表_dgv.Rows(I).Cells(表頭(7)).Value.ToString = "0.0000" And 合約控制表_dgv.Rows(I).Cells(表頭(12)).Value.ToString = "0.0000" And
               合約控制表_dgv.Rows(I).Cells(表頭(1)).Value.ToString <> "" Then : 合約控制表_dgv.Rows(I).Cells(表頭(17)).Value = My.Resources._1_124 : End If
            If 合約控制表_dgv.Rows(I).Cells(表頭(8)).Value.ToString <> "0.0000" And 合約控制表_dgv.Rows(I).Cells(表頭(13)).Value.ToString <> "0.0000" And
               合約控制表_dgv.Rows(I).Cells(表頭(1)).Value.ToString <> "" Then : 合約控制表_dgv.Rows(I).Cells(表頭(18)).Value = My.Resources._1_125
            ElseIf 合約控制表_dgv.Rows(I).Cells(表頭(8)).Value.ToString <> "0.0000" And 合約控制表_dgv.Rows(I).Cells(表頭(13)).Value.ToString = "0.0000" And
               合約控制表_dgv.Rows(I).Cells(表頭(1)).Value.ToString <> "" Then : 合約控制表_dgv.Rows(I).Cells(表頭(18)).Value = My.Resources._1_123
            ElseIf 合約控制表_dgv.Rows(I).Cells(表頭(8)).Value.ToString = "0.0000" And 合約控制表_dgv.Rows(I).Cells(表頭(13)).Value.ToString = "0.0000" And
               合約控制表_dgv.Rows(I).Cells(表頭(1)).Value.ToString <> "" Then : 合約控制表_dgv.Rows(I).Cells(表頭(18)).Value = My.Resources._1_124
            Else
                合約控制表_dgv.Rows(I).Cells(表頭(14)).Value = My.Resources._1_124 : 合約控制表_dgv.Rows(I).Cells(表頭(15)).Value = My.Resources._1_124
                合約控制表_dgv.Rows(I).Cells(表頭(16)).Value = My.Resources._1_124 : 合約控制表_dgv.Rows(I).Cells(表頭(17)).Value = My.Resources._1_124
                合約控制表_dgv.Rows(I).Cells(表頭(18)).Value = My.Resources._1_124
            End If
        Next
        Dim mycol1 As DataGridViewImageColumn = 合約控制表_dgv.Columns(表頭(14)) : Dim mycol2 As DataGridViewImageColumn = 合約控制表_dgv.Columns(表頭(15))
        Dim mycol3 As DataGridViewImageColumn = 合約控制表_dgv.Columns(表頭(16)) : Dim mycol4 As DataGridViewImageColumn = 合約控制表_dgv.Columns(表頭(17))
        Dim mycol5 As DataGridViewImageColumn = 合約控制表_dgv.Columns(表頭(18))
        mycol1.ImageLayout = DataGridViewImageCellLayout.Zoom : mycol2.ImageLayout = DataGridViewImageCellLayout.Zoom : mycol3.ImageLayout = DataGridViewImageCellLayout.Zoom
        mycol4.ImageLayout = DataGridViewImageCellLayout.Zoom : mycol5.ImageLayout = DataGridViewImageCellLayout.Zoom
        合約控制表_dgv.Sort(合約控制表_dgv.Columns(表頭(30)), System.ComponentModel.ListSortDirection.Ascending)
    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 語言轉換讀取()
        Dim 介面1 As String = "H001"
        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
        Me.Text = 系統語言字典("H001-126-" & 語言) : 全部資料_ch.Text = 系統語言字典("H110-114-" & 語言) : Label7.Text = 系統語言字典("H110-117-" & 語言)
        Label11.Text = 系統語言字典("H110-118-" & 語言) : Label10.Text = 系統語言字典("H114-100-" & 語言) : Label2.Text = 系統語言字典("G000-156-" & 語言)
        Label375.Text = 系統語言字典("G000-215-" & 語言) : Label1.Text = 系統語言字典("H114-103-" & 語言) : 請款未結束_ch.Text = 系統語言字典("H114-101-" & 語言)
        請款已結束_ch.Text = 系統語言字典("H114-102-" & 語言) : Label372.Text = 系統語言字典("H112-100-" & 語言) : Label5.Text = 系統語言字典("G000-155-" & 語言)
        備註存檔_bt.Text = 系統語言字典("H114-104-" & 語言) : 完工結案單_bt.Text = 系統語言字典("H114-105-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言)
        表頭(0) = 系統語言字典("H501-152-" & 語言) : 表頭(1) = 系統語言字典("H101-100-" & 語言) : 表頭(2) = 系統語言字典("H110-122-" & 語言)
        表頭(3) = 系統語言字典("G000-157-" & 語言) : 表頭(4) = 系統語言字典("H114-108-" & 語言) : 表頭(5) = 系統語言字典("H114-109-" & 語言)
        表頭(6) = 系統語言字典("H114-110-" & 語言) : 表頭(7) = 系統語言字典("H114-111-" & 語言) : 表頭(8) = 系統語言字典("H114-112-" & 語言)
        表頭(9) = 系統語言字典("H114-113-" & 語言) : 表頭(10) = 系統語言字典("H114-114-" & 語言) : 表頭(11) = 系統語言字典("H114-115-" & 語言)
        表頭(12) = 系統語言字典("H114-116-" & 語言) : 表頭(13) = 系統語言字典("H114-117-" & 語言) : 表頭(14) = 系統語言字典("H114-118-" & 語言)
        表頭(15) = 系統語言字典("H114-119-" & 語言) : 表頭(16) = 系統語言字典("H114-120-" & 語言) : 表頭(17) = 系統語言字典("H114-121-" & 語言)
        表頭(18) = 系統語言字典("H114-122-" & 語言) : 表頭(19) = 系統語言字典("H114-123-" & 語言) : 表頭(20) = 系統語言字典("H114-124-" & 語言)
        表頭(21) = 系統語言字典("H114-125-" & 語言) : 表頭(22) = 系統語言字典("H114-126-" & 語言) : 表頭(23) = 系統語言字典("H114-127-" & 語言)
        表頭(24) = 系統語言字典("H114-128-" & 語言) : 表頭(25) = 系統語言字典("H112-100-" & 語言) : 表頭(26) = 系統語言字典("H310-104-" & 語言)
        表頭(27) = 系統語言字典("H114-129-" & 語言) : 表頭(28) = 系統語言字典("H114-130-" & 語言) : 表頭(29) = 系統語言字典("H310-105-" & 語言)
        表頭(30) = 系統語言字典("H114-131-" & 語言) : 表頭(31) = 系統語言字典("H112-119-" & 語言) : 對話框(0) = 系統語言字典("H110-102-" & 語言)
        對話框(1) = 系統語言字典("H110-109-" & 語言) : 對話框(2) = 系統語言字典("H114-106-" & 語言) : 對話框(3) = 系統語言字典("H114-107-" & 語言)
        對話框(4) = 系統語言字典("H508-121-" & 語言)
    End Sub
    Private Sub 查詢_bt_MouseEnter(sender As Object, e As EventArgs) Handles 查詢_bt.MouseEnter
        ToolTip1.SetToolTip(Me.查詢_bt, 系統語言字典("G000-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(114) = True : 介面 = "H114" : 語言轉換讀取() : Panel1.SendToBack() : 顯示說明(999, False)
        甲方條件下拉清單讀取() : Set_合約清單() : 合約報價單_Siz()
    End Sub
    Private Sub 合約結案控制表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        If 待辦進入 <> "" Then : lastFoundRowIndex = -1 : lastFoundColIndex = -1
            關鍵字搜尋_tb.Text = 待辦進入 : 查詢DGV中的關鍵字_自動(合約控制表_dgv, 關鍵字搜尋_tb) : 選擇項 = lastFoundRowIndex : 合約資料讀取()
            lastFoundRowIndex = -1 : lastFoundColIndex = -1 : 關鍵字搜尋_tb.Text = "" : 待辦進入 = ""
        End If
    End Sub
    Private Sub 合約結案控制表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        MyMod.虛擬桌面開啟()
    End Sub
    Private Sub 合約報價單_Siz()
        MyMod.清單字體大小調整()
        合約控制表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    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 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H114" : 語言轉換讀取()
    End Sub
    Private Sub 合約控制表_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約控制表_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 選擇項 = e.RowIndex : 合約資料讀取() : End If
    End Sub
    Private Sub 合約資料讀取()
        合約編號_tb.Text = 合約控制表_dgv(表頭(0), 選擇項).Value.ToString : 備註_tb.Text = 合約控制表_dgv(表頭(24), 選擇項).Value.ToString
        客戶名稱_tb.Text = 合約控制表_dgv(表頭(25), 選擇項).Value.ToString : 工程名稱_中_tb.Text = 合約控制表_dgv(表頭(1), 選擇項).Value.ToString
        驗收日_tb.Text = 合約控制表_dgv(表頭(21), 選擇項).Value.ToString : 保固期限_tb.Text = 合約控制表_dgv(表頭(20), 選擇項).Value.ToString
        工程名稱_英_tb.Text = 合約控制表_dgv(表頭(31), 選擇項).Value.ToString
    End Sub
    Private Sub 合約編號1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約編號1_cb.SelectedIndexChanged
        PA = 關鍵字搜尋_tb.Text : Set_合約清單()
    End Sub
    Private Sub 合約編號1_cb_Click(sender As Object, e As EventArgs) Handles 合約編號1_cb.Click
        CB選擇清單(合約編號1_cb)
    End Sub
    Private Sub 工程期1_ch_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 工程期1_ch.SelectedIndexChanged
        PA = 關鍵字搜尋_tb.Text : Set_合約清單()
    End Sub
    Private Sub 工程期1_ch_Click(sender As Object, e As EventArgs) Handles 工程期1_ch.Click
        CB選擇清單(工程期1_ch)
    End Sub
    Private Sub 全部資料_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 全部資料_ch.Click
        PA = 關鍵字搜尋_tb.Text : 全部資料_ch.Checked = True : 請款未結束_ch.Checked = False : 請款已結束_ch.Checked = False : Set_合約清單()
    End Sub
    Private Sub 請款未結束_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 請款未結束_ch.Click
        PA = 關鍵字搜尋_tb.Text : 全部資料_ch.Checked = False : 請款未結束_ch.Checked = True : 請款已結束_ch.Checked = False : Set_合約清單()
    End Sub
    Private Sub 請款已結束_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 請款已結束_ch.Click
        PA = 關鍵字搜尋_tb.Text : 全部資料_ch.Checked = False : 請款未結束_ch.Checked = False : 請款已結束_ch.Checked = True : Set_合約清單()
    End Sub
    Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
        PA = 關鍵字搜尋_tb.Text : Set_合約清單()
    End Sub
    Private Sub 備註存檔_bt_Click(sender As Object, e As EventArgs) Handles 備註存檔_bt.Click
        If 合約編號_tb.Text = "" Then : MGB(對話框(0), 1) : Else
            PA = 合約編號_tb.Text : PA3 = 備註_tb.Text : SQL_控制表_結案修改() : PA = "" : Set_合約清單() : MGB(對話框(1), 1)
        End If
    End Sub
    Private Sub 客戶名稱_tb_Click(sender As Object, e As EventArgs) Handles 客戶名稱_tb.Click
        CB選擇清單(客戶名稱_tb)
    End Sub
    Private Sub 完工結案單_bt_Click(sender As Object, e As EventArgs) Handles 完工結案單_bt.Click
        If 合約編號_tb.Text = "" Then : MGB(對話框(2), 1) : Else
            If 驗收日_tb.Text = "" Then : MGB(對話框(3), 1) : Else
                xlApp = CType(CreateObject("Excel.Application"), Application)
                xlApp.Visible = True
                xlApp.DisplayAlerts = True
                xlApp.Application.WindowState = xlMaximized
                xlBook = xlApp.Workbooks.Add
                '----------------------------------------------------------------------------------------------------------------------
                xlSheet = NewMethod(xlBook) : xlApp.Sheets(1).Select : xlApp.Sheets(1).Name = "完工結案單"
                xlBook.Activate() : xlSheet.Activate()

                xlSheet.Cells(2, 2) = "工程完工結案單" : xlSheet.Cells(3, 2) = "Pernyataan Penyelesaian Proyek"
                xlSheet.Cells(5, 2) = "業    主 : " : xlSheet.Cells(5, 3) = 客戶名稱_tb.Text
                xlSheet.Cells(6, 2) = "Klien : " : xlSheet.Cells(6, 3) = 客戶名稱_tb.Text
                xlSheet.Cells(8, 2) = "工程名稱 : " : xlSheet.Cells(8, 3) = 工程名稱_中_tb.Text
                xlSheet.Cells(9, 2) = "Nama Proyek : " : xlSheet.Cells(9, 3) = 工程名稱_英_tb.Text
                xlSheet.Cells(11, 2) = "合約編號 : " : xlSheet.Cells(11, 3) = 合約編號_tb.Text
                xlSheet.Cells(12, 2) = "Nomor Kontrak : " : xlSheet.Cells(12, 3) = 合約編號_tb.Text
                xlSheet.Cells(14, 2) = "估驗期別 : " : xlSheet.Cells(15, 2) = "Periode Evaluasi : "
                xlSheet.Cells(17, 2) = "估驗項目 : " : xlSheet.Cells(17, 3) = "保固款"
                xlSheet.Cells(18, 2) = "Proyek Penilaian : " : xlSheet.Cells(18, 3) = "Jaminan"

                xlSheet.Cells(20, 2) = "說明 / Menjelaskan : "
                xlSheet.Cells(21, 2) = 工程名稱_中_tb.Text & " 以於 " & 驗收日_tb.Text & " 完成 " & 保固期限_tb.Text & " 個月保固。"
                xlSheet.Cells(22, 2) = "依合約第三項估驗款項"
                xlSheet.Cells(23, 2) = "惠請 尊上同意施款"
                xlSheet.Cells(25, 2) = 工程名稱_英_tb.Text
                xlSheet.Cells(26, 2) = "Garansi " & 保固期限_tb.Text & " bulan telah selesai pada " & 驗收日_tb.Text & "."
                xlSheet.Cells(27, 2) = "Perkiraan pembayaran sesuai dengan klausul ketiga kontrak"
                xlSheet.Cells(28, 2) = "Mohon setuju untuk pembayaran"

                xlSheet.Cells(31, 2) = "甲方簽章 / Partai A" : xlSheet.Cells(31, 4) = "乙方簽章 / Partai B"
                AA(xlApp, xlSheet)
                If Strings.Left(合約編號_tb.Text, 2) = "HX" Then : CC(xlApp, xlSheet) : Else : DD(xlApp, xlSheet) : End If : FF(xlApp, xlSheet)

                xlApp.Sheets(2).Delete : xlSheet.PageSetup.PrintArea = ""
                '-------------轉換成PDF---------------------------------------------------------------------
                Dim SERT As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
                xlBook.Sheets(1).ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, SERT & "\" & 合約編號_tb.Text & "工程完工結案單.pdf", XlFixedFormatQuality.xlQualityStandard, True)
                '-------------關閉EXCEL---------------------------------------------------------------------
                xlApp.Cells.Select() : xlApp.Application.WindowState = xlMinimized
                xlBook.Close(False)
                Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet)
                Runtime.InteropServices.Marshal.ReleaseComObject(xlBook)
                Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
                xlApp.Quit() : xlSheet = Nothing : xlBook = Nothing : xlApp = Nothing : GC.Collect()
                MGB(對話框(4), 1)
            End If
        End If
    End Sub
    Private Shared Function NewMethod(xlBook As Workbook) As Worksheet
        Return CType(xlBook.Worksheets.Add, Worksheet)
    End Function
    Private Sub AA(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        xlSheet.Cells.Select()
        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
            .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
        xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 95
        xlSheet.Rows("32:32").Select : myExcel.Selection.RowHeight = 95
        xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 7 : xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 20
        xlSheet.Columns("C:D").Select : myExcel.Selection.ColumnWidth = 35
        xlSheet.Range("C12").Select() : myExcel.ActiveWindow.DisplayGridlines = False
        xlSheet.Range("B2:D2").Select()
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
        myExcel.Selection.Font.Underline = xlUnderlineStyleSingle
        xlSheet.Range("B3:D3").Select()
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
        myExcel.Selection.Font.Underline = xlUnderlineStyleSingle
        xlSheet.Range("C7").Select()
    End Sub
    Private Sub CC(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        Clipboard.SetDataObject(PictureBox1.Image)
        xlSheet.Range("A1").Select()
        myExcel.ActiveSheet.Pictures.Paste.Select
        myExcel.Selection.ShapeRange.Height = 93
        myExcel.Selection.ShapeRange.Width = 550
        myExcel.Selection.ShapeRange.IncrementLeft(0)
        myExcel.Selection.ShapeRange.IncrementTop(0)
    End Sub
    Private Sub DD(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        Clipboard.SetDataObject(PictureBox2.Image)
        xlSheet.Range("A1").Select()
        myExcel.ActiveSheet.Pictures.Paste.Select
        myExcel.Selection.ShapeRange.Height = 93
        myExcel.Selection.ShapeRange.Width = 550
        myExcel.Selection.ShapeRange.IncrementLeft(0)
        myExcel.Selection.ShapeRange.IncrementTop(0)
    End Sub
    Private Sub FF(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        myExcel.Application.PrintCommunication = False : With myExcel.ActiveSheet.PageSetup : .PrintTitleRows = "" : .PrintTitleColumns = "" : End With
        myExcel.Application.PrintCommunication = True : myExcel.ActiveSheet.PageSetup.PrintArea = "" : myExcel.Application.PrintCommunication = False
        With myExcel.ActiveSheet.PageSetup : .LeftHeader = "" : .CenterHeader = "" : .RightHeader = "" : .LeftFooter = "" : .CenterFooter = "第 &P 頁，共 &N 頁" : .RightFooter = ""
            .LeftMargin = myExcel.Application.InchesToPoints(0.236220472440945) : .RightMargin = myExcel.Application.InchesToPoints(0.236220472440945)
            .TopMargin = myExcel.Application.InchesToPoints(0.748031496062992) : .BottomMargin = myExcel.Application.InchesToPoints(0.748031496062992)
            .HeaderMargin = myExcel.Application.InchesToPoints(0.31496062992126) : .FooterMargin = myExcel.Application.InchesToPoints(0.31496062992126)
            .PrintHeadings = False : .PrintGridlines = False : .CenterHorizontally = True : .CenterVertically = False : .Draft = False
            .FirstPageNumber = xlAutomatic : .BlackAndWhite = False : .Zoom = False : .FitToPagesWide = 1 : .FitToPagesTall = False : .OddAndEvenPagesHeaderFooter = False
            .DifferentFirstPageHeaderFooter = False : .ScaleWithDocHeaderFooter = True : .AlignMarginsHeaderFooter = True
            .EvenPage.LeftHeader.Text = "" : .EvenPage.CenterHeader.Text = "" : .EvenPage.RightHeader.Text = "" : .EvenPage.LeftFooter.Text = ""
            .EvenPage.CenterFooter.Text = "" : .EvenPage.RightFooter.Text = "" : .FirstPage.LeftHeader.Text = "" : .FirstPage.CenterHeader.Text = ""
            .FirstPage.RightHeader.Text = "" : .FirstPage.LeftFooter.Text = "" : .FirstPage.CenterFooter.Text = "" : .FirstPage.RightFooter.Text = ""
        End With : myExcel.Application.PrintCommunication = True
    End Sub

    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = SystemColors.Control

            全部資料_ch.ForeColor = Color.Green : 請款未結束_ch.ForeColor = Color.Green : 請款已結束_ch.ForeColor = Color.Green
            Label5.ForeColor = Color.Blue : Label7.ForeColor = Color.Blue
            Label372.ForeColor = Color.FromArgb(192, 0, 0) : Label375.ForeColor = Color.FromArgb(192, 0, 0)
            Label1.ForeColor = Color.Black : Label2.ForeColor = Color.Black : Label10.ForeColor = Color.Black : Label11.ForeColor = Color.Black
            Label1.BackColor = SystemColors.Control : Label2.BackColor = SystemColors.Control : Label10.BackColor = SystemColors.Control : Label11.BackColor = SystemColors.Control

            關鍵字搜尋_tb.BackColor = Color.White : 關鍵字搜尋_tb.ForeColor = Color.Black : 合約編號_tb.BackColor = Color.White : 合約編號_tb.ForeColor = Color.Black
            工程名稱_中_tb.BackColor = Color.White : 工程名稱_中_tb.ForeColor = Color.Black : 驗收日_tb.BackColor = Color.White : 驗收日_tb.ForeColor = Color.Black
            客戶名稱_tb.BackColor = Color.White : 客戶名稱_tb.ForeColor = Color.Black : 備註_tb.BackColor = Color.White : 備註_tb.ForeColor = Color.Black

            合約編號1_cb.BackColor = Color.White : 合約編號1_cb.ForeColor = Color.Blue : 工程期1_ch.BackColor = Color.White : 工程期1_ch.ForeColor = Color.Blue

            備註存檔_bt.BackColor = Color.White : 備註存檔_bt.ForeColor = Color.Black : 完工結案單_bt.BackColor = Color.White : 完工結案單_bt.ForeColor = Color.Black
            語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black : 查詢_bt.BackColor = Color.White : 查詢_bt.ForeColor = Color.Black

            合約控制表_dgv.EnableHeadersVisualStyles = True : 合約控制表_dgv.BackgroundColor = Color.White : 合約控制表_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            合約控制表_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightPink
            合約控制表_dgv.DefaultCellStyle.BackColor = Color.White : 合約控制表_dgv.DefaultCellStyle.ForeColor = Color.Black
        Else
            Me.BackColor = Color.Black

            全部資料_ch.ForeColor = Color.LightGreen : 請款未結束_ch.ForeColor = Color.LightGreen : 請款已結束_ch.ForeColor = Color.LightGreen
            Label5.ForeColor = Color.LightBlue : Label7.ForeColor = Color.White
            Label372.ForeColor = Color.LightPink : Label375.ForeColor = Color.LightPink
            Label1.ForeColor = Color.White : Label2.ForeColor = Color.White : Label10.ForeColor = Color.White : Label11.ForeColor = Color.White
            Label1.BackColor = Color.Black : Label2.BackColor = Color.Black : Label10.BackColor = Color.Black : Label11.BackColor = Color.Black

            關鍵字搜尋_tb.BackColor = Color.DimGray : 關鍵字搜尋_tb.ForeColor = Color.White : 合約編號_tb.BackColor = Color.DimGray : 合約編號_tb.ForeColor = Color.White
            工程名稱_中_tb.BackColor = Color.DimGray : 工程名稱_中_tb.ForeColor = Color.White : 驗收日_tb.BackColor = Color.DimGray : 驗收日_tb.ForeColor = Color.White
            客戶名稱_tb.BackColor = Color.DimGray : 客戶名稱_tb.ForeColor = Color.White : 備註_tb.BackColor = Color.DimGray : 備註_tb.ForeColor = Color.White

            合約編號1_cb.BackColor = Color.DimGray : 合約編號1_cb.ForeColor = Color.LightBlue : 工程期1_ch.BackColor = Color.DimGray : 工程期1_ch.ForeColor = Color.LightBlue

            備註存檔_bt.BackColor = Color.DimGray : 備註存檔_bt.ForeColor = Color.White : 完工結案單_bt.BackColor = Color.DimGray : 完工結案單_bt.ForeColor = Color.White
            語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White : 查詢_bt.BackColor = Color.DimGray : 查詢_bt.ForeColor = Color.White

            合約控制表_dgv.EnableHeadersVisualStyles = False : 合約控制表_dgv.BackgroundColor = Color.DimGray : 合約控制表_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            合約控制表_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合約控制表_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            合約控制表_dgv.DefaultCellStyle.BackColor = Color.Black : 合約控制表_dgv.DefaultCellStyle.ForeColor = Color.White
        End If
    End Sub
End Class