MAOJI-ERP-SYS-LEEHSIEHJUI/MaoOrange-Hongji/業務系統管理/訂單出貨控制表.vb

Option Strict Off
Public Class 訂單出貨控制表
    ReadOnly ds2 As New DataSet : ReadOnly ds1 As New DataSet
    Dim EDR As Integer = 0 : Dim ESTR As String : Dim HHJJ As String : Dim 核對比數 As Integer : Dim 核對比數2 As Integer
    Private Sub Set_訂單清單()
        訂單明細_dgv.DataSource = Nothing : ds2.Clear()
        訂單明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        訂單明細_dgv.ColumnHeadersHeight = 50
        訂單明細_dgv.AllowUserToAddRows = False
        訂單明細_dgv.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText
        訂單明細_dgv.MultiSelect = True
        SQL_訂單出貨控制表清單()
        da.Fill(ds2) : 訂單明細_dgv.DataSource = ds2.Tables(0) : conn.Close() : Set_grid()
    End Sub
    Private Sub Set_grid()
        訂單明細_dgv.Columns(0).FillWeight = 120 : 訂單明細_dgv.Columns(1).Visible = False : 訂單明細_dgv.Columns(2).FillWeight = 60 : 訂單明細_dgv.Columns(3).Visible = False
        訂單明細_dgv.Columns(4).FillWeight = 200 : 訂單明細_dgv.Columns(5).FillWeight = 40 : 訂單明細_dgv.Columns(6).FillWeight = 60 : 訂單明細_dgv.Columns(7).FillWeight = 60
        訂單明細_dgv.Columns(8).FillWeight = 60 : 訂單明細_dgv.Columns(9).FillWeight = 40 : 訂單明細_dgv.Columns(10).FillWeight = 120 : 訂單明細_dgv.Columns(11).FillWeight = 120
        訂單明細_dgv.Columns(12).Visible = False : 訂單明細_dgv.Columns(13).FillWeight = 200 : 訂單明細_dgv.Columns(14).Visible = False : 訂單明細_dgv.Columns(15).FillWeight = 45
        訂單明細_dgv.Columns(16).Visible = False : 訂單明細_dgv.Columns(17).FillWeight = 40 : 訂單明細_dgv.Columns(18).Visible = False

        If 隱藏_ch.Checked = True Then
            訂單明細_dgv.Columns(6).Visible = False : 訂單明細_dgv.Columns(7).Visible = False : 訂單明細_dgv.Columns(8).Visible = False : 訂單明細_dgv.Columns(13).Visible = False
        Else
            訂單明細_dgv.Columns(6).Visible = True : 訂單明細_dgv.Columns(7).Visible = True : 訂單明細_dgv.Columns(8).Visible = True : 訂單明細_dgv.Columns(13).Visible = True
        End If

        訂單明細_dgv.Columns(5).DefaultCellStyle.Format = "#,##0" : 訂單明細_dgv.Columns(15).DefaultCellStyle.Format = "#,##0"
        訂單明細_dgv.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 訂單明細_dgv.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        訂單明細_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 訂單明細_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        訂單明細_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 訂單明細_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        訂單明細_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 訂單明細_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        訂單明細_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 訂單明細_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        訂單明細_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 訂單明細_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        訂單明細_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 訂單明細_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        訂單明細_dgv.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 訂單明細_dgv.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        訂單明細_dgv.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 訂單明細_dgv.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        訂單明細_dgv.Columns(15).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 訂單明細_dgv.Columns(15).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        訂單明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        For I As Integer = 0 To 17
            If I = 15 Then : Else
                訂單明細_dgv.Columns(I).ReadOnly = True
            End If
        Next
        For i As Integer = 0 To 訂單明細_dgv.Rows.Count - 1 : 訂單明細_dgv.Rows(i).Cells("比對有貨").Value = False : Next
    End Sub
    Private Sub Set_清單()
        庫存清單_dgv.DataSource = Nothing : ds1.Clear()
        庫存清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        庫存清單_dgv.ColumnHeadersHeight = 50
        庫存清單_dgv.AllowUserToAddRows = False
        庫存清單_dgv.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText
        庫存清單_dgv.MultiSelect = True
        SQL_訂單出貨控制表_庫存表()
        da.Fill(ds1) : 庫存清單_dgv.DataSource = ds1.Tables(0) : conn.Close()

        庫存清單_dgv.Columns(0).FillWeight = 100 : 庫存清單_dgv.Columns(1).Visible = False : 庫存清單_dgv.Columns(2).Visible = False : 庫存清單_dgv.Columns(3).FillWeight = 250
        庫存清單_dgv.Columns(4).Visible = False : 庫存清單_dgv.Columns(5).Visible = False : 庫存清單_dgv.Columns(6).Visible = False : 庫存清單_dgv.Columns(7).FillWeight = 65
        庫存清單_dgv.Columns(8).Visible = False : 庫存清單_dgv.Columns(9).FillWeight = 65 : 庫存清單_dgv.Columns(10).Visible = False : 庫存清單_dgv.Columns(11).FillWeight = 65
        庫存清單_dgv.Columns(12).Visible = False : 庫存清單_dgv.Columns(13).FillWeight = 65 : 庫存清單_dgv.Columns(14).Visible = False

        庫存清單_dgv.Columns(6).DefaultCellStyle.Format = "#,##0" : 庫存清單_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 庫存清單_dgv.Columns(8).DefaultCellStyle.Format = "#,##0"
        庫存清單_dgv.Columns(9).DefaultCellStyle.Format = "#,##0" : 庫存清單_dgv.Columns(10).DefaultCellStyle.Format = "#,##0" : 庫存清單_dgv.Columns(11).DefaultCellStyle.Format = "#,##0"
        庫存清單_dgv.Columns(12).DefaultCellStyle.Format = "#,##0" : 庫存清單_dgv.Columns(13).DefaultCellStyle.Format = "#,##0"
        庫存清單_dgv.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 庫存清單_dgv.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        庫存清單_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 庫存清單_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        庫存清單_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 庫存清單_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        庫存清單_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 庫存清單_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        庫存清單_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 庫存清單_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        庫存清單_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 庫存清單_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        庫存清單_dgv.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 庫存清單_dgv.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        庫存清單_dgv.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 庫存清單_dgv.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        庫存清單_dgv.Columns(13).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 庫存清單_dgv.Columns(13).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

        庫存清單_dgv.Columns(0).ReadOnly = True : 庫存清單_dgv.Columns(3).ReadOnly = True : 庫存清單_dgv.Columns(4).ReadOnly = True : 庫存清單_dgv.Columns(5).ReadOnly = True
        庫存清單_dgv.Columns(6).ReadOnly = True : 庫存清單_dgv.Columns(7).ReadOnly = True : 庫存清單_dgv.Columns(8).ReadOnly = True : 庫存清單_dgv.Columns(9).ReadOnly = True
        庫存清單_dgv.Columns(10).ReadOnly = True : 庫存清單_dgv.Columns(11).ReadOnly = True : 庫存清單_dgv.Columns(12).ReadOnly = True : 庫存清單_dgv.Columns(13).ReadOnly = True

        庫存清單_dgv.Columns(7).DefaultCellStyle.BackColor = Color.MistyRose : 庫存清單_dgv.Columns(8).DefaultCellStyle.BackColor = Color.MistyRose
        庫存清單_dgv.Columns(9).DefaultCellStyle.BackColor = Color.LightYellow : 庫存清單_dgv.Columns(10).DefaultCellStyle.BackColor = Color.LightYellow
        庫存清單_dgv.Columns(11).DefaultCellStyle.BackColor = Color.LightGreen : 庫存清單_dgv.Columns(12).DefaultCellStyle.BackColor = Color.LightGreen
        For i As Integer = 0 To 庫存清單_dgv.Rows.Count - 1
            If 庫存清單_dgv.Rows(i).Cells("未入庫").Value.ToString = "" Then : 庫存清單_dgv.Rows(i).Cells("未入庫").Value = 0 : End If
            If 庫存清單_dgv.Rows(i).Cells("在途成本_台幣").Value.ToString = "" Then : 庫存清單_dgv.Rows(i).Cells("在途成本_台幣").Value = 0 : End If
            If 庫存清單_dgv.Rows(i).Cells("未出庫").Value.ToString = "" Then : 庫存清單_dgv.Rows(i).Cells("未出庫").Value = 0 : End If
            If 庫存清單_dgv.Rows(i).Cells("備貨成本_台幣").Value.ToString = "" Then : 庫存清單_dgv.Rows(i).Cells("備貨成本_台幣").Value = 0 : End If
            庫存清單_dgv.Rows(i).Cells("可領用").Value = 庫存清單_dgv.Rows(i).Cells("庫存").Value - 庫存清單_dgv.Rows(i).Cells("未出庫").Value
        Next
    End Sub
    Private Sub ComboBox5下拉表單資料載入()
        SQL_倉名下拉清單()
        指定倉處_cb.Items.Clear() : While (dr.Read()) : 指定倉處_cb.Items.Add(dr("倉名")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 指定倉處_cb.SelectedIndexChanged
        PA = 指定倉處_cb.Text : SQL_倉名編號取得()
        If dr.Read() Then : 倉庫編號_tb.Text = dr("倉名編號") : End If : conn.Close() : Set_清單()
    End Sub
    Private Sub 訂單控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        依供應商排序_ch.Checked = True : 依商品排序_ch.Checked = False : 出貨開單_bt.Enabled = False : 出貨開單ToolStripMenuItem.Enabled = False
        ComboBox5下拉表單資料載入() : 指定倉處_cb.SelectedIndex = 0 : Set_訂單清單() : 隱藏_ch.Checked = True : 單據狀態_cb.SelectedIndex = 0
    End Sub
    Private Sub DataGridView3_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 訂單明細_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            訂單流水號_tb.Text = 訂單明細_dgv.Rows(e.RowIndex).Cells("訂單流水號").Value.ToString : 出貨備齊_ch.Checked = 訂單明細_dgv.Rows(e.RowIndex).Cells("出貨備齊").Value
            出貨開單_bt.Enabled = False : 出貨開單ToolStripMenuItem.Enabled = False
            For i As Integer = 0 To 訂單明細_dgv.Rows.Count - 1
                訂單明細_dgv.Rows(i).Cells("比對有貨").Value = False
                If 訂單明細_dgv.Rows(i).Cells("訂單流水號").Value.ToString = 訂單流水號_tb.Text Then
                    出貨單號_tb.Text = 訂單明細_dgv.Rows(i).Cells("出貨單號").Value : If 出貨單號_tb.Text <> "" Then : Exit For : End If
                End If
            Next
        End If
    End Sub
    Private Sub DataGridView1_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 依供應商排序_ch.Checked = True Then
                If 庫存清單_dgv(0, e.RowIndex).Value.ToString <> 庫存清單_dgv(0, 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
            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
        End If
        For i As Integer = 0 To 庫存清單_dgv.Rows.Count - 1
            If 庫存清單_dgv.Rows(i).Cells("可領用").Value = 0 Then : 庫存清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink : End If
        Next
    End Sub
    Private Sub DataGridView3_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(0, e.RowIndex).Value.ToString <> 訂單明細_dgv(0, 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
    End Sub
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles 依供應商排序_ch.Click
        依供應商排序_ch.Checked = True : 依商品排序_ch.Checked = False : Set_清單()
    End Sub
    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles 依商品排序_ch.Click
        依供應商排序_ch.Checked = False : 依商品排序_ch.Checked = True : Set_清單()
    End Sub
    Private Sub 齊貨比對()
        核對比數 = 0 : For i As Integer = 0 To 訂單明細_dgv.Rows.Count - 1 : 訂單明細_dgv.Rows(i).Cells("比對有貨").Value = False : Next
        If 訂單流水號_tb.Text = "" Then : MsgBox("請先選擇訂單 。")
        Else
            For i As Integer = 0 To 訂單明細_dgv.Rows.Count - 1
                If 訂單明細_dgv.Rows(i).Cells("訂單流水號").Value.ToString = 訂單流水號_tb.Text And 訂單明細_dgv.Rows(i).Cells("出貨單號").Value.ToString = "" Then
                    For ii As Integer = 0 To 庫存清單_dgv.Rows.Count - 1
                        If 訂單明細_dgv.Rows(i).Cells("料號").Value.ToString = 庫存清單_dgv.Rows(ii).Cells("料號").Value.ToString Then
                            If 庫存清單_dgv.Rows(ii).Cells("可領用").Value >= 訂單明細_dgv.Rows(i).Cells("數量").Value.ToString Then
                                '--------------有料可出--------------
                                訂單明細_dgv.Rows(i).Cells("比對有貨").Value = True : 核對比數 += 1 : Exit For
                            ElseIf 庫存清單_dgv.Rows(ii).Cells("可領用").Value = 0 Then
                                '--------------無料可出--------------
                            ElseIf 庫存清單_dgv.Rows(ii).Cells("可領用").Value < 訂單明細_dgv.Rows(i).Cells("數量").Value.ToString Then
                                '--------------無料可出--------------
                            End If
                        End If
                    Next
                End If
            Next
        End If
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 齊料比對_bt.Click
        齊貨比對() : MsgBox("本次比對共 " & 核對比數 & " 筆資料有貨可出 。")
        出貨開單_bt.Enabled = True : 出貨開單ToolStripMenuItem.Enabled = True
    End Sub
    Private Sub Set_自動生成流水號()
        SQL_倉儲明細表流水號最後一筆()
        If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 8)) : Else : EDR = 0 : End If : conn.Close() : EDR += 1
        If EDR < 10 Then : ESTR = "WD" & "0000000" & EDR
        ElseIf EDR > 9 And EDR < 100 Then : ESTR = "WD" & "000000" & EDR
        ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "WD" & "00000" & EDR
        ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "WD" & "0000" & EDR
        ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "WD" & "000" & EDR
        ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "WD" & "00" & EDR
        ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "WD" & "0" & EDR
        ElseIf EDR > 9999999 Then : ESTR = "WD" & EDR : End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 出貨開單_bt.Click
        核對比數2 = 0
        If 單據狀態_cb.Text = "" Then : MsgBox("請選擇--直接出貨--還是--組裝出貨--。") : Else
            For i As Integer = 0 To 訂單明細_dgv.Rows.Count - 1
                資料數 = 訂單明細_dgv.Rows.Count : MyModule1.進度條()
                齊貨比對()
                If 訂單明細_dgv.Rows(i).Cells("比對有貨").Value = True Then
                    核對比數2 += 1
                    DTP = 訂單明細_dgv.Rows(i).Cells("下單日").Value : DTP1 = 訂單明細_dgv.Rows(i).Cells("下單日").Value
                    DTP2 = 訂單明細_dgv.Rows(i).Cells("交期").Value
                    If 出貨單號_tb.Text = "" Then
                        '----------------------自动生成單據編號-------------------------------------------------------------------------
                        Dim NUM1 As Integer
                        DTP1 = Format(Today(), "yyyyMMdd")
                        For ii As Integer = 1 To 999
                            NUM1 = 0 + ii
                            If NUM1 < 10 Then : 出貨單號_tb.Text = "WD-" & DTP1 & "-00" & NUM1
                            ElseIf NUM1 > 9 And NUM1 < 100 Then : 出貨單號_tb.Text = "WD-" & DTP1 & "-0" & NUM1
                            ElseIf NUM1 > 99 Then : 出貨單號_tb.Text = "WD-" & DTP1 & "-" & NUM1 : End If
                            PA1 = 出貨單號_tb.Text : SQL_倉儲明細表生成單據編號()
                            If dr.Read() Then : Else : ii = 999 : conn.Close() : End If : conn.Close()
                        Next
                        Set_自動生成流水號()
                        If 單據狀態_cb.Text = "直接出貨" Then : HHJJ = "銷售出庫" : Else : HHJJ = "組裝出庫" : End If
                        PA1 = ESTR : PA2 = 出貨單號_tb.Text : PA3 = 訂單明細_dgv.Rows(i).Cells("供應商編號").Value : PA4 = 訂單明細_dgv.Rows(i).Cells("料號").Value
                        NU1 = 訂單明細_dgv.Rows(i).Cells("成本").Value : NU2 = 1 : NU3 = 0 : NU4 = 訂單明細_dgv.Rows(i).Cells("數量").Value : PA5 = HHJJ : PA6 = DTP
                        PA7 = 訂單明細_dgv.Rows(i).Cells("客戶編號").Value : NU5 = 訂單明細_dgv.Rows(i).Cells("售價").Value : PA8 = 倉庫編號_tb.Text : PA9 = DTP2
                        PA10 = 訂單明細_dgv.Rows(i).Cells("訂單流水號").Value : PA = 訂單明細_dgv.Rows(i).Cells("資料流水號").Value
                        SQL_倉儲明細表新增_含訂單編號() : conn.Close() : SQL_訂單出貨控制表_出貨單號修改() : conn.Close()
                    Else
                        Set_自動生成流水號() : conn.Close()
                        If 單據狀態_cb.Text = "直接出貨" Then : HHJJ = "銷售出庫" : Else : HHJJ = "組裝出庫" : End If
                        PA1 = ESTR : PA2 = 出貨單號_tb.Text : PA3 = 訂單明細_dgv.Rows(i).Cells("供應商編號").Value : PA4 = 訂單明細_dgv.Rows(i).Cells("料號").Value
                        NU1 = 訂單明細_dgv.Rows(i).Cells("成本").Value : NU2 = 1 : NU3 = 0 : NU4 = 訂單明細_dgv.Rows(i).Cells("數量").Value : PA5 = HHJJ : PA6 = DTP
                        PA7 = 訂單明細_dgv.Rows(i).Cells("客戶編號").Value : NU5 = 訂單明細_dgv.Rows(i).Cells("售價").Value : PA8 = 倉庫編號_tb.Text : PA9 = DTP2
                        PA10 = 訂單明細_dgv.Rows(i).Cells("訂單流水號").Value : PA = 訂單明細_dgv.Rows(i).Cells("資料流水號").Value
                        SQL_倉儲明細表新增_含訂單編號() : conn.Close() : SQL_訂單出貨控制表_出貨單號修改() : conn.Close()
                    End If
                    Set_清單() : Set_訂單清單()
                End If
            Next : MAOJI_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
            '-----------------------------------------判別訂單準備是否已經齊套-------------------------------------------------------------------------------------------------------------------------------
            For i As Integer = 0 To 訂單明細_dgv.Rows.Count - 1
                資料數 = 訂單明細_dgv.Rows.Count : MyModule1.進度條()
                Dim 判別齊套 As Boolean = True
                If 訂單明細_dgv.Rows(i).Cells("出貨備齊").Value = True Then : Else
                    出貨單號_tb.Text = 訂單明細_dgv.Rows(i).Cells("訂單流水號").Value.ToString
                    For ii As Integer = 0 To 訂單明細_dgv.Rows.Count - 1
                        If 訂單明細_dgv.Rows(ii).Cells("訂單流水號").Value = 出貨單號_tb.Text Then
                            If 訂單明細_dgv.Rows(ii).Cells("出貨單號").Value.ToString = "" Then
                                判別齊套 = False
                                Exit For
                            End If
                        End If
                    Next
                    If 判別齊套 = False Then : Else : PA1 = 出貨單號_tb.Text : SQL_訂單控制表_出貨備齊() : conn.Close() : End If
                End If
                Set_訂單清單()
            Next : MAOJI_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
            Set_清單() : Set_訂單清單() : MsgBox("出貨單開立完必，本次新增出貨單資料共 " & 核對比數2 & " 筆。") : 出貨開單_bt.Enabled = False : 出貨開單ToolStripMenuItem.Enabled = False
        End If
    End Sub
    Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles 隱藏_ch.CheckedChanged
        Set_grid()
    End Sub
    '-----------------------------滑鼠右鍵------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理ToolStripMenuItem.Click
        Set_訂單清單() : Set_清單()
    End Sub
    Private Sub 齊料比對ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 齊料比對ToolStripMenuItem.Click
        Me.齊料比對_bt.PerformClick()
    End Sub
End Class