MAOJI-ERP-SYS-LEEHSIEHJUI/MaoOrange-Hongji/業務系統管理/銷售退貨確認.vb

Option Strict Off
Public Class 銷售退貨確認
    ReadOnly ds As New DataSet
    Private Sub Set_清單()
        銷售退貨_dgv.DataSource = Nothing : ds.Clear() : 銷售退貨_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        銷售退貨_dgv.ColumnHeadersHeight = 40 : 銷售退貨_dgv.AllowUserToAddRows = False
        SQL_銷售退貨確認清單()
        da.Fill(ds) : 銷售退貨_dgv.DataSource = ds.Tables(0) : conn.Close()

        銷售退貨_dgv.Columns(0).Visible = False : 銷售退貨_dgv.Columns(1).FillWeight = 110 : 銷售退貨_dgv.Columns(2).Visible = False : 銷售退貨_dgv.Columns(3).FillWeight = 200
        銷售退貨_dgv.Columns(4).Visible = False : 銷售退貨_dgv.Columns(5).Visible = False : 銷售退貨_dgv.Columns(6).FillWeight = 60 : 銷售退貨_dgv.Columns(7).FillWeight = 150
        銷售退貨_dgv.Columns(8).FillWeight = 80 : 銷售退貨_dgv.Columns(9).FillWeight = 80 : 銷售退貨_dgv.Columns(10).FillWeight = 40 : 銷售退貨_dgv.Columns(11).FillWeight = 60
        銷售退貨_dgv.Columns(12).FillWeight = 40 : 銷售退貨_dgv.Columns(13).FillWeight = 110 : 銷售退貨_dgv.Columns(14).FillWeight = 60 : 銷售退貨_dgv.Columns(15).Visible = False
        銷售退貨_dgv.Columns(16).FillWeight = 60 : 銷售退貨_dgv.Columns(17).FillWeight = 40 : 銷售退貨_dgv.Columns(18).FillWeight = 60 : 銷售退貨_dgv.Columns(19).FillWeight = 40

        銷售退貨_dgv.Columns(6).DefaultCellStyle.Format = "#,##0" : 銷售退貨_dgv.Columns(17).DefaultCellStyle.Format = "#,##0.0" : 銷售退貨_dgv.Columns(19).DefaultCellStyle.Format = "#,##0.0"
        銷售退貨_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 銷售退貨_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        銷售退貨_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 銷售退貨_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        銷售退貨_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 銷售退貨_dgv.Columns(6).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
        For I As Integer = 0 To 19 : 銷售退貨_dgv.Columns(I).ReadOnly = True : Next
        For i As Integer = 0 To 銷售退貨_dgv.Rows.Count - 1
            銷售退貨_dgv.Rows(i).Cells("選擇").Value = False
            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
        Next
    End Sub
    Private Sub ComboBox6下拉表單資料載入()
        SQL_員工名稱下拉清單()
        業務_cb.Items.Clear() : 司機_cb.Items.Clear() : While (dr.Read()) : 業務_cb.Items.Add(dr("名稱")) : 司機_cb.Items.Add(dr("名稱")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox7下拉表單資料載入()
        SQL_傭金比例下拉清單()
        業務比例_cb.Items.Clear() : 司機比例_cb.Items.Clear()
        While (dr.Read()) : 業務比例_cb.Items.Add(Format(dr("比例"), "#,##0.0")) : 司機比例_cb.Items.Add(Format(dr("比例"), "#,##0.0")) : End While : conn.Close()
    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
        ComboBox6下拉表單資料載入() : ComboBox7下拉表單資料載入() : Set_清單()
    End Sub
    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 銷售退貨_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            ComboBox6下拉表單資料載入() : ComboBox7下拉表單資料載入()
            單據號碼_tb.Text = 銷售退貨_dgv.Rows(e.RowIndex).Cells("單據編號").Value : 訂單編號_tb.Text = 銷售退貨_dgv.Rows(e.RowIndex).Cells("訂單流水號").Value.ToString
            業務_cb.Text = 銷售退貨_dgv.Rows(e.RowIndex).Cells("業務").Value.ToString : 業務比例_cb.Text = Format(銷售退貨_dgv.Rows(e.RowIndex).Cells("業務比例").Value, "#,##0.0")
            司機_cb.Text = 銷售退貨_dgv.Rows(e.RowIndex).Cells("司機").Value.ToString : 司機比例_cb.Text = Format(銷售退貨_dgv.Rows(e.RowIndex).Cells("司機比例").Value, "#,##0.0")
            If 銷售退貨_dgv.Rows(e.RowIndex).Cells("選擇").Value = False And 銷售退貨_dgv.Rows(e.RowIndex).Cells("司機").Value.ToString <> "" Then
                銷售退貨_dgv.Rows(e.RowIndex).Cells("選擇").Value = True
            ElseIf 銷售退貨_dgv.Rows(e.RowIndex).Cells("司機").Value.ToString = "" Then
                MsgBox("請最少指定送貨司機。") : 銷售退貨_dgv.Rows(e.RowIndex).Cells("選擇").Value = False
            End If
        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 銷售退貨_dgv(1, e.RowIndex).Value.ToString <> 銷售退貨_dgv(1, 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 Button1_Click(sender As Object, e As EventArgs) Handles 依單據選擇_bt.Click
        For i As Integer = 0 To 銷售退貨_dgv.Rows.Count - 1
            If 單據號碼_tb.Text = 銷售退貨_dgv.Rows(i).Cells("單據編號").Value.ToString Then
                If 銷售退貨_dgv.Rows(i).Cells("司機").Value.ToString = "" Then
                    For ii As Integer = 0 To 銷售退貨_dgv.Rows.Count - 1
                        銷售退貨_dgv.Rows(ii).Cells("選擇").Value = False
                    Next
                    MsgBox("請最少指定送貨司機。")
                    Exit For
                End If
                銷售退貨_dgv.Rows(i).Cells("選擇").Value = True
            End If
        Next i
    End Sub
    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles 全部選擇_bt.Click
        For i As Integer = 0 To 銷售退貨_dgv.Rows.Count - 1
            If 銷售退貨_dgv.Rows(i).Cells("司機").Value.ToString = "" Then
                For ii As Integer = 0 To 銷售退貨_dgv.Rows.Count - 1
                    銷售退貨_dgv.Rows(ii).Cells("選擇").Value = False
                Next
                MsgBox("請最少指定送貨司機。")
                Exit For
            End If
            銷售退貨_dgv.Rows(i).Cells("選擇").Value = True
        Next i
    End Sub
    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles 全部取消_bt.Click
        For i As Integer = 0 To 銷售退貨_dgv.Rows.Count - 1 : 銷售退貨_dgv.Rows(i).Cells("選擇").Value = False : Next i
    End Sub
    Private Sub Set_日期格式轉換()
        DTP = Format(出貨日期_dtp.Value, "yyyy/MM/dd")
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 銷退確認_bt.Click
        Set_日期格式轉換() : Dim 出貨情況 As String
        For i As Integer = 0 To 銷售退貨_dgv.Rows.Count - 1
            資料數 = 銷售退貨_dgv.Rows.Count : MyModule1.進度條()
            If 銷售退貨_dgv.Rows(i).Cells("選擇").Value = True Then
                PA1 = 銷售退貨_dgv.Rows(i).Cells("資料流水號").Value : SQL_銷售退貨確認_倉儲明細表_銷售出庫確認() : conn.Close()

                If 訂單編號_tb.Text = "" Then : Else
                    If 銷售退貨_dgv.Rows(i).Cells("出貨備齊").Value = True Then : 出貨情況 = "完全出貨" : Else : 出貨情況 = "分批出貨" : End If
                    PA1 = 出貨情況 : PA = 訂單編號_tb.Text : SQL_銷售退貨確認_訂單控制表_出貨情況() : conn.Close()
                    If 出貨情況 = "完全出貨" Then
                        PA = 訂單編號_tb.Text : SQL_銷售退貨確認_訂單明細表_出貨情況一() : conn.Close()
                    ElseIf 出貨情況 = "分批出貨" Then
                        PA = 銷售退貨_dgv.Rows(i).Cells("訂單明細流水").Value : SQL_銷售退貨確認_訂單明細表_出貨情況二() : conn.Close()
                    End If
                End If
            End If
        Next : Set_清單() : MsgBox("退貨單開立完成。") : MAOJI_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 佣金修改_bt.Click
        PA1 = 業務_cb.Text : NU1 = 業務比例_cb.Text : PA2 = 司機_cb.Text : NU2 = 司機比例_cb.Text : PA = 單據號碼_tb.Text
        SQL_出貨單業務司機指定() : Set_清單()
    End Sub
    '-----------------------------滑鼠右鍵------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理ToolStripMenuItem.Click
        Set_清單() : 出貨日期_dtp.Value = Today()
    End Sub
    Private Sub 依據單號全部選擇ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 依據單號全部選擇ToolStripMenuItem.Click
        Me.依單據選擇_bt.PerformClick()
    End Sub
    Private Sub 全部選擇ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 全部選擇ToolStripMenuItem.Click
        Me.全部選擇_bt.PerformClick()
    End Sub
    Private Sub 全部取消ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 全部取消ToolStripMenuItem.Click
        Me.全部取消_bt.PerformClick()
    End Sub
    Private Sub 確認收料入庫ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 確認收料入庫ToolStripMenuItem.Click
        Me.銷退確認_bt.PerformClick()
    End Sub
End Class