Option Strict Off Public Class 行政物料採購_驗收_對帳表 ReadOnly ds As New DataSet : 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() 清單_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 介面 = "H219" : 語言轉換讀取() ComboBox1下拉表單資料載入() 年_cb.Text = Year(Today) : 月_cb.SelectedIndex = Month(Today) - 1 KKKJJ3 = "AND (樣品採購單控制表.核准日期 LIKE '" & KKK3 & "/" & KKK4 & "%') " Label62.Visible = False : 單號_tb.Visible = False Set_清單1() 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 '" & 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 '" & 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 End Class