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

Option Strict Off
Imports System.IO
Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
Imports Microsoft.Office.Interop.Excel.Constants
Imports Microsoft.Office.Interop.Excel.XlBordersIndex
Imports Microsoft.Office.Interop.Excel.XlLineStyle
Imports Microsoft.Office.Interop.Excel.XlBorderWeight
Imports Microsoft.Office.Interop.Excel.XlThemeFont
Imports Microsoft.Office.Interop.Excel.XlThemeColor
Imports Microsoft.Office.Interop.Excel.XlWindowState
Imports Microsoft.Office.Interop.Excel
Public Class 倉儲領料出庫
    Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
    ReadOnly 對話框(4) As String : Dim 物料規格 As String
    Private Sub Set_清單2_1()
        Dim ds1 As New DataSet : 出庫明細1_dgv.DataSource = Nothing : ds1.Clear()
        出庫明細1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        出庫明細1_dgv.ColumnHeadersHeight = 40 : 出庫明細1_dgv.AllowUserToAddRows = False
        If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then : 出庫明細1_dgv.RowTemplate.Height = 75
        ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then : 出庫明細1_dgv.RowTemplate.Height = 45
        ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then : 出庫明細1_dgv.RowTemplate.Height = 25 : End If
        PA49 = 執行單號_tb.Text
        SQL_倉儲領料申請_明細1()
        da.Fill(ds1) : 出庫明細1_dgv.DataSource = ds1.Tables(0) : conn.Close()

        If 低網速模式 = False Then
            出庫明細1_dgv.Columns(14).FillWeight = 60 : 出庫明細1_dgv.Columns(14).Visible = True
            Dim mycol As DataGridViewImageColumn = 出庫明細1_dgv.Columns("Image")
            mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
        Else
            If 出庫明細1_dgv.Columns.Count = 15 Then : 出庫明細1_dgv.Columns(14).Visible = False : End If
        End If

        出庫明細1_dgv.Columns(0).Visible = False : 出庫明細1_dgv.Columns(1).FillWeight = 252 : 出庫明細1_dgv.Columns(2).FillWeight = 252 : 出庫明細1_dgv.Columns(3).FillWeight = 80
        出庫明細1_dgv.Columns(4).FillWeight = 80 : 出庫明細1_dgv.Columns(5).FillWeight = 90 : 出庫明細1_dgv.Columns(6).FillWeight = 201 : 出庫明細1_dgv.Columns(7).Visible = False
        出庫明細1_dgv.Columns(8).Visible = False : 出庫明細1_dgv.Columns(9).FillWeight = 150 : 出庫明細1_dgv.Columns(10).Visible = False : 出庫明細1_dgv.Columns(11).FillWeight = 80
        出庫明細1_dgv.Columns(12).FillWeight = 150 : 出庫明細1_dgv.Columns("State").FillWeight = 85 : 出庫明細1_dgv.Columns("State").Visible = True
        出庫明細1_dgv.Columns(3).DefaultCellStyle.Format = "#,##0" : 出庫明細1_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"
        出庫明細1_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        出庫明細1_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        出庫明細1_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        出庫明細1_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        出庫明細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(9).ReadOnly = True : 出庫明細1_dgv.Columns(11).ReadOnly = True : 出庫明細1_dgv.Columns(12).ReadOnly = True
        出庫明細1_dgv.Columns("State").ReadOnly = True
        If 顯示料號2_ch.Checked = True Then : 出庫明細1_dgv.Columns(表頭(77)).Visible = True : Else : 出庫明細1_dgv.Columns(表頭(77)).Visible = False : End If
        出庫明細1_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        '------------------------------------------------------------------------------------------------------------------------------------------
        For i As Integer = 0 To 出庫明細1_dgv.Rows.Count - 1
            If 系統語言 = "繁體中文" Then : Else
                If 出庫明細1_dgv.Rows(i).Cells("State").Value.ToString = "領料出庫" Then : 出庫明細1_dgv.Rows(i).Cells("State").Value = "Produk Out"
                ElseIf 出庫明細1_dgv.Rows(i).Cells("State").Value.ToString = "轉移出庫" Then : 出庫明細1_dgv.Rows(i).Cells("State").Value = "Transfer Out"
                ElseIf 出庫明細1_dgv.Rows(i).Cells("State").Value.ToString = "轉移入庫" Then : 出庫明細1_dgv.Rows(i).Cells("State").Value = "Transfer In"
                End If
            End If

            PA3 = 出庫明細1_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 = 出庫明細1_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
            出庫明細1_dgv.Rows(i).Cells(表頭(13)).Value = 物料規格
        Next
    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 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then : 出庫明細_dgv.RowTemplate.Height = 75
        ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then : 出庫明細_dgv.RowTemplate.Height = 45
        ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_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).FillWeight = 80
        出庫明細_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(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 : Set_清單2_1()
    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
        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

        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 存檔()
        For i As Integer = 0 To 出庫明細_dgv.Rows.Count - 1
            資料數 = 出庫明細_dgv.Rows.Count : MyMod.進度條()
            PA = 出庫明細_dgv.Rows(i).Cells(表頭(14)).Value : PA1 = 出庫明細_dgv.Rows(i).Cells("資料流水號").Value
            SQL_倉儲明細表_備註修改_使用位置1() : conn.Close()
        Next
        HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
    End Sub
    Private Sub 語言轉換讀取()
        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
        Me.Text = 系統語言字典("H001-185-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言)
        出庫完成_tsm.Text = 系統語言字典("H508-100-" & 語言) : 重新整理_tsm.Text = 系統語言字典("H508-101-" & 語言) : 表頭(45) = 系統語言字典("H508-102-" & 語言)
        表頭(46) = 系統語言字典("H508-103-" & 語言) : 表頭(86) = 系統語言字典("H508-104-" & 語言) : 表頭(12) = 系統語言字典("H508-105-" & 語言)
        表頭(48) = 系統語言字典("H508-106-" & 語言) : 表頭(47) = 系統語言字典("H508-107-" & 語言) : 表頭(77) = 系統語言字典("H508-108-" & 語言)
        表頭(13) = 系統語言字典("H508-109-" & 語言) : 表頭(14) = 系統語言字典("H508-110-" & 語言) : 表頭(16) = 系統語言字典("H508-111-" & 語言)
        對話框(0) = 系統語言字典("H508-112-" & 語言) : 對話框(1) = 系統語言字典("H508-113-" & 語言) : 對話框(2) = 系統語言字典("H508-114-" & 語言)
        領料單號_lb.Text = 系統語言字典("H508-115-" & 語言) : 詳細資料2_ch.Text = 系統語言字典("H508-116-" & 語言) : 顯示料號2_ch.Text = 系統語言字典("H508-117-" & 語言)
        預先指派_ch.Text = 系統語言字典("H508-118-" & 語言) : 車號_lb.Text = 系統語言字典("H508-119-" & 語言) : 司機_lb.Text = 系統語言字典("H508-120-" & 語言)
        對話框(3) = 系統語言字典("H508-122-" & 語言) : 對話框(4) = 系統語言字典("H508-121-" & 語言)
    End Sub
    Private Sub 出庫完成_bt_MouseEnter(sender As Object, e As EventArgs) Handles 出庫完成_bt.MouseEnter
        ToolTip1.SetToolTip(Me.出庫完成_bt, 系統語言字典("H508-100-" & 語言))
    End Sub
    Private Sub 列印成EXCEL_bt_MouseEnter(sender As Object, e As EventArgs) Handles 列印成EXCEL_bt.MouseEnter
        ToolTip1.SetToolTip(Me.列印成EXCEL_bt, 系統語言字典("G000-114-" & 語言))
    End Sub
    Private Sub 倉儲車號與司機紀錄()
        車號_cb.Items.Clear() : 司機_cb.Items.Clear()
        SQL_倉儲車號紀錄() : While (dr.Read()) : 車號_cb.Items.Add(dr("車號")) : End While : conn.Close()
        SQL_倉儲司機紀錄() : While (dr.Read()) : 司機_cb.Items.Add(dr("司機")) : End While : conn.Close()
    End Sub
    Private Sub 倉儲領料出庫_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        風格() : H(508) = True : 介面 = "H508" : 語言轉換讀取() : 顯示說明(999, False)

        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")
        End If : Access1.Close()

        規格合併_dgv.Visible = False : Panel1.SendToBack() : Set_清單1()
        倉儲領料出庫_Size()
    End Sub
    Private Sub 倉儲領料出庫_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
        倉儲領料出庫_Size()
    End Sub
    Private Sub 倉儲領料出庫_Size()
        MyMod.清單字體大小調整()
        出庫明細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)
    End Sub
    Private Sub 倉儲領料出庫_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        H(508) = False : MyMod.虛擬桌面開啟()
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H508" : 語言轉換讀取() : Set_清單1() : Set_清單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 出庫明細1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 出庫明細1_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            圖片檔1_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)
                圖片檔1_pb.Image = Bitmap.FromStream(oStream)
            End While : conn.Close() : 圖片檔1_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
            執行單號_tb.Text = 出庫單據_dgv.Rows(e.RowIndex).Cells("" & 表頭(47) & "").Value : PA14 = 執行單號_tb.Text
            SQL_倉儲領料查詢() : If dr.Read Then : 倉儲審核_tb.Text = dr("審核人").ToString : 申請人_tb.Text = dr("申請人").ToString : End If
            SQL_倉儲領料查詢1() : If dr.Read Then : 車號_cb.Text = dr("車號").ToString : 司機_cb.Text = dr("司機").ToString : End If : Set_清單2()
        End If
    End Sub
    Private Sub Set_日期格式轉換()
        DTP = Strings.Format(Today(), "yyyy/MM/dd")
    End Sub
    Private Sub 出庫完成_bt_Click(sender As Object, e As EventArgs) Handles 出庫完成_bt.Click
        Set_日期格式轉換()
        If 執行單號_tb.Text = "" Then : MGB(對話框(0), 1) : Else
            存檔() : PA10 = 執行單號_tb.Text : PA12 = 車號_cb.Text : PA13 = 司機_cb.Text : SQL_倉儲領料出庫_倉庫指定出庫() : conn.Close()
            通知訊息 = 對話框(1) & 執行單號_tb.Text & 對話框(2) : 訊息類型 = "1" : 通知視窗.ShowDialog()
            執行單號_tb.Text = "" : 出庫明細_dgv.DataSource = Nothing : 出庫明細1_dgv.DataSource = Nothing : Set_清單1()
        End If
    End Sub
    Private Sub 小間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距_ch.Click
        小間距_ch.Checked = True : 中間距_ch.Checked = False : 大間距_ch.Checked = False : MyMod.間距設定存檔_1() : Set_清單2()
    End Sub
    Private Sub 中間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距_ch.Click
        小間距_ch.Checked = False : 中間距_ch.Checked = True : 大間距_ch.Checked = False : MyMod.間距設定存檔_2() : Set_清單2()
    End Sub
    Private Sub 大間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距_ch.Click
        小間距_ch.Checked = False : 中間距_ch.Checked = False : 大間距_ch.Checked = True : MyMod.間距設定存檔_3() : Set_清單2()
    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_清單1()
    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_清單1()
    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_清單1()
    End Sub
    Private Sub 圖片檔1_pb_Click(sender As Object, e As EventArgs) Handles 圖片檔1_pb.Click
        If IsNothing(圖片檔1_pb.Image) = False Then : 圖片傳遞 = 圖片檔1_pb.Image : 圖片放大視窗.ShowDialog() : 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 詳細資料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 車號_cb_Click(sender As Object, e As EventArgs) Handles 車號_cb.Click
        CB選擇清單(車號_cb, 車號_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 列印成EXCEL_bt_Click(sender As Object, e As EventArgs) Handles 列印成EXCEL_bt.Click
        If 領料單號_lb.Text = "" Then : MGB(對話框(3), 1) : Else
            xlApp = CType(CreateObject("Excel.Application"), Application)
            xlBook = xlApp.Workbooks.Add
            xlApp.DisplayAlerts = True
            xlBook.Activate()
            xlSheet = NewMethod(xlBook)
            xlSheet.Activate()
            xlApp.Visible = True
            xlApp.Application.WindowState = xlMaximized
            BB(xlApp, xlSheet)
            xlSheet.Cells(2, 2) = 領料單號_lb.Text : xlSheet.Cells(2, 3) = 執行單號_tb.Text
            If 系統語言 = "繁體中文" Then
                xlSheet.Cells(2, 5) = "司機 : " : xlSheet.Cells(2, 8) = "車牌號碼 : " : xlSheet.Cells(4, 1) = "項次" : xlSheet.Cells(4, 4) = "數量" : xlSheet.Cells(4, 7) = "合約號"
            Else
                xlSheet.Cells(2, 4) = "Pengemudi : " : xlSheet.Cells(2, 8) = "Plat Nomor : " : xlSheet.Cells(4, 1) = "Item" : xlSheet.Cells(4, 4) = "kuantitas"
                xlSheet.Cells(4, 7) = "kontrak No"
            End If
            xlSheet.Cells(4, 2) = 表頭(12) : xlSheet.Cells(4, 3) = 表頭(13) : xlSheet.Cells(4, 5) = 表頭(16) : xlSheet.Cells(4, 6) = 表頭(14) : xlSheet.Cells(4, 8) = 表頭(48)
            xlSheet.Cells(4, 9) = 表頭(86) : xlSheet.Cells(2, 5) = 司機_cb.Text : xlSheet.Cells(2, 9) = 車號_cb.Text
            NN1 = 0
            For i As Integer = 0 To 出庫明細1_dgv.Rows.Count - 1
                xlSheet.Cells(i + 5, 1) = i + 1 : xlSheet.Cells(i + 5, 2) = 出庫明細1_dgv.Rows(i).Cells(表頭(12)).Value.ToString
                xlSheet.Cells(i + 5, 3) = 出庫明細1_dgv.Rows(i).Cells(表頭(13)).Value : xlSheet.Cells(i + 5, 4) = 出庫明細1_dgv.Rows(i).Cells(表頭(46)).Value
                xlSheet.Cells(i + 5, 5) = 出庫明細1_dgv.Rows(i).Cells(表頭(16)).Value : xlSheet.Cells(i + 5, 6) = 出庫明細1_dgv.Rows(i).Cells(表頭(14)).Value
                xlSheet.Cells(i + 5, 7) = 出庫明細1_dgv.Rows(i).Cells("No").Value : xlSheet.Cells(i + 5, 8) = 出庫明細1_dgv.Rows(i).Cells(表頭(48)).Value
                xlSheet.Cells(i + 5, 9) = 出庫明細1_dgv.Rows(i).Cells(表頭(86)).Value
                NN1 += 1
            Next i
            If 系統語言 = "繁體中文" Then
                xlSheet.Cells(4 + NN1 + 2, 2) = "倉儲審核 : " : xlSheet.Cells(4 + NN1 + 2, 6) = "申請人 : "
            Else
                xlSheet.Cells(4 + NN1 + 2, 2) = "Audit Gudang : " : xlSheet.Cells(4 + NN1 + 2, 6) = "Pemohon : "
            End If : xlSheet.Cells(4 + NN1 + 2, 3) = 倉儲審核_tb.Text : xlSheet.Cells(4 + NN1 + 2, 7) = 申請人_tb.Text
            CC(xlApp, xlSheet) : AA(xlApp, xlSheet) : DD(xlApp, xlSheet)

            '-------------轉換成PDF---------------------------------------------------------------------
            Dim SERT As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
            xlBook.Sheets(1).ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, SERT & "\" & 執行單號_tb.Text & "出庫單.pdf", XlFixedFormatQuality.xlQualityStandard, True)
            '-------------關閉EXCEL---------------------------------------------------------------------
            xlSheet.PageSetup.PrintArea = "" : xlApp.Cells.Select()
            xlApp.Application.WindowState = xlMinimized
            xlBook.Close(False)
            Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet)
            Runtime.InteropServices.Marshal.ReleaseComObject(xlBook)
            Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
            xlApp.Quit() : xlSheet = Nothing : xlBook = Nothing : xlApp = Nothing : GC.Collect()
            '-------------開啟PDF---------------------------------------------------------------------
            Dim pdfFilePath As String = SERT & "\" & 執行單號_tb.Text & "出庫單.pdf"
            If IsChromeInstalled() Then
                Try
                    Dim chromeProcess As New Process()
                    chromeProcess.StartInfo.FileName = "chrome"
                    chromeProcess.StartInfo.Arguments = """" & pdfFilePath & """"
                    chromeProcess.Start()
                Catch ex As Exception
                End Try
            Else
                Try
                    System.Diagnostics.Process.Start("""" & pdfFilePath & """")
                Catch ex As Exception
                End Try
            End If
            MGB(對話框(4), 1)
        End If
    End Sub
    ' 檢查系統是否已安裝 Google Chrome
    Private Function IsChromeInstalled() As Boolean
        Dim key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
        If key IsNot Nothing Then
            For Each subkeyName As String In key.GetSubKeyNames()
                Dim subkey As Microsoft.Win32.RegistryKey = key.OpenSubKey(subkeyName)
                Dim displayName As Object = subkey.GetValue("DisplayName")

                If displayName IsNot Nothing AndAlso displayName.ToString().Contains("Google Chrome") Then
                    Return True
                End If
            Next
        End If
        Return False
    End Function
    Private Shared Function NewMethod(xlBook As Workbook) As Worksheet
        Return CType(xlBook.Worksheets.Add, Worksheet)
    End Function
    Private Sub AA(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        xlSheet.Cells.Select()
        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False
            .OutlineFont = False : .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0
            .ThemeFont = xlThemeFontNone
        End With
        xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 85
        xlSheet.Rows("3:3").Select : myExcel.Selection.RowHeight = 5
        xlSheet.Rows("4:4").Select : myExcel.Selection.RowHeight = 35
        xlSheet.Rows("4:4").Select
        With myExcel.Selection : .HorizontalAlignment = xlGeneral : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
        xlSheet.Range("D2:E2").Select()
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0
            .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
        End With ': myExcel.Selection.Merge
        xlSheet.Range("A4:I4").Select()
        With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent5
            .TintAndShade = 0.799981688894314 : .PatternTintAndShade = 0 : End With
        xlSheet.Range("B2").Select()
        With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
        xlSheet.Range("H2").Select()
        With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
        xlSheet.Range("B" & 6 + NN1).Select()
        With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
        xlSheet.Range("F" & 6 + NN1).Select()
        With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
        xlSheet.Range("A5:A" & 4 + NN1).Select()
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
        xlSheet.Range("H5:H" & 4 + NN1).Select()
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
        xlSheet.Range("A5:I" & 4 + NN1).Select()
        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
            .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
        End With
        xlSheet.Columns("A:I").Select : xlSheet.Columns("A:I").EntireColumn.AutoFit
        xlSheet.Range("A4:I" & 4 + NN1).Select()
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        myExcel.ActiveWindow.DisplayGridlines = False

        xlSheet.Range("A5:I" & 4 + NN1).Select()
        With myExcel.Selection : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False
            .ReadingOrder = xlContext : End With

        Dim 攔寬 As Single
        xlSheet.Rows("5:" & 4 + NN1).Select : xlSheet.Rows("5:" & 4 + NN1).EntireRow.AutoFit
        For i As Integer = 5 To 4 + NN1
            xlSheet.Rows(i & ":" & i).Select
            攔寬 = xlSheet.Rows(i & ":" & i).RowHeight
            xlSheet.Rows(i & ":" & i).Select : myExcel.Selection.RowHeight = 攔寬 + 15
        Next
    End Sub
    Private Sub BB(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        xlSheet.Columns("C:C").Select : myExcel.Selection.NumberFormatLocal = "@"
    End Sub
    Private Sub CC(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        Clipboard.SetDataObject(PictureBox1.Image)
        xlSheet.Range("A1").Select()
        myExcel.ActiveSheet.Pictures.Paste.Select
        myExcel.Selection.ShapeRange.Height = 75
        myExcel.Selection.ShapeRange.IncrementLeft(50)
        myExcel.Selection.ShapeRange.IncrementTop(2)
    End Sub
    Private Sub DD(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        myExcel.ActiveSheet.PageSetup.CenterHeaderPicture.Filename =
            Str01 & "\HXBWLOG.png"
        myExcel.Application.PrintCommunication = False
        With myExcel.ActiveSheet.PageSetup : .PrintTitleRows = "$1:$4" : .PrintTitleColumns = "" : End With
        myExcel.Application.PrintCommunication = True : myExcel.ActiveSheet.PageSetup.PrintArea = "" : myExcel.Application.PrintCommunication = False
        With myExcel.ActiveSheet.PageSetup : .LeftHeader = ""
            .CenterHeader = "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "&G"
            .RightHeader = "" : .LeftFooter = "" : .CenterFooter = "第 &P 頁，共 &N 頁" : .RightFooter = ""
            .LeftMargin = myExcel.Application.InchesToPoints(0.236220472440945) : .RightMargin = myExcel.Application.InchesToPoints(0.236220472440945)
            .TopMargin = myExcel.Application.InchesToPoints(0.748031496062992) : .BottomMargin = myExcel.Application.InchesToPoints(0.748031496062992)
            .HeaderMargin = myExcel.Application.InchesToPoints(0.31496062992126) : .FooterMargin = myExcel.Application.InchesToPoints(0.31496062992126)
            .PrintHeadings = False : .PrintGridlines = False :  .CenterHorizontally = False : .CenterVertically = False : .Draft = False
            .FirstPageNumber = xlAutomatic : .BlackAndWhite = False : .Zoom = False : .FitToPagesWide = 1 : .FitToPagesTall = False : .OddAndEvenPagesHeaderFooter = False
            .DifferentFirstPageHeaderFooter = False : .ScaleWithDocHeaderFooter = True : .AlignMarginsHeaderFooter = True : .EvenPage.LeftHeader.Text = ""
            .EvenPage.CenterHeader.Text = "" : .EvenPage.RightHeader.Text = "" : .EvenPage.LeftFooter.Text = "" : .EvenPage.CenterFooter.Text = ""
            .EvenPage.RightFooter.Text = "" : .FirstPage.LeftHeader.Text = "" : .FirstPage.CenterHeader.Text = "" : .FirstPage.RightHeader.Text = ""
            .FirstPage.LeftFooter.Text = "" : .FirstPage.CenterFooter.Text = "" : .FirstPage.RightFooter.Text = ""
        End With : myExcel.Application.PrintCommunication = True
    End Sub
    '-----------------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 重新整理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
        Me.出庫完成_bt.PerformClick()
    End Sub
    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = SystemColors.Control

            顯示料號2_ch.ForeColor = Color.Black : 領料單號_lb.ForeColor = Color.Black : 大間距1_ch.ForeColor = Color.Black
            中間距1_ch.ForeColor = Color.Black : 小間距1_ch.ForeColor = Color.Black : 詳細資料2_ch.ForeColor = Color.Black : 小間距_ch.ForeColor = Color.Black
            中間距_ch.ForeColor = Color.Black : 大間距_ch.ForeColor = Color.Black : 預先指派_ch.ForeColor = Color.Red
            車號_lb.ForeColor = Color.Black : 司機_lb.ForeColor = Color.Black

            執行單號_tb.BackColor = Color.White : 執行單號_tb.ForeColor = Color.Black : 語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black
            車號_cb.BackColor = Color.White : 車號_cb.ForeColor = Color.Black : 司機_cb.BackColor = Color.White : 司機_cb.ForeColor = Color.Black

            出庫完成_bt.BackColor = Color.White : 列印成EXCEL_bt.BackColor = Color.White

            出庫單據_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
            出庫明細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
        Else
            Me.BackColor = Color.Black

            顯示料號2_ch.ForeColor = Color.White : 領料單號_lb.ForeColor = Color.White : 大間距1_ch.ForeColor = Color.White
            中間距1_ch.ForeColor = Color.White : 小間距1_ch.ForeColor = Color.White : 詳細資料2_ch.ForeColor = Color.White : 小間距_ch.ForeColor = Color.White
            中間距_ch.ForeColor = Color.White : 大間距_ch.ForeColor = Color.White : 預先指派_ch.ForeColor = Color.LightPink
            車號_lb.ForeColor = Color.White : 司機_lb.ForeColor = Color.White

            執行單號_tb.BackColor = Color.DimGray : 執行單號_tb.ForeColor = Color.White : 語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White
            車號_cb.BackColor = Color.DimGray : 車號_cb.ForeColor = Color.White : 司機_cb.BackColor = Color.DimGray : 司機_cb.ForeColor = Color.White

            出庫完成_bt.BackColor = Color.DimGray : 列印成EXCEL_bt.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 : 出庫明細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
        End If
    End Sub
End Class