HX-PGS-ERP-SYS-SIU/03、倉儲管理系統/倉儲基本控制/物料資料庫_編輯.vb

Imports System.IO
Imports System.Text.RegularExpressions
Public Class 物料資料庫_編輯
    Dim EDR As Integer = 0 : Dim ESTR, KKK1, KKK2, KKK3, KKK4 As String : Dim 對話框(64), 原則說明異動 As String : Dim 新增模式 As Boolean = False
    Dim 只讀一次, 是否有資料, 已開啟, 規格修改 As Boolean : Dim 查詢模式 As Boolean = False : Dim R位置 As Integer
    Private Sub Set_物料群組()
        Dim ds5, ds6, ds7, ds8, ds9, ds14 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() : da.Fill(ds8)
        物料群組_dgv.Columns(0).ReadOnly = True
    End Sub
    Private Sub Set_物料群組_語轉()
        Dim ds5, ds6, ds7, ds8, ds9, ds14 As New DataSet
        物料舊群組_語言_dgv.DataSource = Nothing
        物料舊群組_語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料舊群組_語言_dgv.ColumnHeadersHeight = 25
        物料舊群組_語言_dgv.AllowUserToAddRows = False
        SQL_物料資料庫_群組碼清單_含語言()
        da.Fill(ds5) : 物料舊群組_語言_dgv.DataSource = ds5.Tables(0) : conn.Close()
        物料舊群組_語言_dgv.Columns(0).Visible = False : 物料舊群組_語言_dgv.Columns(1).ReadOnly = True : 物料舊群組_語言_dgv.Columns(2).Visible = False
    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 = 25
        SQL_新物料群組()
        da.Fill(ds1) : 物料新群組_語言_dgv.DataSource = ds1.Tables(0) : conn.Close()
        物料新群組_語言_dgv.Columns(0).FillWeight = 50 : 物料新群組_語言_dgv.Columns(1).Visible = False : 物料新群組_語言_dgv.Columns(7).FillWeight = 40
        For I As Integer = 0 To 物料新群組_語言_dgv.Columns.Count - 1 : 物料新群組_語言_dgv.Columns(I).ReadOnly = True : Next
    End Sub
    Private Sub Set_清單1()
        物料明細_dgv.DataSource = Nothing : 物料明細1_dgv.DataSource = Nothing
        Dim ds4 As New DataSet : 物料編碼_dgv.DataSource = Nothing : ds4.Clear()
        物料編碼_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料編碼_dgv.ColumnHeadersHeight = 25 : 物料編碼_dgv.AllowUserToAddRows = False
        Dim ds5 As New DataSet : 物料編碼1_dgv.DataSource = Nothing : ds5.Clear()
        物料編碼1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料編碼1_dgv.ColumnHeadersHeight = 25 : 物料編碼1_dgv.AllowUserToAddRows = False
        If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then : 物料編碼_dgv.RowTemplate.Height = 95
        ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then : 物料編碼_dgv.RowTemplate.Height = 75
        ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then : 物料編碼_dgv.RowTemplate.Height = 55 : End If
        If 查詢模式 And 關鍵字_tb.Text <> "" Then
            SQL_物料原則_物料編碼庫(" (物料編碼庫.原則說明 LIKE N'%" & 關鍵字_tb.Text & "%' OR 物料編碼庫.料號原則 LIKE N'%" & 關鍵字_tb.Text & "%' )  ")
        Else
            SQL_物料原則_物料編碼庫(" (物料編碼庫.新群組碼 LIKE N'" & 新群組編號_tb.Text & "') ")
        End If
        da.Fill(ds5) : 物料編碼1_dgv.DataSource = ds5.Tables(0)
        da.Fill(ds4) : 物料編碼_dgv.DataSource = ds4.Tables(0) : conn.Close()
        物料編碼_dgv.Columns(0).FillWeight = 50 : 物料編碼_dgv.Columns(1).Visible = False : 物料編碼_dgv.Columns(2).FillWeight = 350 : 物料編碼_dgv.Columns(7).Visible = False
        物料編碼_dgv.Columns(3).FillWeight = 60 : 物料編碼_dgv.Columns(4).Visible = False : 物料編碼_dgv.Columns(5).Visible = False : 物料編碼_dgv.Columns(6).FillWeight = 120
        物料編碼_dgv.Columns(8).Visible = False : 物料編碼_dgv.Columns(9).Visible = False : 物料編碼_dgv.Columns(10).Visible = False : 物料編碼_dgv.Columns(11).FillWeight = 300
        物料編碼_dgv.Columns(12).FillWeight = 50
        物料編碼_dgv.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料編碼_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料編碼_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料編碼_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料編碼_dgv.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料編碼_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料編碼_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料編碼_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

        物料編碼_dgv.Columns(0).ReadOnly = True : 物料編碼_dgv.Columns(1).ReadOnly = True : 物料編碼_dgv.Columns(2).ReadOnly = True : 物料編碼_dgv.Columns(3).ReadOnly = True
        物料編碼_dgv.Columns(4).ReadOnly = True : 物料編碼_dgv.Columns(4).ReadOnly = True : 物料編碼_dgv.Columns(5).ReadOnly = True
        物料編碼_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        Dim mycol As DataGridViewImageColumn = 物料編碼_dgv.Columns("Image")
        mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
        Dim myco2 As DataGridViewImageColumn = 物料編碼_dgv.Columns("計算")
        myco2.ImageLayout = DataGridViewImageCellLayout.Zoom
        For i As Integer = 0 To 物料編碼_dgv.Rows.Count - 1
            物料編碼_dgv(0, i).Value = i + 1 : 物料編碼_dgv(4, i).Value = False : 物料編碼_dgv.Rows(i).Cells(12).Value = My.Resources.calc1
        Next
        BL1 = False : Set_清單1_語轉()
    End Sub
    Private Sub Set_清單1_語轉()
        Dim ds4 As New DataSet : 物料品名_語轉_dgv.DataSource = Nothing : ds4.Clear()
        物料品名_語轉_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料品名_語轉_dgv.ColumnHeadersHeight = 25 : 物料品名_語轉_dgv.AllowUserToAddRows = False : 物料品名_語轉_dgv.RowTemplate.Height = 25
        If 查詢模式 And 關鍵字_tb.Text <> "" Then
            SQL_物料原則_物料編碼庫_語轉("   (物料編碼庫.原則說明 LIKE N'%" & 關鍵字_tb.Text & "%' OR 物料編碼庫.料號原則 LIKE N'%" & 關鍵字_tb.Text & "%' )  ")
        Else
            SQL_物料原則_物料編碼庫_語轉("  (物料編碼庫.新群組碼 LIKE N'" & 新群組編號_tb.Text & "')  ")
        End If
        da.Fill(ds4) : 物料品名_語轉_dgv.DataSource = ds4.Tables(0) : conn.Close()
        物料品名_語轉_dgv.Columns(0).Visible = False : 物料品名_語轉_dgv.Columns(1).FillWeight = 150
        物料品名_語轉_dgv.Columns(2).FillWeight = 100 : 物料品名_語轉_dgv.Columns(3).FillWeight = 450

        物料品名_語轉_dgv.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

        物料品名_語轉_dgv.Columns(0).ReadOnly = True : 物料品名_語轉_dgv.Columns(1).ReadOnly = True : 物料品名_語轉_dgv.Columns(2).ReadOnly = True
        物料品名_語轉_dgv.Columns(3).ReadOnly = True : 查詢模式 = False
    End Sub
    Private Sub 新群組碼1()
        DA_1.Items.Clear() : DB_1.Items.Clear() : DC_1.Items.Clear()
        PA30 = "繁體中文" : SQL_新物料群組下拉1() : While (dr.Read()) : DA_1.Items.Add(dr("第一層")) : End While : conn.Close()
        PA30 = "English" : SQL_新物料群組下拉1() : While (dr.Read()) : DB_1.Items.Add(dr("第一層")) : End While : conn.Close()
        PA30 = "Indonesian" : SQL_新物料群組下拉1() : While (dr.Read()) : DC_1.Items.Add(dr("第一層")) : End While : conn.Close()
    End Sub
    Private Sub 新群組碼2()
        DA_2.Items.Clear() : DB_2.Items.Clear() : DC_2.Items.Clear() : DA_2.Text = "" : DB_2.Text = "" : DC_2.Text = ""
        PA30 = "繁體中文"
        If CA_1.Text <> "" Then : PA31 = CA_1.Text : Else : PA31 = DA_1.Text : End If
        SQL_新物料群組下拉2() : While (dr.Read()) : DA_2.Items.Add(dr("第二層")) : End While : conn.Close()
        PA30 = "English"
        If CB_1.Text <> "" Then : PA31 = CB_1.Text : Else : PA31 = DB_1.Text : End If
        SQL_新物料群組下拉2() : While (dr.Read()) : DB_2.Items.Add(dr("第二層")) : End While : conn.Close()
        PA30 = "Indonesian"
        If CC_1.Text <> "" Then : PA31 = CC_1.Text : Else : PA31 = DC_1.Text : End If
        SQL_新物料群組下拉2() : While (dr.Read()) : DC_2.Items.Add(dr("第二層")) : End While : conn.Close()
    End Sub
    Private Sub 新群組碼3()
        DA_3.Items.Clear() : DB_3.Items.Clear() : DC_3.Items.Clear() : DA_3.Text = "" : DB_3.Text = "" : DC_3.Text = ""
        PA30 = "繁體中文"
        If CA_1.Text <> "" Then : PA31 = CA_1.Text : Else : PA31 = DA_1.Text : End If : If CA_2.Text <> "" Then : PA32 = CA_2.Text : Else : PA32 = DA_2.Text : End If
        SQL_新物料群組下拉3() : While (dr.Read()) : DA_3.Items.Add(dr("第三層")) : End While : conn.Close()
        PA30 = "English"
        If CB_1.Text <> "" Then : PA31 = CB_1.Text : Else : PA31 = DB_1.Text : End If : If CB_2.Text <> "" Then : PA32 = CB_2.Text : Else : PA32 = DB_2.Text : End If
        SQL_新物料群組下拉3() : While (dr.Read()) : DB_3.Items.Add(dr("第三層")) : End While : conn.Close()
        PA30 = "Indonesian"
        If CC_1.Text <> "" Then : PA31 = CC_1.Text : Else : PA31 = DC_1.Text : End If : If CC_2.Text <> "" Then : PA32 = CC_2.Text : Else : PA32 = DC_2.Text : End If
        SQL_新物料群組下拉3() : While (dr.Read()) : DC_3.Items.Add(dr("第三層")) : End While : conn.Close()
    End Sub
    Private Sub 新群組碼4()
        DA_4.Items.Clear() : DB_4.Items.Clear() : DC_4.Items.Clear() : DA_4.Text = "" : DB_4.Text = "" : DC_4.Text = ""
        PA30 = "繁體中文"
        If CA_1.Text <> "" Then : PA31 = CA_1.Text : Else : PA31 = DA_1.Text : End If : If CA_2.Text <> "" Then : PA32 = CA_2.Text : Else : PA32 = DA_2.Text : End If
        If CA_3.Text <> "" Then : PA33 = CA_3.Text : Else : PA33 = DA_3.Text : End If
        SQL_新物料群組下拉4() : While (dr.Read()) : DA_4.Items.Add(dr("第四層")) : End While : conn.Close()
        PA30 = "English"
        If CB_1.Text <> "" Then : PA31 = CB_1.Text : Else : PA31 = DB_1.Text : End If : If CB_2.Text <> "" Then : PA32 = CB_2.Text : Else : PA32 = DB_2.Text : End If
        If CB_3.Text <> "" Then : PA33 = CB_3.Text : Else : PA33 = DB_3.Text : End If
        SQL_新物料群組下拉4() : While (dr.Read()) : DB_4.Items.Add(dr("第四層")) : End While : conn.Close()
        PA30 = "Indonesian"
        If CC_1.Text <> "" Then : PA31 = CC_1.Text : Else : PA31 = DC_1.Text : End If : If CC_2.Text <> "" Then : PA32 = CC_2.Text : Else : PA32 = DC_2.Text : End If
        If CC_3.Text <> "" Then : PA33 = CC_3.Text : Else : PA33 = DC_3.Text : End If
        SQL_新物料群組下拉4() : While (dr.Read()) : DC_4.Items.Add(dr("第四層")) : End While : conn.Close()
    End Sub
    Private Sub 新群組碼5()
        DA_5.Items.Clear() : DB_5.Items.Clear() : DC_5.Items.Clear() : DA_5.Text = "" : DB_5.Text = "" : DC_5.Text = ""
        PA30 = "繁體中文"
        If CA_1.Text <> "" Then : PA31 = CA_1.Text : Else : PA31 = DA_1.Text : End If : If CA_2.Text <> "" Then : PA32 = CA_2.Text : Else : PA32 = DA_2.Text : End If
        If CA_3.Text <> "" Then : PA33 = CA_3.Text : Else : PA33 = DA_3.Text : End If : If CA_4.Text <> "" Then : PA34 = CA_4.Text : Else : PA34 = DA_4.Text : End If
        SQL_新物料群組下拉5() : While (dr.Read()) : DA_5.Items.Add(dr("第五層")) : End While : conn.Close()
        PA30 = "English"
        If CB_1.Text <> "" Then : PA31 = CB_1.Text : Else : PA31 = DB_1.Text : End If : If CB_2.Text <> "" Then : PA32 = CB_2.Text : Else : PA32 = DB_2.Text : End If
        If CB_3.Text <> "" Then : PA33 = CB_3.Text : Else : PA33 = DB_3.Text : End If : If CB_4.Text <> "" Then : PA34 = CB_4.Text : Else : PA34 = DB_4.Text : End If
        SQL_新物料群組下拉5() : While (dr.Read()) : DB_5.Items.Add(dr("第五層")) : End While : conn.Close()
        PA30 = "Indonesian"
        If CC_1.Text <> "" Then : PA31 = CC_1.Text : Else : PA31 = DC_1.Text : End If : If CC_2.Text <> "" Then : PA32 = CC_2.Text : Else : PA32 = DC_2.Text : End If
        If CC_3.Text <> "" Then : PA33 = CC_3.Text : Else : PA33 = DC_3.Text : End If : If CC_4.Text <> "" Then : PA34 = CC_4.Text : Else : PA34 = DC_4.Text : End If
        SQL_新物料群組下拉5() : While (dr.Read()) : DC_5.Items.Add(dr("第五層")) : End While : conn.Close()
    End Sub
    Private Sub 切換DA()
        If 系統語言 = "繁體中文" Then
            DA_1.Visible = True : DA_2.Visible = True : DA_3.Visible = True : DA_4.Visible = True : DA_5.Visible = True
            DB_1.Visible = False : DB_2.Visible = False : DB_3.Visible = False : DB_4.Visible = False : DB_5.Visible = False
            DC_1.Visible = False : DC_2.Visible = False : DC_3.Visible = False : DC_4.Visible = False : DC_5.Visible = False
        ElseIf 系統語言 = "English" Then
            DA_1.Visible = False : DA_2.Visible = False : DA_3.Visible = False : DA_4.Visible = False : DA_5.Visible = False
            DB_1.Visible = True : DB_2.Visible = True : DB_3.Visible = True : DB_4.Visible = True : DB_5.Visible = True
            DC_1.Visible = False : DC_2.Visible = False : DC_3.Visible = False : DC_4.Visible = False : DC_5.Visible = False
        Else
            DA_1.Visible = False : DA_2.Visible = False : DA_3.Visible = False : DA_4.Visible = False : DA_5.Visible = False
            DB_1.Visible = False : DB_2.Visible = False : DB_3.Visible = False : DB_4.Visible = False : DB_5.Visible = False
            DC_1.Visible = True : DC_2.Visible = True : DC_3.Visible = True : DC_4.Visible = True : DC_5.Visible = True
        End If
    End Sub
    Private Sub 語言轉換讀取()
        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
        Me.Text = 系統語言字典("H001-161-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言)

        對話框(0) = 系統語言字典("H301-130-" & 語言) : 對話框(1) = 系統語言字典("H527-158-" & 語言) : 對話框(2) = 系統語言字典("H527-160-" & 語言)
        對話框(3) = 系統語言字典("H527-161-" & 語言) : 對話框(4) = 系統語言字典("H527-162-" & 語言) : 對話框(5) = 系統語言字典("H527-159-" & 語言)
        對話框(6) = 系統語言字典("H527-164-" & 語言) : 對話框(7) = 系統語言字典("H527-165-" & 語言) : 對話框(8) = 系統語言字典("H527-166-" & 語言)
        對話框(9) = 系統語言字典("H527-167-" & 語言) : 對話框(10) = 系統語言字典("H527-168-" & 語言) : 對話框(11) = 系統語言字典("H527-169-" & 語言)
        對話框(12) = 系統語言字典("H527-170-" & 語言) : 對話框(13) = 系統語言字典("H527-171-" & 語言) : 對話框(14) = 系統語言字典("H527-172-" & 語言)
        對話框(15) = 系統語言字典("H527-173-" & 語言) : 對話框(16) = 系統語言字典("H527-174-" & 語言) : 對話框(17) = 系統語言字典("H527-175-" & 語言)
        對話框(18) = 系統語言字典("H527-176-" & 語言) : 對話框(19) = 系統語言字典("H527-177-" & 語言) : 對話框(20) = 系統語言字典("H527-178-" & 語言)
        對話框(21) = 系統語言字典("H527-179-" & 語言) : 對話框(22) = 系統語言字典("H527-180-" & 語言) : 對話框(40) = 系統語言字典("H527-189-" & 語言)
        對話框(25) = 系統語言字典("H527-107-" & 語言) : 對話框(24) = 系統語言字典("H527-106-" & 語言) : 對話框(23) = 系統語言字典("H527-101-" & 語言)
        對話框(26) = 系統語言字典("H527-108-" & 語言) : 對話框(28) = 系統語言字典("H527-113-" & 語言) : 對話框(27) = 系統語言字典("H527-112-" & 語言)
        對話框(29) = 系統語言字典("H527-121-" & 語言) : 對話框(30) = 系統語言字典("H527-122-" & 語言) : 對話框(31) = 系統語言字典("H527-136-" & 語言)
        對話框(32) = 系統語言字典("H527-137-" & 語言) : 對話框(33) = 系統語言字典("H527-138-" & 語言) : 對話框(35) = 系統語言字典("H527-149-" & 語言)
        對話框(34) = 系統語言字典("H527-148-" & 語言) : 對話框(36) = 系統語言字典("H527-150-" & 語言) : 對話框(37) = 系統語言字典("H527-151-" & 語言)
        對話框(38) = 系統語言字典("H527-152-" & 語言) : 對話框(39) = 系統語言字典("H527-156-" & 語言) : 對話框(41) = 系統語言字典("H527-190-" & 語言)
        對話框(42) = 系統語言字典("H527-191-" & 語言) : 對話框(43) = 系統語言字典("H527-192-" & 語言) : 對話框(44) = 系統語言字典("H527-193-" & 語言)
        對話框(45) = 系統語言字典("H527-194-" & 語言) : 對話框(46) = 系統語言字典("H527-195-" & 語言) : 對話框(47) = 系統語言字典("H527-196-" & 語言)
        對話框(48) = 系統語言字典("H527-197-" & 語言) : 對話框(49) = 系統語言字典("H527-198-" & 語言) : 對話框(50) = 系統語言字典("H527-205-" & 語言)
        對話框(51) = 系統語言字典("H527-206-" & 語言) : 對話框(52) = 系統語言字典("H527-207-" & 語言) : 對話框(53) = 系統語言字典("H527-208-" & 語言)
        對話框(54) = 系統語言字典("H902-132-" & 語言) : 對話框(55) = 系統語言字典("H527-209-" & 語言) : 對話框(56) = 系統語言字典("H527-210-" & 語言)
        對話框(57) = 系統語言字典("H527-211-" & 語言) : 對話框(58) = 系統語言字典("G000-171-" & 語言) : 對話框(59) = 系統語言字典("H527-212-" & 語言)
        對話框(60) = 系統語言字典("G000-175-" & 語言) : 對話框(62) = 系統語言字典("H527-213-" & 語言) : 對話框(63) = 系統語言字典("H527-214-" & 語言)
        對話框(61) = 系統語言字典("H527-100-" & 語言) : 對話框(64) = 系統語言字典("H527-215-" & 語言)
        表頭(67) = 系統語言字典("H527-127-" & 語言) : 表頭(64) = 系統語言字典("H527-128-" & 語言) : 表頭(63) = 系統語言字典("H527-129-" & 語言) : 表頭(65) = 系統語言字典("H527-130-" & 語言)
        表頭(66) = 系統語言字典("H527-131-" & 語言) : 表頭(16) = 系統語言字典("H527-132-" & 語言) : 表頭(11) = 系統語言字典("H527-133-" & 語言) : 表頭(62) = 系統語言字典("H527-134-" & 語言)
    End Sub
    Private Sub 物料資料庫_編輯_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        已開啟 = False : HX_PGS_ERP_SYS.WindowState = 2 : Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2
        介面 = "H530" : H(530) = True : 語言轉換讀取() : 顯示說明(999, False)
        BL1 = False : 系統語言_cb.Text = 系統語言 : Panel4.SendToBack() : Me.KeyPreview = True
    End Sub
    Private Sub 物料資料庫_編輯_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        切換DA() : Set_清單1() : Set_物料群組() : Set_物料群組_語轉() : Set_物料新群組_語轉() : 新群組碼1() : SQL_物料規格表係數重置()
        中間距_ch.Checked = True : 已開啟 = True
    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 物料資料庫_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        If 新增模式 Then : 新增模式 = False
            If 新增模式圖檔流水號暫存_tb.Text <> "" Then : SQL_物料原則_刪除圖檔(新增模式圖檔流水號暫存_tb.Text) : 新增模式圖檔流水號暫存_tb.Text = "" : End If
        End If : H(530) = False : MyMod.虛擬桌面開啟()
    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(0).Value.ToString : PA48 = 新群組編號_tb.Text
            SQL_新物料群組_讀取_中()
            If dr.Read Then : CA_1.Text = dr("第一層").ToString : CA_2.Text = dr("第二層").ToString : CA_3.Text = dr("第三層").ToString
                CA_4.Text = dr("第四層").ToString : CA_5.Text = dr("第五層").ToString : End If
            SQL_新物料群組_讀取_英()
            If dr.Read Then : CB_1.Text = dr("第一層").ToString : CB_2.Text = dr("第二層").ToString : CB_3.Text = dr("第三層").ToString
                CB_4.Text = dr("第四層").ToString : CB_5.Text = dr("第五層").ToString : End If
            SQL_新物料群組_讀取_印()
            If dr.Read Then : CC_1.Text = dr("第一層").ToString : CC_2.Text = dr("第二層").ToString : CC_3.Text = dr("第三層").ToString
                CC_4.Text = dr("第四層").ToString : CC_5.Text = dr("第五層").ToString : End If
            只讀一次 = False : DA_1.Text = CA_1.Text : 只讀一次 = False : DA_2.Text = CA_2.Text : 只讀一次 = False : DA_3.Text = CA_3.Text
            只讀一次 = False : DA_4.Text = CA_4.Text : 只讀一次 = False : DA_5.Text = CA_5.Text
            Set_清單1()
        End If
    End Sub
    Private Sub 載入新群組碼(ByVal text1 As String, ByVal text2 As String, ByVal text3 As String, ByVal text4 As String, ByVal text5 As String)
        For i As Integer = 0 To 物料新群組_語言_dgv.Rows.Count - 1
            If text1 = 物料新群組_語言_dgv.Rows(i).Cells("第一層").Value.ToString And text2 = 物料新群組_語言_dgv.Rows(i).Cells("第二層").Value.ToString And
                text3 = 物料新群組_語言_dgv.Rows(i).Cells("第三層").Value.ToString And text4 = 物料新群組_語言_dgv.Rows(i).Cells("第四層").Value.ToString And
                text5 = 物料新群組_語言_dgv.Rows(i).Cells("第五層").Value.ToString Then
                新群組編號_tb.Text = 物料新群組_語言_dgv.Rows(i).Cells(0).Value.ToString : Set_清單1()
            End If
        Next
    End Sub
    Private Sub DA_1_Click(sender As Object, e As EventArgs) Handles DA_1.Click
        只讀一次 = False
    End Sub
    Private Sub DB_1_Click(sender As Object, e As EventArgs) Handles DB_1.Click
        只讀一次 = False
    End Sub
    Private Sub DC_1_Click(sender As Object, e As EventArgs) Handles DC_1.Click
        只讀一次 = False
    End Sub
    Private Sub DA_2_Click(sender As Object, e As EventArgs) Handles DA_2.Click
        只讀一次 = False
    End Sub
    Private Sub DB_2_Click(sender As Object, e As EventArgs) Handles DB_2.Click
        只讀一次 = False
    End Sub
    Private Sub DC_2_Click(sender As Object, e As EventArgs) Handles DC_2.Click
        只讀一次 = False
    End Sub
    Private Sub DA_3_Click(sender As Object, e As EventArgs) Handles DA_3.Click
        只讀一次 = False
    End Sub
    Private Sub DB_3_Click(sender As Object, e As EventArgs) Handles DB_3.Click
        只讀一次 = False
    End Sub
    Private Sub DC_3_Click(sender As Object, e As EventArgs) Handles DC_3.Click
        只讀一次 = False
    End Sub
    Private Sub DA_4_Click(sender As Object, e As EventArgs) Handles DA_4.Click
        只讀一次 = False
    End Sub
    Private Sub DB_4_Click(sender As Object, e As EventArgs) Handles DB_4.Click
        只讀一次 = False
    End Sub
    Private Sub DC_4_Click(sender As Object, e As EventArgs) Handles DC_4.Click
        只讀一次 = False
    End Sub
    Private Sub DA_5_Click(sender As Object, e As EventArgs) Handles DA_5.Click
        只讀一次 = False
    End Sub
    Private Sub DB_5_Click(sender As Object, e As EventArgs) Handles DB_5.Click
        只讀一次 = False
    End Sub
    Private Sub DC_5_Click(sender As Object, e As EventArgs) Handles DC_5.Click
        只讀一次 = False
    End Sub
    Private Sub DA_1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DA_1.SelectedIndexChanged
        CA_1.Text = DA_1.Text : CB_1.Text = DB_1.Items(DA_1.SelectedIndex).ToString() : CC_1.Text = DC_1.Items(DA_1.SelectedIndex).ToString()
        If 只讀一次 = False Then : 只讀一次 = True : 新群組碼2() : End If
        DA_3.Items.Clear() : DB_3.Items.Clear() : DC_3.Items.Clear()
        DA_4.Items.Clear() : DB_4.Items.Clear() : DC_4.Items.Clear()
        DA_5.Items.Clear() : DB_5.Items.Clear() : DC_5.Items.Clear()
        DB_1.SelectedIndex = DA_1.SelectedIndex : DC_1.SelectedIndex = DA_1.SelectedIndex
        載入新群組碼(DA_1.Text, DA_2.Text, DA_3.Text, DA_4.Text, DA_5.Text)
    End Sub
    Private Sub DB_1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DB_1.SelectedIndexChanged
        CA_1.Text = DA_1.Items(DB_1.SelectedIndex).ToString() : CB_1.Text = DB_1.Text : CC_1.Text = DC_1.Items(DB_1.SelectedIndex).ToString()
        If 只讀一次 = False Then : 只讀一次 = True : 新群組碼2() : End If
        DA_3.Items.Clear() : DB_3.Items.Clear() : DC_3.Items.Clear()
        DA_4.Items.Clear() : DB_4.Items.Clear() : DC_4.Items.Clear()
        DA_5.Items.Clear() : DB_5.Items.Clear() : DC_5.Items.Clear()
        DA_1.SelectedIndex = DB_1.SelectedIndex : DC_1.SelectedIndex = DB_1.SelectedIndex
        載入新群組碼(DB_1.Text, DB_2.Text, DB_3.Text, DB_4.Text, DB_5.Text)
    End Sub
    Private Sub DC_1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DC_1.SelectedIndexChanged
        CA_1.Text = DA_1.Items(DC_1.SelectedIndex).ToString() : CB_1.Text = DB_1.Items(DC_1.SelectedIndex).ToString() : CC_1.Text = DC_1.Text
        If 只讀一次 = False Then : 只讀一次 = True : 新群組碼2() : End If
        DA_3.Items.Clear() : DB_3.Items.Clear() : DC_3.Items.Clear()
        DA_4.Items.Clear() : DB_4.Items.Clear() : DC_4.Items.Clear()
        DA_5.Items.Clear() : DB_5.Items.Clear() : DC_5.Items.Clear()
        DA_1.SelectedIndex = DC_1.SelectedIndex : DB_1.SelectedIndex = DC_1.SelectedIndex
        載入新群組碼(DC_1.Text, DC_2.Text, DC_3.Text, DC_4.Text, DC_5.Text)
    End Sub
    Private Sub DA_2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DA_2.SelectedIndexChanged
        CA_2.Text = DA_2.Text : CB_2.Text = DB_2.Items(DA_2.SelectedIndex).ToString() : CC_2.Text = DC_2.Items(DA_2.SelectedIndex).ToString()
        If 只讀一次 = False Then : 只讀一次 = True : 新群組碼3() : End If
        DA_4.Items.Clear() : DB_4.Items.Clear() : DC_4.Items.Clear()
        DA_5.Items.Clear() : DB_5.Items.Clear() : DC_5.Items.Clear()
        DB_2.SelectedIndex = DA_2.SelectedIndex : DC_2.SelectedIndex = DA_2.SelectedIndex
        載入新群組碼(DA_1.Text, DA_2.Text, DA_3.Text, DA_4.Text, DA_5.Text)
    End Sub
    Private Sub DB_2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DB_2.SelectedIndexChanged
        CA_2.Text = DA_2.Items(DB_2.SelectedIndex).ToString() : CB_2.Text = DB_2.Text : CC_2.Text = DC_2.Items(DB_2.SelectedIndex).ToString()
        If 只讀一次 = False Then : 只讀一次 = True : 新群組碼3() : End If
        DA_4.Items.Clear() : DB_4.Items.Clear() : DC_4.Items.Clear()
        DA_5.Items.Clear() : DB_5.Items.Clear() : DC_5.Items.Clear()
        DA_2.SelectedIndex = DB_2.SelectedIndex : DC_2.SelectedIndex = DB_2.SelectedIndex
        載入新群組碼(DB_1.Text, DB_2.Text, DB_3.Text, DB_4.Text, DB_5.Text)
    End Sub
    Private Sub DC_2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DC_2.SelectedIndexChanged
        CA_2.Text = DA_2.Items(DC_2.SelectedIndex).ToString() : CB_2.Text = DB_2.Items(DC_2.SelectedIndex).ToString() : CC_2.Text = DC_2.Text
        If 只讀一次 = False Then : 只讀一次 = True : 新群組碼3() : End If
        DA_4.Items.Clear() : DB_4.Items.Clear() : DC_4.Items.Clear()
        DA_5.Items.Clear() : DB_5.Items.Clear() : DC_5.Items.Clear()
        DA_2.SelectedIndex = DC_2.SelectedIndex : DB_2.SelectedIndex = DC_2.SelectedIndex
        載入新群組碼(DC_1.Text, DC_2.Text, DC_3.Text, DC_4.Text, DC_5.Text)
    End Sub
    Private Sub DA_3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DA_3.SelectedIndexChanged
        CA_3.Text = DA_3.Text : CB_3.Text = DB_3.Items(DA_3.SelectedIndex).ToString() : CC_3.Text = DC_3.Items(DA_3.SelectedIndex).ToString()
        If 只讀一次 = False Then : 只讀一次 = True : 新群組碼4() : End If
        DA_5.Items.Clear() : DB_5.Items.Clear() : DC_5.Items.Clear()
        DB_3.SelectedIndex = DA_3.SelectedIndex : DC_3.SelectedIndex = DA_3.SelectedIndex
        載入新群組碼(DA_1.Text, DA_2.Text, DA_3.Text, DA_4.Text, DA_5.Text)
    End Sub
    Private Sub DB_3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DB_3.SelectedIndexChanged
        CA_3.Text = DA_3.Items(DB_3.SelectedIndex).ToString() : CB_3.Text = DB_3.Text : CC_3.Text = DC_3.Items(DB_3.SelectedIndex).ToString()
        If 只讀一次 = False Then : 只讀一次 = True : 新群組碼4() : End If
        DA_5.Items.Clear() : DB_5.Items.Clear() : DC_5.Items.Clear()
        DA_3.SelectedIndex = DB_3.SelectedIndex : DC_3.SelectedIndex = DB_3.SelectedIndex
        載入新群組碼(DB_1.Text, DB_2.Text, DB_3.Text, DB_4.Text, DB_5.Text)
    End Sub
    Private Sub DC_3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DC_3.SelectedIndexChanged
        CA_3.Text = DA_3.Items(DC_3.SelectedIndex).ToString() : CB_3.Text = DB_3.Items(DC_3.SelectedIndex).ToString() : CC_3.Text = DC_3.Text
        If 只讀一次 = False Then : 只讀一次 = True : 新群組碼4() : End If
        DA_5.Items.Clear() : DB_5.Items.Clear() : DC_5.Items.Clear()
        DA_3.SelectedIndex = DC_3.SelectedIndex : DB_3.SelectedIndex = DC_3.SelectedIndex
        載入新群組碼(DC_1.Text, DC_2.Text, DC_3.Text, DC_4.Text, DC_5.Text)
    End Sub
    Private Sub DA_4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DA_4.SelectedIndexChanged
        CA_4.Text = DA_4.Text : CB_4.Text = DB_4.Items(DA_4.SelectedIndex).ToString() : CC_4.Text = DC_4.Items(DA_4.SelectedIndex).ToString()
        If 只讀一次 = False Then : 只讀一次 = True : 新群組碼5() : End If
        DB_4.SelectedIndex = DA_4.SelectedIndex : DC_4.SelectedIndex = DA_4.SelectedIndex
        載入新群組碼(DA_1.Text, DA_2.Text, DA_3.Text, DA_4.Text, DA_5.Text)
    End Sub
    Private Sub DB_4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DB_4.SelectedIndexChanged
        CA_4.Text = DA_4.Items(DB_4.SelectedIndex).ToString() : CB_4.Text = DB_4.Text : CC_4.Text = DC_4.Items(DB_4.SelectedIndex).ToString()
        If 只讀一次 = False Then : 只讀一次 = True : 新群組碼5() : End If
        DA_4.SelectedIndex = DB_4.SelectedIndex : DC_4.SelectedIndex = DB_4.SelectedIndex
        載入新群組碼(DB_1.Text, DB_2.Text, DB_3.Text, DB_4.Text, DB_5.Text)
    End Sub
    Private Sub DC_4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DC_4.SelectedIndexChanged
        CA_4.Text = DA_4.Items(DC_4.SelectedIndex).ToString() : CB_4.Text = DB_4.Items(DC_4.SelectedIndex).ToString() : CC_4.Text = DC_4.Text
        If 只讀一次 = False Then : 只讀一次 = True : 新群組碼5() : End If
        DA_4.SelectedIndex = DC_4.SelectedIndex : DB_4.SelectedIndex = DC_4.SelectedIndex
        載入新群組碼(DC_1.Text, DC_2.Text, DC_3.Text, DC_4.Text, DC_5.Text)
    End Sub
    Private Sub DA_5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DA_5.SelectedIndexChanged
        CA_5.Text = DA_5.Text : CB_5.Text = DB_5.Items(DA_5.SelectedIndex).ToString() : CC_5.Text = DC_5.Items(DA_5.SelectedIndex).ToString()
        DB_5.SelectedIndex = DA_5.SelectedIndex : DC_5.SelectedIndex = DA_5.SelectedIndex
        載入新群組碼(DA_1.Text, DA_2.Text, DA_3.Text, DA_4.Text, DA_5.Text)
    End Sub
    Private Sub DB_5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DB_5.SelectedIndexChanged
        CA_5.Text = DA_5.Items(DB_5.SelectedIndex).ToString() : CB_5.Text = DB_5.Text : CC_5.Text = DC_5.Items(DB_5.SelectedIndex).ToString()
        DA_5.SelectedIndex = DB_5.SelectedIndex : DC_5.SelectedIndex = DB_5.SelectedIndex
        載入新群組碼(DB_1.Text, DB_2.Text, DB_3.Text, DB_4.Text, DB_5.Text)
    End Sub
    Private Sub DC_5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DC_5.SelectedIndexChanged
        CA_5.Text = DA_5.Text : CB_5.Text = DB_5.Items(DA_5.SelectedIndex).ToString() : CC_5.Text = DC_5.Items(DA_5.SelectedIndex).ToString()
        DB_5.SelectedIndex = DA_5.SelectedIndex : DC_5.SelectedIndex = DA_5.SelectedIndex
        載入新群組碼(DC_1.Text, DC_2.Text, DC_3.Text, DC_4.Text, DC_5.Text)
    End Sub
    Private Sub 物料新群組_語言_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 物料新群組_語言_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2)
        If e.RowIndex = 物料新群組_語言_dgv.Rows.Count - 1 Then : Exit Sub : Else
            If 物料新群組_語言_dgv(2, e.RowIndex).Value.ToString <> 物料新群組_語言_dgv(2, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(物料新群組_語言_dgv.RowHeadersVisible, 物料新群組_語言_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 物料新群組_語言_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 物料新群組_語言_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
            End If
        End If
        Dim linePen1 As New Pen(Color.Red, 2)
        If e.RowIndex = 物料新群組_語言_dgv.Rows.Count - 1 Then : Exit Sub : Else
            If 物料新群組_語言_dgv(3, e.RowIndex).Value.ToString <> 物料新群組_語言_dgv(3, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(物料新群組_語言_dgv.RowHeadersVisible, 物料新群組_語言_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 物料新群組_語言_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 物料新群組_語言_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
            End If
        End If
        Dim linePen2 As New Pen(Color.Green, 2)
        If e.RowIndex = 物料新群組_語言_dgv.Rows.Count - 1 Then : Exit Sub : Else
            If 物料新群組_語言_dgv(4, e.RowIndex).Value.ToString <> 物料新群組_語言_dgv(4, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(物料新群組_語言_dgv.RowHeadersVisible, 物料新群組_語言_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 物料新群組_語言_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 物料新群組_語言_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen2, startX, startY, endX, startY) : Exit Sub
            End If
        End If
    End Sub
    Private Sub 物料編碼()
        算式_tb.Text = 物料編碼_dgv(11, R位置).Value.ToString
        規格修改 = True : 算式_tb.Text = 物料編碼_dgv(11, R位置).Value.ToString
        物料原則_tb.Text = 物料編碼_dgv(1, R位置).Value.ToString : 料號原則_tb.Text = 物料編碼_dgv(1, R位置).Value.ToString
        群組碼1_tb.Text = 物料編碼_dgv(7, R位置).Value.ToString : 原則說明異動 = 物料編碼_dgv(2, R位置).Value.ToString
        新群組編號_tb.Text = 物料編碼_dgv(8, R位置).Value.ToString : 舊群組_cb.Text = 群組碼1_tb.Text
        規格庫抬頭指定_tb.Text = 物料編碼_dgv(10, R位置).Value.ToString : 是否有資料 = False
        For i As Integer = 0 To 物料品名_語轉_dgv.Rows.Count - 1
            If 物料品名_語轉_dgv(1, i).Value.ToString = 物料原則_tb.Text Then
                If 物料品名_語轉_dgv(1, i).Value.ToString = 物料原則_tb.Text And 物料品名_語轉_dgv(2, i).Value.ToString = "繁體中文" Then
                    品名1_tb.Text = 物料品名_語轉_dgv(3, i).Value.ToString()
                ElseIf 物料品名_語轉_dgv(1, i).Value.ToString = 物料原則_tb.Text And 物料品名_語轉_dgv(2, i).Value.ToString = "English" Then
                    品名2_tb.Text = 物料品名_語轉_dgv(3, i).Value.ToString()
                ElseIf 物料品名_語轉_dgv(1, i).Value.ToString = 物料原則_tb.Text And 物料品名_語轉_dgv(2, i).Value.ToString = "Indonesian" Then
                    品名3_tb.Text = 物料品名_語轉_dgv(3, i).Value.ToString()
                End If : 是否有資料 = True
            End If
        Next : KKK1 = 物料編碼_dgv(表頭(63), R位置).Value.ToString : PA2 = KKK1 : 讀取料號規格_01() : 讀取料號規格_02() : 工資計算()
    End Sub
    Private Sub 工資計算()
        For G As Integer = 0 To 物料明細1_dgv.Rows.Count - 1
            If 算式_tb.Text <> "" Then
                Try
                    Dim A As String = 算式_tb.Text : If A.StartsWith("=") Then : A = A.Substring(1) : End If
                    Dim PP(99) As Integer : Dim pattern As String = "[AB]\[(\d+)\]"
                    Dim regex As New Regex(pattern) : Dim matches As MatchCollection = regex.Matches(A) : Dim SD As Integer = 0
                    Dim values(99) As Double
                    For Each match As Match In matches
                        Dim index As Integer = Integer.Parse(match.Groups(1).Value) : Dim cellValue As Double
                        If match.Value.StartsWith("A") Then : cellValue = 單位去除模組.轉換為雙精確度(物料明細1_dgv.Rows(G).Cells(index + 3).Value.ToString())
                        ElseIf match.Value.StartsWith("B") Then : cellValue = 單位去除模組.轉換為雙精確度(物料明細1_dgv.Rows(G).Cells(index + 23).Value.ToString())
                        End If : values(SD) = cellValue : SD += 1
                    Next : Dim replacedA As String = A
                    For i As Integer = 0 To SD - 1 : replacedA = replacedA.Replace(matches(i).Value, values(i).ToString()) : Next
                    Console.WriteLine(replacedA) : Dim dt As New DataTable() : dt.Columns.Add("Result", GetType(Double)) : dt.Rows.Add(dt.Compute(replacedA, ""))
                    物料明細1_dgv.Rows(G).Cells(27).Value = Strings.Format(CDbl(Convert.ToDouble(dt.Rows(0)("Result"))), "#,##0")
                Catch ex As Exception : 物料明細1_dgv.Rows(G).Cells(27).Value = "公式有誤" : End Try
            End If
        Next
    End Sub
    Private Sub 物料編碼_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料編碼_dgv.CellClick
        Dim 大於一次 As Integer = 0
        For i As Integer = 0 To 物料明細1_dgv.Rows.Count - 1
            If CDbl(物料明細_dgv(24, i).Value.ToString) <> CDbl(物料明細1_dgv(24, i).Value.ToString) Or
               CDbl(物料明細_dgv(25, i).Value.ToString) <> CDbl(物料明細1_dgv(25, i).Value.ToString) Or
               CDbl(物料明細_dgv(26, i).Value.ToString) <> CDbl(物料明細1_dgv(26, i).Value.ToString) Then
                大於一次 += 1
            End If
        Next
        If 大於一次 > 0 Then
            SQL_物料資料庫公式存檔(物料編碼_dgv(11, R位置).Value.ToString, 物料編碼_dgv(1, R位置).Value.ToString)
            For i As Integer = 0 To 物料明細1_dgv.Rows.Count - 1
                SQL_物料規格表係數存檔(物料明細1_dgv(24, i).Value.ToString, 物料明細1_dgv(25, i).Value.ToString, 物料明細1_dgv(26, i).Value.ToString, 物料明細1_dgv(2, i).Value.ToString)
            Next : Set_清單1()
        End If
        If e.RowIndex = -1 Then : Else : R位置 = e.RowIndex : 物料編碼() : End If
    End Sub
    Private Sub 物料編碼_dgv_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles 物料編碼_dgv.CellEndEdit
        Dim 大於一次 As Integer = 0
        For i As Integer = 0 To 物料明細1_dgv.Rows.Count - 1
            If CDbl(物料明細_dgv(24, i).Value.ToString) <> CDbl(物料明細1_dgv(24, i).Value.ToString) Or
               CDbl(物料明細_dgv(25, i).Value.ToString) <> CDbl(物料明細1_dgv(25, i).Value.ToString) Or
               CDbl(物料明細_dgv(26, i).Value.ToString) <> CDbl(物料明細1_dgv(26, i).Value.ToString) Then
                大於一次 += 1
            End If
        Next
        If 大於一次 > 0 Then
            SQL_物料資料庫公式存檔(物料編碼_dgv(11, R位置).Value.ToString, 物料編碼_dgv(1, R位置).Value.ToString)
            For i As Integer = 0 To 物料明細1_dgv.Rows.Count - 1
                SQL_物料規格表係數存檔(物料明細1_dgv(24, i).Value.ToString, 物料明細1_dgv(25, i).Value.ToString, 物料明細1_dgv(26, i).Value.ToString, 物料明細1_dgv(2, i).Value.ToString)
            Next : Set_清單1()
        End If
        If e.RowIndex = -1 Then : Else : R位置 = e.RowIndex : 物料編碼() : End If
    End Sub
    Private Sub 物料明細1_dgv_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles 物料明細1_dgv.CellEndEdit
        If e.RowIndex = -1 Then : Else : 工資計算() : 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(0, e.RowIndex).Value.ToString : 群組碼1_tb.Text = 物料群組_dgv(0, e.RowIndex).Value.ToString
        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 : If 已開啟 Then : Set_清單1() : End If
    End Sub
    Private Sub 中間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距_ch.Click
        小間距_ch.Checked = False : 中間距_ch.Checked = True : 大間距_ch.Checked = False : If 已開啟 Then : Set_清單1() : End If
    End Sub
    Private Sub 大間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距_ch.Click
        小間距_ch.Checked = False : 中間距_ch.Checked = False : 大間距_ch.Checked = True : If 已開啟 Then : Set_清單1() : End If
    End Sub
    Private Sub 讀取料號規格_01()
        SQL_物料資訊控制表_原則查詢()
        If dr.Read() Then
            KKK2 = dr("規格庫編號") : PA = KKK2 : KKK3 = dr("規格庫抬頭指定") : PA3 = KKK3 : KKK4 = dr("群組碼") : PA1 = KKK4
        End If : conn.Close()

        SQL_規格庫抬頭讀取()
        If dr.Read() Then
            AAA1 = dr("A1") : PA4 = dr("A1") : AAA2 = dr("A2") : PA5 = dr("A2") : AAA3 = dr("A3") : PA6 = dr("A3") : AAA4 = dr("A4") : PA7 = dr("A4")
            AAA5 = dr("A5") : PA8 = dr("A5") : AAA6 = dr("A6") : PA9 = dr("A6") : AAA7 = dr("A7") : PA10 = dr("A7") : AAA8 = dr("A8") : PA11 = dr("A8")
        End If : conn.Close()
    End Sub
    Private Sub 讀取料號規格_02()
        Dim ds2 As New DataSet : ds2.Clear() : 物料明細_dgv.DataSource = Nothing
        物料明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料明細_dgv.ColumnHeadersHeight = 25 : 物料明細_dgv.AllowUserToAddRows = False
        Dim ds3 As New DataSet : ds3.Clear() : 物料明細1_dgv.DataSource = Nothing
        物料明細1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料明細1_dgv.ColumnHeadersHeight = 25 : 物料明細1_dgv.AllowUserToAddRows = False
        SQL_物料規格表_物料清單1()
        da.Fill(ds3) : 物料明細1_dgv.DataSource = ds3.Tables(0) : conn.Close()
        SQL_物料規格表_物料清單2()
        da.Fill(ds2) : 物料明細_dgv.DataSource = ds2.Tables(0) : conn.Close()
        物料明細_dgv.Columns(0).Visible = False : 物料明細_dgv.Columns(1).Visible = False : 物料明細_dgv.Columns(2).Visible = False : 物料明細_dgv.Columns(3).Visible = False
        物料明細_dgv.Columns(12).Visible = False : 物料明細_dgv.Columns(2).Width = 135 : 物料明細_dgv.Columns(13).Visible = False : 物料明細_dgv.Columns(14).Visible = False
        物料明細_dgv.Columns(15).Visible = False : 物料明細_dgv.Columns(16).Visible = False : 物料明細_dgv.Columns(17).Visible = False : 物料明細_dgv.Columns(18).Visible = False
        物料明細_dgv.Columns(19).Visible = False : 物料明細_dgv.Columns(20).Visible = False : 物料明細_dgv.Columns(21).Visible = False : 物料明細_dgv.Columns(22).Visible = False
        物料明細_dgv.Columns(23).Visible = False

        物料明細1_dgv.Columns(0).Visible = False : 物料明細1_dgv.Columns(1).Visible = False : 物料明細1_dgv.Columns(2).Visible = False : 物料明細1_dgv.Columns(3).Visible = False
        物料明細1_dgv.Columns(12).Visible = False : 物料明細1_dgv.Columns(2).Width = 135 : 物料明細1_dgv.Columns(13).Visible = False : 物料明細1_dgv.Columns(14).Visible = False
        物料明細1_dgv.Columns(15).Visible = False : 物料明細1_dgv.Columns(16).Visible = False : 物料明細1_dgv.Columns(17).Visible = False : 物料明細1_dgv.Columns(18).Visible = False
        物料明細1_dgv.Columns(19).Visible = False : 物料明細1_dgv.Columns(20).Visible = False : 物料明細1_dgv.Columns(21).Visible = False : 物料明細1_dgv.Columns(22).Visible = False
        物料明細1_dgv.Columns(23).Visible = False
        物料明細1_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        For i As Integer = 0 To 物料明細_dgv.Columns.Count - 1 : 物料明細_dgv.Columns(i).ReadOnly = True : Next
        For i As Integer = 0 To 物料明細1_dgv.Columns.Count - 1 : 物料明細1_dgv.Columns(i).ReadOnly = True : Next
        物料明細1_dgv.Columns(24).ReadOnly = False : 物料明細1_dgv.Columns(25).ReadOnly = False : 物料明細1_dgv.Columns(26).ReadOnly = False
        物料明細1_dgv.Columns(12).DefaultCellStyle.Format = "#,##0" : 物料明細1_dgv.Columns(14).DefaultCellStyle.Format = "#,##0"
        物料明細1_dgv.Columns(24).DefaultCellStyle.Format = "#,##0.00" : 物料明細1_dgv.Columns(25).DefaultCellStyle.Format = "#,##0.00"
        物料明細1_dgv.Columns(26).DefaultCellStyle.Format = "#,##0.00"
        物料明細1_dgv.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料明細1_dgv.Columns(14).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料明細1_dgv.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料明細1_dgv.Columns(14).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

        If KKK2 = "SQLB03" Then
            物料明細_dgv.Columns(7).Visible = False : 物料明細_dgv.Columns(8).Visible = False : 物料明細_dgv.Columns(9).Visible = False : 物料明細_dgv.Columns(10).Visible = False
            物料明細_dgv.Columns(11).Visible = False
            物料明細_dgv.Columns(4).FillWeight = 213 : 物料明細_dgv.Columns(5).FillWeight = 213 : 物料明細_dgv.Columns(6).FillWeight = 214
            物料明細_dgv.Columns(24).FillWeight = 214 : 物料明細_dgv.Columns(25).FillWeight = 214 : 物料明細_dgv.Columns(26).FillWeight = 214 : 物料明細_dgv.Columns(27).FillWeight = 214

            物料明細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
            物料明細1_dgv.Columns(24).FillWeight = 214 : 物料明細1_dgv.Columns(25).FillWeight = 214 : 物料明細1_dgv.Columns(26).FillWeight = 214 : 物料明細1_dgv.Columns(27).FillWeight = 214
        ElseIf KKK2 = "SQLB04" Then
            物料明細_dgv.Columns(7).Visible = True : 物料明細_dgv.Columns(8).Visible = False : 物料明細_dgv.Columns(9).Visible = False : 物料明細_dgv.Columns(10).Visible = False
            物料明細_dgv.Columns(11).Visible = False
            物料明細_dgv.Columns(4).FillWeight = 160 : 物料明細_dgv.Columns(5).FillWeight = 160 : 物料明細_dgv.Columns(6).FillWeight = 160 : 物料明細_dgv.Columns(7).FillWeight = 160
            物料明細_dgv.Columns(24).FillWeight = 160 : 物料明細_dgv.Columns(25).FillWeight = 160 : 物料明細_dgv.Columns(26).FillWeight = 160 : 物料明細_dgv.Columns(27).FillWeight = 160

            物料明細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
            物料明細1_dgv.Columns(24).FillWeight = 160 : 物料明細1_dgv.Columns(25).FillWeight = 160 : 物料明細1_dgv.Columns(26).FillWeight = 160 : 物料明細1_dgv.Columns(27).FillWeight = 160
        ElseIf KKK2 = "SQLB05" Then
            物料明細_dgv.Columns(7).Visible = True : 物料明細_dgv.Columns(8).Visible = True : 物料明細_dgv.Columns(9).Visible = False : 物料明細_dgv.Columns(10).Visible = False
            物料明細_dgv.Columns(11).Visible = False
            物料明細_dgv.Columns(4).FillWeight = 128 : 物料明細_dgv.Columns(5).FillWeight = 128 : 物料明細_dgv.Columns(6).FillWeight = 128 : 物料明細_dgv.Columns(7).FillWeight = 128
            物料明細_dgv.Columns(8).FillWeight = 128
            物料明細_dgv.Columns(24).FillWeight = 128 : 物料明細_dgv.Columns(25).FillWeight = 128 : 物料明細_dgv.Columns(26).FillWeight = 128 : 物料明細_dgv.Columns(27).FillWeight = 128

            物料明細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
            物料明細1_dgv.Columns(24).FillWeight = 128 : 物料明細1_dgv.Columns(25).FillWeight = 128 : 物料明細1_dgv.Columns(26).FillWeight = 128 : 物料明細1_dgv.Columns(27).FillWeight = 128
        ElseIf KKK2 = "SQLB06" Then
            物料明細_dgv.Columns(7).Visible = True : 物料明細_dgv.Columns(8).Visible = True : 物料明細_dgv.Columns(9).Visible = True : 物料明細_dgv.Columns(10).Visible = False
            物料明細_dgv.Columns(11).Visible = False
            物料明細_dgv.Columns(4).FillWeight = 106 : 物料明細_dgv.Columns(5).FillWeight = 107 : 物料明細_dgv.Columns(6).FillWeight = 106 : 物料明細_dgv.Columns(7).FillWeight = 107
            物料明細_dgv.Columns(8).FillWeight = 106 : 物料明細_dgv.Columns(9).FillWeight = 108
            物料明細_dgv.Columns(24).FillWeight = 106 : 物料明細_dgv.Columns(25).FillWeight = 106 : 物料明細_dgv.Columns(26).FillWeight = 106 : 物料明細_dgv.Columns(27).FillWeight = 106

            物料明細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
            物料明細1_dgv.Columns(24).FillWeight = 106 : 物料明細1_dgv.Columns(25).FillWeight = 106 : 物料明細1_dgv.Columns(26).FillWeight = 106 : 物料明細1_dgv.Columns(27).FillWeight = 106
        ElseIf KKK2 = "SQLB07" Then
            物料明細_dgv.Columns(7).Visible = True : 物料明細_dgv.Columns(8).Visible = True : 物料明細_dgv.Columns(9).Visible = True : 物料明細_dgv.Columns(10).Visible = True
            物料明細_dgv.Columns(11).Visible = False
            物料明細_dgv.Columns(4).FillWeight = 91 : 物料明細_dgv.Columns(5).FillWeight = 92 : 物料明細_dgv.Columns(6).FillWeight = 91 : 物料明細_dgv.Columns(7).FillWeight = 92
            物料明細_dgv.Columns(8).FillWeight = 91 : 物料明細_dgv.Columns(9).FillWeight = 92 : 物料明細_dgv.Columns(10).FillWeight = 91
            物料明細_dgv.Columns(24).FillWeight = 91 : 物料明細_dgv.Columns(25).FillWeight = 91 : 物料明細_dgv.Columns(26).FillWeight = 91 : 物料明細_dgv.Columns(27).FillWeight = 91

            物料明細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
            物料明細1_dgv.Columns(24).FillWeight = 91 : 物料明細1_dgv.Columns(25).FillWeight = 91 : 物料明細1_dgv.Columns(26).FillWeight = 91 : 物料明細1_dgv.Columns(27).FillWeight = 91
        ElseIf KKK2 = "SQLB08" Then
            物料明細_dgv.Columns(7).Visible = True : 物料明細_dgv.Columns(8).Visible = True : 物料明細_dgv.Columns(9).Visible = True : 物料明細_dgv.Columns(10).Visible = True
            物料明細_dgv.Columns(11).Visible = True
            物料明細_dgv.Columns(4).FillWeight = 80 : 物料明細_dgv.Columns(5).FillWeight = 80 : 物料明細_dgv.Columns(6).FillWeight = 80 : 物料明細_dgv.Columns(7).FillWeight = 80
            物料明細_dgv.Columns(8).FillWeight = 80 : 物料明細_dgv.Columns(9).FillWeight = 80 : 物料明細_dgv.Columns(10).FillWeight = 80 : 物料明細_dgv.Columns(11).FillWeight = 80
            物料明細_dgv.Columns(24).FillWeight = 80 : 物料明細_dgv.Columns(25).FillWeight = 80 : 物料明細_dgv.Columns(26).FillWeight = 80 : 物料明細_dgv.Columns(27).FillWeight = 80

            物料明細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
            物料明細1_dgv.Columns(24).FillWeight = 80 : 物料明細1_dgv.Columns(25).FillWeight = 80 : 物料明細1_dgv.Columns(26).FillWeight = 80 : 物料明細1_dgv.Columns(27).FillWeight = 80
        End If
        For I As Integer = 0 To 物料明細1_dgv.Rows.Count - 1 : 物料明細1_dgv(15, I).Value = I + 1
            If IsDBNull(物料明細1_dgv(24, I).Value) = True Then : 物料明細_dgv(24, I).Value = 1 : 物料明細1_dgv(24, I).Value = 1 : End If
            If IsDBNull(物料明細1_dgv(25, I).Value) = True Then : 物料明細_dgv(25, I).Value = 1 : 物料明細1_dgv(25, I).Value = 1 : End If
            If IsDBNull(物料明細1_dgv(26, I).Value) = True Then : 物料明細_dgv(26, I).Value = 1 : 物料明細1_dgv(26, I).Value = 1 : End If
            If 算式_tb.Text = "" Then : 物料明細1_dgv(27, I).Value = 0 : End If
        Next
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H527" : 語言轉換讀取()
        Set_物料群組_語轉() : Set_物料群組() : Set_清單1() : Set_物料新群組_語轉() : 切換DA()
    End Sub
    Private Sub 存檔()
        Dim 大於一次 As Integer = 0
        For i As Integer = 0 To 物料編碼_dgv.Rows.Count - 1
            If 物料編碼_dgv(11, i).Value.ToString <> 物料編碼1_dgv(11, i).Value.ToString Then
                大於一次 += 1
            End If
        Next
        If 大於一次 = 1 Then
            SQL_物料資料庫公式存檔(物料編碼_dgv(11, R位置).Value.ToString, 物料編碼_dgv(1, R位置).Value.ToString)
            For i As Integer = 0 To 物料明細1_dgv.Rows.Count - 1
                SQL_物料規格表係數存檔(物料明細1_dgv(24, i).Value.ToString, 物料明細1_dgv(25, i).Value.ToString, 物料明細1_dgv(26, i).Value.ToString, 物料明細1_dgv(2, i).Value.ToString)
            Next : Set_清單1() : MGB(系統語言字典("G000-119-" & 語言), 1)
        ElseIf 大於一次 > 1 Then
            For i As Integer = 0 To 物料編碼_dgv.Rows.Count - 1
                SQL_物料資料庫公式存檔(物料編碼_dgv(11, i).Value.ToString, 物料編碼_dgv(1, i).Value.ToString)
            Next : Set_清單1() : MGB(系統語言字典("G000-119-" & 語言), 1)
        End If
    End Sub
    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
        存檔()
    End Sub
End Class