HT-ODOO-SELLING-PI-LEEHSIEHJUI/HT-ODOO-SELLING-PI/01、銷售管理系統/銷售審查表.vb

Public Class 銷售審查表
    Dim xlApp As Microsoft.Office.Interop.Excel.Application
    ReadOnly xlBook As Microsoft.Office.Interop.Excel.Workbook
    Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
    Dim 頁面(3) As Boolean
    Private Sub Set_天心銷售單()
        Dim ds1 As New DataSet
        清單1_dgv.DataSource = Nothing : ds1.Clear()
        清單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單1_dgv.ColumnHeadersHeight = 25
        清單1_dgv.AllowUserToAddRows = False
        SQL_天心銷售單("已轉審查")
        da1.Fill(ds1) : 清單1_dgv.DataSource = ds1.Tables(0) : conn.Close()
        清單1_dgv.Columns(0).FillWeight = 100 : 清單1_dgv.Columns(0).ReadOnly = True
        For I As Integer = 1 To 14 : 清單1_dgv.Columns(I).Visible = False : Next
    End Sub
    Private Sub 清單1_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 清單1_dgv.RowPostPaint
        For I As Integer = 0 To 清單1_dgv.Rows.Count - 1
            If 清單1_dgv.Rows(I).Cells("還未完單").Value.ToString = "" Then : 清單1_dgv.Rows(I).DefaultCellStyle.BackColor = Color.LightGreen : End If
        Next
    End Sub
    Private Sub Set_天心受訂明細()
        Dim ds1 As New DataSet
        清單1_1_dgv.DataSource = Nothing : ds1.Clear()
        清單1_1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單1_1_dgv.ColumnHeadersHeight = 40
        清單1_1_dgv.AllowUserToAddRows = False
        SQL_天心銷售單明細(訂單號_tb.Text, "已轉審查")
        da1.Fill(ds1) : 清單1_1_dgv.DataSource = ds1.Tables(0) : conn.Close()
        清單1_1_dgv.Columns(0).Visible = False : 清單1_1_dgv.Columns(1).FillWeight = 30 : 清單1_1_dgv.Columns(3).FillWeight = 80 : 清單1_1_dgv.Columns(5).FillWeight = 40
        清單1_1_dgv.Columns(2).Visible = False : 清單1_1_dgv.Columns(6).FillWeight = 40 : 清單1_1_dgv.Columns(7).FillWeight = 40 : 清單1_1_dgv.Columns(8).FillWeight = 60
        清單1_1_dgv.Columns(10).Visible = False : 清單1_1_dgv.Columns(11).FillWeight = 40 : 清單1_1_dgv.Columns(12).FillWeight = 60 : 清單1_1_dgv.Columns(13).FillWeight = 60
        清單1_1_dgv.Columns(9).FillWeight = 60
        清單1_1_dgv.Columns(5).DefaultCellStyle.Format = "#,##0" : 清單1_1_dgv.Columns(7).DefaultCellStyle.Format = "#,##0.00"
        清單1_1_dgv.Columns(8).DefaultCellStyle.Format = "#,##0.00"
        清單1_1_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        清單1_1_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        清單1_1_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        清單1_1_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        清單1_1_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        清單1_1_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        清單1_1_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        清單1_1_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        總數量_lb.Text = "0" : 總金額_lb.Text = "0"
        For I As Integer = 0 To 13 : 清單1_1_dgv.Columns(I).ReadOnly = True : Next
        For I As Integer = 0 To 清單1_1_dgv.Rows.Count - 1
            清單1_1_dgv.Rows(I).Cells(1).Value = I + 1 : 清單1_1_dgv.Rows(I).Cells("選擇").Value = False
            If IsDBNull(清單1_1_dgv.Rows(I).Cells("已轉").Value) Then : 清單1_1_dgv.Rows(I).Cells("已轉").Value = False : End If
            總數量_lb.Text = CInt(總數量_lb.Text) + 清單1_1_dgv.Rows(I).Cells("數量").Value
            總金額_lb.Text = CInt(總金額_lb.Text) + 清單1_1_dgv.Rows(I).Cells("金額").Value
        Next
        總數量_lb.Text = Strings.Format(CInt(總數量_lb.Text), "#,##0") : 總金額_lb.Text = Strings.Format(CInt(總金額_lb.Text), "#,##0")
    End Sub
    Private Sub Set_銷售單()
        Dim ds1 As New DataSet
        清單2_dgv.DataSource = Nothing : ds1.Clear()
        清單2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單2_dgv.ColumnHeadersHeight = 25
        清單2_dgv.AllowUserToAddRows = False
        SQL_訂單控制表()
        da1.Fill(ds1) : 清單2_dgv.DataSource = ds1.Tables(0) : conn.Close()
        清單2_dgv.Columns(0).FillWeight = 100 : 清單2_dgv.Columns(0).ReadOnly = True
        For I As Integer = 1 To 10 : 清單2_dgv.Columns(I).Visible = False : Next
    End Sub
    Private Sub Set_銷售單明細()
        Dim ds1 As New DataSet
        清單2_1_dgv.DataSource = Nothing : ds1.Clear()
        清單2_1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單2_1_dgv.ColumnHeadersHeight = 25
        清單2_1_dgv.AllowUserToAddRows = False
        SQL_訂單明細表(客戶訂單_bt.Text)
        da1.Fill(ds1) : 清單2_1_dgv.DataSource = ds1.Tables(0) : conn.Close()
        清單2_1_dgv.Columns(0).FillWeight = 20 : 清單2_1_dgv.Columns(5).FillWeight = 30 : 清單2_1_dgv.Columns(4).FillWeight = 30 : 清單2_1_dgv.Columns(6).FillWeight = 60
        清單2_1_dgv.Columns(2).FillWeight = 80 : 清單2_1_dgv.Columns(3).FillWeight = 80 : 清單2_1_dgv.Columns("流水號").Visible = False : 清單2_1_dgv.Columns("選擇").Visible = False
        清單2_1_dgv.Columns(0).ReadOnly = True : 清單2_1_dgv.Columns(1).ReadOnly = True : 清單2_1_dgv.Columns(4).ReadOnly = True : 清單2_1_dgv.Columns(5).ReadOnly = True
        For I As Integer = 7 To 14 : 清單2_1_dgv.Columns(I).FillWeight = 80 : Next
        清單2_1_dgv.Columns(4).DefaultCellStyle.Format = "#,##0" : 清單2_1_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.00"
        清單2_1_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        清單2_1_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        清單2_1_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        清單2_1_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        清單2_1_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        For I As Integer = 0 To 清單2_1_dgv.Rows.Count - 1 : 清單2_1_dgv.Rows(I).Cells(0).Value = I + 1 : 清單2_1_dgv.Rows(I).Cells("選擇").Value = False : Next
        清單1_dgv格式()
    End Sub
    Private Sub 清單1_dgv格式()
        If 清單2_1_dgv.Rows.Count > 0 Then
            If 頁面(0) = True And 頁面(1) = False And 頁面(2) = False And 頁面(3) = False Then
                清單2_1_dgv.Columns(5).Visible = True
                For I As Integer = 7 To 14 : 清單2_1_dgv.Columns(I).Visible = False : Next
            ElseIf 頁面(0) = False And 頁面(1) = True And 頁面(2) = False And 頁面(3) = False Then
                清單2_1_dgv.Columns(5).Visible = False
                For I As Integer = 7 To 8 : 清單2_1_dgv.Columns(I).Visible = True : Next
                For I As Integer = 9 To 14 : 清單2_1_dgv.Columns(I).Visible = False : Next
            ElseIf 頁面(0) = False And 頁面(1) = False And 頁面(2) = True And 頁面(3) = False Then
                清單2_1_dgv.Columns(5).Visible = False
                For I As Integer = 7 To 8 : 清單2_1_dgv.Columns(I).Visible = False : Next
                For I As Integer = 9 To 11 : 清單2_1_dgv.Columns(I).Visible = True : Next
                For I As Integer = 12 To 14 : 清單2_1_dgv.Columns(I).Visible = False : Next
            ElseIf 頁面(0) = False And 頁面(1) = False And 頁面(2) = False And 頁面(3) = True Then
                清單2_1_dgv.Columns(5).Visible = False
                For I As Integer = 7 To 11 : 清單2_1_dgv.Columns(I).Visible = False : Next
                For I As Integer = 12 To 14 : 清單2_1_dgv.Columns(I).Visible = True : Next
            End If
        End If
    End Sub
    Private Sub 清單1_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 清單1_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            訂單號_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("受訂單號").Value.ToString : 受訂日期_dtp.Value = 清單1_dgv.Rows(e.RowIndex).Cells("受訂日期").Value.ToString
            預交日期_dtp.Value = 清單1_dgv.Rows(e.RowIndex).Cells("預交日期").Value.ToString : 客戶編號_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("客戶編號").Value.ToString
            客戶名稱_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("客戶名稱").Value.ToString : 統一編號_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("統一編號").Value.ToString
            連絡電話_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("連絡電話").Value.ToString : 送貨地址_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("送貨地址").Value.ToString
            傳真_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("傳真").Value.ToString : 經辦業務_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("經辦業務").Value.ToString
            交易方式_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("交易方式").Value.ToString : 備註_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("備註").Value.ToString
            幣別_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("幣別").Value.ToString : 匯率_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("匯率").Value.ToString
            Set_天心受訂明細() : 資料比對()
        End If
    End Sub
    Private Sub 資料比對()
        Dim 通知 As Boolean = False
        For I As Integer = 0 To 清單1_1_dgv.Rows.Count - 1
            If 清單1_1_dgv.Rows(I).Cells("已轉").Value = False Then
                If 清單1_1_dgv.Rows(I).Cells("訂單號").Value.ToString = 客戶訂單_bt.Text And 客戶訂單_bt.Text <> "" Then
                    清單1_1_dgv.Rows(I).Cells("選擇").Value = True : 通知 = True
                End If
            End If
        Next
        If 通知 = True Then
            Dim result As DialogResult = MessageBox.Show("系統在受訂單 [ " & 訂單號_tb.Text & "] 的資料中找到可以轉移到 訂單審查表 [ " & 客戶訂單_bt.Text & "] 的資料，是否將資料加入?", "請選擇",
                                             MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If result = DialogResult.Yes Then : 增加明細_bt.PerformClick() : End If
        End If
    End Sub
    Private Sub 清單_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 清單1_1_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            If 清單1_1_dgv.Rows(e.RowIndex).Cells("已轉").Value = False Then
                If 清單1_1_dgv.Rows(e.RowIndex).Cells("訂單號").Value.ToString = "" Then
                    If 清單1_1_dgv.Rows(e.RowIndex).Cells("選擇").Value = False Then
                        清單1_1_dgv.Rows(e.RowIndex).Cells("選擇").Value = True
                    Else : 清單1_1_dgv.Rows(e.RowIndex).Cells("選擇").Value = False : End If
                End If
            End If
        End If
    End Sub
    Private Sub 清單_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 清單1_1_dgv.RowPostPaint
        For i As Integer = 0 To 清單1_1_dgv.Rows.Count - 1
            If 清單1_1_dgv("選擇", i).Value = True Then
                清單1_1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen
            Else : 清單1_1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White : End If
        Next
    End Sub
    Private Sub 清單2_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 清單2_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            SQL1 = "SELECT  客戶訂單, 客戶名稱, 接收日期, 訂單效期, 交運條件, 付款條件, 業務審批, 生管審批, 製造審批, 品保審批, 總經理
                FROM    訂單審查控制表  ORDER BY   客戶訂單 DESC"
            客戶訂單_bt.Text = 清單2_dgv.Rows(e.RowIndex).Cells("客戶訂單").Value.ToString : 客戶名稱_cb.Text = 清單2_dgv.Rows(e.RowIndex).Cells("客戶名稱").Value.ToString
            接收日期_dtp.Value = 清單2_dgv.Rows(e.RowIndex).Cells("接收日期").Value.ToString : 訂單效期_dtp.Value = 清單2_dgv.Rows(e.RowIndex).Cells("訂單效期").Value.ToString
            交運條件_cb.Text = 清單2_dgv.Rows(e.RowIndex).Cells("交運條件").Value.ToString : 付款條件_cb.Text = 清單2_dgv.Rows(e.RowIndex).Cells("付款條件").Value.ToString
            業務審批_tb.Text = 清單2_dgv.Rows(e.RowIndex).Cells("業務審批").Value.ToString : 生管審批_tb.Text = 清單2_dgv.Rows(e.RowIndex).Cells("生管審批").Value.ToString
            製造審批_tb.Text = 清單2_dgv.Rows(e.RowIndex).Cells("製造審批").Value.ToString : 品保審批_tb.Text = 清單2_dgv.Rows(e.RowIndex).Cells("品保審批").Value.ToString
            總經理_tb.Text = 清單2_dgv.Rows(e.RowIndex).Cells("總經理").Value.ToString
            Set_銷售單明細() : 資料比對()
        End If
    End Sub
    Private Sub 清單2_1_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 清單2_1_dgv.MouseUp
        Dim 位置Y As Integer = 清單2_1_dgv.SelectedCells(0).ColumnIndex : Dim 位置 As Integer = 清單2_1_dgv.SelectedCells(0).RowIndex
        If 位置Y = 0 Or 位置Y = 1 Or 位置Y = 4 Or 位置Y = 5 Then
            If 清單2_1_dgv.Rows(位置).Cells("選擇").Value = False Then : 清單2_1_dgv.Rows(位置).Cells("選擇").Value = True
            Else : 清單2_1_dgv.Rows(位置).Cells("選擇").Value = False : End If
        End If
    End Sub
    Private Sub 清單2_1_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 清單2_1_dgv.RowPostPaint
        For i As Integer = 0 To 清單2_1_dgv.Rows.Count - 1
            If 清單2_1_dgv("選擇", i).Value = True Then
                清單2_1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen
            Else : 清單2_1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White : End If
        Next
    End Sub
    Private Sub 下拉清單刷新()
        SQL_訂單_客戶名稱() : 客戶名稱_cb.Items.Clear() : While (dr1.Read()) : 客戶名稱_cb.Items.Add(dr1("客戶名稱")) : End While
        SQL_訂單_交運條件() : 交運條件_cb.Items.Clear() : While (dr1.Read()) : 交運條件_cb.Items.Add(dr1("交運條件")) : End While
        SQL_訂單_付款條件() : 付款條件_cb.Items.Clear() : While (dr1.Read()) : 付款條件_cb.Items.Add(dr1("付款條件")) : End While
    End Sub
    Private Sub 銷售審查表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = HT_ERP_SELLINGPI : Me.WindowState = 2 : Me.AutoScroll = True
        首次進入 = True
        客戶訂單_bt.ReadOnly = True : 頁面(0) = True : 頁面(1) = False : 頁面(2) = False : 頁面(3) = False
        首次進入 = False
    End Sub
    Private Sub 銷售審查表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        Set_天心銷售單() : Set_銷售單() : 下拉清單刷新()
    End Sub
    Private Sub 導入受訂單_bt_Click(sender As Object, e As EventArgs) Handles 導入受訂單_bt.Click
        With 開啟檔案
            .Title = "選擇 Excel 檔案"
            .Filter = "Excel 檔案 (*.xls;*.xlsx)|*.xls;*.xlsx"
            .FilterIndex = 1 ' 預設選項
            .RestoreDirectory = True ' 關閉後回到先前的資料夾
            .Multiselect = False ' 限制只能選擇單一檔案
        End With : Dim file_name As String
        If 開啟檔案.ShowDialog = Windows.Forms.DialogResult.OK Then
            Try
                file_name = 開啟檔案.FileName
                xlApp = CreateObject("Excel.Application")
                xlApp.DisplayAlerts = True
                xlApp.Visible = True
                xlApp.Workbooks.Open(file_name)
                xlSheet = xlApp.Worksheets(1) : xlSheet.Activate()
                Dim 檔案 As String = xlSheet.Cells(1, 2).value
                If 檔案 = "受  訂  單" Then
                    訂單號_tb.Text = Strings.Mid(xlSheet.Cells(6, 7).value, 6, 50) : 受訂日期_dtp.Value = xlSheet.Cells(2, 2).value
                    預交日期_dtp.Value = Strings.Mid(xlSheet.Cells(7, 7).value, 6, 50) : 客戶編號_tb.Text = Strings.Mid(xlSheet.Cells(6, 2).value, 6, 4)
                    客戶名稱_tb.Text = Strings.Mid(xlSheet.Cells(6, 2).value, 10, 50) : 統一編號_tb.Text = Strings.Mid(xlSheet.Cells(7, 2).value, 6, 50)
                    連絡電話_tb.Text = Strings.Mid(xlSheet.Cells(8, 2).value, 6, 50) : 送貨地址_tb.Text = Strings.Mid(xlSheet.Cells(9, 2).value, 6, 50)
                    傳真_tb.Text = Strings.Mid(xlSheet.Cells(8, 4).value, 6, 50) : 經辦業務_tb.Text = Strings.Mid(xlSheet.Cells(8, 7).value, 11, 50)
                    交易方式_tb.Text = Strings.Mid(xlSheet.Cells(42, 2).value, 6, 100) : 備註_tb.Text = Strings.Mid(xlSheet.Cells(43, 2).value, 9, 100)
                    幣別_tb.Text = xlSheet.Cells(3, 3).value : 匯率_tb.Text = xlSheet.Cells(3, 4).value
                    xlApp.Visible = False
                    If 訂單號_tb.Text <> "" Then
                        SQL_受訂控制表查詢(訂單號_tb.Text)
                        If dr1.Read Then
                            MsgBox("該檔案已經存在系統中，不需要重複導入!!") : xlApp.Visible = True : xlApp.Quit() : xlApp = Nothing : Exit Sub
                        Else
                            SQL_受訂控制表新增(訂單號_tb.Text, Strings.Format(受訂日期_dtp.Value, "yyyy/MM/dd"), Strings.Format(預交日期_dtp.Value, "yyyy/MM/dd"), 客戶編號_tb.Text,
                                               客戶名稱_tb.Text, 統一編號_tb.Text, 連絡電話_tb.Text, 送貨地址_tb.Text, 傳真_tb.Text, 經辦業務_tb.Text, 交易方式_tb.Text, 備註_tb.Text,
                                               幣別_tb.Text, 匯率_tb.Text)
                        End If
                        Dim NUM1 As Integer : Dim 流水號 As String = ""
                        SQL_受訂明細表刪除(訂單號_tb.Text) : SQL_受訂明細表查詢()
                        If dr1.Read Then : NUM1 = Strings.Right(dr1("流水號"), 5) : Else : NUM1 = 0 : End If
                        For i As Integer = 11 To 99999
                            Dim 判斷 As String = xlSheet.Cells(i, 2).value : If Strings.Left(判斷, 4) = "" Or Strings.Left(判斷, 4) = "交易方式" Then : Exit For : End If
                            NUM1 += 1
                            If NUM1 < 10 Then : 流水號 = "SO-" & Strings.Format(Today(), "yyyyMMdd") & "-0000" & NUM1
                            ElseIf NUM1 > 9 And NUM1 < 100 Then : 流水號 = "SO-" & Strings.Format(Today(), "yyyyMMdd") & "-000" & NUM1
                            ElseIf NUM1 > 99 And NUM1 < 1000 Then : 流水號 = "SO-" & Strings.Format(Today(), "yyyyMMdd") & "-00" & NUM1
                            ElseIf NUM1 > 999 And NUM1 < 10000 Then : 流水號 = "SO-" & Strings.Format(Today(), "yyyyMMdd") & "-0" & NUM1
                            ElseIf NUM1 > 9999 Then : 流水號 = "SO-" & Strings.Format(Today(), "yyyyMMdd") & "-" & NUM1 : End If
                            SQL_受訂明細表新增(流水號, 訂單號_tb.Text, xlSheet.Cells(i, 2).value, xlSheet.Cells(i, 3).value, xlSheet.Cells(i, 4).value, xlSheet.Cells(i, 5).value,
                                               xlSheet.Cells(i, 6).value, xlSheet.Cells(i, 7).value, xlSheet.Cells(i, 8).value, xlSheet.Cells(i, 10).value, xlSheet.Cells(i, 11).value)
                        Next
                    Else : xlApp.Visible = True : xlApp.Quit() : xlApp = Nothing : MsgBox("導入的資料有問題，請重新確認，或是通知系統管理員!!") : Exit Sub : End If
                Else : xlApp.Visible = True : xlApp.Quit() : xlApp = Nothing : MsgBox("您選擇的檔案並不是[受訂單]，該介面目前不能導入非受訂單的檔案!!") : Exit Sub : End If
            Catch ex As Exception : MsgBox(ex.Message) : End Try
            xlApp.Visible = True : xlApp.Quit() : xlApp = Nothing : MsgBox("資料導入完成") : Set_天心銷售單() : Set_天心受訂明細()
        End If
    End Sub
    Private Sub 刪除受訂單_bt_Click(sender As Object, e As EventArgs) Handles 刪除受訂單_bt.Click
        If CC(8) = False Then : MsgBox("您的帳號沒有刪除資料的權限!!") : Else
            If 訂單號_tb.Text <> "" Then : Dim 不可刪除 As Boolean = False
                For I As Integer = 0 To 清單1_1_dgv.Rows.Count - 1 : If 清單1_1_dgv.Rows(I).Cells("已轉").Value = True Then : 不可刪除 = True : Exit For : End If : Next
                If 不可刪除 = False Then
                    Dim result As DialogResult = MessageBox.Show("請再次確認您是否要從外掛系統中刪除受訂單 [ " & 訂單號_tb.Text & "] 的資料?", "請選擇",
                                                                 MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                    If result = DialogResult.Yes Then
                        SQL_受訂控制表刪除(訂單號_tb.Text) : SQL_受訂明細表刪除(訂單號_tb.Text) : MsgBox("資料刪除完成!!")
                        Set_天心銷售單() : 清單1_1_dgv.DataSource = Nothing
                        訂單號_tb.Text = "" : 受訂日期_dtp.Value = Today() : 預交日期_dtp.Value = Today() : 客戶編號_tb.Text = "" : 客戶名稱_tb.Text = "" : 統一編號_tb.Text = ""
                        連絡電話_tb.Text = "" : 送貨地址_tb.Text = "" : 傳真_tb.Text = "" : 經辦業務_tb.Text = "" : 交易方式_tb.Text = "" : 備註_tb.Text = ""
                    End If
                Else : MsgBox("該受訂單的資料已經有引用在 COMMERCIAL INVOICE 無法刪除!!") : End If
            Else : MsgBox("請選擇要刪除的受訂單!!") : End If
        End If
    End Sub
    Private Sub 重新讀取_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click
        Set_天心銷售單()
    End Sub
    Private Sub 增加明細_bt_Click(sender As Object, e As EventArgs) Handles 增加明細_bt.Click
        If 客戶訂單_bt.Text = "" Then : MsgBox("必須要先生成訂單審查表才能做轉移的操作!!") : Else
            If 客戶訂單_bt.ReadOnly = False Then : MsgBox("存檔後才能操作!!") : Else
                If CC(7) = False Then : MsgBox("您的帳號沒有編輯資料的權限!!") : Else
                    SQL_訂單控制表重複檢查(訂單號_tb.Text, 客戶訂單_bt.Text)
                    If dr1.Read Then : MsgBox("該受訂單已經有轉移到外掛系統中，不需要重複轉移!!") : Else
                        For i As Integer = 0 To 清單1_1_dgv.Rows.Count - 1
                            If 清單1_1_dgv.Rows(i).Cells("選擇").Value = True Then
                                SQL_訂單明細表新增(清單1_1_dgv.Rows(i).Cells("流水號").Value.ToString,
                                                   客戶訂單_bt.Text, "[" & 清單1_1_dgv.Rows(i).Cells("產品編號").Value.ToString & "] " &
                                                   清單1_1_dgv.Rows(i).Cells("產品名稱").Value.ToString, 清單1_1_dgv.Rows(i).Cells("貨號").Value.ToString,
                                                   清單1_1_dgv.Rows(i).Cells("貨號").Value.ToString, 清單1_1_dgv.Rows(i).Cells("數量").Value.ToString,
                                                   清單1_1_dgv.Rows(i).Cells("單價").Value.ToString, Strings.Format(預交日期_dtp.Value, "yyyy/MM/dd"), "", "", "", "", "", "", "", "",
                                                   訂單號_tb.Text)
                                SQL_受訂明細表轉移標註(清單1_1_dgv.Rows(i).Cells("流水號").Value.ToString, "1", "已轉審查")
                            End If
                        Next : Set_銷售單明細() : Set_天心受訂明細() : Set_天心銷售單() : MsgBox("資料轉移完成!!")
                    End If
                End If
            End If
        End If
    End Sub
    Private Sub 刪除明細_bt_Click(sender As Object, e As EventArgs) Handles 刪除明細_bt.Click
        If 客戶訂單_bt.ReadOnly = False Then : MsgBox("存檔後才能操作!!") : Else
            If CC(7) = False Then : MsgBox("您的帳號沒有編輯資料的權限!!") : Else
                If 客戶訂單_bt.Text = "" Then : MsgBox("沒有選擇 [訂單審查表] 無法轉移受訂單明細資料，請先選擇 [訂單審查表]!!") : Else
                    For I As Integer = 0 To 清單2_1_dgv.Rows.Count - 1
                        If 清單2_1_dgv.Rows(I).Cells("選擇").Value = True Then
                            SQL_訂單明細表刪除(清單2_1_dgv.Rows(I).Cells("流水號").Value.ToString, 客戶訂單_bt.Text)
                            SQL_受訂明細表轉移標註(清單2_1_dgv.Rows(I).Cells("流水號").Value.ToString, "0", "已轉審查")
                        End If
                    Next : Set_銷售單明細() : Set_天心受訂明細() : Set_天心銷售單() : MsgBox("選定的資料已從 [訂單審查表] 中撤回受訂單中!!")
                End If
            End If
        End If
    End Sub
    Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        If CC(7) = False Then : MsgBox("您的帳號沒有編輯資料的權限!!") : Else
            客戶訂單_bt.ReadOnly = False : 客戶訂單_bt.Text = "" : 客戶名稱_cb.Text = "" : 接收日期_dtp.Value = Today() : 訂單效期_dtp.Value = Today()
            交運條件_cb.Text = "" : 付款條件_cb.Text = "" : 業務審批_tb.Text = "" : 生管審批_tb.Text = "" : 製造審批_tb.Text = "" : 品保審批_tb.Text = ""
            總經理_tb.Text = "" : 清單2_1_dgv.DataSource = Nothing
        End If
    End Sub
    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
        Dim 不可存檔 As Boolean = False : Dim 通知(3) As String
        If 客戶訂單_bt.Text = "" Then : 通知(0) = 客戶訂單_lb.Text & "，" : 不可存檔 = True : End If
        If 客戶名稱_cb.Text = "" Then : 通知(1) = 客戶名稱_lb.Text & "，" : 不可存檔 = True : End If
        If 交運條件_cb.Text = "" Then : 通知(2) = 交運條件_lb.Text & "，" : 不可存檔 = True : End If
        If 付款條件_cb.Text = "" Then : 通知(3) = 付款條件_lb.Text & "，" : 不可存檔 = True : End If
        If 不可存檔 = False Then
            SQL_訂單控制表查詢(客戶訂單_bt.Text)
            If dr1.Read Then
                SQL_訂單控制表修改(客戶訂單_bt.Text, 客戶名稱_cb.Text, Strings.Format(接收日期_dtp.Value, "yyyy/MM/dd"), Strings.Format(訂單效期_dtp.Value, "yyyy/MM/dd"),
                                   交運條件_cb.Text, 付款條件_cb.Text, 業務審批_tb.Text, 生管審批_tb.Text, 製造審批_tb.Text, 品保審批_tb.Text, 總經理_tb.Text)
            Else
                SQL_訂單控制表新增(客戶訂單_bt.Text, 客戶名稱_cb.Text, Strings.Format(接收日期_dtp.Value, "yyyy/MM/dd"), Strings.Format(訂單效期_dtp.Value, "yyyy/MM/dd"),
                                   交運條件_cb.Text, 付款條件_cb.Text, 業務審批_tb.Text, 生管審批_tb.Text, 製造審批_tb.Text, 品保審批_tb.Text, 總經理_tb.Text)
            End If
            For I As Integer = 0 To 清單2_1_dgv.Rows.Count - 1
                SQL_訂單明細表修改(清單2_1_dgv.Rows(I).Cells("流水號").Value.ToString, 客戶訂單_bt.Text,
                                   清單2_1_dgv.Rows(I).Cells("品名").Value.ToString, 清單2_1_dgv.Rows(I).Cells("件號").Value.ToString,
                                   清單2_1_dgv.Rows(I).Cells("圖面編號").Value.ToString, 清單2_1_dgv.Rows(I).Cells("數量").Value.ToString,
                                   清單2_1_dgv.Rows(I).Cells("單價").Value.ToString, 清單2_1_dgv.Rows(I).Cells("交期").Value.ToString,
                                   清單2_1_dgv.Rows(I).Cells("外包製程").Value.ToString, 清單2_1_dgv.Rows(I).Cells("材料").Value.ToString,
                                   清單2_1_dgv.Rows(I).Cells("標準製造程序").Value.ToString, 清單2_1_dgv.Rows(I).Cells("射蠟模具").Value.ToString,
                                   清單2_1_dgv.Rows(I).Cells("CNC程式").Value.ToString, 清單2_1_dgv.Rows(I).Cells("使用量具").Value.ToString,
                                   清單2_1_dgv.Rows(I).Cells("量測設備").Value.ToString, 清單2_1_dgv.Rows(I).Cells("標準檢驗程序").Value.ToString)
            Next : 客戶訂單_bt.ReadOnly = True : MsgBox("存檔完成!!") : Set_銷售單() : Set_銷售單明細() : 下拉清單刷新() : 資料比對()
        Else : MsgBox(通知(0) & 通知(1) & 通知(2) & 通知(3) & "不可以空白，請注意資料完整性!!")
        End If
    End Sub
    Private Sub 刪除發票_bt_Click(sender As Object, e As EventArgs) Handles 刪除發票_bt.Click
        If CC(8) = False Then : MsgBox("您的帳號沒有刪除資料的權限!!") : Else
            If 客戶訂單_bt.Text <> "" Then
                Dim result As DialogResult = MessageBox.Show("請再次確認您是否要從外掛系統中刪除銷售審查表 [ " & 客戶訂單_bt.Text & "] 的資料?", "請選擇",
                                             MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                If result = DialogResult.Yes Then
                    SQL_訂單控制表刪除(客戶訂單_bt.Text)
                    For I As Integer = 0 To 清單2_1_dgv.Rows.Count - 1
                        SQL_訂單明細表刪除(清單2_1_dgv.Rows(I).Cells("流水號").Value.ToString, 客戶訂單_bt.Text)
                        SQL_受訂明細表轉移標註(清單2_1_dgv.Rows(I).Cells("流水號").Value.ToString, "0", "已轉審查")
                    Next : MsgBox("資料刪除完成!!")
                    Set_銷售單() : Set_天心受訂明細() : Set_天心銷售單() : 客戶訂單_bt.Text = "" : 客戶名稱_cb.Text = "" : 接收日期_dtp.Value = Today() : 訂單效期_dtp.Value = Today()
                    交運條件_cb.Text = "" : 付款條件_cb.Text = "" : 業務審批_tb.Text = "" : 生管審批_tb.Text = "" : 製造審批_tb.Text = "" : 品保審批_tb.Text = ""
                    總經理_tb.Text = "" : 清單2_1_dgv.DataSource = Nothing
                End If
            Else : MsgBox("請選擇要刪除的訂單!!") : End If
        End If
    End Sub
    Private Sub 業務_bt_Click(sender As Object, e As EventArgs) Handles 業務_bt.Click
        頁面(0) = True : 頁面(1) = False : 頁面(2) = False : 頁面(3) = False : 清單1_dgv格式()
    End Sub
    Private Sub 生管_bt_Click(sender As Object, e As EventArgs) Handles 生管_bt.Click
        頁面(0) = False : 頁面(1) = True : 頁面(2) = False : 頁面(3) = False : 清單1_dgv格式()
    End Sub
    Private Sub 製造_bt_Click(sender As Object, e As EventArgs) Handles 製造_bt.Click
        頁面(0) = False : 頁面(1) = False : 頁面(2) = True : 頁面(3) = False : 清單1_dgv格式()
    End Sub
    Private Sub 品保_bt_Click(sender As Object, e As EventArgs) Handles 品保_bt.Click
        頁面(0) = False : 頁面(1) = False : 頁面(2) = False : 頁面(3) = True : 清單1_dgv格式()
    End Sub
    Private Sub 列印_bt_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click

    End Sub
End Class