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

Option Strict Off
Imports System.Data.SqlClient
Public Class 營運成本收支單申請
    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : Dim ds4 As New DataSet
    Dim 新項次 As String : Dim 新流水1 As String : Dim 新流水2 As String
    Dim NUM1 As Integer : Dim 匯率1 As Double : ReadOnly 對話框(4) As String
    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 And 已核准的營運成本收支單_rb.Checked = False Then
            SQL_營運成本收支單申請_審核人1()
        ElseIf 未核准的營運成本收支單_rb.Checked = False And 作廢的營運成本收支單_rb.Checked = True And 已核准的營運成本收支單_rb.Checked = False Then
            SQL_營運成本收支單申請_審核人2()
        ElseIf 未核准的營運成本收支單_rb.Checked = False And 作廢的營運成本收支單_rb.Checked = False And 已核准的營運成本收支單_rb.Checked = True Then
            SQL_營運成本收支單申請_審核人3()
        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.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.00" : 支出_tb.Text = "0.00" : 現金餘額_tb.Text = "0.00" : 零用金_tb.Text = "0" : 支票_tb.Text = "0.00"
        For i As Integer = 0 To 單一筆收支單_dgv.Rows.Count - 1
            現金_tb.Text = Val(現金_tb.Text) + Val(單一筆收支單_dgv.Rows(i).Cells(表頭(39)).Value) : 支出_tb.Text = Val(支出_tb.Text) + Val(單一筆收支單_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 ComboBox1下拉表單資料載入()
        conn.Close()
        SQL_營運成本收支單申請_查詢財務收支控制表會計科目() : ComboBox1.Items.Clear() : ComboBox6.Items.Clear()
        While (dr.Read()) : ComboBox1.Items.Add(dr("會計科目")) : ComboBox6.Items.Add(dr("編號")) : End While : conn.Close()
        If ComboBox1.Items.Count <> 0 Then : ComboBox1.SelectedIndex = 0 : End If
    End Sub
    Private Sub ComboBox2下拉表單資料載入()
        conn.Close()
        SQL_營運成本收支單申請_查詢最後一筆財務收支控制表會計科目() : ComboBox5.Items.Clear() : ComboBox2.Items.Clear() : ComboBox5.Text = "" : ComboBox2.Text = ""
        While (dr.Read()) : ComboBox5.Items.Add(dr("第一階")) : ComboBox2.Items.Add(dr("編號")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox3下拉表單資料載入()
        conn.Close()
        SQL_營運成本收支單申請_查詢最左邊財務收支控制表會計科目() : ComboBox3.Items.Clear() : ComboBox4.Items.Clear() : ComboBox3.Text = "" : ComboBox4.Text = ""
        While (dr.Read()) : ComboBox3.Items.Add(dr("第二階")) : ComboBox4.Items.Add(dr("編號")) : End While : conn.Close()
    End Sub
    Private Sub 匯率()
        SQL_營運成本收支單申請_查詢匯率()
        If dr.Read() Then
            人民幣匯率_tb.Text = dr("中心匯率").ToString : 美金匯率_tb.Text = dr("美金匯率").ToString : 印尼匯率_tb.Text = dr("印尼盾").ToString
            conn.Close() : dr.Close()
        Else
            conn.Close() : dr.Close() : 匯率管理.Close() : 匯率管理.Show() : 匯率管理.BringToFront()
        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 = "" : 支票_tb.Text = "" : ComboBox1下拉表單資料載入() : Set_清單1()
    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 = "已核准的營運成本收支單_rb" Then : 已核准的營運成本收支單_rb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "營運成本收支單號" 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 = "補單_cb" Then : 補單_cb.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 = "複製歷史單據重新開立_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 = "支出_lb" Then : 支出_lb.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 = "關鍵_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 = "申請完成_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 = "清單_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
            If 語言_dgv("控件", i).Value.ToString = "對話框5" Then : 對話框(4) = 語言_dgv("內容", i).Value.ToString : End If
        Next
    End Sub
    Private Sub 營運成本收支單申請_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        介面 = "H301" : Set_語言() : 語言轉換讀取()
        Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        未核准的營運成本收支單_rb.Checked = True : 日期_dtp.Visible = False : 複製歷史單據重新開立_bt.Enabled = False : ComboBox6.Visible = False
        營運收支單_dgv.Visible = True : Set_清單1() : ComboBox2下拉表單資料載入() : 幣別_cb.SelectedIndex = 0
        匯率()
    End Sub
    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.TextChanged
        ComboBox2.SelectedIndex = ComboBox5.SelectedIndex : 關鍵字查詢會計科目_tb.Text = "" : ComboBox3下拉表單資料載入() : ComboBox1下拉表單資料載入()
    End Sub
    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.TextChanged
        ComboBox5.SelectedIndex = ComboBox2.SelectedIndex : ComboBox3下拉表單資料載入() : ComboBox1下拉表單資料載入()
    End Sub
    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.TextChanged
        ComboBox4.SelectedIndex = ComboBox3.SelectedIndex : ComboBox1下拉表單資料載入()
    End Sub
    Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.TextChanged
        ComboBox3.SelectedIndex = ComboBox4.SelectedIndex : ComboBox1下拉表單資料載入()
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        ComboBox6.SelectedIndex = ComboBox1.SelectedIndex
    End Sub
    Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox6.SelectedIndexChanged
        ComboBox1.SelectedIndex = ComboBox6.SelectedIndex
    End Sub
    Private Sub 關鍵字查詢會計科目_tb_TextChanged(sender As Object, e As EventArgs) Handles 關鍵字查詢會計科目_tb.TextChanged
        conn.Close()
        SQL_營運成本收支單申請_營運成本會計科目查詢() : conn.Close()
        If ComboBox1.Items.Count <> 0 Then : ComboBox1.SelectedIndex = 0 : End If
    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 單一筆收支單_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 單一筆收支單_dgv.CellEndEdit
        現金_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") : 支出_tb.Text = Format(Val(支出_tb.Text), "#,##0") : 現金餘額_tb.Text = Format(Val(現金餘額_tb.Text), "#,##0")
        零用金_tb.Text = Format(Val(零用金_tb.Text), "#,##0") : 支票_tb.Text = Format(Val(支票_tb.Text), "#,##0")
        Dim EU As String
        EU = 單一筆收支單_dgv(表頭(113), e.RowIndex).Value.ToString
        If EU = "" Then
        Else
            日期_dtp.Text = EU
            單一筆收支單_dgv.Rows(e.RowIndex).Cells(表頭(113)).Value = Format(日期_dtp.Value, "yyyy/MM/dd")
        End If
    End Sub
    Private Sub 營運收支單_dgv_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 單一筆收支單_dgv_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(1, e.RowIndex).Value.ToString
        End If
    End Sub

    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles 未核准的營運成本收支單_rb.Click
        未核准的營運成本收支單_rb.Checked = True : 作廢的營運成本收支單_rb.Checked = False : 已核准的營運成本收支單_rb.Checked = False
        申請完成_bt.Enabled = True : 複製歷史單據重新開立_bt.Enabled = False
        開立營運成本收支單_bt.Enabled = True : 收支單中新增一筆空白資料_bt.Enabled = True
        刪除選中的一筆資料_bt.Enabled = True : 刪除選中的營運成本收支單_bt.Enabled = True : Set_切換格式()
    End Sub
    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles 作廢的營運成本收支單_rb.Click
        未核准的營運成本收支單_rb.Checked = False : 作廢的營運成本收支單_rb.Checked = True : 已核准的營運成本收支單_rb.Checked = False
        申請完成_bt.Enabled = False : 複製歷史單據重新開立_bt.Enabled = False
        開立營運成本收支單_bt.Enabled = False : 收支單中新增一筆空白資料_bt.Enabled = False
        刪除選中的一筆資料_bt.Enabled = False : 刪除選中的營運成本收支單_bt.Enabled = False : Set_切換格式()
    End Sub
    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles 已核准的營運成本收支單_rb.Click
        If CC(28) = False Then
            未核准的營運成本收支單_rb.Checked = False : 作廢的營運成本收支單_rb.Checked = False : 已核准的營運成本收支單_rb.Checked = True
            申請完成_bt.Enabled = False : 複製歷史單據重新開立_bt.Enabled = True
            開立營運成本收支單_bt.Enabled = False : 收支單中新增一筆空白資料_bt.Enabled = False
            刪除選中的一筆資料_bt.Enabled = False : 刪除選中的營運成本收支單_bt.Enabled = False : Set_切換格式()
        Else
            未核准的營運成本收支單_rb.Checked = False : 作廢的營運成本收支單_rb.Checked = False : 已核准的營運成本收支單_rb.Checked = True
            申請完成_bt.Enabled = True : 複製歷史單據重新開立_bt.Enabled = True
            開立營運成本收支單_bt.Enabled = True : 收支單中新增一筆空白資料_bt.Enabled = True
            刪除選中的一筆資料_bt.Enabled = True : 刪除選中的營運成本收支單_bt.Enabled = True : Set_切換格式()
        End If
    End Sub
    Private Sub 存檔()
        For i As Integer = 0 To 單一筆收支單_dgv.Rows.Count - 1
            資料數 = 單一筆收支單_dgv.Rows.Count : MyModule1.進度條()
            PA1 = 單一筆收支單_dgv.Rows(i).Cells(表頭(109)).Value : PA2 = 單一筆收支單_dgv.Rows(i).Cells(表頭(112)).Value : PA3 = 單一筆收支單_dgv.Rows(i).Cells(表頭(113)).Value
            PA4 = 單一筆收支單_dgv.Rows(i).Cells("類別").Value : PA5 = 單一筆收支單_dgv.Rows(i).Cells(表頭(39)).Value : PA6 = 單一筆收支單_dgv.Rows(i).Cells(表頭(110)).Value
            PA7 = 單一筆收支單_dgv.Rows(i).Cells(表頭(111)).Value : PA8 = 單一筆收支單_dgv.Rows(i).Cells(表頭(114)).Value : PA9 = 單一筆收支單_dgv.Rows(i).Cells(表頭(11)).Value
            SQL_會計科目管理_修改收支單申請表() : conn.Close()
        Next : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
    End Sub

    Private Sub Set_流水號()
        conn.Close() : dr.Close()
        Dim NUM1 As Integer
        For NUM1 = 0 To 99
            Dim d As String : Dim f As String : Dim g As Integer = 1
            If Month(Now) < 10 Then : d = "0" & CStr(Month(Now))
            Else : d = CStr(Month(Now))
            End If
            If Now.Day() < 10 Then : f = "0" & CStr(Now.Day())
            Else : f = CStr(Now.Day())
            End If
            If NUM1 < 10 Then : 新流水1 = "B" & Microsoft.VisualBasic.Right(CStr(Year(Now)), 2) & d & f & "0" & NUM1
            Else : 新流水1 = "B" & Microsoft.VisualBasic.Right(CStr(Year(Now)), 2) & d & f & NUM1
            End If : PA19 = 新流水1
            SQL_營運成本收支單申請_查詢收支單公帳流水號()
            If dr.Read() Then : conn.Close() : Else : conn.Close() : NUM1 = 99 : End If
        Next
    End Sub

    Private Sub 複製歷史單據重新開立_bt_Click(sender As Object, e As EventArgs) Handles 複製歷史單據重新開立_bt.Click
        開立零用金支付單()
        開立營運成本收支單_bt.Enabled = False : 未核准的營運成本收支單_rb.Enabled = False : 作廢的營運成本收支單_rb.Enabled = False : 已核准的營運成本收支單_rb.Enabled = False
        營運收支單_dgv.Enabled = False : 未核准的營運成本收支單_rb.Checked = True : 作廢的營運成本收支單_rb.Checked = False : 已核准的營運成本收支單_rb.Checked = False : 申請完成_bt.Enabled = True
        複製歷史單據重新開立_bt.Enabled = False : 開立營運成本收支單_bt.Enabled = True : 收支單中新增一筆空白資料_bt.Enabled = True
        刪除選中的一筆資料_bt.Enabled = True : 刪除選中的營運成本收支單_bt.Enabled = True
        Set_清單1()
        For i As Integer = 0 To 單一筆收支單_dgv.Rows.Count - 1
            Set_流水號()
            SQL_會計科目管理_開立零用金支付單()
        Next
        Set_費用清單() : MsgBox(對話框(0))
    End Sub
    Private Sub 申請日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 申請日期_dtp.ValueChanged
        匯率()
    End Sub
    Private Sub 申請_bt_Click(sender As Object, e As EventArgs) Handles 申請完成_bt.Click
        Timer1.Enabled = False : 資料尚未存檔_lb.Visible = False
        開立營運成本收支單_bt.Enabled = True : 未核准的營運成本收支單_rb.Enabled = True : 作廢的營運成本收支單_rb.Enabled = True
        營運收支單_dgv.Enabled = True : 已核准的營運成本收支單_rb.Enabled = True
        存檔() : Set_清單1()
        MsgBox(對話框(1))
    End Sub

    Private Sub 收支單中新增一筆空白資料_bt_Click(sender As Object, e As EventArgs) Handles 收支單中新增一筆空白資料_bt.Click
        If ComboBox6.Text = "" Or 幣別_cb.Text = "" Then
            MsgBox(對話框(2))
        Else
            If 營運成本收支單號_tb.Text = "" Then
                開立零用金支付單()
            End If
            Set_日期格式轉換() : Set_流水號()
            存檔()
            SQL_營運成本收支單申請_查詢最後一筆公帳支付單號()
            If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close()
            NUM1 = Double.Parse(新項次) + 1
            If NUM1 < 10 Then : 新項次 = "0" & NUM1
            ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1
            End If
            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

            If 幣別_cb.Text = "台幣現金" Then
                匯率1 = 1
            ElseIf 幣別_cb.Text = "人民幣現金" Then
                匯率1 = 人民幣匯率_tb.Text
            ElseIf 幣別_cb.Text = "美金" Then
                匯率1 = 美金匯率_tb.Text
            ElseIf 幣別_cb.Text = "印尼盾" Then
                匯率1 = 印尼匯率_tb.Text
            End If
            PA16 = 匯率1
            PA15 = 新項次
            SQL_營運成本收支單申請_新增財務收支明細表資料() : conn.Close()
            Set_費用清單()
        End If
    End Sub
    Private Sub 刪除選中的一筆資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除選中的一筆資料_bt.Click
        If 選擇項次_tb.Text = "" Then
            MsgBox(對話框(3))
        Else
            存檔()
            SQL_營運成本收支單申請_刪除財務收支明細表支付單號() : conn.Close()
            Set_費用清單()
            Dim NUM1 As Integer = 0
            For i As Integer = 0 To 單一筆收支單_dgv.Rows.Count - 1
                PA17 = 單一筆收支單_dgv.Rows(i).Cells(表頭(11)).Value
                NUM1 += 1 : If NUM1 < 10 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
                PA18 = 新項次
                SQL_營運成本收支單申請_修改財務收支明細表支付單號() : conn.Close()
            Next
            Set_費用清單()
        End If
    End Sub
    Private Sub Set_日期格式轉換()
        If 補單_cb.Checked = False Then
            DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
        Else
            DTP1 = Format(申請日期_dtp.Value, "yyyyMMdd") : DTP = Format(申請日期_dtp.Value, "yyyy/MM/dd")
        End If
    End Sub
    Private Sub 開立零用金支付單()
        Dim NUM1 As Integer : Timer1.Enabled = True
        Set_日期格式轉換()
        For i As Integer = 1 To 999
            NUM1 = 0 + i
            If NUM1 < 10 Then : 營運成本收支單號_tb.Text = "OE-" & DTP1 & "-00" & NUM1
            ElseIf NUM1 > 9 And NUM1 < 100 Then : 營運成本收支單號_tb.Text = "OE-" & DTP1 & "-0" & NUM1
            ElseIf NUM1 > 99 Then : 營運成本收支單號_tb.Text = "OE-" & DTP1 & "-" & NUM1
            End If
            conn.Close()
            SQL_營運成本收支單申請_查詢第一筆公帳支付單號()
            If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
        Next
        SQL_營運成本收支單申請_新增一筆財務收支控制表() : conn.Close()
        申請人_tb.Text = gUserName
        Set_清單1()
    End Sub
    Private Sub 開立營運成本收支單_bt_Click(sender As Object, e As EventArgs) Handles 開立營運成本收支單_bt.Click
        開立零用金支付單()
        開立營運成本收支單_bt.Enabled = False : 未核准的營運成本收支單_rb.Enabled = False
        作廢的營運成本收支單_rb.Enabled = False : 已核准的營運成本收支單_rb.Enabled = False
        營運收支單_dgv.Enabled = False
        單一筆收支單_dgv.DataSource = Nothing : ds.Clear() : conn.Close()
        Set_清單1()
    End Sub
    Private Sub 刪除選中的營運成本收支單_bt_Click(sender As Object, e As EventArgs) Handles 刪除選中的營運成本收支單_bt.Click
        Dim aa As MsgBoxResult
        aa = MsgBox(對話框(4), MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            SQL_營運成本收支單申請_刪除財務收支控制表() : conn.Close()
            SQL_營運成本收支單申請_刪除財務收支明細表() : conn.Close()
            營運成本收支單號_tb.Text = "" : 申請人_tb.Text = "" : 選擇項次_tb.Text = ""
            單一筆收支單_dgv.DataSource = Nothing : ds.Clear()
            Set_清單1()
        End If
    End Sub

    '----------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 重新讀取ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新讀取ToolStripMenuItem.Click
        Set_清單1()
    End Sub
End Class