MAOJI-ERP-SYS-LEEHSIEHJUI/MaoOrange-Hongji/倉儲系統管理/倉儲庫存清單.vb

Option Strict Off
Public Class 倉儲庫存清單
    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet
    Private Sub Set_清單()
        動態庫存_dgv.DataSource = Nothing : ds.Clear()
        動態庫存_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        動態庫存_dgv.ColumnHeadersHeight = 50
        動態庫存_dgv.AllowUserToAddRows = False
        SQL_倉儲庫存清單一()
        da.Fill(ds) : 動態庫存_dgv.DataSource = ds.Tables(0) : conn.Close()
        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
        Next
    End Sub
    Private Sub Set_清單1()
        組裝清單_dgv.DataSource = Nothing : ds1.Clear()
        組裝清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        組裝清單_dgv.ColumnHeadersHeight = 50
        組裝清單_dgv.AllowUserToAddRows = False
        SQL_倉儲庫存清單二()
        da.Fill(ds1) : 組裝清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
        總出庫數_tb.Text = "0"
        For i As Integer = 0 To 組裝清單_dgv.Rows.Count - 1
            總出庫數_tb.Text = Val(總出庫數_tb.Text) + 組裝清單_dgv.Rows(i).Cells("出庫").Value
            If 組裝清單_dgv.Rows(i).Cells("出庫").Value > 0 Then
                組裝清單_dgv.Rows(i).Cells("選擇").Value = True
            Else
                組裝清單_dgv.Rows(i).Cells("選擇").Value = False
            End If
        Next
    End Sub
    Private Sub Set_清單2()
        庫存清單_dgv.DataSource = Nothing : 庫存清單_dgv.Rows.Clear()
        庫存清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        庫存清單_dgv.ColumnHeadersHeight = 50
        庫存清單_dgv.AllowUserToAddRows = False
        For ii As Integer = 0 To 動態庫存_dgv.Rows.Count - 1
            資料數 = 動態庫存_dgv.Rows.Count : MyModule1.進度條()
            供應商編號_tb.Text = 動態庫存_dgv.Rows(ii).Cells("供應商編號").Value
            料號_tb.Text = 動態庫存_dgv.Rows(ii).Cells("料號").Value
            供應商_tb.Text = 動態庫存_dgv.Rows(ii).Cells("供應商").Value
            品名_tb.Text = 動態庫存_dgv.Rows(ii).Cells("品名").Value
            尺寸_tb.Text = 動態庫存_dgv.Rows(ii).Cells("尺寸").Value
            材質_tb.Text = 動態庫存_dgv.Rows(ii).Cells("材質").Value
            加權成本_台幣_tb.Text = 動態庫存_dgv.Rows(ii).Cells("加權成本_台幣").Value : Set_清單1()

            Dim 總出庫數 As Integer = Val(總出庫數_tb.Text) : Dim 歸零之後 As Boolean = False
            For i As Integer = 0 To 組裝清單_dgv.Rows.Count - 1
                If 組裝清單_dgv.Rows(i).Cells("選擇").Value = False Then
                    總出庫數 -= 組裝清單_dgv.Rows(i).Cells("入庫").Value
                    If 總出庫數 >= 0 Then
                        組裝清單_dgv.Rows(i).Cells("選擇").Value = True : 組裝清單_dgv.Rows(i).Cells("入庫").Value = 0
                    ElseIf 總出庫數 < 0 Then
                        If 歸零之後 = False Then
                            組裝清單_dgv.Rows(i).Cells("選擇").Value = False : 組裝清單_dgv.Rows(i).Cells("入庫").Value = 總出庫數 * -1
                        Else
                            組裝清單_dgv.Rows(i).Cells("選擇").Value = False
                        End If
                        歸零之後 = True
                    End If
                End If
            Next
            For i As Integer = 0 To 組裝清單_dgv.Rows.Count - 1
                If 組裝清單_dgv.Rows(i).Cells("選擇").Value = False Then
                    庫存清單_dgv.Rows.Insert(0)
                    庫存清單_dgv.Rows(0).Cells("供應商").Value = 供應商_tb.Text
                    庫存清單_dgv.Rows(0).Cells("品名").Value = 品名_tb.Text
                    庫存清單_dgv.Rows(0).Cells("尺寸").Value = 尺寸_tb.Text
                    庫存清單_dgv.Rows(0).Cells("材質").Value = 材質_tb.Text
                    庫存清單_dgv.Rows(0).Cells("單價").Value = 動態庫存_dgv.Rows(ii).Cells("加權成本_台幣").Value
                    庫存清單_dgv.Rows(0).Cells("庫存").Value = 組裝清單_dgv.Rows(i).Cells("入庫").Value
                    庫存清單_dgv.Rows(0).Cells("採購下單").Value = 組裝清單_dgv.Rows(i).Cells("採購下單").Value
                    庫存清單_dgv.Rows(0).Cells("入庫日期").Value = 組裝清單_dgv.Rows(i).Cells("入庫日期").Value
                    庫存清單_dgv.Rows(0).Cells("成本").Value = Val(加權成本_台幣_tb.Text) * 組裝清單_dgv.Rows(i).Cells("入庫").Value
                    庫存清單_dgv.Rows(0).Cells("採購單號").Value = 組裝清單_dgv.Rows(i).Cells("單據編號").Value
                    庫存清單_dgv.Rows(0).Cells("料號").Value = 動態庫存_dgv.Rows(ii).Cells("料號").Value
                End If
            Next
        Next : MAOJI_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 : 格式設定1()
    End Sub
    Private Sub 格式設定1()
        庫存清單_dgv.Columns(0).FillWeight = 80 : 庫存清單_dgv.Columns(1).FillWeight = 150 : 庫存清單_dgv.Columns(2).FillWeight = 80 : 庫存清單_dgv.Columns(3).FillWeight = 80
        庫存清單_dgv.Columns(4).FillWeight = 60 : 庫存清單_dgv.Columns(5).FillWeight = 80 : 庫存清單_dgv.Columns(6).FillWeight = 80 : 庫存清單_dgv.Columns(7).FillWeight = 60
        庫存清單_dgv.Columns(8).FillWeight = 60 : 庫存清單_dgv.Columns(9).FillWeight = 100 : 庫存清單_dgv.Columns(10).FillWeight = 80

        庫存清單_dgv.Columns(4).DefaultCellStyle.Format = "#,##0" : 庫存清單_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 庫存清單_dgv.Columns(8).DefaultCellStyle.Format = "#,##0"
        庫存清單_dgv.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 庫存清單_dgv.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        庫存清單_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 庫存清單_dgv.Columns(4).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(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
    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() : Set_清單() : Set_清單2()
    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.Visible = False : 供應商_tb.Visible = False : 品名_tb.Visible = False : 尺寸_tb.Visible = False : 材質_tb.Visible = False : 加權成本_台幣_tb.Visible = False
        動態庫存_dgv.Visible = False : 組裝清單_dgv.Visible = False : 供應商編號_tb.Visible = False : 料號_tb.Visible = False
        ComboBox2下拉表單資料載入() : 指定倉處_cb.SelectedIndex = 0
    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 : 料號_tb.Text = 動態庫存_dgv.Rows(e.RowIndex).Cells("料號").Value
            供應商_tb.Text = 動態庫存_dgv.Rows(e.RowIndex).Cells("供應商").Value : 品名_tb.Text = 動態庫存_dgv.Rows(e.RowIndex).Cells("品名").Value
            尺寸_tb.Text = 動態庫存_dgv.Rows(e.RowIndex).Cells("尺寸").Value : 材質_tb.Text = 動態庫存_dgv.Rows(e.RowIndex).Cells("材質").Value
            加權成本_台幣_tb.Text = 動態庫存_dgv.Rows(e.RowIndex).Cells("加權成本_台幣").Value
            Set_清單1()
        End If
    End Sub
    Private Sub DataGridView3_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 庫存清單_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Red, 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 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理ToolStripMenuItem.Click
        格式設定1()
    End Sub
End Class