GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/05、財務管理系統/營運成本收支單審核.vb

Option Strict Off
Imports System.Data.SqlClient
Imports System.IO
Public Class 營運成本收支單審核
    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : Dim ds4 As New DataSet
    'Dim dr As SqlDataReader
    Private ReadOnly QQW(11) As String : ReadOnly 對話框(3) As String
    Dim WWEE As String : Private II As Integer
    Private Sub Set_清單1()
        彙總_dgv.DataSource = Nothing : ds1.Clear()
        彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        彙總_dgv.ColumnHeadersHeight = 25
        彙總_dgv.AllowUserToAddRows = False
        'If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        If 未核准的營運成本收支單_rb.Checked = True And 作廢的營運成本收支單_rb.Checked = False Then
            SQL_營運成本收支單審核_審核人1()
        ElseIf 未核准的營運成本收支單_rb.Checked = False And 作廢的營運成本收支單_rb.Checked = True Then
            SQL_營運成本收支單審核_審核人2()
        End If
        SQL_營運成本收支單審核_查詢收支單審核()
        da.Fill(ds1) : 彙總_dgv.DataSource = ds1.Tables(0) : conn.Close()
        彙總_dgv.Columns(0).FillWeight = 160 : 彙總_dgv.Columns(1).FillWeight = 100 : 彙總_dgv.Columns(2).FillWeight = 100 : 彙總_dgv.Columns(3).Visible = False
    End Sub
    Private Sub Set_費用清單()
        明細_dgv.DataSource = Nothing : ds.Clear()
        明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        明細_dgv.ColumnHeadersHeight = 25
        明細_dgv.AllowUserToAddRows = False
        明細_dgv.RowTemplate.Height = 35
        SQL_營運成本收支單審核_查詢費用清單() : da.SelectCommand = cmd : da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close()

        明細_dgv.Columns(0).Visible = False : 明細_dgv.Columns(1).FillWeight = 80 : 明細_dgv.Columns(2).FillWeight = 300 : 明細_dgv.Columns(3).FillWeight = 500
        明細_dgv.Columns(4).FillWeight = 140 : 明細_dgv.Columns(5).FillWeight = 140 : 明細_dgv.Columns(6).FillWeight = 140 : 明細_dgv.Columns(7).FillWeight = 140
        明細_dgv.Columns(8).FillWeight = 140 : 明細_dgv.Columns(9).FillWeight = 140 : 明細_dgv.Columns(10).FillWeight = 140 : 明細_dgv.Columns(11).Visible = False
        明細_dgv.Columns(12).Visible = False

        明細_dgv.Columns(1).ReadOnly = True : 明細_dgv.Columns(2).ReadOnly = True : 明細_dgv.Columns(9).ReadOnly = True : 明細_dgv.Columns(10).ReadOnly = True

        明細_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.00"
        明細_dgv.Columns(7).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(8).DefaultCellStyle.Format = "#,##0.00"
        明細_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        明細_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        明細_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        明細_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        明細_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(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter

        現金_tb.Text = "0" : 支出_tb.Text = "0" : 現金餘額_tb.Text = "0" : 零用金_tb.Text = "0" : 支票_tb.Text = "0"
        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
            現金_tb.Text = Val(現金_tb.Text) + 明細_dgv.Rows(i).Cells(表頭(39)).Value : 支出_tb.Text = Val(支出_tb.Text) + 明細_dgv.Rows(i).Cells(表頭(112)).Value
            零用金_tb.Text = Val(零用金_tb.Text) + 明細_dgv.Rows(i).Cells(表頭(110)).Value : 支票_tb.Text = Val(支票_tb.Text) + 明細_dgv.Rows(i).Cells(表頭(111)).Value
        Next i
        現金餘額_tb.Text = Val(零用金_tb.Text) + Val(現金_tb.Text) - Val(支出_tb.Text)
        If Val(現金餘額_tb.Text) > 0 Then : 現金餘額_tb.ForeColor = Color.Blue : Else : 現金餘額_tb.ForeColor = Color.Red : End If
        現金_tb.Text = Format(Val(現金_tb.Text), "#,##0.00") : 支出_tb.Text = Format(Val(支出_tb.Text), "#,##0.00") : 現金餘額_tb.Text = Format(Val(現金餘額_tb.Text), "#,##0.00")
        零用金_tb.Text = Format(Val(零用金_tb.Text), "#,##0.00") : 支票_tb.Text = Format(Val(支票_tb.Text), "#,##0.00")
    End Sub
    Private Sub Set_清單()
        簽名清單_dgv.DataSource = Nothing : ds2.Clear()
        簽名清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        簽名清單_dgv.ColumnHeadersHeight = 25
        簽名清單_dgv.AllowUserToAddRows = False
        SQL_營運成本收支單審核_查詢圖片流水號() : da.Fill(ds2) : 簽名清單_dgv.DataSource = ds2.Tables(0) : conn.Close()

        簽名清單_dgv.Columns(0).FillWeight = 173 : 簽名清單_dgv.Columns(1).Visible = False
        If 簽名清單_dgv.Rows.Count = 0 Then : Else
            圖片編碼_tb.Text = 簽名清單_dgv(0, 0).Value.ToString
            SQL_營運成本收支單審核_查詢簽名檔圖片()
            While dr.Read() = True
                Dim unused As Byte() = New Byte(-1) {}
                Dim bytes As Byte() = DirectCast(dr.Item("簽名檔圖片"), Byte())
                Dim oStream As New MemoryStream(bytes)
                簽名圖_pb.Image = Bitmap.FromStream(oStream)
            End While
            conn.Close()
            簽名圖_pb.SizeMode = 4
            For QAZ = 0 To 999
                QQW(0) = Strings.Right(簽名清單_dgv(0, 0).Value.ToString, 2) : QQW(1) = Strings.Right(Year(Today), 2) : QQW(2) = Strings.Left(Year(Today), 2) : QQW(3) = Month(Today) + 9
                QQW(4) = Strings.Right(QQW(0), 1) : QQW(5) = Strings.Left(QQW(0), 1) : QQW(6) = Strings.Right(QQW(1), 1) : QQW(7) = Strings.Left(QQW(1), 1) : QQW(8) = Strings.Right(QQW(2), 1)
                QQW(9) = Strings.Left(QQW(2), 1) : QQW(10) = Strings.Right(QQW(3), 1) : QQW(11) = Strings.Left(QQW(3), 1)
                For RT = 4 To 11
                    Delay(3)
                    Dim ran = New Random(DateTime.Now.Millisecond) : Dim NUM1 As Integer = ran.Next(1, 4096)
                    For I = 0 To 4096 : If NUM1 > 9 Then : NUM1 -= 9 : ElseIf NUM1 < 9 Then : I = 4096 : End If : Next
                    If NUM1 = 1 Then : II = RT : 轉換() : ElseIf NUM1 = 2 Then : II = RT : 轉換() : ElseIf NUM1 = 3 Then : ElseIf NUM1 = 4 Then : II = RT : 轉換() : ElseIf NUM1 = 5 Then
                    ElseIf NUM1 = 6 Then : II = RT : 轉換() : ElseIf NUM1 = 7 Then : ElseIf NUM1 = 8 Then : II = RT : 轉換() : ElseIf NUM1 = 9 Then : II = RT : 轉換() : End If
                Next

                Dim ran1 = New Random(DateTime.Now.Millisecond) : Dim NUM2 As Integer = ran1.Next(1, 4096)
                For I = 0 To 4096 : If NUM2 > 99 Then : NUM2 -= 49 : ElseIf NUM2 < 99 Then : I = 4096 : End If : Next

                驗證碼_tb.Text = QQW(11) & "2" & QQW(9) & "7" & QQW(7) & "0" & QQW(5) & QQW(4) & "1" & QQW(6) & "3" & QQW(8) & "9" & QQW(10) & NUM2

                SQL_營運成本收支單審核_查詢簽名編碼()
                If dr.Read() = True Then : Else : QAZ = 999 : End If : conn.Close()
            Next
        End If
    End Sub
    Private Sub 轉換()
        If QQW(II) = "1" Then : QQW(II) = "A" : ElseIf QQW(II) = "2" Then : QQW(II) = "B" : ElseIf QQW(II) = "3" Then : QQW(II) = "C" : ElseIf QQW(II) = "4" Then : QQW(II) = "D"
        ElseIf QQW(II) = "5" Then : QQW(II) = "E" : ElseIf QQW(II) = "6" Then : QQW(II) = "F" : ElseIf QQW(II) = "7" Then : QQW(II) = "G" : ElseIf QQW(II) = "8" Then : QQW(II) = "H"
        ElseIf QQW(II) = "9" Then : QQW(II) = "I" : ElseIf QQW(II) = "0" Then : QQW(II) = "J"
        End If
    End Sub
    Public Sub Delay(ByRef Interval As Double)  'Interval单位为毫秒
        Dim time As DateTime = DateTime.Now : Dim Span As Double = Interval * 1234 : While ((DateTime.Now.Ticks - time.Ticks) < Span) : Application.DoEvents() : End While
    End Sub
    Private Sub Set_語言()
        語言_dgv.DataSource = Nothing : ds4.Clear()
        語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        語言_dgv.ColumnHeadersHeight = 25
        語言_dgv.AllowUserToAddRows = False
        SQL_系統語言導入()
        da.Fill(ds4) : 語言_dgv.DataSource = ds4.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 = "未核准的營運成本收支單_rb" Then : 未核准的營運成本收支單_rb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "作廢的營運成本收支單_rb" Then : 作廢的營運成本收支單_rb.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 = "非當天日期_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 = "支票_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 = "審核通過_bt" Then : 審核通過_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "單據作廢_bt" Then : 單據作廢_bt.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 = "清單_dgv_收支單號" Then : 表頭(107) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_申請日期" Then : 表頭(20) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_審核日期" Then : 表頭(108) = 語言_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 : 表頭(98) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_用途" Then : 表頭(109) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_零用金" Then : 表頭(110) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_支票" Then : 表頭(111) = 語言_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 : 表頭(112) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_票期" Then : 表頭(113) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_匯率" Then : 表頭(114) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_幣別" Then : 表頭(115) = 語言_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
            If 語言_dgv("控件", i).Value.ToString = "對話框4" Then : 對話框(3) = 語言_dgv("內容", i).Value.ToString : End If

        Next
    End Sub
    Private Sub 營運成本收支單審核_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        介面 = "H302" : Set_語言() : 語言轉換讀取()
        Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        未核准的營運成本收支單_rb.Checked = True : 彙總_dgv.Visible = True
        Set_清單1() : Set_清單()
    End Sub
    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 彙總_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            營運成本收支單號_tb.Text = 彙總_dgv(0, e.RowIndex).Value.ToString : 審核日期_dtp.Value = 彙總_dgv(1, e.RowIndex).Value.ToString : Set_費用清單()
            申請人_tb.Text = 彙總_dgv(3, e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub DataGridView3_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
            SQL_營運成本收支單審核_查詢簽名檔圖片()
            While dr.Read() = True
                Dim unused As Byte() = New Byte(-1) {}
                Dim bytes As Byte() = DirectCast(dr.Item("簽名檔圖片"), Byte())
                Dim oStream As New MemoryStream(bytes)
                簽名圖_pb.Image = Bitmap.FromStream(oStream)
            End While
            conn.Close()
            簽名圖_pb.SizeMode = 4
            For QAZ = 0 To 999
                QQW(0) = Strings.Right(簽名清單_dgv(0, e.RowIndex).Value.ToString, 2) : QQW(1) = Strings.Right(Year(Today), 2) : QQW(2) = Strings.Left(Year(Today), 2) : QQW(3) = Month(Today) + 9
                QQW(4) = Strings.Right(QQW(0), 1) : QQW(5) = Strings.Left(QQW(0), 1) : QQW(6) = Strings.Right(QQW(1), 1) : QQW(7) = Strings.Left(QQW(1), 1) : QQW(8) = Strings.Right(QQW(2), 1)
                QQW(9) = Strings.Left(QQW(2), 1) : QQW(10) = Strings.Right(QQW(3), 1) : QQW(11) = Strings.Left(QQW(3), 1)
                For RT = 4 To 11
                    Delay(3)
                    Dim ran = New Random(DateTime.Now.Millisecond) : Dim NUM1 As Integer = ran.Next(1, 4096)
                    For I = 0 To 4096 : If NUM1 > 9 Then : NUM1 -= 9 : ElseIf NUM1 < 9 Then : I = 4096 : End If : Next
                    If NUM1 = 1 Then : II = RT : 轉換() : ElseIf NUM1 = 2 Then : II = RT : 轉換() : ElseIf NUM1 = 3 Then : ElseIf NUM1 = 4 Then : II = RT : 轉換() : ElseIf NUM1 = 5 Then
                    ElseIf NUM1 = 6 Then : II = RT : 轉換() : ElseIf NUM1 = 7 Then : ElseIf NUM1 = 8 Then : II = RT : 轉換() : ElseIf NUM1 = 9 Then : II = RT : 轉換() : End If
                Next

                Dim ran1 = New Random(DateTime.Now.Millisecond) : Dim NUM2 As Integer = ran1.Next(1, 4096)
                For I = 0 To 4096 : If NUM2 > 99 Then : NUM2 -= 49 : ElseIf NUM2 < 99 Then : I = 4096 : End If : Next

                驗證碼_tb.Text = QQW(11) & "2" & QQW(9) & "7" & QQW(7) & "0" & QQW(5) & QQW(4) & "1" & QQW(6) & "3" & QQW(8) & "9" & QQW(10) & NUM2

                SQL_營運成本收支單審核_查詢簽名編碼()
                If dr.Read() = True Then : Else : QAZ = 999 : End If : conn.Close()
            Next
        End If
    End Sub
    Private Sub Set_切換格式()
        明細_dgv.DataSource = Nothing : ds.Clear() : 營運成本收支單號_tb.Text = "" : 申請人_tb.Text = "" : 現金_tb.Text = "" : 支出_tb.Text = "" : 現金餘額_tb.Text = ""
        零用金_tb.Text = "" : 支票_tb.Text = "" : Set_清單1()
    End Sub
    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles 未核准的營運成本收支單_rb.Click
        未核准的營運成本收支單_rb.Checked = True : 作廢的營運成本收支單_rb.Checked = False
        明細_dgv.DataSource = Nothing : ds.Clear() : 營運成本收支單號_tb.Text = "" : 申請人_tb.Text = "" : 現金_tb.Text = "" : 支出_tb.Text = "" : 現金餘額_tb.Text = ""
        審核通過_bt.Enabled = True : 單據作廢_bt.Enabled = True : 審核通過ToolStripMenuItem.Enabled = True : 單據作廢ToolStripMenuItem.Enabled = True : Set_切換格式()
    End Sub
    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles 作廢的營運成本收支單_rb.Click
        未核准的營運成本收支單_rb.Checked = False : 作廢的營運成本收支單_rb.Checked = True
        明細_dgv.DataSource = Nothing : ds.Clear() : 營運成本收支單號_tb.Text = "" : 申請人_tb.Text = "" : 現金_tb.Text = "" : 支出_tb.Text = "" : 現金餘額_tb.Text = ""
        審核通過_bt.Enabled = False : 單據作廢_bt.Enabled = False : 審核通過ToolStripMenuItem.Enabled = False : 單據作廢ToolStripMenuItem.Enabled = False : Set_切換格式()
    End Sub
    Private Sub Set_日期格式轉換()
        DTP = Format(Today(), "yyyy/MM/dd")
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 審核通過_bt.Click
        If 營運成本收支單號_tb.Text = "" Then
            MsgBox(對話框(0))
        Else
            If 非當天日期_ch.Checked = False Then
                Set_日期格式轉換()
            Else
                DTP = Format(審核日期_dtp.Value, "yyyy/MM/dd")
            End If
            conn.Close()
            SQL_營運成本收支單審核_修改財務收支控制表()
            SQL_營運成本收支單審核_修改財務收支明細表() : conn.Close()
            For i As Integer = 0 To 明細_dgv.Rows.Count - 1
                PA1 = 明細_dgv.Rows(i).Cells(表頭(11)).Value
                If 明細_dgv.Rows(i).Cells(表頭(110)).Value <> 0 Then
                    SQL_營運成本收支單審核_修改財務收支明細表備用金() : conn.Close()
                ElseIf 明細_dgv.Rows(i).Cells(表頭(39)).Value <> 0 Then
                    SQL_營運成本收支單審核_修改財務收支明細表現金() : conn.Close()
                ElseIf 明細_dgv.Rows(i).Cells(表頭(112)).Value <> 0 Then
                    SQL_營運成本收支單審核_修改財務收支明細表支出() : conn.Close()
                End If
            Next
            MsgBox(對話框(1))
            營運成本收支單號_tb.Text = "" : 申請人_tb.Text = ""
            明細_dgv.DataSource = Nothing : ds.Clear()
            Set_清單1() : Set_清單()
        End If
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 單據作廢_bt.Click
        If 營運成本收支單號_tb.Text = "" Then
            MsgBox(對話框(0))
        Else
            PA = InputBox(對話框(2))
            If PA = "" Then
                MsgBox(對話框(3))
            Else
                If 非當天日期_ch.Checked = False Then
                    Set_日期格式轉換()
                Else
                    DTP = Format(審核日期_dtp.Value, "yyyy/MM/dd")
                End If
                conn.Close()
                SQL_營運成本收支單審核_審核人3() : conn.Close()
                MsgBox(對話框(1)) : PA = ""
                營運成本收支單號_tb.Text = "" : 申請人_tb.Text = ""
                明細_dgv.DataSource = Nothing : ds.Clear()
                Set_清單1()
            End If
        End If
    End Sub
    '----------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 重新讀取ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新讀取ToolStripMenuItem.Click
        Set_清單1()
    End Sub
    Private Sub 審核通過ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 審核通過ToolStripMenuItem.Click
        Me.審核通過_bt.PerformClick()
    End Sub
    Private Sub 單據作廢ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 單據作廢ToolStripMenuItem.Click
        Me.單據作廢_bt.PerformClick()
    End Sub
End Class