WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/財務管理系統/零用金支付_對帳表.vb

Option Strict Off
Public Class 零用金支付_對帳表
    Private ReadOnly ds As New DataSet
    Dim KKK3, KKK4 As String
    Private Sub Set_清單1()
        明細3_dgv.DataSource = Nothing : ds.Clear()
        明細3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        明細3_dgv.ColumnHeadersHeight = 25
        明細3_dgv.AllowUserToAddRows = False
        明細3_dgv.RowTemplate.Height = 35
        SQL_零用金支付_對帳表()
        列印用SQL = SQL1
        da.Fill(ds) : 明細3_dgv.DataSource = ds.Tables(0) : conn.Close()
        明細3_dgv.Columns(0).Width = 120 : 明細3_dgv.Columns(1).Width = 120 : 明細3_dgv.Columns(2).Width = 65 : 明細3_dgv.Columns(3).Width = 80
        明細3_dgv.Columns(4).Width = 65 : 明細3_dgv.Columns(5).Width = 80 : 明細3_dgv.Columns(6).Width = 65 : 明細3_dgv.Columns(7).Width = 80 : 明細3_dgv.Columns(8).Width = 40
        明細3_dgv.Columns(9).Width = 300 : 明細3_dgv.Columns(10).Width = 80 : 明細3_dgv.Columns(11).Width = 72 : 明細3_dgv.Columns(12).Width = 73 : 明細3_dgv.Columns(13).Width = 335
        明細3_dgv.Columns(14).Visible = False : 明細3_dgv.Columns(15).Width = 80 : 明細3_dgv.Columns(16).Visible = False : 明細3_dgv.Columns(17).Width = 80
        明細3_dgv.Columns(18).Width = 40 : 明細3_dgv.Columns(19).Width = 50 : 明細3_dgv.Columns(20).Width = 40
        明細3_dgv.Columns(10).DefaultCellStyle.Format = "#,##0.00"
        明細3_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        明細3_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
    End Sub
    Private Sub ComboBox1下拉表單資料載入()
        SQL_年份查詢()
        年份_cb.Items.Clear()
        While (dr.Read()) : 年份_cb.Items.Add(dr("年份")) : End While
        conn.Close()
    End Sub
    Private Sub 零用金支付_對帳表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        WINPROFIT_ERP_SYS.WindowState = 2 : Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        ComboBox1下拉表單資料載入()
        年份_cb.Text = Year(Today) : 月份_cb.SelectedIndex = Month(Today) - 1
        KKKJJ3 = "AND (零用金支付表.核准日期 LIKE N'" & KKK3 & "/" & KKK4 & "%') "
        資料尚未存檔_lb.Visible = False
        SQL_更改零用金支付明細() : conn.Close()
        SQL_更改零用金支付明細1() : conn.Close()
        SQL_更改零用金支付明細2() : conn.Close()
        SQL_更改零用金支付明細3() : conn.Close()
        SQL_更改零用金支付明細4() : conn.Close()
        Set_清單1()
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If 資料尚未存檔_lb.Visible = True Then : 資料尚未存檔_lb.Visible = False : Else : 資料尚未存檔_lb.Visible = True : End If
    End Sub
    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 明細3_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            Timer1.Enabled = True
        End If
    End Sub
    Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 明細3_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2)
        If e.RowIndex = 明細3_dgv.Rows.Count - 1 Then
            Exit Sub
        Else
            If 明細3_dgv(0, e.RowIndex).Value.ToString <> 明細3_dgv(0, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(明細3_dgv.RowHeadersVisible, 明細3_dgv.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 明細3_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 明細3_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                Exit Sub
            End If
        End If
        For i As Integer = 0 To 明細3_dgv.Rows.Count - 1
            If 明細3_dgv(11, i).Value = True And 明細3_dgv(12, i).Value = True Then
                明細3_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
            ElseIf 明細3_dgv(11, i).Value = True And 明細3_dgv(12, i).Value = False Then
                明細3_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
            End If
        Next
    End Sub
    Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles 全部資料_ch.Click
        全部資料_ch.Checked = True : 已核對_ch.Checked = False : 未核對_ch.Checked = False : 全部資料1_ch.Checked = False : 已出納_ch.Checked = False : 未出納_ch.Checked = False
        KKKJJ = "" : Set_清單1()
    End Sub
    Private Sub CheckBox8_CheckedChanged(sender As Object, e As EventArgs) Handles 已核對_ch.Click
        全部資料_ch.Checked = False : 已核對_ch.Checked = True : 未核對_ch.Checked = False : 全部資料1_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
        全部資料_ch.Checked = False : 已核對_ch.Checked = False : 未核對_ch.Checked = True : 全部資料1_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 全部資料1_ch.Click
        全部資料_ch.Checked = False : 已核對_ch.Checked = False : 未核對_ch.Checked = False : 全部資料1_ch.Checked = True : 已出納_ch.Checked = False : 未出納_ch.Checked = False
        KKKJJ = "" : Set_清單1()
    End Sub
    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles 已出納_ch.Click
        If 已出納_ch.Checked = True Then
            全部資料_ch.Checked = False : 已核對_ch.Checked = False : 未核對_ch.Checked = False : 全部資料1_ch.Checked = False : 未出納_ch.Checked = False
            KKKJJ = " AND (零用金支付明細.出納 = 1)" : Set_清單1()
        Else
            Set_清單1()
        End If

    End Sub
    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles 未出納_ch.Click
        全部資料_ch.Checked = False : 已核對_ch.Checked = False : 未核對_ch.Checked = False : 全部資料1_ch.Checked = False : 已出納_ch.Checked = False : 未出納_ch.Checked = True
        KKKJJ = " AND (零用金支付明細.出納 = 0 OR 零用金支付明細.出納 IS NULL)" : Set_清單1()
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
        PA = InputBox("請輸入要查詢的關鍵字")
        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 Set_日期格式轉換()
        DTP = Format(Today(), "yyyy/MM/dd")
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 對帳記錄存檔_bt.Click
        Timer1.Enabled = False : 資料尚未存檔_lb.Visible = False
        Set_日期格式轉換()
        For i As Integer = 0 To 明細3_dgv.Rows.Count - 1
            資料數 = 明細3_dgv.Rows.Count : MyModule1.進度條()
            PA = 明細3_dgv.Rows(i).Cells("流水號").Value : PA1 = 明細3_dgv.Rows(i).Cells("項次").Value
            SQL_零用金支付明細2()
            If dr.Read() Then
                If dr("會計") = False And 明細3_dgv.Rows(i).Cells("會計作業").Value = True Then
                    SQL_更新零用金支付明細() : conn.Close()
                    SQL_更新零用金支付表() : conn.Close()
                End If
            End If : conn.Close()
            '--------------------------------------------------------------------
            SQL_零用金支付明細2()
            If dr.Read() Then
                If dr("出納") = False And 明細3_dgv.Rows(i).Cells("出納作業").Value = True Then
                    SQL_更新零用金支付明細1() : conn.Close()
                    SQL_更新零用金支付表1() : conn.Close()
                End If
            End If : conn.Close()
            PA2 = 明細3_dgv.Rows(i).Cells("現金").Value : PA3 = 明細3_dgv.Rows(i).Cells("備用金").Value
            PA4 = 明細3_dgv.Rows(i).Cells("公帳").Value
            SQL_修改零用金支付明細3() : conn.Close()
        Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
        MsgBox("存檔完成") : Set_清單1()

    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click
        If KKK3 = "" Or KKK4 = "" Then
        Else
            KKKJJ3 = "AND (零用金支付表.核准日期 LIKE N'" & KKK3 & "/" & KKK4 & "%') "
        End If
        Set_清單1()
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 列印成EXCEL_bt.Click
        列印_零用金支付明細.ShowDialog()
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 年份_cb.SelectedIndexChanged
        KKK3 = 年份_cb.Text
    End Sub
    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 月份_cb.SelectedIndexChanged
        KKK4 = 月份_cb.Text
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles 清除_bt.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 Button6_Click(sender As Object, e As EventArgs) Handles 查詢單據驗證碼_bt.Click
        PA = InputBox("請輸入要查詢的驗證碼。")
        KKKJJ2 = " AND (零用金支付表.簽名編碼 LIKE N'" & PA & "')" : Set_清單1()
        KKKJJ2 = "" : PA = ""
    End Sub
End Class