GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/02、採購管理系統/未完善功能/樣品採購單-對帳表.vb

Option Strict Off
Public Class 樣品採購單_對帳表
    ReadOnly ds8 As New DataSet
    Dim KKKJJ As String : Dim KKKJJ2 As String : Dim KKKJJ3 As String : Dim KKK3 As String : Dim KKK4 As String : ReadOnly 對話框(2) As String
    Private Sub Set_清單1()
        Dim ds As New DataSet
        清單_dgv.DataSource = Nothing : ds.Clear()
        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單_dgv.ColumnHeadersHeight = 40
        清單_dgv.AllowUserToAddRows = False
        清單_dgv.RowTemplate.Height = 50

        PA10 = KKKJJ3 : PA11 = KKKJJ2 : PA12 = KKKJJ : SQL_行政物料採購_驗收_對帳表_清單() : 列印用SQL = SQL1
        da.Fill(ds) : 清單_dgv.DataSource = ds.Tables(0) : conn.Close()

        清單_dgv.Columns(0).Width = 120 : 清單_dgv.Columns(1).Width = 120 : 清單_dgv.Columns(2).Width = 80 : 清單_dgv.Columns(3).Width = 120
        清單_dgv.Columns(4).Width = 80 : 清單_dgv.Columns(5).Width = 80 : 清單_dgv.Columns(6).Width = 50 : 清單_dgv.Columns(7).Width = 250 : 清單_dgv.Columns(8).Width = 200
        清單_dgv.Columns(9).Width = 250 : 清單_dgv.Columns(10).Width = 80 : 清單_dgv.Columns(11).Width = 70 : 清單_dgv.Columns(12).Width = 100 : 清單_dgv.Columns(13).Width = 100
        清單_dgv.Columns(14).Width = 40 : 清單_dgv.Columns(15).Width = 100 : 清單_dgv.Columns(16).Width = 40 : 清單_dgv.Columns(17).Width = 40 : 清單_dgv.Columns(18).Width = 100
        清單_dgv.Columns(19).Width = 100 : 清單_dgv.Columns(20).Width = 60 : 清單_dgv.Columns(21).Width = 70 : 清單_dgv.Columns(22).Width = 70 : 清單_dgv.Columns(23).Width = 60
        清單_dgv.Columns(24).Width = 60 : 清單_dgv.Columns(25).Width = 60
        清單_dgv.Columns(10).DefaultCellStyle.Format = "#,##0" : 清單_dgv.Columns(12).DefaultCellStyle.Format = "#,##0" : 清單_dgv.Columns(13).DefaultCellStyle.Format = "#,##0"
        清單_dgv.Columns(15).DefaultCellStyle.Format = "#,##0" : 清單_dgv.Columns(18).DefaultCellStyle.Format = "#,##0" : 清單_dgv.Columns(19).DefaultCellStyle.Format = "#,##0"
        清單_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單_dgv.Columns(13).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        清單_dgv.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單_dgv.Columns(15).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        清單_dgv.Columns(18).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單_dgv.Columns(19).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

        清單_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單_dgv.Columns(13).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        清單_dgv.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單_dgv.Columns(15).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        清單_dgv.Columns(18).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單_dgv.Columns(19).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        清單_dgv.Columns(0).Frozen = True
    End Sub
    Private Sub ComboBox1下拉表單資料載入()
        SQL_年份清單_下拉清單() : 年_cb.Items.Clear() : While (dr.Read()) : 年_cb.Items.Add(dr("年份")) : End While : conn.Close()
    End Sub
    Private Sub 總金額計算()
        Dim FFGG As Integer = 0
        總金額_tb.Text = "0"
        For i As Integer = 0 To 清單_dgv.Rows.Count - 1
            If 清單_dgv.Rows(i).Cells("" & 表頭(18) & "").Value = 單號_tb.Text Then
                FFGG = Val(FFGG) + 清單_dgv.Rows(i).Cells("" & 表頭(27) & "").Value
            End If
        Next i
        折扣金額_tb.Text = Val(折扣比_tb.Text) * FFGG / 100
        If 稅金計算_ch.Checked = True Then
            If 折扣比_tb.Text = "0" Then
                稅金金額_tb.Text = FFGG * Val(稅金比_tb.Text) / 100
            Else
                稅金金額_tb.Text = (FFGG - 折扣金額_tb.Text) * Val(稅金比_tb.Text) / 100
            End If
        Else
            稅金金額_tb.Text = "0"
        End If
        總金額_tb.Text = FFGG - Val(折扣金額_tb.Text) + Val(稅金金額_tb.Text)
        折扣金額_tb.Text = Strings.Format(Val(折扣金額_tb.Text), "#,##0") : 稅金金額_tb.Text = Strings.Format(Val(稅金金額_tb.Text), "#,##0")
        總金額_tb.Text = Strings.Format(Val(總金額_tb.Text), "#,##0")
    End Sub
    Private Sub Set_語言()
        語言_dgv.DataSource = Nothing : ds8.Clear()
        語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        語言_dgv.ColumnHeadersHeight = 25
        語言_dgv.AllowUserToAddRows = False
        SQL_系統語言導入()
        da.Fill(ds8) : 語言_dgv.DataSource = ds8.Tables(0) : conn.Close()
    End Sub
    Private Sub 語言轉換讀取()
        Set_語言() : conn.Close()
        For i As Integer = 0 To 語言_dgv.Rows.Count - 1
            If 語言_dgv("控件", i).Value.ToString = "行政物料採購_驗收_對帳表" Then : Me.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "查詢日期_lb" Then : 查詢日期_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "會計_lb" Then : 會計_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "出納_lb" Then : 出納_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "全部資料1_ch" Then : 全部資料1_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "全部資料2_ch" Then : 全部資料2_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "已核對_ch" Then : 已核對_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "已出納_ch" Then : 已出納_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "未核對_ch" Then : 未核對_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "未出納_ch" Then : 未出納_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "總金額_lb" Then : 總金額_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對帳記錄存檔_tsm" Then : 對帳記錄存檔_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "關鍵字查詢_tsm" Then : 關鍵字查詢_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "二維碼查單_tsm" Then : 二維碼查單_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "列印成EXCEL_tsm" Then : 列印成EXCEL_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清除_tsm" Then : 清除_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_項次" Then : 表頭(11) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_品名" Then : 表頭(12) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_規格" Then : 表頭(13) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_備註" Then : 表頭(14) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_數量" Then : 表頭(15) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_單位" Then : 表頭(16) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_單號" Then : 表頭(18) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_核准日期" Then : 表頭(22) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_已收貨" Then : 表頭(25) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_單價" Then : 表頭(26) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_金額" Then : 表頭(27) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_供應商" Then : 表頭(29) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_需求日期" Then : 表頭(30) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_採購員" Then : 表頭(31) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_採購日期" Then : 表頭(32) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_折扣金額" Then : 表頭(33) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_稅" Then : 表頭(34) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_稅金" Then : 表頭(35) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_稅後金額" Then : 表頭(36) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_會計作業" Then : 表頭(37) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_出納作業" Then : 表頭(38) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_現金" Then : 表頭(39) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_備用金" Then : 表頭(40) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_公帳" Then : 表頭(41) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框1" Then : 對話框(0) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框2" Then : 對話框(1) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框3" Then : 對話框(2) = 語言_dgv("內容", i).Value.ToString : End If
        Next
    End Sub
    Private Sub 行政物料採購_驗收_對帳表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        H(219) = True : 介面 = "H219" : 語言轉換讀取()
        ComboBox1下拉表單資料載入()
        年_cb.Text = Year(Today) : 月_cb.SelectedIndex = Month(Today) - 1
        KKKJJ3 = "AND (樣品採購單控制表.核准日期 LIKE N'" & KKK3 & "/" & KKK4 & "%') "
        Label62.Visible = False : 單號_tb.Visible = False
        Set_清單1()
        MyModule1.清單字體大小調整()
        清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub 行政物料採購_驗收_對帳表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        H(219) = False : MyModule1.虛擬桌面開啟()
    End Sub
    Private Sub 行政物料採購_驗收_對帳表_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
        MyModule1.清單字體大小調整()
        清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
    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("" & 表頭(18) & "").Value
            折扣比_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("DISC").Value
            稅金計算_ch.Checked = 清單_dgv.Rows(e.RowIndex).Cells("" & 表頭(34) & "").Value
            稅金比_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("PPN").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(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 ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 年_cb.SelectedIndexChanged
        KKK3 = 年_cb.Text
        If KKK3 = "" Or KKK4 = "" Then
        Else
            KKKJJ3 = "AND (樣品採購單控制表.核准日期 LIKE N'" & KKK3 & "/" & KKK4 & "%') "
        End If
        Set_清單1()
    End Sub
    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 月_cb.SelectedIndexChanged
        KKK4 = 月_cb.Text
        If KKK3 = "" Or KKK4 = "" Then
        Else
            KKKJJ3 = "AND (樣品採購單控制表.核准日期 LIKE N'" & KKK3 & "/" & KKK4 & "%') "
        End If
        Set_清單1()
    End Sub
    Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles 全部資料1_ch.Click
        全部資料1_ch.Checked = True : 已核對_ch.Checked = False : 未核對_ch.Checked = False : 全部資料2_ch.Checked = False : 已出納_ch.Checked = False : 未出納_ch.Checked = False
        Set_清單1()
    End Sub
    Private Sub CheckBox8_CheckedChanged(sender As Object, e As EventArgs) Handles 已核對_ch.Click
        全部資料1_ch.Checked = False : 已核對_ch.Checked = True : 未核對_ch.Checked = False : 全部資料2_ch.Checked = False : 已出納_ch.Checked = False : 未出納_ch.Checked = False
        KKKJJ = " AND (樣品採購單控制表.已會計 = 1)" : Set_清單1()
    End Sub
    Private Sub CheckBox7_CheckedChanged(sender As Object, e As EventArgs) Handles 未核對_ch.Click
        全部資料1_ch.Checked = False : 已核對_ch.Checked = False : 未核對_ch.Checked = True : 全部資料2_ch.Checked = False : 已出納_ch.Checked = False : 未出納_ch.Checked = False
        KKKJJ = " AND (樣品採購單控制表.已會計 = 0) OR (樣品採購單控制表.已會計 IS NULL)" : Set_清單1()
    End Sub
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles 全部資料2_ch.Click
        全部資料1_ch.Checked = False : 已核對_ch.Checked = False : 未核對_ch.Checked = False : 全部資料2_ch.Checked = True : 已出納_ch.Checked = False : 未出納_ch.Checked = False
        Set_清單1()
    End Sub
    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles 已出納_ch.Click
        全部資料1_ch.Checked = False : 已核對_ch.Checked = False : 未核對_ch.Checked = False : 全部資料2_ch.Checked = False : 已出納_ch.Checked = True : 未出納_ch.Checked = False
        KKKJJ = " AND (樣品採購單控制表.已出納 = 1)" : Set_清單1()
    End Sub
    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles 未出納_ch.Click
        全部資料1_ch.Checked = False : 已核對_ch.Checked = False : 未核對_ch.Checked = False : 全部資料2_ch.Checked = False : 已出納_ch.Checked = False : 未出納_ch.Checked = True
        KKKJJ = " AND (樣品採購單控制表.已出納 = 0) OR (樣品採購單控制表.已出納 IS NULL)" : Set_清單1()
    End Sub
    '-----------------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 清除ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 清除_tsm.Click
        ComboBox1下拉表單資料載入()
        月_cb.Items.Clear()
        月_cb.Items.Add("01") : 月_cb.Items.Add("02") : 月_cb.Items.Add("03") : 月_cb.Items.Add("04") : 月_cb.Items.Add("05") : 月_cb.Items.Add("06")
        月_cb.Items.Add("07") : 月_cb.Items.Add("08") : 月_cb.Items.Add("09") : 月_cb.Items.Add("10") : 月_cb.Items.Add("11") : 月_cb.Items.Add("12")
        KKK3 = "" : KKK4 = "" : KKKJJ3 = ""
    End Sub
    Private Sub 關鍵字查詢ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 關鍵字查詢_tsm.Click
        PA = InputBox(對話框(0))
        KKKJJ2 = " AND (樣品採購單明細表.行政物料請購單號 LIKE N'%" & PA & "%' OR 供應商資料表.供應商簡稱 LIKE N'%" & PA & "%' 
                        OR 樣品採購單控制表.需求日期 LIKE N'%" & PA & "%' OR 樣品採購單明細表.品名 LIKE N'%" & PA &
                 "%' OR 樣品採購單明細表.規格 LIKE N'%" & PA & "%' OR 樣品採購單明細表.備註 LIKE N'%" & PA & "%') " : Set_清單1()
        KKKJJ2 = "" : PA = ""
    End Sub
    Private Sub AAAToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 二維碼查單_tsm.Click
        PA = InputBox(對話框(1))
        KKKJJ2 = " AND (樣品採購單控制表.驗證碼 LIKE N'" & PA & "') " : Set_清單1()
        KKKJJ2 = "" : PA = ""
    End Sub
    Private Sub BBBToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 列印成EXCEL_tsm.Click
        MsgBox(對話框(2))
    End Sub
    Private Sub 對帳記錄存檔ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 對帳記錄存檔_tsm.Click
        MsgBox(對話框(2))
    End Sub

    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H219" : 語言轉換讀取()
        Set_清單1()
    End Sub
End Class