HX-PGS-ERP-SYS-LEEHSIEHJUI/03、倉儲管理系統/倉儲領料申請.vb

Option Strict Off
Imports System.IO
Public Class 倉儲領料申請
    ReadOnly ds12 As New DataSet
    Dim NUM1, EDR As Integer
    Dim 放大 As Boolean
    Dim ESTR, 頁面, 物料規格, KKKJJ2, KKK2 As String
    ReadOnly 對話框(28), 群組碼(21) As String
    Dim 判斷1 As Boolean = False
    Private Sub Set_合約物料()
        Dim ds3 As New DataSet : 合約物料_dgv.DataSource = Nothing : ds3.Clear()
        合約物料_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        合約物料_dgv.ColumnHeadersHeight = 40 : 合約物料_dgv.AllowUserToAddRows = False : 合約物料_dgv.RowTemplate.Height = 25
        SQL_合約物料狀況查詢()
        da.Fill(ds3) : 合約物料_dgv.DataSource = ds3.Tables(0) : conn.Close()
        合約物料_dgv.Columns(0).FillWeight = 100 : 合約物料_dgv.Columns(1).FillWeight = 70 : 合約物料_dgv.Columns(2).FillWeight = 70
        合約物料_dgv.Columns(3).FillWeight = 70 : 合約物料_dgv.Columns(4).FillWeight = 70 : 合約物料_dgv.Columns("庫存").Visible = False

        合約物料_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 合約物料_dgv.Columns(2).DefaultCellStyle.Format = "#,##0"
        合約物料_dgv.Columns(3).DefaultCellStyle.Format = "#,##0" : 合約物料_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"
        合約物料_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        合約物料_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        合約物料_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        合約物料_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        For i As Integer = 0 To 合約物料_dgv.Rows.Count - 1
            If 合約物料_dgv.Rows(i).Cells(1).Value.ToString = "" Then : 合約物料_dgv.Rows(i).Cells(1).Value = "0" : End If
            If 合約物料_dgv.Rows(i).Cells(2).Value.ToString = "" Then : 合約物料_dgv.Rows(i).Cells(2).Value = "0" : End If
            If 合約物料_dgv.Rows(i).Cells(3).Value.ToString = "" Then : 合約物料_dgv.Rows(i).Cells(3).Value = "0" : End If
            合約物料_dgv.Rows(i).Cells(表頭(27)).Value = CInt(合約物料_dgv.Rows(i).Cells("庫存").Value) - CInt(合約物料_dgv.Rows(i).Cells(表頭(28)).Value) +
                                                         CInt(合約物料_dgv.Rows(i).Cells(表頭(25)).Value)
        Next
    End Sub
    Private Sub Set_群組清單()
        Dim ds1 As New DataSet : 群組分類_dgv.DataSource = Nothing : ds1.Clear()
        群組分類_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        群組分類_dgv.ColumnHeadersHeight = 25 : 群組分類_dgv.AllowUserToAddRows = False : 群組分類_dgv.RowTemplate.Height = 45
        SQL_物料群組()
        da.Fill(ds1) : 群組分類_dgv.DataSource = ds1.Tables(0) : conn.Close() : 次項變形()
    End Sub
    Private Sub Set_清單1_1()
        Dim ds4 As New DataSet : 物料清單1_dgv.DataSource = Nothing : ds4.Clear()
        物料清單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料清單1_dgv.ColumnHeadersHeight = 25 : 物料清單1_dgv.AllowUserToAddRows = False : 物料清單1_dgv.RowTemplate.Height = 45
        ConnOpen() : SQL_建築物料請購單申請_物料清單零() : CmdSet_For_DGV()

        da.Fill(ds4) : 物料清單1_dgv.DataSource = ds4.Tables(0) : conn.Close()
        物料清單1_dgv.Columns(0).FillWeight = 20 : 物料清單1_dgv.Columns(1).Visible = False : 物料清單1_dgv.Columns(2).FillWeight = 175
        物料清單1_dgv.Columns(4).Visible = False : 物料清單1_dgv.Columns(5).FillWeight = 45 : 物料清單1_dgv.Columns(3).Visible = False
        物料清單1_dgv.Columns(0).ReadOnly = True : 物料清單1_dgv.Columns(1).ReadOnly = True : 物料清單1_dgv.Columns(2).ReadOnly = True
        For i As Integer = 0 To 物料清單1_dgv.Rows.Count - 1 : 物料清單1_dgv(0, i).Value = i + 1 : Next
        If 低網速模式 = False Then
            物料清單1_dgv.Columns(6).FillWeight = 50 : 物料清單1_dgv.Columns(6).Visible = True
            Dim mycol As DataGridViewImageColumn = 物料清單1_dgv.Columns("圖檔")
            mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
        Else : If 物料清單1_dgv.Columns.Count = 7 Then : 物料清單1_dgv.Columns(6).Visible = False : End If : End If
    End Sub
    Private Sub Set_合約清單()
        Dim ds5 As New DataSet : 物料_dgv.DataSource = Nothing : ds5.Clear()
        物料_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料_dgv.ColumnHeadersHeight = 25 : 物料_dgv.AllowUserToAddRows = False
        SQL_合約倉儲物料()
        da.Fill(ds5) : 物料_dgv.DataSource = ds5.Tables(0) : conn.Close()

        Dim ds6 As New DataSet : Dim ds7 As New DataSet : 合約_dgv.DataSource = Nothing : 合約1_dgv.DataSource = Nothing : ds6.Clear() : ds7.Clear()
        合約_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        合約_dgv.ColumnHeadersHeight = 25 : 合約_dgv.AllowUserToAddRows = False
        PA = 關鍵字搜尋_tb.Text : PA46 = 合約編號1_cb.Text : PA47 = "%%"

        If 全部合約_ch.Checked = False And 有庫存的合約_ch.Checked = True Then : SQL_合約清單_倉儲用1() : Else : SQL_合約清單_倉儲用() : End If
        da.Fill(ds6) : 合約_dgv.DataSource = ds6.Tables(0) : conn.Close()
        合約_dgv.Columns(0).FillWeight = 130 : 合約_dgv.Columns("MAT").FillWeight = 40 : 合約_dgv.Columns("審核通過").FillWeight = 40
        合約_dgv.Columns("工程名稱").FillWeight = 280 : 合約_dgv.Columns("Nama Proyek").FillWeight = 280 : 合約_dgv.Columns("停止").Visible = True
        合約_dgv.Columns("停止").FillWeight = 40 : 合約_dgv.Columns("審核通過").Visible = True

        合約1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        合約1_dgv.ColumnHeadersHeight = 25 : 合約1_dgv.AllowUserToAddRows = False
        PA = 關鍵字搜尋_tb.Text : PA46 = 合約編號1_cb.Text : PA47 = "%%"
        SQL_合約清單_倉儲用()
        da.Fill(ds7) : 合約1_dgv.DataSource = ds7.Tables(0) : conn.Close()
        合約1_dgv.Columns(0).FillWeight = 130 : 合約1_dgv.Columns("MAT").FillWeight = 40 : 合約1_dgv.Columns("審核通過").FillWeight = 40
        合約1_dgv.Columns("工程名稱").FillWeight = 280 : 合約1_dgv.Columns("Nama Proyek").FillWeight = 280 : 合約1_dgv.Columns("停止").Visible = True
        合約1_dgv.Columns("停止").FillWeight = 40 : 合約1_dgv.Columns("審核通過").Visible = True : 合約1_dgv.Columns("MAT").Visible = False

        For i As Integer = 1 To 38 : 合約_dgv.Columns(i).Visible = False : Next : For i As Integer = 1 To 38 : 合約1_dgv.Columns(i).Visible = False : Next
        For i As Integer = 0 To 合約_dgv.Rows.Count - 1
            If IsDBNull(合約_dgv("停止", i).Value) = True Then : 合約_dgv("停止", i).Value = False : End If : 合約_dgv("MAT", i).Value = False
            For ii As Integer = 0 To 物料_dgv.Rows.Count - 1
                If 合約_dgv("Kontrak", i).Value.ToString.ToUpper = 物料_dgv("合約編號", ii).Value.ToString.ToUpper Then : 合約_dgv("MAT", i).Value = True : Exit For : End If
            Next
        Next
        For i As Integer = 0 To 合約1_dgv.Rows.Count - 1
            If IsDBNull(合約1_dgv("停止", i).Value) = True Then : 合約1_dgv("停止", i).Value = False : End If : 合約1_dgv("MAT", i).Value = False
            For ii As Integer = 0 To 物料_dgv.Rows.Count - 1
                If 合約1_dgv("Kontrak", i).Value.ToString.ToUpper = 物料_dgv("合約編號", ii).Value.ToString.ToUpper Then : 合約1_dgv("MAT", i).Value = True : Exit For : End If
            Next
        Next
        If 放大 = True Then
            If 系統語言 = "繁體中文" Then : 合約_dgv.Columns("工程名稱").Visible = True : 合約_dgv.Columns("MAT").Visible = True
            Else : 合約_dgv.Columns("Nama Proyek").Visible = True : 合約_dgv.Columns("MAT").Visible = True : End If
        Else
            If 系統語言 = "繁體中文" Then : 合約_dgv.Columns("工程名稱").Visible = False : 合約_dgv.Columns("MAT").Visible = False
            Else : 合約_dgv.Columns("Nama Proyek").Visible = False : 合約_dgv.Columns("MAT").Visible = False : End If
        End If
        If 系統語言 = "繁體中文" Then : 合約1_dgv.Columns("工程名稱").Visible = True : 合約1_dgv.Columns("Nama Proyek").Visible = False
        Else : 合約1_dgv.Columns("工程名稱").Visible = False : 合約1_dgv.Columns("Nama Proyek").Visible = True : End If
    End Sub
    Private Sub Set_清單1_2()
        Dim ds As New DataSet : 控制表1_dgv.DataSource = Nothing : ds.Clear()
        控制表1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        控制表1_dgv.ColumnHeadersHeight = 40 : 控制表1_dgv.AllowUserToAddRows = False
        If 小間距2_ch.Checked = False And 中間距2_ch.Checked = False And 大間距2_ch.Checked = True Then : 控制表1_dgv.RowTemplate.Height = 75
        ElseIf 小間距2_ch.Checked = False And 中間距2_ch.Checked = True And 大間距2_ch.Checked = False Then : 控制表1_dgv.RowTemplate.Height = 45
        ElseIf 小間距2_ch.Checked = True And 中間距2_ch.Checked = False And 大間距2_ch.Checked = False Then : 控制表1_dgv.RowTemplate.Height = 25 : End If

        If 合約編號_tb.Text <> "" Then
            SQL2 = "AND (倉儲明細表_2.合約編號 LIKE N'%" & 合約編號_tb.Text & "%')" : SQL3 = "AND  (倉儲明細表_1.合約編號 LIKE N'%" & 合約編號_tb.Text & "%')"
            SQL4 = "AND (倉儲明細表.合約編號 LIKE N'%" & 合約編號_tb.Text & "%')"
        Else
            SQL2 = "AND (倉儲明細表_2.合約編號 NOT LIKE N'H%') AND (倉儲明細表_2.合約編號 NOT LIKE N'P%')"
            SQL3 = "AND  (倉儲明細表_1.合約編號 NOT LIKE N'H%') AND (倉儲明細表_1.合約編號 NOT LIKE N'P%')"
            SQL4 = "AND (倉儲明細表.合約編號 NOT LIKE N'H%') AND (倉儲明細表.合約編號 NOT LIKE N'P%')"
        End If : PA13 = 合約編號_tb.Text

        SQL_倉儲控制表_控制表1()
        da.Fill(ds) : 控制表1_dgv.DataSource = ds.Tables(0) : conn.Close()

        控制表1_dgv.Columns(0).FillWeight = 90 : 控制表1_dgv.Columns(1).FillWeight = 85 : 控制表1_dgv.Columns(2).FillWeight = 160 : 控制表1_dgv.Columns(3).FillWeight = 170
        控制表1_dgv.Columns(4).Visible = False : 控制表1_dgv.Columns(5).Visible = False : 控制表1_dgv.Columns(6).Visible = False : 控制表1_dgv.Columns(7).Visible = False
        控制表1_dgv.Columns(8).Visible = False : 控制表1_dgv.Columns(9).Visible = False : 控制表1_dgv.Columns(10).Visible = False : 控制表1_dgv.Columns(11).Visible = False
        控制表1_dgv.Columns(12).FillWeight = 100 : 控制表1_dgv.Columns(13).FillWeight = 60 : 控制表1_dgv.Columns(14).Visible = False : 控制表1_dgv.Columns(15).Visible = False
        控制表1_dgv.Columns(16).Visible = False : 控制表1_dgv.Columns(17).FillWeight = 60 : 控制表1_dgv.Columns(18).FillWeight = 60 : 控制表1_dgv.Columns(19).FillWeight = 60
        控制表1_dgv.Columns(20).Visible = False : 控制表1_dgv.Columns(21).FillWeight = 45 : 控制表1_dgv.Columns(22).FillWeight = 60 : 控制表1_dgv.Columns(23).Visible = False
        控制表1_dgv.Columns(24).Visible = False : 控制表1_dgv.Columns(25).FillWeight = 60 : 控制表1_dgv.Columns("百分比").Visible = False
        If 顯示料號1_ch.Checked = True Then : 控制表1_dgv.Columns(表頭(77)).Visible = True : Else : 控制表1_dgv.Columns(表頭(77)).Visible = False : End If

        控制表1_dgv.Columns(13).DefaultCellStyle.Format = "#,##0" : 控制表1_dgv.Columns(17).DefaultCellStyle.Format = "#,##0" : 控制表1_dgv.Columns(19).DefaultCellStyle.Format = "#,##0"
        控制表1_dgv.Columns(22).DefaultCellStyle.Format = "#,##0" : 控制表1_dgv.Columns(18).DefaultCellStyle.Format = "#,##0"
        控制表1_dgv.Columns(13).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        控制表1_dgv.Columns(17).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        控制表1_dgv.Columns(18).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        控制表1_dgv.Columns(19).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        控制表1_dgv.Columns(22).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        控制表1_dgv.Columns(13).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        控制表1_dgv.Columns(17).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        控制表1_dgv.Columns(18).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        控制表1_dgv.Columns(19).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        控制表1_dgv.Columns(22).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

        For i As Integer = 0 To 控制表1_dgv.Rows.Count - 1
            資料數 = 控制表1_dgv.Rows.Count : MyMod.進度條()
            '-------------------------庫存狀態數字計算----------------------------------------------------------------------------------------------------------------------------------------
            If 控制表1_dgv.Rows(i).Cells("" & 表頭(79) & "").Value.ToString = "" Then : 控制表1_dgv.Rows(i).Cells("" & 表頭(79) & "").Value = "0" : End If
            If 控制表1_dgv.Rows(i).Cells("" & 表頭(80) & "").Value.ToString = "" Then : 控制表1_dgv.Rows(i).Cells("" & 表頭(80) & "").Value = "0" : End If
            控制表1_dgv.Rows(i).Cells(表頭(81)).Value = 控制表1_dgv.Rows(i).Cells("" & 表頭(78) & "").Value - 控制表1_dgv.Rows(i).Cells("" & 表頭(80) & "").Value
            '-------------------------規格合併呈現----------------------------------------------------------------------------------------------------------------------------------------
            If i = 0 Then
                PA3 = 控制表1_dgv.Rows(i).Cells("規格庫抬頭指定").Value : SQL_規格庫抬頭讀取()
                If dr.Read() Then
                    AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
                End If : conn.Close()
            Else
                If 控制表1_dgv.Rows(i).Cells("規格庫抬頭指定").Value.ToString <> 控制表1_dgv.Rows(i - 1).Cells("規格庫抬頭指定").Value.ToString Then
                    PA3 = 控制表1_dgv.Rows(i).Cells("規格庫抬頭指定").Value : SQL_規格庫抬頭讀取()
                    If dr.Read() Then
                        AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
                    End If : conn.Close()
                End If
            End If
            Dim ZA1, ZA2, ZA3, ZA4, ZA5, ZA6, ZA7, ZA8 As String : 物料規格 = ""
            If 詳細資料1_ch.Checked = True Then
                If 控制表1_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" Then
                    ZA1 = AAA1 & "=" & 控制表1_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 物料規格 = ZA1 : End If
                If 控制表1_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then : ZA2 = AAA2 & "=" & 控制表1_dgv.Rows(i).Cells("A2").Value
                    If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If
                If 控制表1_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then : ZA3 = AAA3 & "=" & 控制表1_dgv.Rows(i).Cells("A3").Value
                    If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If
                If 控制表1_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then : ZA4 = AAA4 & "=" & 控制表1_dgv.Rows(i).Cells("A4").Value
                    If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If
                If 控制表1_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then : ZA5 = AAA5 & "=" & 控制表1_dgv.Rows(i).Cells("A5").Value
                    If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If
                If 控制表1_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then : ZA6 = AAA6 & "=" & 控制表1_dgv.Rows(i).Cells("A6").Value
                    If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If
                If 控制表1_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then : ZA7 = AAA7 & "=" & 控制表1_dgv.Rows(i).Cells("A7").Value
                    If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If
                If 控制表1_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then : ZA8 = AAA8 & "=" & 控制表1_dgv.Rows(i).Cells("A8").Value
                    If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If
            Else
                If 控制表1_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" Then : ZA1 = 控制表1_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 物料規格 = ZA1 : End If
                If 控制表1_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then
                    ZA2 = 控制表1_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If
                If 控制表1_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then
                    ZA3 = 控制表1_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If
                If 控制表1_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then
                    ZA4 = 控制表1_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If
                If 控制表1_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then
                    ZA5 = 控制表1_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If
                If 控制表1_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then
                    ZA6 = 控制表1_dgv.Rows(i).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If
                If 控制表1_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then
                    ZA7 = 控制表1_dgv.Rows(i).Cells("A7").Value : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If
                If 控制表1_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then
                    ZA8 = 控制表1_dgv.Rows(i).Cells("A8").Value : If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If
            End If
            控制表1_dgv.Rows(i).Cells(表頭(13)).Value = 物料規格
            '-------------------------視覺百分比進度條----------------------------------------------------------------------------------------------------------------------------------------
            If 控制表1_dgv.Rows(i).Cells("" & 表頭(65) & "").Value = 0 Then : 控制表1_dgv.Rows(i).Cells("百分比").Value = 控制表1_dgv.Rows(i).Cells(表頭(81)).Value / 400 * 100
            Else : 控制表1_dgv.Rows(i).Cells("百分比").Value = 控制表1_dgv.Rows(i).Cells(表頭(81)).Value / (控制表1_dgv.Rows(i).Cells("" & 表頭(65) & "").Value * 10) * 100 : End If
            If 控制表1_dgv.Rows(i).Cells("百分比").Value > 100 Then : 控制表1_dgv.Rows(i).Cells("百分比").Value = 100 : End If
        Next i : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
        Set_進度條顯示1()
        Dim myco2 As DataGridViewImageColumn = 控制表1_dgv.Columns(26) : myco2.ImageLayout = DataGridViewImageCellLayout.Zoom
        If 低網速模式 = False Then
            控制表1_dgv.Columns(27).Width = 60 : 控制表1_dgv.Columns(27).Visible = True
            Dim mycol As DataGridViewImageColumn = 控制表1_dgv.Columns("Image") : mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
        Else
            If 控制表1_dgv.Columns.Count = 28 Then : 控制表1_dgv.Columns(27).Visible = False : End If
        End If : 控制表1_dgv.Columns(表頭(65)).FillWeight = 60
        If 控制表1_dgv.Rows.Count = 0 Then : 無誤料顯示2_lb.Visible = True : Else : 無誤料顯示2_lb.Visible = False : End If
        For i As Integer = 0 To 控制表1_dgv.Rows.Count - 1 : 控制表1_dgv.Rows(i).Cells(表頭(44)).Value = False : Next
    End Sub
    Private Sub Set_進度條顯示1()
        Dim Col As New DataGridViewProgressColumn With {
            .FillWeight = 45,
            .DataPropertyName = "百分比"
        }
        Col.HeaderText = "百分比" : Col.Name = "容量" : Col.DataPropertyName = "百分比" : 控制表1_dgv.Columns.Insert(26, Col)
    End Sub
    Private Sub Set_清單2()
        Dim ds1 As New DataSet : 出庫明細_dgv.DataSource = Nothing : ds1.Clear()
        出庫明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        出庫明細_dgv.ColumnHeadersHeight = 40 : 出庫明細_dgv.AllowUserToAddRows = False
        If 小間距1_ch.Checked = False And 中間距1_ch.Checked = False And 大間距1_ch.Checked = True Then : 出庫明細_dgv.RowTemplate.Height = 75
        ElseIf 小間距1_ch.Checked = False And 中間距1_ch.Checked = True And 大間距1_ch.Checked = False Then : 出庫明細_dgv.RowTemplate.Height = 45
        ElseIf 小間距1_ch.Checked = True And 中間距1_ch.Checked = False And 大間距1_ch.Checked = False Then : 出庫明細_dgv.RowTemplate.Height = 25 : End If
        PA49 = 領料單號_tb.Text : SQL_倉儲領料申請_明細()
        da.Fill(ds1) : 出庫明細_dgv.DataSource = ds1.Tables(0) : conn.Close()

        If 低網速模式 = False Then
            出庫明細_dgv.Columns(14).FillWeight = 60 : 出庫明細_dgv.Columns(14).Visible = True
            Dim mycol As DataGridViewImageColumn = 出庫明細_dgv.Columns("Image")
            mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
        Else
            If 出庫明細_dgv.Columns.Count = 15 Then : 出庫明細_dgv.Columns(14).Visible = False : End If
        End If
        出庫明細_dgv.Columns(0).Visible = False : 出庫明細_dgv.Columns(1).FillWeight = 252 : 出庫明細_dgv.Columns(2).FillWeight = 252 : 出庫明細_dgv.Columns(3).Visible = False
        出庫明細_dgv.Columns(4).FillWeight = 80 : 出庫明細_dgv.Columns(5).FillWeight = 90 : 出庫明細_dgv.Columns(6).FillWeight = 201 : 出庫明細_dgv.Columns(7).Visible = False
        出庫明細_dgv.Columns(8).Visible = False : 出庫明細_dgv.Columns(9).FillWeight = 150 : 出庫明細_dgv.Columns(10).Visible = False : 出庫明細_dgv.Columns(11).FillWeight = 80
        出庫明細_dgv.Columns(12).FillWeight = 150 : 出庫明細_dgv.Columns("State").FillWeight = 85 : 出庫明細_dgv.Columns("State").Visible = True : 出庫明細_dgv.Columns("No").Visible = False
        出庫明細_dgv.Columns(3).DefaultCellStyle.Format = "#,##0" : 出庫明細_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"
        出庫明細_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        出庫明細_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        出庫明細_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        出庫明細_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        出庫明細_dgv.Columns(1).ReadOnly = True : 出庫明細_dgv.Columns(2).ReadOnly = True : 出庫明細_dgv.Columns(3).ReadOnly = True : 出庫明細_dgv.Columns(4).ReadOnly = True
        出庫明細_dgv.Columns(5).ReadOnly = True : 出庫明細_dgv.Columns(9).ReadOnly = True : 出庫明細_dgv.Columns(11).ReadOnly = True : 出庫明細_dgv.Columns(12).ReadOnly = True
        出庫明細_dgv.Columns("State").ReadOnly = True
        If 顯示料號2_ch.Checked = True Then : 出庫明細_dgv.Columns(表頭(77)).Visible = True : Else : 出庫明細_dgv.Columns(表頭(77)).Visible = False : End If
        出庫明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter

        '------------------------------------------------------------------------------------------------------------------------------------------
        For i As Integer = 0 To 出庫明細_dgv.Rows.Count - 1
            If 系統語言 = "繁體中文" Then : Else
                If 出庫明細_dgv.Rows(i).Cells("State").Value.ToString = "領料出庫" Then : 出庫明細_dgv.Rows(i).Cells("State").Value = "Produk Out"
                ElseIf 出庫明細_dgv.Rows(i).Cells("State").Value.ToString = "轉移出庫" Then : 出庫明細_dgv.Rows(i).Cells("State").Value = "Transfer Out"
                ElseIf 出庫明細_dgv.Rows(i).Cells("State").Value.ToString = "轉移入庫" Then : 出庫明細_dgv.Rows(i).Cells("State").Value = "Transfer In"
                End If
            End If

            PA3 = 出庫明細_dgv.Rows(i).Cells(表頭(13)).Value : SQL_規格庫抬頭讀取()
            If dr.Read() Then
                AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
            End If : conn.Close()

            Dim ds3 As New DataSet : 規格合併_dgv.DataSource = Nothing : ds3.Clear()
            PA4 = 出庫明細_dgv.Rows(i).Cells("" & 表頭(77) & "").Value : SQL_規格庫抬頭讀取二()
            da.Fill(ds3) : 規格合併_dgv.DataSource = ds3.Tables(0) : conn.Close()

            Dim ZA1, ZA2, ZA3, ZA4, ZA5, ZA6, ZA7, ZA8 As String : 物料規格 = ""
            If 詳細資料2_ch.Checked = True Then
                If 規格合併_dgv.Rows(0).Cells("A1").Value.ToString <> "" Then
                    ZA1 = AAA1 & "=" & 規格合併_dgv.Rows(0).Cells("A1").Value.ToString : 物料規格 = ZA1 : End If
                If 規格合併_dgv.Rows(0).Cells("A2").Value.ToString <> "" Then : ZA2 = AAA2 & "=" & 規格合併_dgv.Rows(0).Cells("A2").Value
                    If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If
                If 規格合併_dgv.Rows(0).Cells("A3").Value.ToString <> "" Then : ZA3 = AAA3 & "=" & 規格合併_dgv.Rows(0).Cells("A3").Value
                    If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If
                If 規格合併_dgv.Rows(0).Cells("A4").Value.ToString <> "" Then : ZA4 = AAA4 & "=" & 規格合併_dgv.Rows(0).Cells("A4").Value
                    If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If
                If 規格合併_dgv.Rows(0).Cells("A5").Value.ToString <> "" Then : ZA5 = AAA5 & "=" & 規格合併_dgv.Rows(0).Cells("A5").Value
                    If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If
                If 規格合併_dgv.Rows(0).Cells("A6").Value.ToString <> "" Then : ZA6 = AAA6 & "=" & 規格合併_dgv.Rows(0).Cells("A6").Value
                    If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If
                If 規格合併_dgv.Rows(0).Cells("A7").Value.ToString <> "" Then : ZA7 = AAA7 & "=" & 規格合併_dgv.Rows(0).Cells("A7").Value
                    If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If
                If 規格合併_dgv.Rows(0).Cells("A8").Value.ToString <> "" Then : ZA8 = AAA8 & "=" & 規格合併_dgv.Rows(0).Cells("A8").Value
                    If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If
            Else
                If 規格合併_dgv.Rows(0).Cells("A1").Value.ToString <> "" Then : ZA1 = 規格合併_dgv.Rows(0).Cells("A1").Value.ToString : 物料規格 = ZA1 : End If
                If 規格合併_dgv.Rows(0).Cells("A2").Value.ToString <> "" Then
                    ZA2 = 規格合併_dgv.Rows(0).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If
                If 規格合併_dgv.Rows(0).Cells("A3").Value.ToString <> "" Then
                    ZA3 = 規格合併_dgv.Rows(0).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If
                If 規格合併_dgv.Rows(0).Cells("A4").Value.ToString <> "" Then
                    ZA4 = 規格合併_dgv.Rows(0).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If
                If 規格合併_dgv.Rows(0).Cells("A5").Value.ToString <> "" Then
                    ZA5 = 規格合併_dgv.Rows(0).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If
                If 規格合併_dgv.Rows(0).Cells("A6").Value.ToString <> "" Then
                    ZA6 = 規格合併_dgv.Rows(0).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If
                If 規格合併_dgv.Rows(0).Cells("A7").Value.ToString <> "" Then
                    ZA7 = 規格合併_dgv.Rows(0).Cells("A7").Value : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If
                If 規格合併_dgv.Rows(0).Cells("A8").Value.ToString <> "" Then
                    ZA8 = 規格合併_dgv.Rows(0).Cells("A8").Value : If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If
            End If : 出庫明細_dgv.Rows(i).Cells(表頭(13)).Value = 物料規格
        Next
    End Sub
    Private Sub Set_清單1()
        Dim ds2 As New DataSet : 出庫單據_dgv.DataSource = Nothing : ds2.Clear()
        出庫單據_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        出庫單據_dgv.ColumnHeadersHeight = 40 : 出庫單據_dgv.AllowUserToAddRows = False : 出庫單據_dgv.RowTemplate.Height = 25
        SQL_倉儲領料申請_單據()
        da.Fill(ds2) : 出庫單據_dgv.DataSource = ds2.Tables(0) : conn.Close()

        出庫單據_dgv.Columns(0).FillWeight = 100 : 出庫單據_dgv.Columns(1).FillWeight = 60 : 出庫單據_dgv.Columns(2).FillWeight = 100
        出庫單據_dgv.Columns(3).Visible = False : 出庫單據_dgv.Columns(4).Visible = False : 出庫單據_dgv.Columns(5).Visible = False : 出庫單據_dgv.Columns(6).Visible = False
    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-186-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言) : 對話框(11) = 系統語言字典("G000-203-" & 語言)
        可申請_lb.Text = 系統語言字典("H506-100-" & 語言) : 可申請_lb1.Text = 系統語言字典("H506-100-" & 語言) : 對話框(12) = 系統語言字典("G000-205-" & 語言)
        申請數_lb.Text = 系統語言字典("H506-101-" & 語言) : 申請數_lb1.Text = 系統語言字典("H506-101-" & 語言) : 對話框(13) = 系統語言字典("G000-206-" & 語言)
        使用工地_lb.Text = 系統語言字典("H506-102-" & 語言) : 使用工地_lb1.Text = 系統語言字典("H506-102-" & 語言) : 對話框(14) = 系統語言字典("G000-207-" & 語言)
        查詢_tsm.Text = 系統語言字典("H506-103-" & 語言) : 重新整理_tsm.Text = 系統語言字典("H506-104-" & 語言) : 對話框(15) = 系統語言字典("H201-148-" & 語言)
        倉名編號_lb.Text = 系統語言字典("H506-105-" & 語言) : 倉級_lb.Text = 系統語言字典("H506-106-" & 語言) : 對話框(16) = 系統語言字典("H201-149-" & 語言)
        料號_lb.Text = 系統語言字典("H506-107-" & 語言) : 料號_lb1.Text = 系統語言字典("H506-107-" & 語言) : 對話框(17) = 系統語言字典("G000-231-" & 語言)
        表頭(45) = 系統語言字典("H506-108-" & 語言) : 表頭(46) = 系統語言字典("H506-109-" & 語言) : 表頭(81) = 系統語言字典("H506-110-" & 語言)
        表頭(79) = 系統語言字典("H506-111-" & 語言) : 表頭(80) = 系統語言字典("H506-112-" & 語言) : 表頭(83) = 系統語言字典("H506-113-" & 語言)
        表頭(86) = 系統語言字典("H506-114-" & 語言) : 表頭(12) = 系統語言字典("H506-115-" & 語言) : 表頭(48) = 系統語言字典("H506-116-" & 語言)
        表頭(47) = 系統語言字典("H506-117-" & 語言) : 表頭(78) = 系統語言字典("H506-118-" & 語言) : 表頭(77) = 系統語言字典("H506-119-" & 語言)
        表頭(13) = 系統語言字典("H506-120-" & 語言) : 表頭(14) = 系統語言字典("H506-121-" & 語言) : 表頭(65) = 系統語言字典("H506-122-" & 語言)
        表頭(16) = 系統語言字典("H506-123-" & 語言) : 表頭(82) = 系統語言字典("H506-124-" & 語言) : 表頭(44) = 系統語言字典("H506-125-" & 語言)
        表頭(76) = 系統語言字典("H506-126-" & 語言) : 對話框(0) = 系統語言字典("H506-127-" & 語言) : 對話框(27) = 系統語言字典("H506-128-" & 語言)
        對話框(28) = 系統語言字典("H506-129-" & 語言) : 對話框(11) = 系統語言字典("H506-130-" & 語言) : 對話框(1) = 系統語言字典("H506-131-" & 語言)
        對話框(2) = 系統語言字典("H506-132-" & 語言) : 對話框(3) = 系統語言字典("H506-133-" & 語言) : 對話框(4) = 系統語言字典("H506-134-" & 語言)
        對話框(5) = 系統語言字典("H506-135-" & 語言) : 對話框(6) = 系統語言字典("H506-136-" & 語言) : 對話框(7) = 系統語言字典("H506-137-" & 語言)
        對話框(8) = 系統語言字典("H506-138-" & 語言) : 對話框(9) = 系統語言字典("H506-169-" & 語言) : 對話框(10) = 系統語言字典("G000-180-" & 語言)
        領料單號_lb.Text = 系統語言字典("H506-139-" & 語言) : 領料單號1_lb.Text = 系統語言字典("H506-139-" & 語言)
        TabPage1.Text = 系統語言字典("H506-141-" & 語言) : TabPage2.Text = 系統語言字典("H506-142-" & 語言)
        甲方1_lb.Text = 系統語言字典("H506-144-" & 語言) : 甲方_lb.Text = 系統語言字典("H506-144-" & 語言)
        顯示料號1_ch.Text = 系統語言字典("H506-145-" & 語言) : 顯示料號2_ch.Text = 系統語言字典("H506-145-" & 語言) : 對話框(18) = 系統語言字典("H201-150-" & 語言)
        詳細資料1_ch.Text = 系統語言字典("H506-146-" & 語言) : 詳細資料2_ch.Text = 系統語言字典("H506-146-" & 語言) : 對話框(19) = 系統語言字典("G000-225-" & 語言)
        切換_ch.Text = 系統語言字典("H506-147-" & 語言) : 切換_ch1.Text = 系統語言字典("H506-147-" & 語言) : 對話框(20) = 系統語言字典("H506-170-" & 語言)
        搜尋_lb.Text = 系統語言字典("H506-148-" & 語言) : 無合約物料_ch.Text = 系統語言字典("H506-149-" & 語言) : 合約編號_lb.Text = 系統語言字典("H506-150-" & 語言)
        顯示單號3_ch.Text = 系統語言字典("H506-151-" & 語言) : 表頭(15) = 系統語言字典("H506-152-" & 語言) : 表頭(134) = 系統語言字典("H506-152-" & 語言)
        表頭(17) = 系統語言字典("H506-153-" & 語言) : 表頭(18) = 系統語言字典("H506-154-" & 語言) : 表頭(23) = 系統語言字典("H506-155-" & 語言)
        表頭(25) = 系統語言字典("H506-156-" & 語言) : 表頭(28) = 系統語言字典("H506-157-" & 語言) : 表頭(27) = 系統語言字典("H506-158-" & 語言)
        表頭(26) = 系統語言字典("H506-159-" & 語言) : 合約號_lb.Text = 系統語言字典("H506-160-" & 語言) : 合約號1_lb.Text = 系統語言字典("H506-160-" & 語言)
        物料合約號_lb.Text = 系統語言字典("H506-161-" & 語言) : 物料合約號_lb1.Text = 系統語言字典("H506-161-" & 語言) : 對話框(21) = 系統語言字典("H506-171-" & 語言)
        開單合約號_lb.Text = 系統語言字典("H506-162-" & 語言) : 開單合約號_lb1.Text = 系統語言字典("H506-162-" & 語言) : 對話框(22) = 系統語言字典("H506-172-" & 語言)
        無誤料顯示1_lb.Text = 系統語言字典("H506-163-" & 語言) : 無誤料顯示2_lb.Text = 系統語言字典("H506-164-" & 語言) : 對話框(23) = 系統語言字典("H506-173-" & 語言)
        全部合約_ch.Text = 系統語言字典("H506-165-" & 語言) : 有庫存的合約_ch.Text = 系統語言字典("H506-166-" & 語言) & vbCrLf & 系統語言字典("H506-167-" & 語言)
        批量選擇功能_ch.Text = 系統語言字典("H506-168-" & 語言) : 對話框(24) = 系統語言字典("H506-174-" & 語言) : 對話框(25) = 系統語言字典("H506-175-" & 語言)
        對話框(26) = 系統語言字典("H506-176-" & 語言)
    End Sub
    Private Sub 全部選擇_bt_MouseEnter(sender As Object, e As EventArgs) Handles 全部選擇_bt.MouseEnter
        ToolTip1.SetToolTip(Me.全部選擇_bt, 系統語言字典("G000-115-" & 語言))
    End Sub
    Private Sub 全部取消_bt_MouseEnter(sender As Object, e As EventArgs) Handles 全部取消_bt.MouseEnter
        ToolTip1.SetToolTip(Me.全部取消_bt, 系統語言字典("G000-116-" & 語言))
    End Sub
    Private Sub 搜尋1_bt_MouseEnter(sender As Object, e As EventArgs) Handles 搜尋1_bt.MouseEnter
        ToolTip1.SetToolTip(Me.全部取消_bt, "--" & 系統語言字典("H110-117-" & 語言) & "--")
    End Sub
    Private Sub 縮放3_bt_MouseEnter(sender As Object, e As EventArgs) Handles 合約_bt.MouseEnter
        ToolTip1.SetToolTip(Me.合約_bt, 系統語言字典("G000-151-" & 語言))
    End Sub
    Private Sub 備註修改存檔_bt_MouseEnter(sender As Object, e As EventArgs) Handles 備註修改存檔_bt.MouseEnter
        ToolTip1.SetToolTip(Me.備註修改存檔_bt, 系統語言字典("G000-110-" & 語言))
    End Sub
    Private Sub 刪除領料申請單_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除領料申請單_bt.MouseEnter
        ToolTip1.SetToolTip(Me.備註修改存檔_bt, 系統語言字典("G000-218-" & 語言))
    End Sub
    Private Sub 刪除選中的明細_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除選中的明細_bt.MouseEnter
        ToolTip1.SetToolTip(Me.刪除選中的明細_bt, 系統語言字典("H506-177-" & 語言))
    End Sub
    Private Sub 領料單建立完成_bt1_MouseEnter(sender As Object, e As EventArgs) Handles 領料單建立完成_bt1.MouseEnter
        ToolTip1.SetToolTip(Me.領料單建立完成_bt1, 系統語言字典("H506-180-" & 語言))
    End Sub
    Private Sub 選定內容加入領料單_bt_MouseEnter(sender As Object, e As EventArgs) Handles 選定內容加入領料單_bt.MouseEnter
        ToolTip1.SetToolTip(Me.選定內容加入領料單_bt, 系統語言字典("H506-181-" & 語言))
    End Sub
    Private Sub 選定內容加入領料單_bt1_MouseEnter(sender As Object, e As EventArgs) Handles 選定內容加入領料單_bt1.MouseEnter
        ToolTip1.SetToolTip(Me.選定內容加入領料單_bt1, 系統語言字典("H506-181-" & 語言))
    End Sub
    Private Sub 開立領料單_bt_MouseEnter(sender As Object, e As EventArgs) Handles 開立領料單_bt.MouseEnter
        ToolTip1.SetToolTip(Me.開立領料單_bt, 系統語言字典("H506-182-" & 語言))
    End Sub
    Private Sub 開立領料單_bt1_MouseEnter(sender As Object, e As EventArgs) Handles 開立領料單_bt1.MouseEnter
        ToolTip1.SetToolTip(Me.開立領料單_bt1, 系統語言字典("H506-182-" & 語言))
    End Sub
    Private Sub 回首頁_bt_MouseEnter(sender As Object, e As EventArgs) Handles 回首頁_bt.MouseEnter
        ToolTip1.SetToolTip(Me.回首頁_bt, 系統語言字典("G000-183-" & 語言))
    End Sub
    Private Sub 回次頁_bt_MouseEnter(sender As Object, e As EventArgs) Handles 回次頁_bt.MouseEnter
        ToolTip1.SetToolTip(Me.回次頁_bt, 系統語言字典("G000-184-" & 語言))
    End Sub
    Private Sub 管材_bt_MouseEnter(sender As Object, e As EventArgs) Handles 管材_bt.MouseEnter
        ToolTip1.SetToolTip(Me.管材_bt, 系統語言字典("G000-185-" & 語言))
    End Sub
    Private Sub 電線_bt_MouseEnter(sender As Object, e As EventArgs) Handles 電線_bt.MouseEnter
        ToolTip1.SetToolTip(Me.電線_bt, 系統語言字典("G000-186-" & 語言))
    End Sub
    Private Sub 電料_bt_MouseEnter(sender As Object, e As EventArgs) Handles 電料_bt.MouseEnter
        ToolTip1.SetToolTip(Me.電料_bt, 系統語言字典("G000-187-" & 語言))
    End Sub
    Private Sub 槽架_bt_MouseEnter(sender As Object, e As EventArgs) Handles 槽架_bt.MouseEnter
        ToolTip1.SetToolTip(Me.槽架_bt, 系統語言字典("G000-188-" & 語言))
    End Sub
    Private Sub 建材_bt_MouseEnter(sender As Object, e As EventArgs) Handles 建材_bt.MouseEnter
        ToolTip1.SetToolTip(Me.建材_bt, 系統語言字典("G000-189-" & 語言))
    End Sub
    Private Sub 五金_bt_MouseEnter(sender As Object, e As EventArgs) Handles 五金_bt.MouseEnter
        ToolTip1.SetToolTip(Me.五金_bt, 系統語言字典("G000-190-" & 語言))
    End Sub
    Private Sub 設備_bt_MouseEnter(sender As Object, e As EventArgs) Handles 設備_bt.MouseEnter
        ToolTip1.SetToolTip(Me.設備_bt, 系統語言字典("G000-191-" & 語言))
    End Sub
    Private Sub 工具_bt_MouseEnter(sender As Object, e As EventArgs) Handles 工具_bt.MouseEnter
        ToolTip1.SetToolTip(Me.工具_bt, 系統語言字典("G000-192-" & 語言))
    End Sub
    Private Sub 日用_bt_MouseEnter(sender As Object, e As EventArgs) Handles 日用_bt.MouseEnter
        ToolTip1.SetToolTip(Me.日用_bt, 系統語言字典("G000-193-" & 語言))
    End Sub
    Private Sub 其他_bt_MouseEnter(sender As Object, e As EventArgs) Handles 其他_bt.MouseEnter
        ToolTip1.SetToolTip(Me.其他_bt, 系統語言字典("G000-194-" & 語言))
    End Sub
    Private Sub 格式控制2()
        If Label2_1.Text = "A1" Then : Label2_1.Enabled = False : B1_tb.Enabled = False : Else : Label2_1.Enabled = True : B1_tb.Enabled = True : End If
        If Label3_1.Text = "A2" Then : Label3_1.Enabled = False : B2_tb.Enabled = False : Else : Label3_1.Enabled = True : B2_tb.Enabled = True : End If
        If Label4_1.Text = "A3" Then : Label4_1.Enabled = False : B3_tb.Enabled = False : Else : Label4_1.Enabled = True : B3_tb.Enabled = True : End If
        If Label5_1.Text = "A4" Then : Label5_1.Enabled = False : B4_tb.Enabled = False : Else : Label5_1.Enabled = True : B4_tb.Enabled = True : End If
        If Label6_1.Text = "A5" Then : Label6_1.Enabled = False : B5_tb.Enabled = False : Else : Label6_1.Enabled = True : B5_tb.Enabled = True : End If
        If Label7_1.Text = "A6" Then : Label7_1.Enabled = False : B6_tb.Enabled = False : Else : Label7_1.Enabled = True : B6_tb.Enabled = True : End If
        If Label8_1.Text = "A7" Then : Label8_1.Enabled = False : B7_tb.Enabled = False : Else : Label8_1.Enabled = True : B7_tb.Enabled = True : End If
        If Label9_1.Text = "A8" Then : Label9_1.Enabled = False : B8_tb.Enabled = False : Else : Label9_1.Enabled = True : B8_tb.Enabled = True : End If
    End Sub
    Private Sub 當前倉庫_cb_下拉表單資料載入()
        SQL_倉儲領料申請_倉級指定倉名() : 當前倉庫_cb.Items.Clear() : While (dr.Read()) : 當前倉庫_cb.Items.Add(dr("倉名")) : End While : conn.Close()
    End Sub
    Private Sub 使用工地_cb_下拉表單資料載入()
        SQL_倉儲領料申請_使用工地()
        使用工地_cb.Items.Clear() : 使用工地_cb1.Items.Clear() : 使用工地_cb1.Items.Add("") : 使用工地_cb.Items.Add("")
        While (dr.Read()) : 使用工地_cb.Items.Add(dr("約號甲方")) : 使用工地_cb1.Items.Add(dr("約號甲方")) : End While : conn.Close()
    End Sub
    Private Sub 甲方條件下拉清單讀取()
        SQL合約條件讀取() : 合約編號1_cb.Items.Clear() : 合約編號1_cb.Items.Add("") : 合約編號2_cb.Items.Clear() : 合約編號2_cb.Items.Add("")
        While (dr.Read()) : 合約編號1_cb.Items.Add(dr("約號甲方")) : 合約編號2_cb.Items.Add(dr("約號甲方")) : End While : conn.Close()
    End Sub
    Private Sub 倉儲領料申請_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        分母 = 100 : 分段1 = 0.1 : 分段2 = 0.09 : 分段3 = 0.3 : 分段4 = 0.29 : 進度條後墜 = " %"
        Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        風格() : H(506) = True : 介面 = "H506" : 語言轉換讀取() : If BL10 = True Then : 顯示說明(999, False) : Else : 顯示說明(999, True) : End If

        SQL_倉儲臨時單號去除() : SQL_清單欄位查詢()
        If Acdr.Read() Then
            小間距_ch.Checked = Acdr("L_1_1") : 中間距_ch.Checked = Acdr("L_2_1") : 大間距_ch.Checked = Acdr("L_3_1")
            小間距1_ch.Checked = Acdr("L_1_2") : 中間距1_ch.Checked = Acdr("L_2_2") : 大間距1_ch.Checked = Acdr("L_3_2")
            小間距2_ch.Checked = Acdr("L_1_1") : 中間距2_ch.Checked = Acdr("L_2_1") : 大間距2_ch.Checked = Acdr("L_3_1")
        End If : Access1.Close()

        倉儲單_P.BringToFront() : Panel1.SendToBack()

        開立領料單_bt.Enabled = True : 開立領料單_bt1.Enabled = True
        領料單建立完成_bt1.Enabled = False : 無誤料顯示1_lb.Visible = False : 無誤料顯示2_lb.Visible = False : 全部合約_ch.Checked = False : 有庫存的合約_ch.Checked = True
        批量選擇功能_ch.Enabled = False
        倉儲領料申請_Size()
    End Sub
    Private Sub 倉儲領料申請_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        當前倉庫_cb_下拉表單資料載入() : 使用工地_cb_下拉表單資料載入() : 甲方條件下拉清單讀取() : Set_合約清單() : 格式控制2() : Set_清單1()
        If BL10 = True Then
            開立領料單_bt.PerformClick()
            For i As Integer = 0 To 桌面倉儲領料導入.出庫明細_dgv.Rows.Count - 1
                PA1 = 領料單號_tb.Text : PA2 = 桌面倉儲領料導入.出庫明細_dgv.Rows(i).Cells(9).Value.ToString
                If CDbl(桌面倉儲領料導入.出庫明細_dgv.Rows(i).Cells(4).Value.ToString) = 0 Then : Else
                    SQL_倉儲明細表_確認單據是否申請()
                    If dr.Read() Then : conn.Close() : Else : Set_日期格式轉換() : 新增指定出庫流水號()
                        PA3 = ESTR : PA4 = 領料單號_tb.Text : PA5 = 桌面倉儲領料導入.出庫明細_dgv.Rows(i).Cells(14).Value.ToString
                        PA6 = 桌面倉儲領料導入.出庫明細_dgv.Rows(i).Cells(13).Value.ToString : PA2 = 桌面倉儲領料導入.出庫明細_dgv.Rows(i).Cells(9).Value.ToString
                        PA7 = CDbl(桌面倉儲領料導入.出庫明細_dgv.Rows(i).Cells(4).Value.ToString) : PA8 = ""
                        PA10 = 乙方_tb.Text : PA11 = 甲方_tb.Text : PA12 = 序號_tb.Text : PA13 = 尾號_tb.Text : PA9 = 使用工地_cb.Text
                        SQL_倉儲領料申請_倉儲明細表_新增() : conn.Close()
                    End If
                End If
            Next : 桌面倉儲領料導入.Close() : Set_清單2() : Set_合約物料() : Set_清單1() : MGB(對話框(23), 1) : 備註修改存檔_bt.Enabled = True : BL10 = False
        End If
    End Sub
    Private Sub 倉儲領料申請_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
        倉儲領料申請_Size()
    End Sub
    Private Sub 倉儲領料申請_Size()
        MyMod.清單字體大小調整()
        合約物料_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        物料清單1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        物料規格1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        控制表1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        出庫單據_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        出庫明細_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        合約_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        合約1_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
        BL10 = False : 物料查詢 = False : H(506) = False : MyMod.虛擬桌面開啟()
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H506" : 語言轉換讀取() : Set_清單1() : Set_清單2() : Set_清單1_2()
    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 DataGridViewCellEventArgs) Handles 出庫明細_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            選擇_tb.Text = 出庫明細_dgv.Rows(e.RowIndex).Cells("資料流水號").Value.ToString : 品名4_tb.Text = 出庫明細_dgv.Rows(e.RowIndex).Cells(表頭(12)).Value.ToString
            規格_tb.Text = 出庫明細_dgv.Rows(e.RowIndex).Cells(表頭(13)).Value.ToString : 料號_tb.Text = 出庫明細_dgv.Rows(e.RowIndex).Cells(表頭(77)).Value.ToString.ToUpper
            圖片檔3_pb.Image = Nothing : PA2 = 出庫明細_dgv.Rows(e.RowIndex).Cells("料號原則").Value : SQL_物料圖庫_圖檔讀取一()
            While dr.Read() = True
                Dim unused As Byte() = New Byte(-1) {}
                Dim bytes As Byte() = DirectCast(dr.Item("圖檔"), Byte())
                Dim oStream As New MemoryStream(bytes)
                圖片檔3_pb.Image = Bitmap.FromStream(oStream)
            End While : conn.Close() : 圖片檔3_pb.SizeMode = 4
        End If
    End Sub
    Private Sub 出庫單據_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 出庫單據_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            If 開立領料單_bt.Enabled = False Then : MGB(對話框(9), 1) : Else
                領料單號_tb.Text = 出庫單據_dgv.Rows(e.RowIndex).Cells(表頭(47)).Value.ToString : 倉儲單號1_tb.Text = 出庫單據_dgv.Rows(e.RowIndex).Cells(表頭(47)).Value.ToString
                使用工地_cb.Text = 出庫單據_dgv.Rows(e.RowIndex).Cells(表頭(86)).Value.ToString : 合約編號_cb.Text = 出庫單據_dgv.Rows(e.RowIndex).Cells("乙方").Value.ToString
                合約編號1_tb.Text = 出庫單據_dgv.Rows(e.RowIndex).Cells("甲方").Value.ToString : 合約編號2_tb.Text = 出庫單據_dgv.Rows(e.RowIndex).Cells("序號").Value.ToString
                合約編號3_tb.Text = 出庫單據_dgv.Rows(e.RowIndex).Cells("尾號").Value.ToString : 合約號_tb.Text = 出庫單據_dgv.Rows(e.RowIndex).Cells("No").Value.ToString
                領料單號1_tb.Text = 出庫單據_dgv.Rows(e.RowIndex).Cells(表頭(47)).Value.ToString
                使用工地_cb1.Text = 出庫單據_dgv.Rows(e.RowIndex).Cells(表頭(86)).Value.ToString : 合約編號_cb1.Text = 出庫單據_dgv.Rows(e.RowIndex).Cells("乙方").Value.ToString
                合約編號1_tb1.Text = 出庫單據_dgv.Rows(e.RowIndex).Cells("甲方").Value.ToString : 合約編號2_tb1.Text = 出庫單據_dgv.Rows(e.RowIndex).Cells("序號").Value.ToString
                合約編號3_tb1.Text = 出庫單據_dgv.Rows(e.RowIndex).Cells("尾號").Value.ToString : 合約號_tb1.Text = 出庫單據_dgv.Rows(e.RowIndex).Cells("No").Value.ToString
                合約號1_tb.Text = 出庫單據_dgv.Rows(e.RowIndex).Cells("No").Value.ToString
                選擇_tb.Text = "" : 品名1_tb.Text = "" : Set_清單2()
            End If
        End If
    End Sub
    Private Sub 物料清單1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料清單1_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 可申請_tb.Text = "0" : 申請數_nud.Value = 0 : 規格_tb.Text = "" : 合約物料_dgv.DataSource = Nothing
            圖片檔3_pb.Image = Nothing : PA2 = 物料清單1_dgv.Rows(e.RowIndex).Cells("料號原則").Value : SQL_物料圖庫_圖檔讀取一()
            While dr.Read() = True
                Dim unused As Byte() = New Byte(-1) {}
                Dim bytes As Byte() = DirectCast(dr.Item("圖檔"), Byte())
                Dim oStream As New MemoryStream(bytes)
                圖片檔3_pb.Image = Bitmap.FromStream(oStream)
            End While : conn.Close() : 圖片檔3_pb.SizeMode = 4

            PA = 物料清單1_dgv(1, e.RowIndex).Value.ToString : 品名2_tb.Text = 物料清單1_dgv("Pernyataan_Prinsip", e.RowIndex).Value.ToString()
            PA1 = 物料清單1_dgv.Rows(e.RowIndex).Cells("群組碼").Value : PA2 = 物料清單1_dgv.Rows(e.RowIndex).Cells("料號原則").Value
            '------------------------------------------------------------------------------------------------------------------------------------------
            SQL_建築物料請購單申請_物料規格讀取()
            If dr.Read() Then : KKK2 = dr("規格庫編號") : PA3 = dr("規格庫抬頭指定") : PA4 = dr("群組碼") : End If : conn.Close()
            '------------------------------------------------------------------------------------------------------------------------------------------
            SQL_規格庫抬頭讀取()
            If dr.Read() Then : AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8") : End If
            conn.Close()
            '------------------------------------------------------------------------------------------------------------------------------------------
            Dim ds3 As New DataSet : 物料規格1_dgv.DataSource = Nothing : ds3.Clear()
            物料規格1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            物料規格1_dgv.ColumnHeadersHeight = 25 : 物料規格1_dgv.AllowUserToAddRows = False : 物料規格1_dgv.RowTemplate.Height = 20
            If KKK2 = "SQLB03" Then : SQL_歷史物料規格_SQLB03() : ElseIf KKK2 = "SQLB04" Then : SQL_歷史物料規格_SQLB04() : ElseIf KKK2 = "SQLB05" Then : SQL_歷史物料規格_SQLB05()
            ElseIf KKK2 = "SQLB06" Then : SQL_歷史物料規格_SQLB06() : ElseIf KKK2 = "SQLB07" Then : SQL_歷史物料規格_SQLB07() : ElseIf KKK2 = "SQLB08" Then : SQL_歷史物料規格_SQLB08()
            End If : da.Fill(ds3) : 物料規格1_dgv.DataSource = ds3.Tables(0) : conn.Close() : 料號1_tb.Text = ""

            物料規格1_dgv.Columns(0).Visible = False : 物料規格1_dgv.Columns(1).Visible = False : 物料規格1_dgv.Columns(3).Visible = False
            物料規格1_dgv.Columns(2).Width = 17 : 物料規格1_dgv.Columns(12).Visible = False : 物料規格1_dgv.Columns(13).Visible = False : 物料規格1_dgv.Columns(14).Visible = False
            物料規格1_dgv.Columns(15).Visible = False
            If KKK2 = "SQLB03" Then
                物料規格1_dgv.Columns(7).Visible = False : 物料規格1_dgv.Columns(8).Visible = False : 物料規格1_dgv.Columns(9).Visible = False : 物料規格1_dgv.Columns(10).Visible = False
                物料規格1_dgv.Columns(11).Visible = False
                物料規格1_dgv.Columns(4).FillWeight = 213 : 物料規格1_dgv.Columns(5).FillWeight = 213 : 物料規格1_dgv.Columns(6).FillWeight = 214
            ElseIf KKK2 = "SQLB04" Then
                物料規格1_dgv.Columns(7).Visible = True : 物料規格1_dgv.Columns(8).Visible = False : 物料規格1_dgv.Columns(9).Visible = False : 物料規格1_dgv.Columns(10).Visible = False
                物料規格1_dgv.Columns(11).Visible = False
                物料規格1_dgv.Columns(4).FillWeight = 160 : 物料規格1_dgv.Columns(5).FillWeight = 160 : 物料規格1_dgv.Columns(6).FillWeight = 160 : 物料規格1_dgv.Columns(7).FillWeight = 160
            ElseIf KKK2 = "SQLB05" Then
                物料規格1_dgv.Columns(7).Visible = True : 物料規格1_dgv.Columns(8).Visible = True : 物料規格1_dgv.Columns(9).Visible = False : 物料規格1_dgv.Columns(10).Visible = False
                物料規格1_dgv.Columns(11).Visible = False
                物料規格1_dgv.Columns(4).FillWeight = 128 : 物料規格1_dgv.Columns(5).FillWeight = 128 : 物料規格1_dgv.Columns(6).FillWeight = 128 : 物料規格1_dgv.Columns(7).FillWeight = 128
                物料規格1_dgv.Columns(8).FillWeight = 128
            ElseIf KKK2 = "SQLB06" Then
                物料規格1_dgv.Columns(7).Visible = True : 物料規格1_dgv.Columns(8).Visible = True : 物料規格1_dgv.Columns(9).Visible = True : 物料規格1_dgv.Columns(10).Visible = False
                物料規格1_dgv.Columns(11).Visible = False
                物料規格1_dgv.Columns(4).FillWeight = 106 : 物料規格1_dgv.Columns(5).FillWeight = 107 : 物料規格1_dgv.Columns(6).FillWeight = 106 : 物料規格1_dgv.Columns(7).FillWeight = 107
                物料規格1_dgv.Columns(8).FillWeight = 106 : 物料規格1_dgv.Columns(9).FillWeight = 108
            ElseIf KKK2 = "SQLB07" Then
                物料規格1_dgv.Columns(7).Visible = True : 物料規格1_dgv.Columns(8).Visible = True : 物料規格1_dgv.Columns(9).Visible = True : 物料規格1_dgv.Columns(10).Visible = True
                物料規格1_dgv.Columns(11).Visible = False
                物料規格1_dgv.Columns(4).FillWeight = 91 : 物料規格1_dgv.Columns(5).FillWeight = 92 : 物料規格1_dgv.Columns(6).FillWeight = 91 : 物料規格1_dgv.Columns(7).FillWeight = 92
                物料規格1_dgv.Columns(8).FillWeight = 91 : 物料規格1_dgv.Columns(9).FillWeight = 92 : 物料規格1_dgv.Columns(10).FillWeight = 91
            ElseIf KKK2 = "SQLB08" Then
                物料規格1_dgv.Columns(7).Visible = True : 物料規格1_dgv.Columns(8).Visible = True : 物料規格1_dgv.Columns(9).Visible = True : 物料規格1_dgv.Columns(10).Visible = True
                物料規格1_dgv.Columns(11).Visible = True
                物料規格1_dgv.Columns(4).FillWeight = 80 : 物料規格1_dgv.Columns(5).FillWeight = 80 : 物料規格1_dgv.Columns(6).FillWeight = 80 : 物料規格1_dgv.Columns(7).FillWeight = 80
                物料規格1_dgv.Columns(8).FillWeight = 80 : 物料規格1_dgv.Columns(9).FillWeight = 80 : 物料規格1_dgv.Columns(10).FillWeight = 80 : 物料規格1_dgv.Columns(11).FillWeight = 80
            End If
            物料規格1_dgv.EditMode = DataGridViewEditMode.EditOnEnter
            物料規格1_dgv.Columns(0).ReadOnly = True : 物料規格1_dgv.Columns(1).ReadOnly = True : 物料規格1_dgv.Columns(2).ReadOnly = True : 物料規格1_dgv.Columns(3).ReadOnly = True
            物料規格1_dgv.Columns(4).ReadOnly = True : 物料規格1_dgv.Columns(5).ReadOnly = True : 物料規格1_dgv.Columns(6).ReadOnly = True : 物料規格1_dgv.Columns(7).ReadOnly = True
            物料規格1_dgv.Columns(8).ReadOnly = True : 物料規格1_dgv.Columns(9).ReadOnly = True : 物料規格1_dgv.Columns(10).ReadOnly = True : 物料規格1_dgv.Columns(11).ReadOnly = True
            物料規格1_dgv.Columns("Persediaan").DefaultCellStyle.Format = "#,##0" : 物料規格1_dgv.Columns("Persediaan").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            For i As Integer = 0 To 物料規格1_dgv.Rows.Count - 1
                物料規格1_dgv.Rows(i).Cells("No").Value = i + 1 : 物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value = 0
                If Not IsNumeric(物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value) Then : MGB(對話框(10), 1)
                ElseIf Val(物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value) > 0 Then : 物料規格1_dgv.Rows(i).Cells("Pilih").Value = True
                ElseIf Val(物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value) <= 0 Then : 物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value = "0"
                    物料規格1_dgv.Rows(i).Cells("Pilih").Value = False
                End If
            Next
            If 物料規格1_dgv.Rows.Count = 0 Then : 無誤料顯示1_lb.Visible = True : Else : 無誤料顯示1_lb.Visible = False : End If
        End If
    End Sub
    Private Sub 物料規格1_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 物料規格1_dgv.CellEnter
        For i As Integer = 0 To 物料規格1_dgv.Rows.Count - 1
            If Not IsNumeric(物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value) Then : MGB(對話框(10), 1)
                物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value = "0" : 物料規格1_dgv.Rows(i).Cells("Pilih").Value = False
            ElseIf Val(物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value) > 0 Then : 物料規格1_dgv.Rows(i).Cells("Pilih").Value = True
            ElseIf Val(物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value) <= 0 Then : 物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value = "0"
                物料規格1_dgv.Rows(i).Cells("Pilih").Value = False
            End If
        Next i
    End Sub
    Private Sub 物料規格1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料規格1_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 可申請_tb.Text = 0
            料號1_tb.Text = 物料規格1_dgv.Rows(e.RowIndex).Cells("Nomor_Bagian").Value.ToString : PA = 料號1_tb.Text : Set_合約物料()
        End If
    End Sub
    Private Sub 合約物料_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約物料_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            當前倉庫_cb.Text = 合約物料_dgv.Rows(e.RowIndex).Cells(表頭(23)).Value.ToString
            可申請_tb.Text = Strings.Format(CInt(合約物料_dgv.Rows(e.RowIndex).Cells("庫存").Value.ToString) -
                                            CInt(合約物料_dgv.Rows(e.RowIndex).Cells(表頭(28)).Value.ToString) +
                                            CInt(合約物料_dgv.Rows(e.RowIndex).Cells(表頭(25)).Value.ToString), "#,##0")
        End If
    End Sub
    Private Sub 合約_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            合約編號_tb.Text = 合約_dgv.Rows(e.RowIndex).Cells("Kontrak").Value.ToString.ToUpper : Set_清單1_2() : 圖片檔2_pb.Image = Nothing
            合約號1_tb1.Text = 合約_dgv.Rows(e.RowIndex).Cells("Kontrak").Value.ToString.ToUpper
            If Strings.Left(合約_dgv.Rows(e.RowIndex).Cells("Kontrak").Value.ToString.ToUpper, 1) = "H" Then : 乙方_tb.Text = "HX"
            ElseIf Strings.Left(合約_dgv.Rows(e.RowIndex).Cells("Kontrak").Value.ToString.ToUpper, 1) = "P" Then : 乙方_tb.Text = "PGS" : End If
            序號_tb.Text = 合約_dgv.Rows(e.RowIndex).Cells("約號排序").Value.ToString : 尾號_tb.Text = 合約_dgv.Rows(e.RowIndex).Cells("約號尾序").Value.ToString
            甲方_tb.Text = 合約_dgv.Rows(e.RowIndex).Cells("約號甲方").Value.ToString.ToUpper

            If 放大 = True Then
                Dim NX, NY As Integer : NX = 合約_dgv.Size.Width : NY = 合約_dgv.Size.Height
                合約_dgv.Size = New System.Drawing.Point(NX - 400, NY) : 放大 = False
            End If


            合約_dgv.Columns("工程名稱").Visible = False : 合約_dgv.Columns("Nama Proyek").Visible = False : 合約_dgv.Columns("MAT").Visible = False
            If 開立領料單_bt1.Enabled = True Then
                If Strings.Left(合約_dgv.Rows(e.RowIndex).Cells("Kontrak").Value.ToString.ToUpper, 1) = "H" Then : 合約編號_cb1.Text = "HX"
                ElseIf Strings.Left(合約_dgv.Rows(e.RowIndex).Cells("Kontrak").Value.ToString.ToUpper, 1) = "P" Then : 合約編號_cb1.Text = "PGS" : End If
                合約編號2_tb1.Text = 合約_dgv.Rows(e.RowIndex).Cells("約號排序").Value.ToString : 合約編號3_tb1.Text = 合約_dgv.Rows(e.RowIndex).Cells("約號尾序").Value.ToString
                合約編號1_tb1.Text = 合約_dgv.Rows(e.RowIndex).Cells("約號甲方").Value.ToString.ToUpper
            End If
        End If
    End Sub
    Private Sub 合約1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約1_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            If 開立領料單_bt1.Enabled = True Then
                If Strings.Left(合約1_dgv.Rows(e.RowIndex).Cells("Kontrak").Value.ToString.ToUpper, 1) = "H" Then : 合約編號_cb.Text = "HX"
                ElseIf Strings.Left(合約1_dgv.Rows(e.RowIndex).Cells("Kontrak").Value.ToString.ToUpper, 1) = "P" Then : 合約編號_cb.Text = "PGS" : End If
                合約編號2_tb.Text = 合約1_dgv.Rows(e.RowIndex).Cells("約號排序").Value.ToString : 合約編號3_tb.Text = 合約1_dgv.Rows(e.RowIndex).Cells("約號尾序").Value.ToString
                合約編號1_tb.Text = 合約1_dgv.Rows(e.RowIndex).Cells("約號甲方").Value.ToString.ToUpper
            End If
        End If
    End Sub
    Private Sub 控制表1_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 控制表1_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2)
        If e.RowIndex = 控制表1_dgv.Rows.Count - 1 Then
            Exit Sub
        Else
            If 控制表1_dgv(2, e.RowIndex).Value.ToString <> 控制表1_dgv(2, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(控制表1_dgv.RowHeadersVisible, 控制表1_dgv.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 控制表1_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 控制表1_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                Exit Sub
            End If
        End If
    End Sub
    Private Sub 控制表1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 控制表1_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            圖片檔2_pb.Image = Nothing : PA2 = 控制表1_dgv.Rows(e.RowIndex).Cells("料號原則").Value : SQL_物料圖庫_圖檔讀取一()
            While dr.Read() = True
                Dim unused As Byte() = New Byte(-1) {}
                Dim bytes As Byte() = DirectCast(dr.Item("圖檔"), Byte())
                Dim oStream As New MemoryStream(bytes)
                圖片檔2_pb.Image = Bitmap.FromStream(oStream)
            End While : conn.Close() : 圖片檔2_pb.SizeMode = 4

            AAA1 = "" : AAA2 = "" : AAA3 = "" : AAA4 = "" : AAA5 = "" : AAA6 = "" : AAA7 = "" : AAA8 = ""
            PA3 = 控制表1_dgv.Rows(e.RowIndex).Cells("規格庫抬頭指定").Value : SQL_規格庫抬頭讀取()
            If dr.Read() Then
                AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
            End If : conn.Close()

            If AAA1 = "" Then : Label2_1.Text = "A1" : Else : Label2_1.Text = AAA1 : End If : If AAA2 = "" Then : Label3_1.Text = "A2" : Else : Label3_1.Text = AAA2 : End If
            If AAA3 = "" Then : Label4_1.Text = "A3" : Else : Label4_1.Text = AAA3 : End If : If AAA4 = "" Then : Label5_1.Text = "A4" : Else : Label5_1.Text = AAA4 : End If
            If AAA5 = "" Then : Label6_1.Text = "A5" : Else : Label6_1.Text = AAA5 : End If : If AAA6 = "" Then : Label7_1.Text = "A6" : Else : Label7_1.Text = AAA6 : End If
            If AAA7 = "" Then : Label8_1.Text = "A7" : Else : Label8_1.Text = AAA7 : End If : If AAA8 = "" Then : Label9_1.Text = "A8" : Else : Label9_1.Text = AAA8 : End If

            B1_tb.Text = 控制表1_dgv.Rows(e.RowIndex).Cells("A1").Value.ToString : B2_tb.Text = 控制表1_dgv.Rows(e.RowIndex).Cells("A2").Value.ToString
            B3_tb.Text = 控制表1_dgv.Rows(e.RowIndex).Cells("A3").Value.ToString : B4_tb.Text = 控制表1_dgv.Rows(e.RowIndex).Cells("A4").Value.ToString
            B5_tb.Text = 控制表1_dgv.Rows(e.RowIndex).Cells("A5").Value.ToString : B6_tb.Text = 控制表1_dgv.Rows(e.RowIndex).Cells("A6").Value.ToString
            B7_tb.Text = 控制表1_dgv.Rows(e.RowIndex).Cells("A7").Value.ToString : B8_tb.Text = 控制表1_dgv.Rows(e.RowIndex).Cells("A8").Value.ToString
            品名3_tb.Text = 控制表1_dgv.Rows(e.RowIndex).Cells(表頭(12)).Value.ToString : 品名4_tb.Text = 控制表1_dgv.Rows(e.RowIndex).Cells(表頭(12)).Value.ToString
            料號_tb1.Text = 控制表1_dgv.Rows(e.RowIndex).Cells(表頭(77)).Value.ToString.ToUpper
            可申請_tb1.Text = Strings.Format(CInt(控制表1_dgv.Rows(e.RowIndex).Cells(表頭(81)).Value.ToString), "#,##0")
            當前倉庫_cb.Text = 控制表1_dgv.Rows(e.RowIndex).Cells(表頭(48)).Value.ToString
            格式控制2()

            If 批量選擇功能_ch.Checked = True Then
                If 控制表1_dgv.Rows(e.RowIndex).Cells(表頭(44)).Value = False Then
                    If 深色風格 = False Then
                        控制表1_dgv.Rows(e.RowIndex).Cells(表頭(44)).Value = True : 控制表1_dgv.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.LimeGreen
                    Else
                        控制表1_dgv.Rows(e.RowIndex).Cells(表頭(44)).Value = True : 控制表1_dgv.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.DarkSlateGray
                    End If
                Else
                    If 深色風格 = False Then
                        控制表1_dgv.Rows(e.RowIndex).Cells(表頭(44)).Value = False : 控制表1_dgv.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.White
                    Else
                        控制表1_dgv.Rows(e.RowIndex).Cells(表頭(44)).Value = False : 控制表1_dgv.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.DimGray
                    End If
                End If
            End If
        End If
    End Sub
    Private Sub 合約編號1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約編號1_cb.SelectedIndexChanged
        Set_合約清單() : 合約編號_tb.Text = "" : 合約號1_tb1.Text = "" ': Set_清單1_2()
        合約編號2_cb.SelectedIndex = 合約編號1_cb.SelectedIndex
    End Sub
    Private Sub 合約編號1_cb_Click(sender As Object, e As EventArgs) Handles 合約編號1_cb.Click
        CB選擇清單(合約編號1_cb, 合約編號1_cb.Text)
    End Sub
    Private Sub 合約編號2_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約編號2_cb.SelectedIndexChanged
        合約編號1_cb.SelectedIndex = 合約編號2_cb.SelectedIndex
    End Sub
    Private Sub 合約編號2_cb_Click(sender As Object, e As EventArgs) Handles 合約編號2_cb.Click
        CB選擇清單(合約編號2_cb, 合約編號2_cb.Text)
    End Sub
    Private Sub 使用工地_cb_Click(sender As Object, e As EventArgs) Handles 使用工地_cb.Click
        CB選擇清單(使用工地_cb, 使用工地_cb.Text)
    End Sub
    Private Sub 使用工地_cb1_Click(sender As Object, e As EventArgs) Handles 使用工地_cb1.Click
        CB選擇清單(使用工地_cb1, 使用工地_cb1.Text)
    End Sub
    Private Sub 當前倉庫_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 當前倉庫_cb.SelectedIndexChanged
        PA6 = 當前倉庫_cb.Text : SQL_指定倉儲_資料讀取()
        If dr.Read() Then : 倉級_tb.Text = dr("倉級") : 倉名編號_tb.Text = dr("倉名編號") : End If : conn.Close()
    End Sub
    Private Sub Set_日期格式轉換()
        DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
    End Sub
    Private Sub 存檔()
        資料數 = 出庫明細_dgv.Rows.Count
        For i As Integer = 0 To 出庫明細_dgv.Rows.Count - 1 : MyMod.進度條()
            PA10 = 出庫明細_dgv.Rows(i).Cells(表頭(14)).Value : PA11 = 使用工地_cb.Text : PA12 = 出庫明細_dgv.Rows(i).Cells("資料流水號").Value
            SQL_倉儲明細表_備註修改_使用位置() : conn.Close()
        Next : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
    End Sub
    Private Sub 申請數_nud_ValueChanged(sender As Object, e As EventArgs) Handles 申請數_nud.TextChanged
        If 申請數_nud.Value > CInt(可申請_tb.Text) Then : MGB(對話框(1) & 可申請_tb.Text & 對話框(2), 1) : 申請數_nud.Value = 0 : End If
    End Sub
    Private Sub 申請數_nud1_ValueChanged(sender As Object, e As EventArgs) Handles 申請數_nud1.TextChanged
        If 申請數_nud1.Value > CInt(可申請_tb1.Text) Then : MGB(對話框(1) & 可申請_tb1.Text & 對話框(2), 1) : 申請數_nud1.Value = 0 : End If
    End Sub
    Private Sub 料號1_tb_TextChanged(sender As Object, e As EventArgs) Handles 料號1_tb.TextChanged
        料號_tb.Text = 料號1_tb.Text.ToUpper
    End Sub
    Private Sub 品名2_tb_TextChanged(sender As Object, e As EventArgs) Handles 品名2_tb.TextChanged
        品名4_tb.Text = 品名2_tb.Text.ToUpper
    End Sub
    Private Sub 開立領料單_OP()
        Dim 合約編號條件 As Boolean = True
        If 合約編號_cb.Text = "" Then : 合約編號條件 = False : Else
            If 合約編號1_tb.Text = "" Then : MGB(對話框(11), 1) : 合約編號條件 = False : Else : 合約編號1_tb.Text = 合約編號1_tb.Text.ToUpper : End If
            If 合約編號2_tb.Text = "" Then : MGB(對話框(12), 1) : 合約編號條件 = False : End If
            Dim c As Int32   '然後查表， c變數若在48~57， 表示它是數字，
            For index = 0 To 合約編號2_tb.Text.Length - 1 : c = Asc(合約編號2_tb.Text(index))
                If c < 48 Or c > 57 Then : MGB(對話框(13), 1) : 合約編號條件 = False : Exit For : Else
                    If Len(合約編號2_tb.Text) <> 6 Then : MGB(對話框(14), 1) : 合約編號條件 = False : Exit For : End If
                End If
            Next
            If 合約編號3_tb.Text = "" Then : MGB(對話框(15), 1) : 合約編號條件 = False
            ElseIf IsNumeric(合約編號3_tb.Text) = False Then : MGB(對話框(16), 1) : 合約編號條件 = False : End If
        End If
        If 合約編號條件 = False Then : 合約號_tb.Text = "" : 合約編號_cb.Text = "" : 合約編號1_tb.Text = "" : 合約編號2_tb.Text = "" : 合約編號3_tb.Text = ""
        Else : Dim SSA As String = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text
            合約號_tb.Text = SSA.ToUpper : 批量選擇功能_ch.Enabled = True
        End If
        If BL10 = True Then : 開立領料單() : Else
            If 合約號_tb.Text = "" Then : Dim SS, SS1 As String
                SS = 系統語言字典("G000-224-" & 語言) : SS1 = 系統語言字典("H201-140-" & 語言) : MGB(SS1, 2) : If 訊息回應 = "YES" Then : 開立領料單() : End If
            Else : PA = 合約號_tb.Text : SQL_合約號確認() : If dr.Read Then : 開立領料單() : Else : MGB(對話框(19), 1) : End If : End If
        End If
    End Sub
    Private Sub 搜尋1_bt_Click(sender As Object, e As EventArgs) Handles 搜尋1_bt.Click
        INB(對話框(20)) : 物料關鍵字 = 訊息回應 : If 物料關鍵字 = "" Then : Else : 物料查詢 = True : Set_群組清單() : 次頁_p.BringToFront() : End If
    End Sub
    Private Sub 開立領料單_bt_Click(sender As Object, e As EventArgs) Handles 開立領料單_bt.Click
        備註修改存檔_bt.Enabled = False : 開立領料單_OP() : 使用工地_cb.Text = "" : CB選擇清單(使用工地_cb, 使用工地_cb.Text) : Set_清單2()
    End Sub
    Private Sub 開立領料單_bt1_Click(sender As Object, e As EventArgs) Handles 開立領料單_bt1.Click
        If 合約號1_tb1.Text = "" Then : MGB(系統語言字典("H115-122-" & 語言), 1) : Else
            合約_dgv.Enabled = False : 領料單建立完成_bt1.Enabled = False : 開立領料單_OP() : 使用工地_cb1.Text = "" : CB選擇清單(使用工地_cb1, 使用工地_cb1.Text)
        End If
    End Sub
    Private Sub 開立領料單()
        Set_日期格式轉換()
        For i As Integer = 1 To 999 : NUM1 = 0 + i
            If NUM1 < 10 Then : 領料單號_tb.Text = "WH-" & DTP1 & "-00" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 領料單號_tb.Text = "WH-" & DTP1 & "-0" & NUM1
            ElseIf NUM1 > 99 Then : 領料單號_tb.Text = "WH-" & DTP1 & "-" & NUM1 : End If
            PA1 = 領料單號_tb.Text : SQL_倉儲明細執行單號_執行單號驗證() : If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
        Next
        領料單號1_tb.Text = 領料單號_tb.Text
        倉儲單號1_tb.Text = 領料單號_tb.Text : PA1 = 領料單號_tb.Text : SQL_倉儲明細執行單號_新增() : conn.Close()
        當前倉庫_cb.Enabled = False : 開立領料單_bt.Enabled = False : 出庫單據_dgv.Enabled = False
        開立領料單_bt1.Enabled = False : 選定內容加入領料單_bt1.Enabled = True
    End Sub
    Private Sub 領料單建立完成_bt1_Click_1(sender As Object, e As EventArgs) Handles 領料單建立完成_bt1.Click
        合約_dgv.Enabled = True : 領料單建立完成() : Set_合約清單() : Set_清單1_1()
    End Sub
    Private Sub 備註修改存檔_bt_Click(sender As Object, e As EventArgs) Handles 備註修改存檔_bt.Click
        存檔() : Set_清單2() : Set_清單1_1() : Set_清單1() : MGB(對話框(8), 1)
        開立領料單_bt.Enabled = True : 出庫單據_dgv.Enabled = True
    End Sub
    Private Sub 領料單建立完成()
        If 使用工地_cb.Text = "" Then : MGB(對話框(6), 1) : Else : 存檔()
            當前倉庫_cb.Enabled = True : 開立領料單_bt.Enabled = True : 出庫單據_dgv.Enabled = True
            開立領料單_bt1.Enabled = True : 選定內容加入領料單_bt1.Enabled = False : 領料單建立完成_bt1.Enabled = False : 批量選擇功能_ch.Enabled = False
            MGB(對話框(7), 1)
        End If
    End Sub
    Private Sub 刪除領料申請單_bt_Click(sender As Object, e As EventArgs) Handles 刪除領料申請單_bt.Click
        MGB(對話框(27), 2)
        If 訊息回應 = "YES" Then
            PA1 = 領料單號_tb.Text : SQL_倉儲明細執行單號_刪除() : SQL_倉儲明細表_刪除() : conn.Close()
            當前倉庫_cb.Enabled = True : 使用工地_cb.Enabled = True : 開立領料單_bt.Enabled = True : 出庫單據_dgv.Enabled = True
            開立領料單_bt1.Enabled = True : 出庫明細_dgv.DataSource = Nothing
            Set_清單1() : MGB(對話框(28), 1)
        End If
    End Sub
    Private Sub 刪除選中的明細_bt_Click(sender As Object, e As EventArgs) Handles 刪除選中的明細_bt.Click
        If 出庫明細_dgv.Rows.Count = 1 Then : MGB(對話框(11), 1) : Else
            MGB(對話框(27), 2)
            If 訊息回應 = "YES" Then
                PA1 = 選擇_tb.Text : SQL_倉儲明細表_刪除二() : conn.Close() : MGB(對話框(28), 1) : Set_清單2()
            End If
        End If
    End Sub
    Private Sub 新增指定出庫流水號()
        SQL_倉儲明細表_最後一筆資料()
        If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 9)) : Else : EDR = 0 : End If : conn.Close() : EDR += 1
        If EDR < 10 Then : ESTR = "WH" & "00000000" & EDR : ElseIf EDR > 9 And EDR < 100 Then : ESTR = "WH" & "0000000" & EDR
        ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "WH" & "000000" & EDR : ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "WH" & "00000" & EDR
        ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "WH" & "0000" & EDR : ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "WH" & "000" & EDR
        ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "WH" & "00" & EDR : ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "WH" & "0" & EDR
        ElseIf EDR > 99999999 Then : ESTR = "WH" & EDR : End If
    End Sub
    Private Sub 倉儲明細表_新增()
        If 申請數_nud.Value = 0 Then : MGB(對話框(21), 1) : Else
            SQL_倉儲明細表_確認單據是否申請()
            If dr.Read() Then : conn.Close() : MGB(對話框(22), 1) : Else : Set_日期格式轉換() : 新增指定出庫流水號()
                PA3 = ESTR : PA4 = 領料單號_tb.Text : PA5 = 倉級_tb.Text : PA6 = 倉名編號_tb.Text : PA2 = 料號_tb.Text : PA7 = 申請數_nud.Value : PA8 = 合約號1_tb.Text
                PA10 = 乙方_tb.Text : PA11 = 甲方_tb.Text : PA12 = 序號_tb.Text : PA13 = 尾號_tb.Text : PA9 = 使用工地_cb.Text
                If 切換_ch.Checked = False Then : SQL_倉儲領料申請_倉儲明細表_新增() : Else
                    If 合約號_tb.Text = 合約號1_tb.Text Then : SQL_倉儲領料申請_倉儲明細表_新增() : Else
                        If 合約號1_tb.Text = "" Then : PA10 = "" : PA11 = "" : PA12 = "" : PA13 = "" : End If
                        SQL_倉儲領料申請_倉儲明細表_新增_轉移出庫()
                        PA4 = 領料單號_tb.Text : PA5 = 倉級_tb.Text : PA6 = 倉名編號_tb.Text : PA2 = 料號_tb.Text : PA7 = 申請數_nud.Value : PA8 = 合約號_tb.Text
                        If Strings.Left(合約號_tb.Text, 1) = "H" Then : PA10 = "HX" : ElseIf Strings.Left(合約號_tb.Text, 1) = "P" Then : PA10 = "PGS" : Else : PA10 = "" : End If
                        SQL_合約號碼參數查詢() : If dr.Read() Then : PA11 = dr("約號甲方").ToString : PA12 = dr("約號排序").ToString : PA13 = dr("約號尾序").ToString : End If
                        新增指定出庫流水號() : PA3 = ESTR : SQL_倉儲領料申請_倉儲明細表_新增_轉移入庫()
                        新增指定出庫流水號() : PA3 = ESTR : SQL_倉儲領料申請_倉儲明細表_新增()
                    End If
                End If : conn.Close() : MGB(對話框(23), 1)
            End If
        End If
    End Sub
    Private Sub 倉儲明細表_新增2()
        For i As Integer = 0 To 控制表1_dgv.Rows.Count - 1
            If 控制表1_dgv.Rows(i).Cells(表頭(44)).Value = True Then
                AAA1 = "" : AAA2 = "" : AAA3 = "" : AAA4 = "" : AAA5 = "" : AAA6 = "" : AAA7 = "" : AAA8 = ""
                PA3 = 控制表1_dgv.Rows(i).Cells("規格庫抬頭指定").Value : SQL_規格庫抬頭讀取()
                If dr.Read() Then
                    AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
                End If : conn.Close()

                If AAA1 = "" Then : Label2_1.Text = "A1" : Else : Label2_1.Text = AAA1 : End If : If AAA2 = "" Then : Label3_1.Text = "A2" : Else : Label3_1.Text = AAA2 : End If
                If AAA3 = "" Then : Label4_1.Text = "A3" : Else : Label4_1.Text = AAA3 : End If : If AAA4 = "" Then : Label5_1.Text = "A4" : Else : Label5_1.Text = AAA4 : End If
                If AAA5 = "" Then : Label6_1.Text = "A5" : Else : Label6_1.Text = AAA5 : End If : If AAA6 = "" Then : Label7_1.Text = "A6" : Else : Label7_1.Text = AAA6 : End If
                If AAA7 = "" Then : Label8_1.Text = "A7" : Else : Label8_1.Text = AAA7 : End If : If AAA8 = "" Then : Label9_1.Text = "A8" : Else : Label9_1.Text = AAA8 : End If

                B1_tb.Text = 控制表1_dgv.Rows(i).Cells("A1").Value.ToString : B2_tb.Text = 控制表1_dgv.Rows(i).Cells("A2").Value.ToString
                B3_tb.Text = 控制表1_dgv.Rows(i).Cells("A3").Value.ToString : B4_tb.Text = 控制表1_dgv.Rows(i).Cells("A4").Value.ToString
                B5_tb.Text = 控制表1_dgv.Rows(i).Cells("A5").Value.ToString : B6_tb.Text = 控制表1_dgv.Rows(i).Cells("A6").Value.ToString
                B7_tb.Text = 控制表1_dgv.Rows(i).Cells("A7").Value.ToString : B8_tb.Text = 控制表1_dgv.Rows(i).Cells("A8").Value.ToString
                品名3_tb.Text = 控制表1_dgv.Rows(i).Cells(表頭(12)).Value.ToString : 品名4_tb.Text = 控制表1_dgv.Rows(i).Cells(表頭(12)).Value.ToString
                料號_tb1.Text = 控制表1_dgv.Rows(i).Cells(表頭(77)).Value.ToString.ToUpper
                可申請_tb1.Text = Strings.Format(CInt(控制表1_dgv.Rows(i).Cells(表頭(81)).Value.ToString), "#,##0")
                當前倉庫_cb.Text = 控制表1_dgv.Rows(i).Cells(表頭(48)).Value.ToString
                申請數_nud1.Value = CInt(可申請_tb1.Text)
                格式控制2() : PA2 = 料號_tb1.Text

                If 申請數_nud.Value = 0 Then : Else
                    SQL_倉儲明細表_確認單據是否申請()
                    If dr.Read() Then : conn.Close() : Else
                        Set_日期格式轉換() : 新增指定出庫流水號()
                        PA3 = ESTR : PA4 = 領料單號1_tb.Text : PA5 = 倉級_tb.Text : PA6 = 倉名編號_tb.Text : PA2 = 料號_tb1.Text : PA7 = 申請數_nud1.Value : PA8 = 合約號1_tb1.Text
                        PA10 = 乙方_tb.Text : PA11 = 甲方_tb.Text : PA12 = 序號_tb.Text : PA13 = 尾號_tb.Text : PA9 = 使用工地_cb1.Text
                        If 切換_ch1.Checked = False Then : SQL_倉儲領料申請_倉儲明細表_新增() : Else
                            If 合約號_tb1.Text = 合約號1_tb1.Text Then : SQL_倉儲領料申請_倉儲明細表_新增() : Else
                                If 合約號1_tb1.Text = "" Then : PA10 = "" : PA11 = "" : PA12 = "" : PA13 = "" : End If
                                SQL_倉儲領料申請_倉儲明細表_新增_轉移出庫()
                                PA4 = 領料單號1_tb.Text : PA5 = 倉級_tb.Text : PA6 = 倉名編號_tb.Text : PA2 = 料號_tb1.Text : PA7 = 申請數_nud1.Value : PA8 = 合約號1_tb1.Text
                                If Strings.Left(合約號1_tb1.Text, 1) = "H" Then : PA10 = "HX" : ElseIf Strings.Left(合約號1_tb1.Text, 1) = "P" Then : PA10 = "PGS" : Else : PA10 = "" : End If
                                SQL_合約號碼參數查詢() : If dr.Read() Then : PA11 = dr("約號甲方").ToString : PA12 = dr("約號排序").ToString : PA13 = dr("約號尾序").ToString : End If

                                新增指定出庫流水號() : PA3 = ESTR : SQL_倉儲領料申請_倉儲明細表_新增_轉移入庫()
                                新增指定出庫流水號() : PA3 = ESTR : SQL_倉儲領料申請_倉儲明細表_新增()
                            End If
                        End If : conn.Close()
                    End If
                End If
            End If
        Next : MGB(對話框(23), 1)
    End Sub
    Private Sub 選定內容加入領料單()
        If 領料單號_tb.Text = "" Then : MGB(對話框(5), 1) : Else
            If 批量選擇功能_ch.Checked = False Then : 存檔() : PA1 = 領料單號_tb.Text : PA2 = 料號_tb.Text
                If 切換_ch.Checked = False Then
                    If 合約號_tb1.Text = 合約號1_tb1.Text Then : 倉儲明細表_新增() : Set_清單2() : 判斷1 = True : Else : MGB(對話框(24), 1) : 判斷1 = False : End If
                Else : 倉儲明細表_新增() : Set_清單2() : 判斷1 = True : End If
            Else
                For i As Integer = 0 To 控制表1_dgv.Rows.Count - 1 : If 控制表1_dgv.Rows(i).Cells(表頭(44)).Value = True Then : 判斷1 = True : Exit For : End If : Next
                If 判斷1 = False Then : MGB(對話框(25), 1) : Else
                    If 切換_ch.Checked = False Then
                        If 合約號_tb1.Text = 合約號1_tb1.Text Then : 倉儲明細表_新增2() : Set_清單2() : Else : MGB(對話框(24), 1) : 判斷1 = False : End If
                    Else : 倉儲明細表_新增2() : Set_清單2() : End If
                End If
            End If
        End If : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
    End Sub
    Private Sub 選定內容加入領料單_bt_Click(sender As Object, e As EventArgs) Handles 選定內容加入領料單_bt.Click
        批量選擇功能_ch.Checked = False : 備註修改存檔_bt.Enabled = True : 選定內容加入領料單() : Set_合約物料() : Set_清單1()
    End Sub
    Private Sub 選定內容加入領料單_bt1_Click(sender As Object, e As EventArgs) Handles 選定內容加入領料單_bt1.Click
        批量選擇功能_ch.Checked = True : 領料單建立完成_bt1.Enabled = True : 選定內容加入領料單() : If 判斷1 = True Then : Set_清單1_2() : Set_清單1() : End If : 判斷1 = False
    End Sub
    Private Sub 小間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距1_ch.Click
        小間距1_ch.Checked = True : 中間距1_ch.Checked = False : 大間距1_ch.Checked = False : MyMod.間距設定存檔_4() : Set_清單2()
    End Sub
    Private Sub 中間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距1_ch.Click
        小間距1_ch.Checked = False : 中間距1_ch.Checked = True : 大間距1_ch.Checked = False : MyMod.間距設定存檔_5() : Set_清單2()
    End Sub
    Private Sub 大間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距1_ch.Click
        小間距1_ch.Checked = False : 中間距1_ch.Checked = False : 大間距1_ch.Checked = True : MyMod.間距設定存檔_6() : Set_清單2()
    End Sub
    Private Sub 小間距2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距2_ch.Click
        小間距2_ch.Checked = True : 中間距2_ch.Checked = False : 大間距2_ch.Checked = False : MyMod.間距設定存檔_1() : Set_清單1_2()
    End Sub
    Private Sub 中間距2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距2_ch.Click
        小間距2_ch.Checked = False : 中間距2_ch.Checked = True : 大間距2_ch.Checked = False : MyMod.間距設定存檔_2() : Set_清單1_2()
    End Sub
    Private Sub 大間距2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距2_ch.Click
        小間距2_ch.Checked = False : 中間距2_ch.Checked = False : 大間距2_ch.Checked = True : MyMod.間距設定存檔_3() : Set_清單1_2()
    End Sub
    Private Sub 圖片檔3_pb_Click(sender As Object, e As EventArgs) Handles 圖片檔3_pb.Click
        If IsNothing(圖片檔3_pb.Image) = False Then : 圖片傳遞 = 圖片檔3_pb.Image : 圖片放大視窗.ShowDialog() : End If
    End Sub
    Private Sub 詳細資料1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 詳細資料1_ch.Click
        If 詳細資料1_ch.Checked = False Then : 詳細資料1_ch.Checked = False : Else : 詳細資料1_ch.Checked = True : End If : Set_清單1_2()
    End Sub
    Private Sub 詳細資料2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 詳細資料2_ch.Click
        If 詳細資料2_ch.Checked = False Then : 詳細資料2_ch.Checked = False : Else : 詳細資料2_ch.Checked = True : End If : Set_清單2()
    End Sub
    Private Sub 顯示料號1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 顯示料號1_ch.Click
        If 顯示料號1_ch.Checked = True Then : 顯示料號1_ch.Checked = True : 控制表1_dgv.Columns(表頭(77)).Visible = True
        Else : 顯示料號1_ch.Checked = False : 控制表1_dgv.Columns(表頭(77)).Visible = False : End If
    End Sub
    Private Sub 顯示料號2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 顯示料號2_ch.Click
        If 顯示料號2_ch.Checked = True Then : 顯示料號2_ch.Checked = True : 出庫明細_dgv.Columns(表頭(77)).Visible = True
        Else : 顯示料號2_ch.Checked = False : 出庫明細_dgv.Columns(表頭(77)).Visible = False : End If
    End Sub
    Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
        可申請_tb.Text = "0" : 申請數_nud.Value = 0 : 料號_tb.Text = "" : 品名4_tb.Text = ""
    End Sub
    Private Sub 切換_ch_ValueChanged(sender As Object, e As EventArgs) Handles 切換_ch.Click
        切換_ch1.Checked = 切換_ch.Checked
    End Sub
    Private Sub 切換_ch1_ValueChanged(sender As Object, e As EventArgs) Handles 切換_ch1.Click
        切換_ch.Checked = 切換_ch1.Checked
    End Sub
    Private Sub 合約號_tb_TextChanged(sender As Object, e As EventArgs) Handles 合約號_tb.TextChanged
        合約號_tb1.Text = 合約號_tb.Text.ToUpper
    End Sub
    Private Sub 合約號_tb1_TextChanged(sender As Object, e As EventArgs) Handles 合約號_tb1.TextChanged
        合約號_tb.Text = 合約號_tb1.Text.ToUpper
    End Sub
    Private Sub 合約編號_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約編號_cb.SelectedIndexChanged
        合約編號_cb1.SelectedIndex = 合約編號_cb.SelectedIndex
    End Sub
    Private Sub 合約編號_cb_Click(sender As Object, e As EventArgs) Handles 合約編號_cb.Click
        CB選擇清單(合約編號_cb, 合約編號_cb.Text)
    End Sub
    Private Sub 合約編號1_tb_TextChanged(sender As Object, e As EventArgs) Handles 合約編號1_tb.TextChanged
        合約編號1_tb.Text = 合約編號1_tb.Text.ToUpper : 使用工地_cb.Text = 合約編號1_tb.Text : 合約編號1_tb1.Text = 合約編號1_tb.Text
    End Sub
    Private Sub 合約編號2_tb_TextChanged(sender As Object, e As EventArgs) Handles 合約編號2_tb.TextChanged
        合約編號2_tb1.Text = 合約編號2_tb.Text.ToUpper
    End Sub
    Private Sub 合約編號3_tb_TextChanged(sender As Object, e As EventArgs) Handles 合約編號3_tb.TextChanged
        合約編號3_tb1.Text = 合約編號3_tb.Text.ToUpper
    End Sub
    Private Sub 合約編號_cb1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約編號_cb1.SelectedIndexChanged
        合約編號_cb.SelectedIndex = 合約編號_cb1.SelectedIndex
    End Sub
    Private Sub 合約編號_cb1_Click(sender As Object, e As EventArgs) Handles 合約編號_cb1.Click
        CB選擇清單(合約編號_cb1, 合約編號_cb1.Text)
    End Sub
    Private Sub 合約編號1_tb1_TextChanged(sender As Object, e As EventArgs) Handles 合約編號1_tb1.TextChanged
        合約編號1_tb1.Text = 合約編號1_tb1.Text.ToUpper : 使用工地_cb1.Text = 合約編號1_tb1.Text : 合約編號1_tb.Text = 合約編號1_tb1.Text
    End Sub
    Private Sub 合約編號2_tb1_TextChanged(sender As Object, e As EventArgs) Handles 合約編號2_tb1.TextChanged
        合約編號2_tb.Text = 合約編號2_tb1.Text.ToUpper
    End Sub
    Private Sub 合約編號3_tb1_TextChanged(sender As Object, e As EventArgs) Handles 合約編號3_tb1.TextChanged
        合約編號3_tb.Text = 合約編號3_tb1.Text.ToUpper
    End Sub
    Private Sub 料號_tb1_TextChanged(sender As Object, e As EventArgs) Handles 料號_tb1.TextChanged
        料號_tb.Text = 料號_tb1.Text.ToUpper
    End Sub
    Private Sub 料號_tb_TextChanged(sender As Object, e As EventArgs) Handles 料號_tb.TextChanged
        料號_tb1.Text = 料號_tb.Text.ToUpper
    End Sub
    Private Sub 可申請_tb_TextChanged(sender As Object, e As EventArgs) Handles 可申請_tb.TextChanged
        可申請_tb1.Text = 可申請_tb.Text : 申請數_nud.Value = 0
    End Sub
    Private Sub 可申請_tb1_TextChanged(sender As Object, e As EventArgs) Handles 可申請_tb1.TextChanged
        可申請_tb.Text = 可申請_tb1.Text
    End Sub
    Private Sub 申請數_nud_ValueChanged_1(sender As Object, e As EventArgs) Handles 申請數_nud.ValueChanged
        申請數_nud1.Value = 申請數_nud.Value
    End Sub
    Private Sub 申請數_nud1_ValueChanged_1(sender As Object, e As EventArgs) Handles 申請數_nud1.ValueChanged
        申請數_nud.Value = 申請數_nud1.Value
    End Sub
    Private Sub 縮放2_bt_Click(sender As Object, e As EventArgs) Handles 縮放2_bt.Click
        Dim NX, NY As Integer : NX = 合約_dgv.Size.Width : NY = 合約_dgv.Size.Height
        If 合約_dgv.Visible = False Then : 縮放1_bt.PerformClick() : End If
        If 放大 = True Then : 合約_dgv.Size = New System.Drawing.Point(NX - 400, NY) : 放大 = False
            合約_dgv.Columns("工程名稱").Visible = False : 合約_dgv.Columns("Nama Proyek").Visible = False : 合約_dgv.Columns("MAT").Visible = False
        Else : 合約_dgv.Size = New System.Drawing.Point(NX + 400, NY) : 放大 = True
            If 系統語言 = "繁體中文" Then : 合約_dgv.Columns("工程名稱").Visible = True : 合約_dgv.Columns("MAT").Visible = True
            Else : 合約_dgv.Columns("Nama Proyek").Visible = True : 合約_dgv.Columns("MAT").Visible = True : End If
        End If
    End Sub
    Private Sub 無合約物料_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 無合約物料_ch.Click
        無合約物料_ch.Checked = True : 合約編號_tb.Text = "" : 合約號1_tb1.Text = "" : Set_清單1_2()
    End Sub
    Private Sub 全部合約_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 全部合約_ch.Click
        全部合約_ch.Checked = True : 有庫存的合約_ch.Checked = False : Set_合約清單()
    End Sub
    Private Sub 有庫存的合約_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 有庫存的合約_ch.Click
        全部合約_ch.Checked = False : 有庫存的合約_ch.Checked = True : Set_合約清單()
    End Sub
    Private Sub 全部選擇_bt_Click(sender As Object, e As EventArgs) Handles 全部選擇_bt.Click
        For i As Integer = 0 To 控制表1_dgv.Rows.Count - 1
            If 深色風格 = False Then
                控制表1_dgv.Rows(i).Cells(表頭(44)).Value = True : 控制表1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LimeGreen
            Else
                控制表1_dgv.Rows(i).Cells(表頭(44)).Value = False : 控制表1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkSlateGray
            End If
        Next
    End Sub
    Private Sub 全部取消_bt_Click(sender As Object, e As EventArgs) Handles 全部取消_bt.Click
        For i As Integer = 0 To 控制表1_dgv.Rows.Count - 1
            If 深色風格 = False Then
                控制表1_dgv.Rows(i).Cells(表頭(44)).Value = False : 控制表1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
            Else
                控制表1_dgv.Rows(i).Cells(表頭(44)).Value = False : 控制表1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DimGray
            End If
        Next
    End Sub
    Private Sub 合約_bt_Click(sender As Object, e As EventArgs) Handles 合約_bt.Click
        合約_P.BringToFront()
    End Sub
    Private Sub 領料單_bt_Click(sender As Object, e As EventArgs) Handles 領料單_bt.Click
        倉儲單_P.BringToFront()
    End Sub
    Private Sub 回首頁_bt_Click(sender As Object, e As EventArgs) Handles 回首頁_bt.Click
        物料查詢 = False : 主頁_p.BringToFront()
    End Sub
    Private Sub 回次頁_bt_Click(sender As Object, e As EventArgs) Handles 回次頁_bt.Click
        If 頁面 = "1" Then : 主頁_p.BringToFront() : ElseIf 頁面 = "2" Then : 次頁_p.BringToFront() : Else : 主頁_p.BringToFront() : End If
    End Sub
    Private Sub 次項變形()
        For i As Integer = 1 To 21 : Dim 選擇 As Panel = CType(Me.Controls.Find("AP" & i, True)(0), Panel) : 選擇.Visible = False : Next
        Dim SS As Integer
        If 群組分類_dgv.Rows.Count > 21 Then : SS = 21 : Else : SS = 群組分類_dgv.Rows.Count : End If
        For i As Integer = 1 To SS : Dim 選擇 As Panel = CType(Me.Controls.Find("AP" & i, True)(0), Panel) : 選擇.Visible = True : Next
        Dim 轉檔 As Boolean
        For i As Integer = 0 To 群組分類_dgv.Rows.Count - 1
            Dim 選擇 As PictureBox = CType(Me.Controls.Find("PB_" & i + 1, True)(0), PictureBox)
            If IsDBNull(群組分類_dgv.Rows(i).Cells(2).Value) = True Then : 轉檔 = False : Else : 轉檔 = True : End If
            While 轉檔 = True
                Dim unused As Byte() = New Byte(-1) {}
                Dim bytes As Byte() = DirectCast(群組分類_dgv.Rows(i).Cells(2).Value, Byte())
                Dim oStream As New MemoryStream(bytes)
                選擇.Image = Bitmap.FromStream(oStream) : 轉檔 = False
            End While : conn.Close() : 選擇.SizeMode = 4
            Dim 選擇1 As System.Windows.Forms.TextBox = CType(Me.Controls.Find("TB_" & i + 1, True)(0), System.Windows.Forms.TextBox)
            選擇1.Text = 群組分類_dgv.Rows(i).Cells(1).Value.ToString
            '---------未做換頁計算---------------------------------------------
            群組碼(i + 1) = 群組分類_dgv.Rows(i).Cells(0).Value.ToString
        Next
    End Sub
    Private Sub 管材_bt_Click(sender As Object, e As EventArgs) Handles 管材_bt.Click
        頁面 = "1" : PA1 = "管材" : Set_群組清單() : 次頁_p.BringToFront()
    End Sub
    Private Sub 電線_bt_Click(sender As Object, e As EventArgs) Handles 電線_bt.Click
        頁面 = "1" : PA1 = "電線" : Set_群組清單() : 次頁_p.BringToFront()
    End Sub
    Private Sub 電料_bt_Click(sender As Object, e As EventArgs) Handles 電料_bt.Click
        頁面 = "1" : PA1 = "電料" : Set_群組清單() : 次頁_p.BringToFront()
    End Sub
    Private Sub 槽架_bt_Click(sender As Object, e As EventArgs) Handles 槽架_bt.Click
        頁面 = "1" : PA1 = "槽架" : Set_群組清單() : 次頁_p.BringToFront()
    End Sub
    Private Sub 建材_bt_Click(sender As Object, e As EventArgs) Handles 建材_bt.Click
        頁面 = "1" : PA1 = "建材" : Set_群組清單() : 次頁_p.BringToFront()
    End Sub
    Private Sub 五金_bt_Click(sender As Object, e As EventArgs) Handles 五金_bt.Click
        頁面 = "1" : PA1 = "五金" : Set_群組清單() : 次頁_p.BringToFront()
    End Sub
    Private Sub 設備_bt_Click(sender As Object, e As EventArgs) Handles 設備_bt.Click
        頁面 = "1" : PA1 = "設備" : Set_群組清單() : 次頁_p.BringToFront()
    End Sub
    Private Sub 工具_bt_Click(sender As Object, e As EventArgs) Handles 工具_bt.Click
        頁面 = "1" : PA1 = "工具" : Set_群組清單() : 次頁_p.BringToFront()
    End Sub
    Private Sub 日用_bt_Click(sender As Object, e As EventArgs) Handles 日用_bt.Click
        頁面 = "1" : PA1 = "日用" : Set_群組清單() : 次頁_p.BringToFront()
    End Sub
    Private Sub 其他_bt_Click(sender As Object, e As EventArgs) Handles 其他_bt.Click
        頁面 = "1" : PA1 = "其他" : Set_群組清單() : 次頁_p.BringToFront()
    End Sub
    Private Sub PB_1_Click(sender As Object, e As EventArgs) Handles PB_1.Click
        頁面 = "2" : PA1 = 群組碼(1) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_2_Click(sender As Object, e As EventArgs) Handles PB_2.Click
        頁面 = "2" : PA1 = 群組碼(2) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_3_Click(sender As Object, e As EventArgs) Handles PB_3.Click
        頁面 = "2" : PA1 = 群組碼(3) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_4_Click(sender As Object, e As EventArgs) Handles PB_4.Click
        頁面 = "2" : PA1 = 群組碼(4) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_5_Click(sender As Object, e As EventArgs) Handles PB_5.Click
        頁面 = "2" : PA1 = 群組碼(5) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_6_Click(sender As Object, e As EventArgs) Handles PB_6.Click
        頁面 = "2" : PA1 = 群組碼(6) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_7_Click(sender As Object, e As EventArgs) Handles PB_7.Click
        頁面 = "2" : PA1 = 群組碼(7) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_8_Click(sender As Object, e As EventArgs) Handles PB_8.Click
        頁面 = "2" : PA1 = 群組碼(8) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_9_Click(sender As Object, e As EventArgs) Handles PB_9.Click
        頁面 = "2" : PA1 = 群組碼(9) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_10_Click(sender As Object, e As EventArgs) Handles PB_10.Click
        頁面 = "2" : PA1 = 群組碼(10) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_11_Click(sender As Object, e As EventArgs) Handles PB_11.Click
        頁面 = "2" : PA1 = 群組碼(11) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_12_Click(sender As Object, e As EventArgs) Handles PB_12.Click
        頁面 = "2" : PA1 = 群組碼(12) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_13_Click(sender As Object, e As EventArgs) Handles PB_13.Click
        頁面 = "2" : PA1 = 群組碼(13) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_14_Click(sender As Object, e As EventArgs) Handles PB_14.Click
        頁面 = "2" : PA1 = 群組碼(14) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_15_Click(sender As Object, e As EventArgs) Handles PB_15.Click
        頁面 = "2" : PA1 = 群組碼(15) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_16_Click(sender As Object, e As EventArgs) Handles PB_16.Click
        頁面 = "2" : PA1 = 群組碼(16) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_17_Click(sender As Object, e As EventArgs) Handles PB_17.Click
        頁面 = "2" : PA1 = 群組碼(17) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_18_Click(sender As Object, e As EventArgs) Handles PB_18.Click
        頁面 = "2" : PA1 = 群組碼(18) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_19_Click(sender As Object, e As EventArgs) Handles PB_19.Click
        頁面 = "2" : PA1 = 群組碼(19) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_20_Click(sender As Object, e As EventArgs) Handles PB_20.Click
        頁面 = "2" : PA1 = 群組碼(20) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub PB_21_Click(sender As Object, e As EventArgs) Handles PB_21.Click
        頁面 = "2" : PA1 = 群組碼(21) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_1_TextChanged(sender As Object, e As EventArgs) Handles TB_1.Click
        頁面 = "2" : PA1 = 群組碼(1) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_2_TextChanged(sender As Object, e As EventArgs) Handles TB_2.Click
        頁面 = "2" : PA1 = 群組碼(2) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_3_TextChanged(sender As Object, e As EventArgs) Handles TB_3.Click
        頁面 = "2" : PA1 = 群組碼(3) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_4_TextChanged(sender As Object, e As EventArgs) Handles TB_4.Click
        頁面 = "2" : PA1 = 群組碼(4) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_5_TextChanged(sender As Object, e As EventArgs) Handles TB_5.Click
        頁面 = "2" : PA1 = 群組碼(5) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_6_TextChanged(sender As Object, e As EventArgs) Handles TB_6.Click
        頁面 = "2" : PA1 = 群組碼(6) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_7_TextChanged(sender As Object, e As EventArgs) Handles TB_7.Click
        頁面 = "2" : PA1 = 群組碼(7) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_8_TextChanged(sender As Object, e As EventArgs) Handles TB_8.Click
        頁面 = "2" : PA1 = 群組碼(8) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_9_TextChanged(sender As Object, e As EventArgs) Handles TB_9.Click
        頁面 = "2" : PA1 = 群組碼(9) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_10_TextChanged(sender As Object, e As EventArgs) Handles TB_10.Click
        頁面 = "2" : PA1 = 群組碼(10) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_11_TextChanged(sender As Object, e As EventArgs) Handles TB_11.Click
        頁面 = "2" : PA1 = 群組碼(11) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_12_TextChanged(sender As Object, e As EventArgs) Handles TB_12.Click
        頁面 = "2" : PA1 = 群組碼(12) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_13_TextChanged(sender As Object, e As EventArgs) Handles TB_13.Click
        頁面 = "2" : PA1 = 群組碼(13) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_14_TextChanged(sender As Object, e As EventArgs) Handles TB_14.Click
        頁面 = "2" : PA1 = 群組碼(14) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_15_TextChanged(sender As Object, e As EventArgs) Handles TB_15.Click
        頁面 = "2" : PA1 = 群組碼(15) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_16_TextChanged(sender As Object, e As EventArgs) Handles TB_16.Click
        頁面 = "2" : PA1 = 群組碼(16) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_17_TextChanged(sender As Object, e As EventArgs) Handles TB_17.Click
        頁面 = "2" : PA1 = 群組碼(17) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_18_TextChanged(sender As Object, e As EventArgs) Handles TB_18.Click
        頁面 = "2" : PA1 = 群組碼(18) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_19_TextChanged(sender As Object, e As EventArgs) Handles TB_19.Click
        頁面 = "2" : PA1 = 群組碼(19) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_20_TextChanged(sender As Object, e As EventArgs) Handles TB_20.Click
        頁面 = "2" : PA1 = 群組碼(20) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub TB_21_TextChanged(sender As Object, e As EventArgs) Handles TB_21.Click
        頁面 = "2" : PA1 = 群組碼(21) : Set_清單1_1() : 物料_p.BringToFront()
    End Sub
    Private Sub 清除_bt_Click(sender As Object, e As EventArgs) Handles 清除_bt.Click
        合約編號_cb.Text = "" : 合約編號1_tb.Text = "" : 合約編號2_tb.Text = "" : 合約編號3_tb.Text = ""
    End Sub
    '-----------------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理_tsm.Click
        Set_清單1()
    End Sub
    Private Sub 查詢ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 查詢_tsm.Click
        INB(對話框(4)) : PA = 訊息回應
        KKKJJ2 = " AND (倉儲分區控制表.倉名 LIKE N'%" & PA & "%' OR 物料規格表.群組碼 LIKE N'%" & PA & "%' OR 
                        物料資訊控制表.品名 LIKE N'%" & PA & "%' OR 倉儲明細表.料號 LIKE N'%" & PA & "%') "
        PA10 = KKKJJ2 : KKKJJ2 = "" : PA = ""
    End Sub

    Private Sub 風格()
        If 深色風格 = False Then
            TabPage1.BackColor = SystemColors.Control : TabPage2.BackColor = SystemColors.Control
            Panel1.BackColor = SystemColors.Control

            切換_ch.ForeColor = Color.Black : 開單合約號_lb.ForeColor = Color.Black : 使用工地_lb.ForeColor = Color.Black : 可申請_lb1.ForeColor = Color.Black
            物料合約號_lb.ForeColor = Color.Black : 領料單號_lb.ForeColor = Color.Black : 料號_lb.ForeColor = Color.Black : 合約號_lb.ForeColor = Color.Black
            Label35.ForeColor = Color.Black : 可申請_lb.ForeColor = Color.Black : 申請數_lb.ForeColor = Color.Black : 申請數_lb1.ForeColor = Color.Black
            全部合約_ch.ForeColor = Color.Black : 有庫存的合約_ch.ForeColor = Color.Black : 無合約物料_ch.ForeColor = Color.Black : 小間距2_ch.ForeColor = Color.Black
            中間距2_ch.ForeColor = Color.Black : 大間距2_ch.ForeColor = Color.Black : 領料單號1_lb.ForeColor = Color.Black : Label7.ForeColor = Color.Black
            合約號1_lb.ForeColor = Color.Black : 使用工地_lb1.ForeColor = Color.Black : 切換_ch1.ForeColor = Color.Black : 開單合約號_lb1.ForeColor = Color.Black
            物料合約號_lb1.ForeColor = Color.Black : 批量選擇功能_ch.ForeColor = Color.Black : 料號_lb1.ForeColor = Color.Black
            詳細資料2_ch.ForeColor = Color.Black : 顯示料號2_ch.ForeColor = Color.Black : 小間距1_ch.ForeColor = Color.Black
            中間距1_ch.ForeColor = Color.Black : 大間距1_ch.ForeColor = Color.Black

            甲方_lb.ForeColor = Color.Blue : 甲方1_lb.ForeColor = Color.Blue
            顯示料號1_ch.ForeColor = Color.Blue : 詳細資料1_ch.ForeColor = Color.Blue : 品名1_lb.ForeColor = Color.Blue
            規格1_lb.ForeColor = Color.Blue : Label2_1.ForeColor = Color.Blue : Label3_1.ForeColor = Color.Blue : Label4_1.ForeColor = Color.Blue
            Label5_1.ForeColor = Color.Blue : Label6_1.ForeColor = Color.Blue : Label7_1.ForeColor = Color.Blue : Label8_1.ForeColor = Color.Blue
            Label9_1.ForeColor = Color.Blue

            無誤料顯示1_lb.BackColor = Color.White : 合約號_tb.ForeColor = Color.Red
            合約號_tb.BackColor = Color.White : 合約號_tb.ForeColor = Color.Black : 合約號1_tb.BackColor = Color.White : 合約號1_tb.ForeColor = Color.Black
            領料單號_tb.BackColor = Color.White : 領料單號_tb.ForeColor = Color.Black : 料號_tb.BackColor = Color.White : 料號_tb.ForeColor = Color.Black
            品名4_tb.BackColor = Color.White : 品名4_tb.ForeColor = Color.Black : 合約編號1_tb.BackColor = Color.White : 合約編號1_tb.ForeColor = Color.Black
            合約編號2_tb.BackColor = Color.White : 合約編號2_tb.ForeColor = Color.Black : 可申請_tb.BackColor = Color.White : 可申請_tb.ForeColor = Color.Black
            合約編號3_tb.BackColor = Color.White : 合約編號3_tb.ForeColor = Color.Black : 申請數_nud.BackColor = Color.White : 申請數_nud.ForeColor = Color.Black
            TB_1.BackColor = Color.White : TB_1.ForeColor = Color.Black : TB_2.BackColor = Color.White : TB_2.ForeColor = Color.Black
            TB_3.BackColor = Color.White : TB_3.ForeColor = Color.Black : TB_4.BackColor = Color.White : TB_4.ForeColor = Color.Black
            TB_5.BackColor = Color.White : TB_5.ForeColor = Color.Black : TB_6.BackColor = Color.White : TB_6.ForeColor = Color.Black
            TB_7.BackColor = Color.White : TB_7.ForeColor = Color.Black : TB_8.BackColor = Color.White : TB_8.ForeColor = Color.Black
            TB_9.BackColor = Color.White : TB_9.ForeColor = Color.Black : TB_10.BackColor = Color.White : TB_10.ForeColor = Color.Black
            TB_11.BackColor = Color.White : TB_11.ForeColor = Color.Black : TB_12.BackColor = Color.White : TB_12.ForeColor = Color.Black
            TB_13.BackColor = Color.White : TB_13.ForeColor = Color.Black : TB_14.BackColor = Color.White : TB_14.ForeColor = Color.Black
            TB_15.BackColor = Color.White : TB_15.ForeColor = Color.Black : TB_16.BackColor = Color.White : TB_16.ForeColor = Color.Black
            TB_17.BackColor = Color.White : TB_17.ForeColor = Color.Black : TB_18.BackColor = Color.White : TB_18.ForeColor = Color.Black
            TB_19.BackColor = Color.White : TB_19.ForeColor = Color.Black : TB_20.BackColor = Color.White : TB_20.ForeColor = Color.Black
            TB_21.BackColor = Color.White : TB_21.ForeColor = Color.Black : 無誤料顯示2_lb.BackColor = Color.White : 無誤料顯示2_lb.ForeColor = Color.Red
            領料單號1_tb.BackColor = Color.White : 領料單號1_tb.ForeColor = Color.Black : 合約號1_tb1.BackColor = Color.White : 合約號1_tb1.ForeColor = Color.Black
            合約號_tb1.BackColor = Color.White : 合約號_tb1.ForeColor = Color.Black : 合約編號1_tb1.BackColor = Color.White : 合約編號1_tb1.ForeColor = Color.Black
            合約編號2_tb1.BackColor = Color.White : 合約編號2_tb1.ForeColor = Color.Black : 合約編號3_tb1.BackColor = Color.White : 合約編號3_tb1.ForeColor = Color.Black
            品名3_tb.BackColor = Color.White : 品名3_tb.ForeColor = Color.Black : B1_tb.BackColor = Color.White : B1_tb.ForeColor = Color.Black
            B2_tb.BackColor = Color.White : B2_tb.ForeColor = Color.Black : B3_tb.BackColor = Color.White : B3_tb.ForeColor = Color.Black
            B4_tb.BackColor = Color.White : B4_tb.ForeColor = Color.Black : B5_tb.BackColor = Color.White : B5_tb.ForeColor = Color.Black
            可申請_tb1.BackColor = Color.White : 可申請_tb1.ForeColor = Color.Black : 申請數_nud1.BackColor = Color.White : 申請數_nud1.ForeColor = Color.Black
            B6_tb.BackColor = Color.White : B6_tb.ForeColor = Color.Black : B7_tb.BackColor = Color.White : B7_tb.ForeColor = Color.Black
            B8_tb.BackColor = Color.White : B8_tb.ForeColor = Color.Black : 料號_tb1.BackColor = Color.White : 料號_tb1.ForeColor = Color.Black
            規格_tb.BackColor = Color.White : 規格_tb.ForeColor = Color.Black
            使用工地_cb.BackColor = Color.White : 使用工地_cb.ForeColor = Color.Black : 合約編號_cb.BackColor = Color.White : 合約編號_cb.ForeColor = Color.Blue
            合約編號1_cb.BackColor = Color.White : 合約編號1_cb.ForeColor = Color.FromArgb(0, 0, 192) : 合約編號2_cb.BackColor = Color.White : 合約編號2_cb.ForeColor = Color.FromArgb(0, 0, 192)
            合約編號_cb1.BackColor = Color.White : 合約編號_cb1.ForeColor = Color.Blue : 使用工地_cb1.BackColor = Color.White : 使用工地_cb1.ForeColor = Color.Black

            合約_bt.BackColor = Color.White : 回首頁_bt.BackColor = Color.White : 回次頁_bt.BackColor = Color.White : 搜尋1_bt.BackColor = Color.White
            開立領料單_bt.BackColor = Color.White : 選定內容加入領料單_bt.BackColor = Color.White : 管材_bt.BackColor = Color.White
            電線_bt.BackColor = Color.White : 電料_bt.BackColor = Color.White : 槽架_bt.BackColor = Color.White : 五金_bt.BackColor = Color.White : 設備_bt.BackColor = Color.White
            工具_bt.BackColor = Color.White : 日用_bt.BackColor = Color.White : 其他_bt.BackColor = Color.White : 縮放2_bt.BackColor = Color.White : 開立領料單_bt1.BackColor = Color.White
            全部選擇_bt.BackColor = Color.White : 全部取消_bt.BackColor = Color.White : 選定內容加入領料單_bt1.BackColor = Color.White : 領料單建立完成_bt1.BackColor = Color.White
            備註修改存檔_bt.BackColor = Color.White : 刪除選中的明細_bt.BackColor = Color.White : 刪除領料申請單_bt.BackColor = Color.White

            PB_1.BackColor = Color.White : PB_2.BackColor = Color.White : PB_3.BackColor = Color.White : PB_4.BackColor = Color.White : PB_5.BackColor = Color.White
            PB_6.BackColor = Color.White : PB_7.BackColor = Color.White : PB_8.BackColor = Color.White : PB_9.BackColor = Color.White : PB_10.BackColor = Color.White
            PB_11.BackColor = Color.White : PB_12.BackColor = Color.White : PB_13.BackColor = Color.White : PB_14.BackColor = Color.White : PB_15.BackColor = Color.White
            PB_16.BackColor = Color.White : PB_17.BackColor = Color.White : PB_18.BackColor = Color.White : PB_19.BackColor = Color.White : PB_20.BackColor = Color.White
            PB_21.BackColor = Color.White

            合約_dgv.EnableHeadersVisualStyles = True : 合約_dgv.BackgroundColor = Color.White : 合約_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            合約_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGreen
            合約_dgv.DefaultCellStyle.BackColor = Color.White : 合約_dgv.DefaultCellStyle.ForeColor = Color.Black
            合約1_dgv.EnableHeadersVisualStyles = True : 合約1_dgv.BackgroundColor = Color.White : 合約1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            合約1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGreen
            合約1_dgv.DefaultCellStyle.BackColor = Color.White : 合約1_dgv.DefaultCellStyle.ForeColor = Color.Black
            合約物料_dgv.EnableHeadersVisualStyles = True : 合約物料_dgv.BackgroundColor = Color.White : 合約物料_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            合約物料_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGray
            合約物料_dgv.DefaultCellStyle.BackColor = Color.White : 合約物料_dgv.DefaultCellStyle.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
            出庫明細_dgv.EnableHeadersVisualStyles = True : 出庫明細_dgv.BackgroundColor = Color.White : 出庫明細_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            出庫明細_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue
            出庫明細_dgv.DefaultCellStyle.BackColor = Color.White : 出庫明細_dgv.DefaultCellStyle.ForeColor = Color.Black
            物料清單1_dgv.EnableHeadersVisualStyles = True : 物料清單1_dgv.BackgroundColor = Color.White : 物料清單1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            物料清單1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightPink
            物料清單1_dgv.DefaultCellStyle.BackColor = Color.White : 物料清單1_dgv.DefaultCellStyle.ForeColor = Color.Black
            物料規格1_dgv.EnableHeadersVisualStyles = True : 物料規格1_dgv.BackgroundColor = Color.White : 物料規格1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            物料規格1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue
            物料規格1_dgv.DefaultCellStyle.BackColor = Color.White : 物料規格1_dgv.DefaultCellStyle.ForeColor = Color.Black
            控制表1_dgv.EnableHeadersVisualStyles = True : 控制表1_dgv.BackgroundColor = Color.White : 控制表1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            控制表1_dgv.DefaultCellStyle.BackColor = Color.White : 控制表1_dgv.DefaultCellStyle.ForeColor = Color.Black
        Else
            TabPage1.BackColor = Color.Black : TabPage2.BackColor = Color.Black
            Panel1.BackColor = Color.Black

            切換_ch.ForeColor = Color.White : 開單合約號_lb.ForeColor = Color.White : 使用工地_lb.ForeColor = Color.White : 可申請_lb1.ForeColor = Color.White
            物料合約號_lb.ForeColor = Color.White : 領料單號_lb.ForeColor = Color.White : 料號_lb.ForeColor = Color.White : 合約號_lb.ForeColor = Color.White
            Label35.ForeColor = Color.White : 可申請_lb.ForeColor = Color.White : 申請數_lb.ForeColor = Color.White : 申請數_lb1.ForeColor = Color.White
            全部合約_ch.ForeColor = Color.White : 有庫存的合約_ch.ForeColor = Color.White : 無合約物料_ch.ForeColor = Color.White : 小間距2_ch.ForeColor = Color.White
            中間距2_ch.ForeColor = Color.White : 大間距2_ch.ForeColor = Color.White : 領料單號1_lb.ForeColor = Color.White : Label7.ForeColor = Color.White
            合約號1_lb.ForeColor = Color.White : 使用工地_lb1.ForeColor = Color.White : 切換_ch1.ForeColor = Color.White : 開單合約號_lb1.ForeColor = Color.White
            物料合約號_lb1.ForeColor = Color.White : 批量選擇功能_ch.ForeColor = Color.White : 料號_lb1.ForeColor = Color.White
            詳細資料2_ch.ForeColor = Color.White : 顯示料號2_ch.ForeColor = Color.White : 小間距1_ch.ForeColor = Color.White
            中間距1_ch.ForeColor = Color.White : 大間距1_ch.ForeColor = Color.White

            甲方_lb.ForeColor = Color.LightBlue : 甲方1_lb.ForeColor = Color.LightBlue
            顯示料號1_ch.ForeColor = Color.LightBlue : 詳細資料1_ch.ForeColor = Color.LightBlue : 品名1_lb.ForeColor = Color.LightBlue
            規格1_lb.ForeColor = Color.LightBlue : Label2_1.ForeColor = Color.LightBlue : Label3_1.ForeColor = Color.LightBlue : Label4_1.ForeColor = Color.LightBlue
            Label5_1.ForeColor = Color.LightBlue : Label6_1.ForeColor = Color.LightBlue : Label7_1.ForeColor = Color.LightBlue : Label8_1.ForeColor = Color.LightBlue
            Label9_1.ForeColor = Color.LightBlue

            無誤料顯示1_lb.BackColor = Color.DimGray : 合約號_tb.ForeColor = Color.LightPink
            合約號_tb.BackColor = Color.DimGray : 合約號_tb.ForeColor = Color.White : 合約號1_tb.BackColor = Color.DimGray : 合約號1_tb.ForeColor = Color.White
            領料單號_tb.BackColor = Color.DimGray : 領料單號_tb.ForeColor = Color.White : 料號_tb.BackColor = Color.DimGray : 料號_tb.ForeColor = Color.White
            品名4_tb.BackColor = Color.DimGray : 品名4_tb.ForeColor = Color.White : 合約編號1_tb.BackColor = Color.DimGray : 合約編號1_tb.ForeColor = Color.White
            合約編號2_tb.BackColor = Color.DimGray : 合約編號2_tb.ForeColor = Color.White : 可申請_tb.BackColor = Color.DimGray : 可申請_tb.ForeColor = Color.White
            合約編號3_tb.BackColor = Color.DimGray : 合約編號3_tb.ForeColor = Color.White : 申請數_nud.BackColor = Color.DimGray : 申請數_nud.ForeColor = Color.White
            TB_1.BackColor = Color.Black : TB_1.ForeColor = Color.White : TB_2.BackColor = Color.Black : TB_2.ForeColor = Color.White
            TB_3.BackColor = Color.Black : TB_3.ForeColor = Color.White : TB_4.BackColor = Color.Black : TB_4.ForeColor = Color.White
            TB_5.BackColor = Color.Black : TB_5.ForeColor = Color.White : TB_6.BackColor = Color.Black : TB_6.ForeColor = Color.White
            TB_7.BackColor = Color.Black : TB_7.ForeColor = Color.White : TB_8.BackColor = Color.Black : TB_8.ForeColor = Color.White
            TB_9.BackColor = Color.Black : TB_9.ForeColor = Color.White : TB_10.BackColor = Color.Black : TB_10.ForeColor = Color.White
            TB_11.BackColor = Color.Black : TB_11.ForeColor = Color.White : TB_12.BackColor = Color.Black : TB_12.ForeColor = Color.White
            TB_13.BackColor = Color.Black : TB_13.ForeColor = Color.White : TB_14.BackColor = Color.Black : TB_14.ForeColor = Color.White
            TB_15.BackColor = Color.Black : TB_15.ForeColor = Color.White : TB_16.BackColor = Color.Black : TB_16.ForeColor = Color.White
            TB_17.BackColor = Color.Black : TB_17.ForeColor = Color.White : TB_18.BackColor = Color.Black : TB_18.ForeColor = Color.White
            TB_19.BackColor = Color.Black : TB_19.ForeColor = Color.White : TB_20.BackColor = Color.Black : TB_20.ForeColor = Color.White
            TB_21.BackColor = Color.Black : TB_21.ForeColor = Color.White : 無誤料顯示2_lb.BackColor = Color.DimGray : 無誤料顯示2_lb.ForeColor = Color.LightPink
            領料單號1_tb.BackColor = Color.Black : 領料單號1_tb.ForeColor = Color.White : 合約號1_tb1.BackColor = Color.Black : 合約號1_tb1.ForeColor = Color.White
            合約號_tb1.BackColor = Color.Black : 合約號_tb1.ForeColor = Color.White : 合約編號1_tb1.BackColor = Color.Black : 合約編號1_tb1.ForeColor = Color.White
            合約編號2_tb1.BackColor = Color.Black : 合約編號2_tb1.ForeColor = Color.White : 合約編號3_tb1.BackColor = Color.Black : 合約編號3_tb1.ForeColor = Color.White
            品名3_tb.BackColor = Color.Black : 品名3_tb.ForeColor = Color.White : B1_tb.BackColor = Color.Black : B1_tb.ForeColor = Color.White
            B2_tb.BackColor = Color.Black : B2_tb.ForeColor = Color.White : B3_tb.BackColor = Color.Black : B3_tb.ForeColor = Color.White
            B4_tb.BackColor = Color.Black : B4_tb.ForeColor = Color.White : B5_tb.BackColor = Color.Black : B5_tb.ForeColor = Color.White
            可申請_tb1.BackColor = Color.Black : 可申請_tb1.ForeColor = Color.White : 申請數_nud1.BackColor = Color.Black : 申請數_nud1.ForeColor = Color.White
            B6_tb.BackColor = Color.Black : B6_tb.ForeColor = Color.White : B7_tb.BackColor = Color.Black : B7_tb.ForeColor = Color.White
            B8_tb.BackColor = Color.Black : B8_tb.ForeColor = Color.White : 料號_tb1.BackColor = Color.Black : 料號_tb1.ForeColor = Color.White
            規格_tb.BackColor = Color.Black : 規格_tb.ForeColor = Color.White
            使用工地_cb.BackColor = Color.DimGray : 使用工地_cb.ForeColor = Color.White : 合約編號_cb.BackColor = Color.DimGray : 合約編號_cb.ForeColor = Color.LightBlue
            合約編號1_cb.BackColor = Color.DimGray : 合約編號1_cb.ForeColor = Color.LightBlue : 合約編號2_cb.BackColor = Color.DimGray : 合約編號2_cb.ForeColor = Color.LightBlue
            合約編號_cb1.BackColor = Color.DimGray : 合約編號_cb1.ForeColor = Color.LightBlue : 使用工地_cb1.BackColor = Color.DimGray : 使用工地_cb1.ForeColor = Color.White

            合約_bt.BackColor = Color.DimGray : 回首頁_bt.BackColor = Color.DimGray : 回次頁_bt.BackColor = Color.DimGray : 搜尋1_bt.BackColor = Color.DimGray
            開立領料單_bt.BackColor = Color.DimGray : 選定內容加入領料單_bt.BackColor = Color.DimGray : 管材_bt.BackColor = Color.DimGray
            電線_bt.BackColor = Color.DimGray : 電料_bt.BackColor = Color.DimGray : 槽架_bt.BackColor = Color.DimGray : 五金_bt.BackColor = Color.DimGray : 設備_bt.BackColor = Color.DimGray
            工具_bt.BackColor = Color.DimGray : 日用_bt.BackColor = Color.DimGray : 其他_bt.BackColor = Color.DimGray : 縮放2_bt.BackColor = Color.DimGray : 開立領料單_bt1.BackColor = Color.DimGray
            全部選擇_bt.BackColor = Color.DimGray : 全部取消_bt.BackColor = Color.DimGray : 選定內容加入領料單_bt1.BackColor = Color.DimGray : 領料單建立完成_bt1.BackColor = Color.DimGray
            備註修改存檔_bt.BackColor = Color.DimGray : 刪除選中的明細_bt.BackColor = Color.DimGray : 刪除領料申請單_bt.BackColor = Color.DimGray

            PB_1.BackColor = Color.DimGray : PB_2.BackColor = Color.DimGray : PB_3.BackColor = Color.DimGray : PB_4.BackColor = Color.DimGray : PB_5.BackColor = Color.DimGray
            PB_6.BackColor = Color.DimGray : PB_7.BackColor = Color.DimGray : PB_8.BackColor = Color.DimGray : PB_9.BackColor = Color.DimGray : PB_10.BackColor = Color.DimGray
            PB_11.BackColor = Color.DimGray : PB_12.BackColor = Color.DimGray : PB_13.BackColor = Color.DimGray : PB_14.BackColor = Color.DimGray : PB_15.BackColor = Color.DimGray
            PB_16.BackColor = Color.DimGray : PB_17.BackColor = Color.DimGray : PB_18.BackColor = Color.DimGray : PB_19.BackColor = Color.DimGray : PB_20.BackColor = Color.DimGray
            PB_21.BackColor = Color.DimGray

            合約_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
            合約1_dgv.EnableHeadersVisualStyles = False : 合約1_dgv.BackgroundColor = Color.DimGray : 合約_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            合約1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合約1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            合約1_dgv.DefaultCellStyle.BackColor = Color.Black : 合約1_dgv.DefaultCellStyle.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
            出庫單據_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
            出庫明細_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
            物料清單1_dgv.EnableHeadersVisualStyles = False : 物料清單1_dgv.BackgroundColor = Color.DimGray : 物料清單1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            物料清單1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 物料清單1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            物料清單1_dgv.DefaultCellStyle.BackColor = Color.Black : 物料清單1_dgv.DefaultCellStyle.ForeColor = Color.White
            物料規格1_dgv.EnableHeadersVisualStyles = False : 物料規格1_dgv.BackgroundColor = Color.DimGray : 物料規格1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            物料規格1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 物料規格1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            物料規格1_dgv.DefaultCellStyle.BackColor = Color.Black : 物料規格1_dgv.DefaultCellStyle.ForeColor = Color.White
            控制表1_dgv.EnableHeadersVisualStyles = False : 控制表1_dgv.BackgroundColor = Color.DimGray : 控制表1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            控制表1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black
            控制表1_dgv.DefaultCellStyle.BackColor = Color.DimGray : 控制表1_dgv.DefaultCellStyle.ForeColor = Color.White
        End If
    End Sub
End Class