MAOJI-ERP-SYS-LEEHSIEHJUI/MaoOrange-Hongji/倉儲系統管理/倉儲控制表.vb

Option Strict Off
Public Class 倉儲控制表
    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet
    Dim screenHeight As Integer : Dim newWidth1 As Integer : Dim newHeight1 As Integer
    Private Sub Set_清單()
        庫存表_dgv.DataSource = Nothing : ds.Clear()
        庫存表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        庫存表_dgv.ColumnHeadersHeight = 40
        庫存表_dgv.AllowUserToAddRows = False
        If 全物料資料_ch.Checked = True Then : SQL_倉儲控制表清單一() : Else : SQL_倉儲控制表清單二() : End If
        da.Fill(ds) : 庫存表_dgv.DataSource = ds.Tables(0) : conn.Close()

        庫存表_dgv.Columns(0).FillWeight = 115 : 庫存表_dgv.Columns(1).Visible = False : 庫存表_dgv.Columns(2).Visible = False : 庫存表_dgv.Columns(3).FillWeight = 300
        庫存表_dgv.Columns(4).FillWeight = 150 : 庫存表_dgv.Columns(5).FillWeight = 150 : 庫存表_dgv.Columns(6).FillWeight = 100 : 庫存表_dgv.Columns(7).FillWeight = 100
        庫存表_dgv.Columns(8).FillWeight = 100 : 庫存表_dgv.Columns(9).FillWeight = 100 : 庫存表_dgv.Columns(10).FillWeight = 100 : 庫存表_dgv.Columns(11).FillWeight = 100
        庫存表_dgv.Columns(12).FillWeight = 100 : 庫存表_dgv.Columns(13).FillWeight = 100 : 庫存表_dgv.Columns(14).FillWeight = 100
        格式設定1()
        庫存表_dgv.Columns(6).DefaultCellStyle.Format = "#,##0" : 庫存表_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 庫存表_dgv.Columns(8).DefaultCellStyle.Format = "#,##0"
        庫存表_dgv.Columns(9).DefaultCellStyle.Format = "#,##0" : 庫存表_dgv.Columns(10).DefaultCellStyle.Format = "#,##0" : 庫存表_dgv.Columns(11).DefaultCellStyle.Format = "#,##0"
        庫存表_dgv.Columns(12).DefaultCellStyle.Format = "#,##0" : 庫存表_dgv.Columns(13).DefaultCellStyle.Format = "#,##0" : 庫存表_dgv.Columns(14).DefaultCellStyle.Format = "#,##0"
        庫存表_dgv.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 庫存表_dgv.Columns(0).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
        庫存表_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
        庫存表_dgv.Columns(14).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 庫存表_dgv.Columns(14).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

        For i As Integer = 0 To 14 : 庫存表_dgv.Columns(i).ReadOnly = True : Next

        庫存表_dgv.Columns(7).DefaultCellStyle.BackColor = Color.MistyRose : 庫存表_dgv.Columns(8).DefaultCellStyle.BackColor = Color.MistyRose
        庫存表_dgv.Columns(9).DefaultCellStyle.BackColor = Color.LightYellow : 庫存表_dgv.Columns(10).DefaultCellStyle.BackColor = Color.LightYellow
        庫存表_dgv.Columns(11).DefaultCellStyle.BackColor = Color.LightGreen : 庫存表_dgv.Columns(12).DefaultCellStyle.BackColor = Color.LightGreen

        庫存成本_tb.Text = "0" : 在途成本_tb.Text = "0" : 備貨成本_tb.Text = "0" : 總庫存_tb.Text = "0" : 跑馬燈_tb.Text = ""
        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
            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 + 庫存表_dgv.Rows(i).Cells("未入庫").Value - 庫存表_dgv.Rows(i).Cells("未出庫").Value

            庫存成本_tb.Text = Val(庫存成本_tb.Text) + 庫存表_dgv.Rows(i).Cells("庫存成本_台幣").Value : 在途成本_tb.Text = Val(在途成本_tb.Text) + 庫存表_dgv.Rows(i).Cells("在途成本_台幣").Value
            備貨成本_tb.Text = Val(備貨成本_tb.Text) + 庫存表_dgv.Rows(i).Cells("備貨成本_台幣").Value
            '-------------------------跑馬燈----------------------------------------------------------------------------------------------------------------------------------------
            If 庫存表_dgv.Rows(i).Cells("可領用").Value <= 庫存表_dgv.Rows(i).Cells("最低庫存量").Value Then
                跑馬燈_tb.Text = 跑馬燈_tb.Text & " 物料 : " & 庫存表_dgv.Rows(i).Cells("品名").Value &
                                 "_可領用 : " & Format(庫存表_dgv.Rows(i).Cells("可領用").Value, "#,##0") & "_低於最低庫存量 ---"
            End If
            Timer1.Interval = 250 : Timer1.Enabled = True
        Next
        總庫存_tb.Text = Val(庫存成本_tb.Text) + Val(在途成本_tb.Text) - Val(備貨成本_tb.Text)
        庫存成本_tb.Text = Format(Val(庫存成本_tb.Text), "#,##0") : 在途成本_tb.Text = Format(Val(在途成本_tb.Text), "#,##0")
        備貨成本_tb.Text = Format(Val(備貨成本_tb.Text), "#,##0") : 總庫存_tb.Text = Format(Val(總庫存_tb.Text), "#,##0")
    End Sub
    Private Sub Set_清單1()
        明細表_dgv.DataSource = Nothing : ds1.Clear()
        明細表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        明細表_dgv.ColumnHeadersHeight = 40
        明細表_dgv.AllowUserToAddRows = False
        SQL_倉儲控制表_明細表()
        da.Fill(ds1) : 明細表_dgv.DataSource = ds1.Tables(0) : conn.Close()
        明細表_dgv.Columns(0).Visible = False : 明細表_dgv.Columns(1).FillWeight = 90 : 明細表_dgv.Columns(2).FillWeight = 35 : 明細表_dgv.Columns(3).FillWeight = 35
        明細表_dgv.Columns(4).FillWeight = 50 : 明細表_dgv.Columns(5).FillWeight = 60 : 明細表_dgv.Columns(6).FillWeight = 60 : 明細表_dgv.Columns(7).FillWeight = 60
        明細表_dgv.Columns(8).FillWeight = 95 : 明細表_dgv.Columns(9).FillWeight = 60

        明細表_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
        明細表_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細表_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        明細表_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細表_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
    End Sub
    Private Sub 格式設定1()
        screenHeight = MAOJI_ERP_SYS.Height
        If 隱藏尺寸材質_ch.Checked = True Then
            庫存表_dgv.Columns(4).Visible = False : 庫存表_dgv.Columns(5).Visible = False
            newWidth1 = 815 : newHeight1 = screenHeight - 182
            庫存表_dgv.Size = New Size(newWidth1, newHeight1)
            newWidth1 = 720 : 明細表_dgv.Location = New Point(823, 57)
            明細表_dgv.Size = New Size(newWidth1, newHeight1)
        Else
            庫存表_dgv.Columns(4).Visible = True : 庫存表_dgv.Columns(5).Visible = True
            newWidth1 = 1179 : newHeight1 = screenHeight - 182
            庫存表_dgv.Size = New Size(newWidth1, newHeight1)
            newWidth1 = 720 : 明細表_dgv.Location = New Point(1187, 56)
            明細表_dgv.Size = New Size(newWidth1, newHeight1)
        End If
    End Sub
    Private Sub ComboBox2下拉表單資料載入()
        SQL_倉名下拉清單含NA()
        指定倉處_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_清單()
    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
        TextBox10.Visible = False : TextBox11.Visible = False : 全物料資料_ch.Checked = False : 倉庫編號_tb.Enabled = False
        ComboBox2下拉表單資料載入() : 指定倉處_cb.SelectedIndex = 0
    End Sub
    Function 文字旋轉(ByVal s As String, ByVal v As Integer) As String
        '--- S=目標字串， V=捲動次數（ +v 右捲, -v 左捲）---
        文字旋轉 = Mid(s & s & s, Len(s) - (v Mod Len(s)) + 1, Len(s))
    End Function
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If 跑馬燈_tb.Text = "" Then
            Timer1.Enabled = False
        Else
            跑馬燈_tb.Text = 文字旋轉(跑馬燈_tb.Text, -1)
        End If
    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.ToString : TextBox10.Text = 庫存表_dgv.Rows(e.RowIndex).Cells("供應商編號").Value.ToString
            TextBox11.Text = 庫存表_dgv.Rows(e.RowIndex).Cells("料號").Value
            供應商_庫存成本_tb.Text = "0" : 供應商_在途成本_tb.Text = "0" : 供應商_備貨成本_tb.Text = "0" : 供應商_總庫存_tb.Text = "0"
            For i As Integer = 0 To 庫存表_dgv.Rows.Count - 1
                If 庫存表_dgv.Rows(i).Cells("供應商").Value.ToString = 供應商_tb.Text Then
                    供應商_庫存成本_tb.Text = Val(供應商_庫存成本_tb.Text) + 庫存表_dgv.Rows(i).Cells("庫存成本_台幣").Value
                    供應商_在途成本_tb.Text = Val(供應商_在途成本_tb.Text) + 庫存表_dgv.Rows(i).Cells("在途成本_台幣").Value
                    供應商_備貨成本_tb.Text = Val(供應商_備貨成本_tb.Text) + 庫存表_dgv.Rows(i).Cells("備貨成本_台幣").Value
                End If
            Next
            供應商_總庫存_tb.Text = Val(供應商_庫存成本_tb.Text) + Val(供應商_在途成本_tb.Text) - Val(供應商_備貨成本_tb.Text)
            供應商_庫存成本_tb.Text = Format(Val(供應商_庫存成本_tb.Text), "#,##0") : 供應商_在途成本_tb.Text = Format(Val(供應商_在途成本_tb.Text), "#,##0")
            供應商_備貨成本_tb.Text = Format(Val(供應商_備貨成本_tb.Text), "#,##0") : 供應商_總庫存_tb.Text = Format(Val(供應商_總庫存_tb.Text), "#,##0")
            Set_清單1()
        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(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
        For i As Integer = 0 To 庫存表_dgv.Rows.Count - 1
            If 庫存表_dgv.Rows(i).Cells("可領用").Value = 0 Then
                庫存表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
            End If
        Next
    End Sub
    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles 全物料資料_ch.CheckedChanged
        Set_清單()
    End Sub
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles 隱藏尺寸材質_ch.CheckedChanged
        格式設定1()
    End Sub
    '-----------------------------滑鼠右鍵------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理ToolStripMenuItem.Click
        Set_清單()
    End Sub
End Class