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 = 25
        倉儲入庫_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).FillWeight = 80 : 倉儲入庫_dgv.Columns(3).FillWeight = 200
        倉儲入庫_dgv.Columns(4).FillWeight = 150 : 倉儲入庫_dgv.Columns(5).FillWeight = 150 : 倉儲入庫_dgv.Columns(6).FillWeight = 60 : 倉儲入庫_dgv.Columns(7).FillWeight = 200
        倉儲入庫_dgv.Columns(8).FillWeight = 80 : 倉儲入庫_dgv.Columns(9).FillWeight = 80 : 倉儲入庫_dgv.Columns(10).FillWeight = 40 : 倉儲入庫_dgv.Columns(11).FillWeight = 60

        倉儲入庫_dgv.Columns(6).DefaultCellStyle.Format = "#,##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(1).ReadOnly = True : 倉儲入庫_dgv.Columns(2).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(11).ReadOnly = True

        For i As Integer = 0 To 倉儲入庫_dgv.Rows.Count - 1
            倉儲入庫_dgv.Rows(i).Cells("選擇").Value = False
        Next
    End Sub
    Private Sub ComboBox2下拉表單資料載入()
        SQL_倉名下拉清單()
        指定倉處_cb.Items.Clear() : While (dr.Read()) : 指定倉處_cb.Items.Add(dr("倉名")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox2_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() : PA = ""
    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
        倉庫編號_tb.Enabled = False
        ComboBox2下拉表單資料載入() : 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
            單據號碼_tb.Text = 倉儲入庫_dgv.Rows(e.RowIndex).Cells("單據編號").Value
        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
                倉儲入庫_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 : 倉儲入庫_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
        If 倉庫編號_tb.Text = "" Then : MsgBox("指定倉庫沒有選擇。")
        Else
            Set_日期格式轉換() : PA1 = 倉庫編號_tb.Text
            For i As Integer = 0 To 倉儲入庫_dgv.Rows.Count - 1
                資料數 = 倉儲入庫_dgv.Rows.Count : MyModule1.進度條()
                If 倉儲入庫_dgv.Rows(i).Cells("選擇").Value = True Then
                    PA2 = 倉儲入庫_dgv.Rows(i).Cells("資料流水號").Value : SQL_倉儲入庫驗收確認() : conn.Close()
                End If
            Next
            Set_清單() : MsgBox("入庫完成。") : MAOJI_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
        End If
    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