WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/09、請採購管理系統/一般物料請購單一覽...

Option Strict Off
Public Class 一般物料請購單一覽表
    Private ReadOnly ds, ds1 As New DataSet
    Dim DTP1 As String
    Dim 已超出 As Boolean
    Private Sub Set_使用者清單()
        明細_dgv.DataSource = Nothing : ds.Clear()
        明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        明細_dgv.ColumnHeadersHeight = 25
        明細_dgv.AllowUserToAddRows = False
        明細_dgv.RowTemplate.Height = 35
        SQL_查詢明細()
        da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close()

        明細_dgv.Columns(0).Visible = False : 明細_dgv.Columns(1).FillWeight = 40 : 明細_dgv.Columns(2).FillWeight = 180 : 明細_dgv.Columns(3).FillWeight = 180
        明細_dgv.Columns(5).FillWeight = 80 : 明細_dgv.Columns(6).FillWeight = 80 : 明細_dgv.Columns(7).FillWeight = 80 : 明細_dgv.Columns(8).FillWeight = 285
        明細_dgv.Columns(4).FillWeight = 180
        明細_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(7).DefaultCellStyle.Format = "#,##0.00"
        明細_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        明細_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        明細_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        明細_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        明細_dgv.Columns("項次").ReadOnly = True : 明細_dgv.Columns("金額").ReadOnly = True

        總金額_tb.Text = "0.00"
        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
            總金額_tb.Text = Val(總金額_tb.Text) + 明細_dgv.Rows(i).Cells("金額").Value
        Next i
        總金額_tb.Text = Format(Val(總金額_tb.Text), "#,##0.00")
    End Sub
    Private Sub Set_清單1()
        未審核_dgv.DataSource = Nothing : ds1.Clear()
        未審核_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        未審核_dgv.ColumnHeadersHeight = 25
        未審核_dgv.AllowUserToAddRows = False
        SQL_審核清單()
        da.Fill(ds1) : 未審核_dgv.DataSource = ds1.Tables(0) : conn.Close()

        未審核_dgv.Columns(0).FillWeight = 135 : 未審核_dgv.Columns(1).FillWeight = 80 : 未審核_dgv.Columns(2).FillWeight = 90
        未審核_dgv.Columns(3).FillWeight = 80 : 未審核_dgv.Columns(4).FillWeight = 90 : 未審核_dgv.Columns(7).FillWeight = 135
        未審核_dgv.Columns(5).FillWeight = 60 : 未審核_dgv.Columns(6).FillWeight = 60
    End Sub
    Private Sub 一般物料請購單一覽表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        ComboBox1下拉表單資料載入() : 帳本名稱_cb.SelectedIndex = 0 : PA19 = 帳本編號_cb.Text
        Set_清單1()
    End Sub
    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 未審核_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            一般物料請購單號_tb.Text = 未審核_dgv(0, e.RowIndex).Value.ToString
            申請人_tb.Text = 未審核_dgv(1, e.RowIndex).Value.ToString
            申請日期_dtp.Value = 未審核_dgv(2, e.RowIndex).Value.ToString
            已採購確認_bt.Enabled = True : 單據轉零用金支付申請_bt.Enabled = True : Set_使用者清單()
        End If
    End Sub
    Private Sub 已採購確認_bt_Click(sender As Object, e As EventArgs) Handles 已採購確認_bt.Click
        If 一般物料請購單號_tb.Text = "" Then
            MsgBox("沒有選擇請購單據")
        Else
            Dim GGG As Boolean
            SQL_查詢已採購()
            If dr.Read() Then : GGG = dr("已採購") : End If : conn.Close()

            If GGG = True Then
                MsgBox("該單據已經確認過")
            Else
                SQL_一般物料已採購() : conn.Close()
                MsgBox("單據  " & 一般物料請購單號_tb.Text & "  確認採購完成")
                Set_清單1()
            End If
        End If
    End Sub
    Private Sub Set_日期格式轉換()
        DTP = Format(Today(), "yyyy/MM/dd") & "-" & Format(TimeOfDay(), "hh:mm:ss") : DTP1 = Format(Today(), "yyyyMMdd")
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles 單據轉零用金支付申請_bt.Click
        If 一般物料請購單號_tb.Text = "" Then
            MsgBox("沒有選擇請購單據")
        Else
            Dim GGG As Boolean
            SQL_查詢已採購()
            If dr.Read() Then : GGG = dr("已採購") : End If : conn.Close()

            If GGG = False Then
                MsgBox("物料未確認已經採購之前，無法轉零用金支付單請款")
            Else
                Dim AAA As Boolean
                SQL_查詢轉請款()
                If dr.Read() Then : AAA = dr("轉請款") : End If : conn.Close()

                If AAA = True Then
                    MsgBox("該單據已經轉過零用金支付單，無法重複開立")
                Else
                    Set_日期格式轉換() : Dim NUM1 As Integer
                    For i As Integer = 1 To 999
                        NUM1 = 0 + i
                        If NUM1 < 10 Then : WWW = "PC-" & DTP1 & "-00" & NUM1
                        ElseIf NUM1 > 9 And NUM1 < 100 Then : WWW = "PC-" & DTP1 & "-0" & NUM1
                        ElseIf NUM1 > 99 Then : WWW = "PC-" & DTP1 & "-" & NUM1
                        End If
                        SQL_流水號新增()
                        If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
                    Next
                    SQL_新增零用金支付表()
                    For i As Integer = 0 To 明細_dgv.Rows.Count - 1
                        資料數 = 明細_dgv.Rows.Count : MyModule1.進度條()
                        PA = 明細_dgv.Rows(i).Cells("品名").Value & "-" & 明細_dgv.Rows(i).Cells("規格").Value & "-" & 明細_dgv.Rows(i).Cells("備註").Value
                        PA1 = 明細_dgv.Rows(i).Cells("金額").Value : PA2 = 明細_dgv.Rows(i).Cells("用途").Value : PA3 = 明細_dgv.Rows(i).Cells("項次").Value
                        SQL_新增零用金支付明細() : conn.Close()
                    Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
                    SQL_修改請購單控制表() : conn.Close()
                    MsgBox("單據  " & 一般物料請購單號_tb.Text & "  確認採購完成")
                    Set_清單1()
                End If
            End If
        End If
    End Sub
    Private Sub 明細_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 明細_dgv.MouseUp
        If 明細_dgv.SelectedCells.Count = 1 Then
            已超出 = False
        End If
        If 明細_dgv.SelectedCells.Count > 0 Then
            '設定滑鼠點擊DGV時候的範圍，超出範圍時有可能不是數字所以不計算
            If 明細_dgv.SelectedCells(0).ColumnIndex = 5 Or 明細_dgv.SelectedCells(0).ColumnIndex = 7 Then
                If 已超出 = False Then
                    Dim x As Double = 0
                    For i As Integer = 0 To 明細_dgv.SelectedCells.Count - 1
                        '明細_dgv.SelectedCells.Item(i).ColumnIndex + 8 是因為該DGV顯示項與計算像剛好差8格，使用時要注意可直接計算的不需要加數字。
                        x += Val(明細_dgv.Rows(明細_dgv.SelectedCells.Item(i).RowIndex).Cells(明細_dgv.SelectedCells.Item(i).ColumnIndex).Value)
                    Next i
                    '將計算好的資料放置到指定的控件中
                    WINPROFIT_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
                Else
                    WINPROFIT_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
                End If
            Else
                已超出 = True
                WINPROFIT_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
            End If
        End If
    End Sub
    Private Sub ComboBox1下拉表單資料載入()
        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 帳本名稱_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 帳本名稱_cb.SelectedIndexChanged
        帳本編號_cb.SelectedIndex = 帳本名稱_cb.SelectedIndex : PA19 = 帳本編號_cb.Text
    End Sub
    Private Sub 帳本編號_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 帳本編號_cb.SelectedIndexChanged
        帳本名稱_cb.SelectedIndex = 帳本編號_cb.SelectedIndex : PA19 = 帳本編號_cb.Text
    End Sub
End Class