MAOJI-ERP-SYS-LEEHSIEHJUI/MaoOrange-Hongji/業務系統管理/維修單申請.vb

Option Strict Off
Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
Imports Microsoft.Office.Interop.Excel.Constants
Imports Microsoft.Office.Interop.Excel.XlBordersIndex
Imports Microsoft.Office.Interop.Excel.XlLineStyle
Imports Microsoft.Office.Interop.Excel.XlBorderWeight
Imports Microsoft.Office.Interop.Excel.XlThemeFont
Imports Microsoft.Office.Interop.Excel.XlThemeColor
Imports Microsoft.Office.Interop.Excel.XlWindowState
Imports Microsoft.Office.Interop.Excel
Public Class 維修單申請
    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
    Dim EDR As Integer = 0 : Dim ESTR As String : Dim HHJJ As String : Dim N1 As Integer = 0
    Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
    Private Sub Set_清單()
        DataGridView1.DataSource = Nothing : ds.Clear() : DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : DataGridView1.ColumnHeadersHeight = 40
        DataGridView1.AllowUserToAddRows = False : DataGridView1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText : DataGridView1.MultiSelect = True
        SQL_維修單申請清單()
        da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()

        DataGridView1.Columns(0).FillWeight = 130 : DataGridView1.Columns(1).Visible = False : DataGridView1.Columns(2).Visible = False : DataGridView1.Columns(3).FillWeight = 350
        DataGridView1.Columns(4).Visible = False : DataGridView1.Columns(5).Visible = False : DataGridView1.Columns(6).Visible = False : DataGridView1.Columns(7).FillWeight = 85
        DataGridView1.Columns(8).Visible = False : DataGridView1.Columns(9).FillWeight = 85 : DataGridView1.Columns(10).Visible = False : DataGridView1.Columns(11).FillWeight = 90
        DataGridView1.Columns(12).Visible = False : DataGridView1.Columns(13).FillWeight = 90 : DataGridView1.Columns(14).Visible = False

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

        DataGridView1.Columns(0).ReadOnly = True : DataGridView1.Columns(3).ReadOnly = True : DataGridView1.Columns(4).ReadOnly = True : DataGridView1.Columns(5).ReadOnly = True
        DataGridView1.Columns(6).ReadOnly = True : DataGridView1.Columns(7).ReadOnly = True : DataGridView1.Columns(8).ReadOnly = True : DataGridView1.Columns(9).ReadOnly = True
        DataGridView1.Columns(10).ReadOnly = True : DataGridView1.Columns(11).ReadOnly = True : DataGridView1.Columns(12).ReadOnly = True : DataGridView1.Columns(13).ReadOnly = True

        DataGridView1.Columns(7).DefaultCellStyle.BackColor = Color.MistyRose : DataGridView1.Columns(8).DefaultCellStyle.BackColor = Color.MistyRose
        DataGridView1.Columns(9).DefaultCellStyle.BackColor = Color.LightYellow : DataGridView1.Columns(10).DefaultCellStyle.BackColor = Color.LightYellow
        DataGridView1.Columns(11).DefaultCellStyle.BackColor = Color.LightGreen : DataGridView1.Columns(12).DefaultCellStyle.BackColor = Color.LightGreen
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            If DataGridView1.Rows(i).Cells("未入庫").Value.ToString = "" Then : DataGridView1.Rows(i).Cells("未入庫").Value = 0 : End If
            If DataGridView1.Rows(i).Cells("在途成本_台幣").Value.ToString = "" Then : DataGridView1.Rows(i).Cells("在途成本_台幣").Value = 0 : End If
            If DataGridView1.Rows(i).Cells("未出庫").Value.ToString = "" Then : DataGridView1.Rows(i).Cells("未出庫").Value = 0 : End If
            If DataGridView1.Rows(i).Cells("備貨成本_台幣").Value.ToString = "" Then : DataGridView1.Rows(i).Cells("備貨成本_台幣").Value = 0 : End If
            DataGridView1.Rows(i).Cells("可領用").Value = DataGridView1.Rows(i).Cells("庫存").Value + DataGridView1.Rows(i).Cells("未入庫").Value - DataGridView1.Rows(i).Cells("未出庫").Value
        Next
        TextBox13.Text = "" : TextBox7.Text = "" : TextBox15.Text = "0" : NumericUpDown1.Value = 0
    End Sub
    Private Sub Set_維修清單()
        DataGridView2.DataSource = Nothing : ds1.Clear() : DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : DataGridView2.ColumnHeadersHeight = 25
        DataGridView2.AllowUserToAddRows = False : DataGridView2.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText : DataGridView2.MultiSelect = True
        SQL_維修單申請_彙總()
        da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()
        DataGridView2.Columns(0).FillWeight = 150 : DataGridView2.Columns(1).FillWeight = 90 : DataGridView2.Columns(2).Visible = False : DataGridView2.Columns(3).FillWeight = 100
        DataGridView2.Columns(4).FillWeight = 80 : DataGridView2.Columns(5).FillWeight = 90 : DataGridView2.Columns(6).Visible = False : DataGridView2.Columns(7).Visible = False
        DataGridView2.Columns(8).Visible = False : DataGridView2.Columns(9).Visible = False

        For i As Integer = 0 To DataGridView2.Rows.Count - 1
            If DataGridView2.Rows(i).Cells("業務比例").Value.ToString = "" Then : DataGridView2.Rows(i).Cells("業務比例").Value = 0 : End If
            If DataGridView2.Rows(i).Cells("司機比例").Value.ToString = "" Then : DataGridView2.Rows(i).Cells("司機比例").Value = 0 : End If
        Next
    End Sub
    Private Sub Set_單據明細()
        DataGridView3.DataSource = Nothing : ds2.Clear() : DataGridView3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : DataGridView3.ColumnHeadersHeight = 25
        DataGridView3.AllowUserToAddRows = False : DataGridView3.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText : DataGridView3.MultiSelect = True
        SQL_維修單申請_清單()
        da.Fill(ds2) : DataGridView3.DataSource = ds2.Tables(0) : conn.Close()

        DataGridView3.Columns(6).DefaultCellStyle.Format = "#,##0" : DataGridView3.Columns(7).DefaultCellStyle.Format = "#,##0"
        DataGridView3.Columns(8).DefaultCellStyle.Format = "#,##0.0000" : DataGridView3.Columns(9).DefaultCellStyle.Format = "#,##0" : DataGridView3.Columns(10).DefaultCellStyle.Format = "#,##0"
        DataGridView3.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView3.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView3.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView3.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView3.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView3.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView3.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView3.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView3.Columns(13).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(13).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

        DataGridView3.Columns(0).Visible = False : DataGridView3.Columns(1).FillWeight = 30 : DataGridView3.Columns(2).FillWeight = 80 : DataGridView3.Columns(3).FillWeight = 150
        DataGridView3.Columns(4).FillWeight = 80 : DataGridView3.Columns(5).FillWeight = 80 : DataGridView3.Columns(6).FillWeight = 50 : DataGridView3.Columns(7).FillWeight = 50
        DataGridView3.Columns(8).Visible = False : DataGridView3.Columns(9).Visible = False : DataGridView3.Columns(10).Visible = False : DataGridView3.Columns(11).FillWeight = 100
        DataGridView3.Columns(12).FillWeight = 80 : DataGridView3.Columns(13).FillWeight = 50 : DataGridView3.Columns(14).Visible = False

        DataGridView3.EditMode = DataGridViewEditMode.EditOnEnter
        DataGridView3.Columns(1).ReadOnly = True : DataGridView3.Columns(2).ReadOnly = True : DataGridView3.Columns(3).ReadOnly = True : DataGridView3.Columns(4).ReadOnly = True
        DataGridView3.Columns(5).ReadOnly = True : DataGridView3.Columns(6).ReadOnly = True : DataGridView3.Columns(8).ReadOnly = True : DataGridView3.Columns(9).ReadOnly = True
        DataGridView3.Columns(10).ReadOnly = True : DataGridView3.Columns(12).ReadOnly = True

        For i As Integer = 0 To DataGridView3.Rows.Count - 1
            DataGridView3(1, i).Value = i + 1
        Next
    End Sub
    Private Sub ComboBox1下拉表單資料載入()
        SQL_物料頁碼清單()
        ComboBox1.Items.Clear() : While (dr.Read()) : ComboBox1.Items.Add(dr("頁碼")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox2下拉表單資料載入()
        SQL_客戶資料表_下拉清單讀取()
        ComboBox2.Items.Clear() : ComboBox3.Items.Clear() : While (dr.Read()) : ComboBox2.Items.Add(dr("簡稱")) : ComboBox3.Items.Add(dr("編號")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox5下拉表單資料載入()
        SQL_倉名下拉清單()
        ComboBox5.Items.Clear() : While (dr.Read()) : ComboBox5.Items.Add(dr("倉名")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedIndexChanged
        PA = ComboBox5.Text : SQL_倉名編號取得()
        If dr.Read() Then : TextBox19.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
        CheckBox1.Checked = True : TextBox7.Enabled = False : TextBox13.Enabled = False : TextBox15.Enabled = False : TextBox9.Enabled = False : TextBox14.Enabled = False
        RadioButton4.Checked = True : TextBox16.Visible = False : ComboBox3.Visible = False : TextBox18.Visible = False
        ComboBox5下拉表單資料載入() : ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : Set_維修清單() : ComboBox5.SelectedIndex = 0
    End Sub
    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        If e.RowIndex = -1 Then : Else
            TextBox13.Text = DataGridView1.Rows(e.RowIndex).Cells("供應商編號").Value.ToString : TextBox7.Text = DataGridView1.Rows(e.RowIndex).Cells("料號").Value.ToString
            TextBox16.Text = DataGridView1.Rows(e.RowIndex).Cells("加權成本_台幣").Value.ToString : TextBox17.Text = DataGridView1.Rows(e.RowIndex).Cells("售價").Value.ToString
            TextBox15.Text = Strings.Format(DataGridView1.Rows(e.RowIndex).Cells("庫存").Value - DataGridView1.Rows(e.RowIndex).Cells("未出庫").Value, "#,##0")
            TextBox17.Text = Strings.Format(Val(TextBox17.Text), "#,##0")
        End If
    End Sub
    Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2)
        If e.RowIndex = DataGridView1.Rows.Count - 1 Then : Exit Sub
        Else
            If CheckBox1.Checked = True Then
                If DataGridView1(0, e.RowIndex).Value.ToString <> DataGridView1(0, e.RowIndex + 1).Value.ToString Then
                    Dim startX As Integer = IIf(DataGridView1.RowHeadersVisible, DataGridView1.RowHeadersWidth, 0)
                    Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                    Dim endX As Integer = startX + DataGridView1.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView1.HorizontalScrollingOffset
                    e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
                End If
            Else
                If DataGridView1(2, e.RowIndex).Value.ToString <> DataGridView1(2, e.RowIndex + 1).Value.ToString Then
                    Dim startX As Integer = IIf(DataGridView1.RowHeadersVisible, DataGridView1.RowHeadersWidth, 0)
                    Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                    Dim endX As Integer = startX + DataGridView1.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView1.HorizontalScrollingOffset
                    e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
                End If
            End If
        End If
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            If DataGridView1.Rows(i).Cells("可領用").Value = 0 Then : DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.LightPink : End If
        Next
    End Sub
    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView2.CellClick
        If e.RowIndex = -1 Then : Else
            ComboBox2下拉表單資料載入()
            TextBox9.Text = DataGridView2.Rows(e.RowIndex).Cells("單據編號").Value.ToString : ComboBox3.Text = DataGridView2.Rows(e.RowIndex).Cells("客戶編號").Value.ToString
            DateTimePicker1.Value = DataGridView2.Rows(e.RowIndex).Cells("銷售下單").Value.ToString : DateTimePicker2.Value = DataGridView2.Rows(e.RowIndex).Cells("客戶交期").Value.ToString
            If ComboBox3.Text = "CI00000000" Then
                SQL_維修單申請_客戶資料_零售二()
                If (dr.Read()) Then
                    TextBox2.Text = dr("客戶名稱") : TextBox3.Text = dr("電話") : TextBox11.Text = "" : TextBox12.Text = dr("送貨地址") : TextBox26.Text = dr("統一編號")
                End If : conn.Close()
            End If
            列印用SQL = TextBox9.Text
            Set_單據明細()
        End If
    End Sub
    Private Sub DataGridView3_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView3.CellClick
        If e.RowIndex = -1 Then : Else
            TextBox14.Text = DataGridView3.Rows(e.RowIndex).Cells("資料流水號").Value.ToString
        End If
    End Sub
    Private Sub DataGridView3_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView3.CellEnter
        For i As Integer = 0 To DataGridView3.Rows.Count - 1
            DataGridView3.Rows(i).Cells("台幣單價").Value = DataGridView3.Rows(i).Cells("單價").Value * DataGridView3.Rows(i).Cells("匯率").Value
            DataGridView3.Rows(i).Cells("出貨成本_台幣").Value = DataGridView3.Rows(i).Cells("單價").Value * DataGridView3.Rows(i).Cells("匯率").Value * DataGridView3.Rows(i).Cells("數量").Value
            DataGridView3(1, i).Value = i + 1
        Next i
    End Sub
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.Click
        CheckBox1.Checked = True : CheckBox2.Checked = False : Set_清單()
    End Sub
    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.Click
        CheckBox1.Checked = False : CheckBox2.Checked = True : Set_清單()
    End Sub
    Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
        PA = TextBox5.Text : SQL_維修單申請_客戶資料表關鍵字查詢()
        ComboBox2.Items.Clear() : ComboBox3.Items.Clear() : While (dr.Read()) : ComboBox2.Items.Add(dr("簡稱")) : ComboBox3.Items.Add(dr("編號")) : End While : conn.Close()
    End Sub
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        Set_清單()
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        Set_清單()
    End Sub
    Private Sub 客戶資料()
        conn.Close()
        If ComboBox3.Text = "CI00000000" Then
            TextBox2.Text = "" : TextBox3.Text = "" : TextBox11.Text = "" : TextBox12.Text = "" : TextBox26.Text = ""
        Else
            SQL_維修單申請_客戶資料_銷售二()
            If (dr.Read()) Then
                TextBox2.Text = dr("店名") : TextBox3.Text = dr("電話") : TextBox11.Text = dr("聯絡人") : TextBox12.Text = dr("送貨地址") : TextBox26.Text = dr("統編")
            End If : conn.Close()
        End If
    End Sub
    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        ComboBox3.SelectedIndex = ComboBox2.SelectedIndex : 客戶資料()
    End Sub
    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
        ComboBox2.SelectedIndex = ComboBox3.SelectedIndex : 客戶資料()
    End Sub
    Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown1.TextChanged
        If NumericUpDown1.Value > Val(TextBox15.Text) Then
            MsgBox("可申請數只剩下 " & TextBox15.Text & " ，不可大於可申請數。")
            NumericUpDown1.Value = 0
        End If
    End Sub
    Private Sub Set_日期格式轉換()
        If TextBox9.Text = "" Then
            If CheckBox3.Checked = False Then
                DTP = Strings.Format(Today(), "yyyy/MM/dd") : DTP1 = Strings.Format(Today(), "yyyyMMdd") : DTP2 = Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd")
            Else
                DTP = Strings.Format(DateTimePicker1.Value, "yyyy/MM/dd") : DTP1 = Strings.Format(DateTimePicker1.Value, "yyyyMMdd") : DTP2 = Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd")
            End If
        Else
            DTP = Strings.Format(DateTimePicker1.Value, "yyyy/MM/dd") : DTP1 = Strings.Format(DateTimePicker1.Value, "yyyyMMdd") : DTP2 = Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd")
        End If
    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 存檔1()
        Dim SSDD As Integer = 0
        For i As Integer = 0 To DataGridView3.Rows.Count - 1
            資料數 = DataGridView3.Rows.Count : MyModule1.進度條()
            PA1 = DataGridView3.Rows(i).Cells("資料流水號").Value
            SQL_倉儲明細表_入庫日期讀取()
            If dr.Read() Then
                If dr("入庫日期").ToString = "" Then
                    NU1 = DataGridView3.Rows(i).Cells("單價").Value : NU2 = DataGridView3.Rows(i).Cells("數量").Value
                    PA1 = DataGridView3.Rows(i).Cells("備註").Value : PA2 = DTP2 : PA3 = DataGridView3.Rows(i).Cells("資料流水號").Value
                    SQL_出貨單申請_倉儲明細表修改_出庫() : conn.Close()
                Else
                    conn.Close() : SSDD += 1
                End If
            End If
        Next : MAOJI_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 : If SSDD = 0 Then : Else : MsgBox("共有 " & SSDD & "筆資料已入庫，沒有變更。") : End If
    End Sub
    Private Sub Set_新增明細()
        HHJJ = TextBox18.Text
        PA1 = ESTR : PA2 = TextBox9.Text : PA3 = TextBox13.Text : PA4 = TextBox7.Text : NU1 = TextBox16.Text : NU2 = 1 : NU3 = 0 : NU4 = NumericUpDown1.Value : PA5 = HHJJ : PA6 = DTP
        PA7 = ComboBox3.Text : NU5 = TextBox17.Text : PA8 = TextBox19.Text : PA9 = DTP2
        SQL_倉儲明細表新增() : conn.Close() : MsgBox("資料新增完畢 。") : Set_單據明細()
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox7.Text = "" Then : MsgBox("料號沒有選擇") : Else
            If ComboBox3.Text = "" Then : MsgBox("客戶沒有選擇") : Else
                If NumericUpDown1.Value = 0 Then : MsgBox("數量不可為零") : Else
                    If TextBox9.Text = "" Then
                        '----------------------自动生成單據編號-------------------------------------------------------------------------
                        Dim NUM1 As Integer : Set_日期格式轉換()
                        For i As Integer = 1 To 999
                            NUM1 = 0 + i
                            If NUM1 < 10 Then : TextBox9.Text = "WD-" & DTP1 & "-00" & NUM1
                            ElseIf NUM1 > 9 And NUM1 < 100 Then : TextBox9.Text = "WD-" & DTP1 & "-0" & NUM1
                            ElseIf NUM1 > 99 Then : TextBox9.Text = "WD-" & DTP1 & "-" & NUM1 : End If
                            PA1 = TextBox9.Text : 列印用SQL = TextBox9.Text : SQL_倉儲明細表生成單據編號()
                            If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
                        Next
                        If ComboBox3.Text = "CI00000000" Then
                            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 = "B" & "0000000" & EDR
                            ElseIf EDR > 9 And EDR < 100 Then : ESTR = "B" & "000000" & EDR
                            ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "B" & "00000" & EDR
                            ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "B" & "0000" & EDR
                            ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "B" & "000" & EDR
                            ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "B" & "00" & EDR
                            ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "B" & "0" & EDR
                            ElseIf EDR > 9999999 Then : ESTR = "B" & EDR : End If : PA1 = ESTR
                            SQL_維修單申請_零售客戶記錄表新增() : conn.Close()
                        End If
                        Set_自動生成流水號() : TextBox14.Text = ESTR : conn.Close() : 存檔1() : Set_新增明細() : Set_維修清單()
                    Else
                        Set_日期格式轉換() : Set_自動生成流水號() : TextBox14.Text = ESTR : conn.Close() : 存檔1() : Set_新增明細()
                    End If : Set_清單()
                End If
            End If
        End If
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Set_日期格式轉換() : 存檔1() : Set_單據明細() : Set_清單() : Set_維修清單() : MsgBox("資料修改，存檔完畢 。")
    End Sub
    Private Sub 切換時格式清空()
        TextBox9.Text = "" : TextBox15.Text = "0" : DateTimePicker1.Value = Today() : DateTimePicker2.Value = Today() : TextBox14.Text = "" : TextBox2.Text = ""
        TextBox3.Text = "" : TextBox11.Text = "" : TextBox13.Text = "" : TextBox12.Text = "" : TextBox26.Text = ""
        DataGridView3.DataSource = Nothing : ds2.Clear()
    End Sub
    Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.Click
        RadioButton4.Checked = True : RadioButton3.Checked = False : Set_維修清單() : Button1.Enabled = True : Button3.Enabled = True
        新增物料到維修單ToolStripMenuItem.Enabled = True : 刪除採購單中選中的物料ToolStripMenuItem.Enabled = True : 修改存檔ToolStripMenuItem.Enabled = True
        切換時格式清空() : ComboBox2.Enabled = True
    End Sub
    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.Click
        RadioButton4.Checked = False : RadioButton3.Checked = True : Set_維修清單() : Button1.Enabled = False : Button3.Enabled = False
        新增物料到維修單ToolStripMenuItem.Enabled = False : 刪除採購單中選中的物料ToolStripMenuItem.Enabled = False : 修改存檔ToolStripMenuItem.Enabled = False
        切換時格式清空() : ComboBox2.Enabled = True
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.開立新的維修單ToolStripMenuItem.PerformClick()
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        If 列印用SQL = "" Then : MsgBox("請選擇維修單。") : Else
            xlApp = CType(CreateObject("Excel.Application"), Application)
            xlBook = xlApp.Workbooks.Add
            xlApp.DisplayAlerts = True
            xlBook.Activate()
            xlSheet = NewMethod(xlBook)
            xlSheet.Activate()
            xlApp.Visible = True
            xlApp.Application.WindowState = xlMaximized

            xlSheet.Cells(1, 1) = MAOJI_ERP_SYS.ComboBox2.Text : xlSheet.Cells(2, 1) = 公司地址 : xlSheet.Cells(3, 1) = "維修單"
            xlSheet.Cells(4, 1) = "客戶" : xlSheet.Cells(5, 1) = "統編" : xlSheet.Cells(6, 1) = "地址"
            xlSheet.Cells(4, 2) = TextBox2.Text : xlSheet.Cells(5, 2) = TextBox26.Text : xlSheet.Cells(6, 2) = TextBox12.Text
            xlSheet.Cells(4, 5) = "單據編號" : xlSheet.Cells(5, 5) = "客戶聯絡" : xlSheet.Cells(6, 5) = "聯繫電話"
            xlSheet.Cells(4, 6) = TextBox9.Text : xlSheet.Cells(5, 6) = TextBox11.Text : xlSheet.Cells(6, 6) = TextBox3.Text
            xlSheet.Cells(8, 1) = "NO" : xlSheet.Cells(8, 2) = "品名" : xlSheet.Cells(8, 3) = "尺寸" : xlSheet.Cells(8, 4) = "材質" : xlSheet.Cells(8, 5) = "數量" : xlSheet.Cells(8, 6) = "備註"
            N1 = 0
            For I As Integer = 0 To DataGridView3.Rows.Count - 1
                xlSheet.Cells(I + 9, 1) = DataGridView3.Rows(I).Cells("項次").Value
                xlSheet.Cells(I + 9, 2) = DataGridView3.Rows(I).Cells("品名").Value
                xlSheet.Cells(I + 9, 3) = DataGridView3.Rows(I).Cells("尺寸").Value
                xlSheet.Cells(I + 9, 4) = DataGridView3.Rows(I).Cells("材質").Value
                xlSheet.Cells(I + 9, 5) = DataGridView3.Rows(I).Cells("數量").Value
                xlSheet.Cells(I + 9, 6) = DataGridView3.Rows(I).Cells("備註").Value
                N1 = I + 9
            Next
            xlSheet.Cells(N1 + 1, 1) = "(以下空白)"
            xlSheet.Cells(N1 + 3, 1) = "客戶回簽 :" : xlSheet.Cells(N1 + 3, 5) = "維修人員 :"
            AA(xlApp, xlSheet)

            xlSheet.PageSetup.PrintArea = ""
            xlApp.Cells.Select()
            xlSheet.Range("B1").Select()
            xlApp.Application.WindowState = xlMinimized
            xlSheet.Cells.Select()
            MsgBox("列印完成。")
        End If : 列印用SQL = ""
    End Sub
    Private Shared Function NewMethod(xlBook As Workbook) As Worksheet
        Return CType(xlBook.Worksheets.Add, Worksheet)
    End Function
    Private Sub AA(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        xlSheet.Cells.Select()
        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

        xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 35
        xlSheet.Rows("2:2").Select : myExcel.Selection.RowHeight = 25
        xlSheet.Rows("3:3").Select : myExcel.Selection.RowHeight = 20

        xlSheet.Rows("1:1").Select
        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 24 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
        xlSheet.Rows("2:2").Select
        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 16 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
        xlSheet.Rows("3:3").Select
        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 14 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

        xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 7
        xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 35
        xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 15
        xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 15
        xlSheet.Columns("E:E").Select : myExcel.Selection.ColumnWidth = 9
        xlSheet.Columns("F:F").Select : myExcel.Selection.ColumnWidth = 25
        xlSheet.Range("B4:B6").Select()

        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

        xlSheet.Range("F4:F6").Select()
        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

        xlSheet.Rows("7:7").Select : myExcel.Selection.RowHeight = 5
        xlSheet.Rows("8:8").Select : myExcel.Selection.RowHeight = 30
        xlSheet.Rows("9:" & N1 + 1).Select : myExcel.Selection.RowHeight = 16
        xlSheet.Rows(N1 + 2 & ":" & N1 + 2).Select : myExcel.Selection.RowHeight = 5
        xlSheet.Rows(N1 + 3 & ":" & N1 + 3).Select : myExcel.Selection.RowHeight = 40

        xlSheet.Range("A1:F1").Select()
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
        xlSheet.Range("A2:F2").Select()
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
        xlSheet.Range("A3:F3").Select()
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

        xlSheet.Range("A2:F2").Select()
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeTop).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

        xlSheet.Range("A5:F6").Select()
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeTop).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
        myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

        xlSheet.Range("A8:F8").Select()
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

        xlSheet.Range("A" & N1 + 1 & ":F" & N1 + 1).Select()
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeTop).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin
        End With
        myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

        myExcel.ActiveWindow.DisplayGridlines = False

        xlSheet.Range("B9:D" & N1).Select()
        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

        xlSheet.Range("E9:E" & N1).Select()
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        If TextBox9.Text = "" Then : MsgBox("沒有選擇要列印的單號 。") : Else : 列印用SQL = TextBox9.Text : PA = "維修申請單" : 列印_產品標籤介面.ShowDialog() : End If
    End Sub
    '-----------------------------滑鼠右鍵------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理ToolStripMenuItem.Click
        Set_清單() : Set_維修清單() : ComboBox2下拉表單資料載入()
    End Sub
    Private Sub 開立新的採購單ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 開立新的維修單ToolStripMenuItem.Click
        切換時格式清空() : ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : Set_清單() : Set_維修清單() : Me.RadioButton4.PerformClick()
    End Sub
    Private Sub 新增物料到採購單ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 新增物料到維修單ToolStripMenuItem.Click
        Me.Button1.PerformClick()
    End Sub
    Private Sub 刪除採購單中選中的物料ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 刪除採購單中選中的物料ToolStripMenuItem.Click
        PA1 = TextBox14.Text : SQL_倉儲明細表_出庫日期讀取()
        If dr("出庫日期") = "" Then : conn.Close()
            If TextBox14.Text = "" Then : MsgBox("沒有選擇要刪除的料號 。")
            Else
                Dim aa1 As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
                If aa1 = MsgBoxResult.Ok Then
                    PA1 = TextBox14.Text : SQL_倉儲明細表刪除() : conn.Close()
                    '-----------------最後一筆資料刪除時要把零售客戶紀錄中的資料一起刪除-----------------------------------------------------
                    If DataGridView3.Rows.Count = 1 Then : SQL_維修單申請_零售客戶記錄表刪除() : conn.Close() : End If : TextBox14.Text = "" : Set_單據明細()
                End If
            End If
        Else
            conn.Close() : MsgBox("已入庫的資料不可刪除 。")
        End If
    End Sub
    Private Sub 修改存檔ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 修改存檔ToolStripMenuItem.Click
        Me.Button3.PerformClick()
    End Sub
    Private Sub 列印單據ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 列印單據ToolStripMenuItem.Click
        Me.Button5.PerformClick()
    End Sub
    Private Sub 列印產品標籤ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 列印產品標籤ToolStripMenuItem.Click
        Me.Button4.PerformClick()
    End Sub
End Class