GF00-ERP-SYS-SIU/GF00-ERP-SYS/04.財務管理系統/財務_收支單申請.vb

Public Class 財務_收支單申請
    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet
    Dim 新項次 As String : Dim 新流水1 As String : Dim 新流水2 As String
    Dim NUM1, NUM2 As Integer : Dim 匯率1 As Double
    Private Sub Set_清單1()
        營運收支單_dgv.DataSource = Nothing : ds1.Clear()
        營運收支單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        營運收支單_dgv.ColumnHeadersHeight = 25
        營運收支單_dgv.AllowUserToAddRows = False
        營運收支單_dgv.RowTemplate.Height = 30

        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(4).FillWeight = 100
        營運收支單_dgv.Columns(2).Visible = False : 營運收支單_dgv.Columns(3).Visible = False : 營運收支單_dgv.Columns(5).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_營運成本收支單申請_查詢費用清單(營運成本收支單號_tb.Text) : 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).Visible = False : 明細表_dgv.Columns(6).Visible = False : 明細表_dgv.Columns(7).FillWeight = 140
        明細表_dgv.Columns(8).FillWeight = 140 : 明細表_dgv.Columns(9).Visible = False : 明細表_dgv.Columns(10).Visible = False : 明細表_dgv.Columns(11).Visible = False
        明細表_dgv.Columns(12).Visible = False : 明細表_dgv.Columns(13).FillWeight = 80
        明細表_dgv.Columns(1).ReadOnly = True : 明細表_dgv.Columns(2).ReadOnly = True  '明細表_dgv.Columns(9).ReadOnly = True : 明細表_dgv.Columns(10).ReadOnly = True
        '明細表_dgv.Columns(4).ReadOnly = True : 明細表_dgv.Columns(5).ReadOnly = True

        明細表_dgv.Columns(4).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
        明細表_dgv.Columns(6).DefaultCellStyle.Format = "#,##0"
        明細表_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(8).DefaultCellStyle.Format = "#,##0"
        明細表_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" : 憑證_tb.Text = "0"
        For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
            現金_tb.Text = Val(現金_tb.Text) + Val(明細表_dgv.Rows(i).Cells("收入").Value) : 支出_tb.Text = Val(支出_tb.Text) + Val(明細表_dgv.Rows(i).Cells("支出").Value)
            零用金_tb.Text = Val(零用金_tb.Text) + 明細表_dgv.Rows(i).Cells("零用金").Value : 支票_tb.Text = Val(支票_tb.Text) + 明細表_dgv.Rows(i).Cells("支票").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")
    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 匯率()
        PA1 = Strings.Left(Format(申請日期_dtp.Value, "yyyyMMdd"), 4)
        PA2 = Strings.Mid(Format(申請日期_dtp.Value, "yyyyMMdd"), 5, 2)
        SQL_營運成本收支單申請_查詢匯率()
        If dr.Read() Then
            人民幣匯率_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 載入公司編號cb()
        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
        Me.MdiParent = ICS_ASMS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        未核准的營運成本收支單_rb.Checked = True : 日期_dtp.Visible = False : 複製歷史單據重新開立_bt.Enabled = False : ComboBox6.Visible = False : 視窗1_pl.Visible = False
    End Sub
    Private Sub 財務_收支單申請_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        營運收支單_dgv.Visible = True : Set_清單1() : ComboBox2下拉表單資料載入() : 幣別_cb.SelectedIndex = 0 : Panel2.SendToBack()
        匯率() : 載入公司編號cb()
        If ICS_ASMS_ERP_SYS.Size.Width > 1440 And ICS_ASMS_ERP_SYS.Size.Height > 900 Then
            字體_NUD.Value = 9
        ElseIf ICS_ASMS_ERP_SYS.Size.Width <= 1440 And ICS_ASMS_ERP_SYS.Size.Height <= 900 Then
            字體_NUD.Value = 7.6
        End If : Dim 是否要重讀 As Boolean = False
        For i As Integer = 0 To 營運收支單_dgv.Rows.Count - 1
            Dim 日期字串 As String = 營運收支單_dgv(1, i).Value.ToString

            If String.IsNullOrWhiteSpace(日期字串) Then
                Continue For
            End If

            Dim 日期 As Date = Date.Parse(日期字串)
            Dim 今天 As Date = Date.Today

            If 日期 <= 今天.AddDays(-2) Then : 是否要重讀 = True
                DTP = Format(Today(), "yyyy/MM/dd")
                SQL_營運成本收支單審核_修改公帳控制表("自動鎖定", DTP, "", "", gUserName, DTP, 營運收支單_dgv(0, i).Value.ToString)
                SQL_營運成本收支單審核_修改公帳流水帳(營運收支單_dgv(0, i).Value.ToString) : conn.Close()
            End If
        Next
        If 是否要重讀 = True Then : Set_清單1() : End If
    End Sub
    Private Sub 營運成本收支單申請_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
        If ICS_ASMS_ERP_SYS.Size.Width > 1440 And ICS_ASMS_ERP_SYS.Size.Height > 900 Then
            字體_NUD.Value = 9
        ElseIf ICS_ASMS_ERP_SYS.Size.Width <= 1440 And ICS_ASMS_ERP_SYS.Size.Height <= 900 Then
            字體_NUD.Value = 8
        End If
    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" : 憑證_tb.Text = "0"
        For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
            If 明細表_dgv.Rows(i).Cells("收入").Value.ToString = "" Then : 明細表_dgv.Rows(i).Cells("收入").Value = 0 : End If
            If 明細表_dgv.Rows(i).Cells("支出").Value.ToString = "" Then : 明細表_dgv.Rows(i).Cells("支出").Value = 0 : End If
            現金_tb.Text = Val(現金_tb.Text) + 明細表_dgv.Rows(i).Cells("收入").Value : 支出_tb.Text = Val(支出_tb.Text) + 明細表_dgv.Rows(i).Cells("支出").Value
            零用金_tb.Text = Val(零用金_tb.Text) + 明細表_dgv.Rows(i).Cells("零用金").Value : 支票_tb.Text = Val(支票_tb.Text) + 明細表_dgv.Rows(i).Cells("支票").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")

    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
            If 營運收支單_dgv(1, e.RowIndex).Value.ToString <> "" Then : 申請日期_dtp.Value = 營運收支單_dgv(1, e.RowIndex).Value.ToString : End If
            Set_費用清單()
            申請人_tb.Text = 營運收支單_dgv(3, e.RowIndex).Value.ToString : 公司編號_cb.Text = 營運收支單_dgv(4, e.RowIndex).Value.ToString
            憑證_tb.Text = 營運收支單_dgv(5, e.RowIndex).Value.ToString
            ComboBox2下拉表單資料載入()
            Dim NUM1 As Integer = 0
            For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
                PA17 = 明細表_dgv.Rows(i).Cells("項次").Value
                NUM1 += 1 : If NUM1 < 10 Then : 新項次 = "00" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 99 Then : 新項次 = NUM1 : End If
                明細表_dgv.Rows(i).Cells("項次").Value = 新項次
            Next
        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
            幣別_cb.Text = 明細表_dgv("幣別", e.RowIndex).Value.ToString
            ComboBox2.Text = Strings.Left(明細表_dgv("類別", e.RowIndex).Value.ToString, 4) : ComboBox4.Text = Strings.Left(明細表_dgv("類別", e.RowIndex).Value.ToString, 7)
            ComboBox6.Text = 明細表_dgv("類別", e.RowIndex).Value.ToString
        End If
    End Sub

    Private Sub 未核准的營運成本收支單_rb_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 : 刪除選中的營運成本收支單_bt.Enabled = True : Set_切換格式()
    End Sub
    Private Sub 作廢的營運成本收支單_rb_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 : 刪除選中的營運成本收支單_bt.Enabled = False : Set_切換格式()
    End Sub
    Private Sub 已核准的營運成本收支單_rb_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 : 刪除選中的營運成本收支單_bt.Enabled = False : Set_切換格式()
        Else
            未核准的營運成本收支單_rb.Checked = False : 作廢的營運成本收支單_rb.Checked = False : 已核准的營運成本收支單_rb.Checked = True
            申請_bt.Enabled = True : 複製歷史單據重新開立_bt.Enabled = True : 存檔_bt.Enabled = False
            開立營運成本收支單_bt.Enabled = True : 收支單中新增一筆空白資料_bt.Enabled = True
            刪除選中的一筆資料_bt.Enabled = True : 刪除選中的營運成本收支單_bt.Enabled = True : Set_切換格式()
        End If
    End Sub
    Private Sub 存檔()
        PA = 營運成本收支單號_tb.Text
        SQL_營運成本收支單申請_修改公帳控制表憑證()
        For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
            資料數 = 明細表_dgv.Rows.Count : MyModule1.進度條()
            PA1 = 明細表_dgv.Rows(i).Cells("用途").Value.ToString : PA2 = 明細表_dgv.Rows(i).Cells("支出").Value.ToString : PA3 = 明細表_dgv.Rows(i).Cells("單據編號").Value.ToString
            PA4 = 明細表_dgv.Rows(i).Cells("類別").Value.ToString : PA5 = 明細表_dgv.Rows(i).Cells("收入").Value.ToString : PA6 = 明細表_dgv.Rows(i).Cells("零用金").Value.ToString
            PA7 = 明細表_dgv.Rows(i).Cells("支票").Value.ToString : PA8 = 明細表_dgv.Rows(i).Cells("匯率").Value.ToString : PA9 = 明細表_dgv.Rows(i).Cells("項次").Value.ToString
            BL1 = 明細表_dgv.Rows(i).Cells("含稅").Value.ToString : PA10 = 明細表_dgv.Rows(i).Cells("流水號").Value.ToString
            Dim 日期 As String = DTP4
            SQL_會計科目管理_修改收支單申請表(日期) : conn.Close()
        Next : ICS_ASMS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
        PA = ""
    End Sub
    Private Sub Set_流水號()
        conn.Close() : dr.Close()
        DTP1 = Format(申請日期_dtp.Value, "yyyyMMdd") : PA19 = DTP1.Substring(DTP1.Length - 6) : SQL_點燈_支付明細流水號查詢()
        If dr.Read() Then
            Dim 流水 As String = dr("流水號").ToString() ' 將流水號轉換為字串
            Dim parts As String = 流水.Substring(流水.Length - 4)
            Dim 流水號數字部分 As Integer = Integer.Parse(parts)
            Dim 新流水號數字部分 As Integer = 流水號數字部分 + 1
            Dim 新流水號數字部分字串 As String = 新流水號數字部分.ToString().PadLeft(4, "0"c)
            新流水1 = "B" & PA19 & 新流水號數字部分字串
        Else : 新流水1 = "B" & PA19 & "0000" : End If : PA19 = 新流水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 : 未核准的營運成本收支單_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() : Set_日期格式轉換()
        For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
            Set_流水號()
            SQL_會計科目管理_開立零用金支付單()
        Next
        Set_費用清單() : MsgBox("複製單據開立完成。")
    End Sub
    Private Sub 申請日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 申請日期_dtp.ValueChanged
        匯率()
    End Sub
    Private Sub 存檔流程()
        Timer1.Enabled = False : 資料尚未存檔_lb.Visible = False
        開立營運成本收支單_bt.Enabled = True : 未核准的營運成本收支單_rb.Enabled = True : 作廢的營運成本收支單_rb.Enabled = True
        營運收支單_dgv.Enabled = True : 已核准的營運成本收支單_rb.Enabled = True
        存檔() : Set_清單1()
        MsgBox("申請完成,請通知主管審核。")
        明細表_dgv.DataSource = Nothing : ds.Clear()
    End Sub
    Private Sub 申請_bt_Click(sender As Object, e As EventArgs) Handles 申請_bt.Click
        If 未核准的營運成本收支單_rb.Checked = True Then
            Set_日期格式轉換() : 存檔流程()
        ElseIf 已核准的營運成本收支單_rb.Checked = True Then
            If CC(56) = True Then : 存檔流程() : Else : MsgBox("已核准的資料不可以再修改。") : End If
        ElseIf 作廢的營運成本收支單_rb.Checked = True Then
            MsgBox("已作廢的資料不可以再修改。")
        End If
    End Sub
    Private Sub 收支單中新增一筆空白資料_bt_Click(sender As Object, e As EventArgs) Handles 收支單中新增一筆空白資料_bt.Click
        If ComboBox6.Text = "" Or 幣別_cb.Text = "" Then
            MsgBox("沒有選擇會計科目或幣別。")
        Else
            If 營運成本收支單號_tb.Text = "" Then
                開立零用金支付單()
            End If
            Set_日期格式轉換() : Set_流水號()
            存檔() : PA = 營運成本收支單號_tb.Text
            SQL_營運成本收支單申請_查詢最後一筆公帳支付單號() : PA = ""
            If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close() : NUM1 = Double.Parse(新項次) + 1
            If NUM1 < 10 Then : 新項次 = "00" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 99 Then : 新項次 = NUM1 : End If

            If 幣別_cb.Text = "台幣現金" Then : 匯率1 = 1 : 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("未選擇需要刪除的資料。")
        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("項次").Value
                NUM1 += 1 : If NUM1 < 10 Then : 新項次 = "00" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 99 Then : 新項次 = NUM1 : End If
                PA18 = 新項次
                SQL_營運成本收支單申請_修改公帳流水帳支付單號() : conn.Close()
            Next
            Set_費用清單()
        End If
    End Sub
    Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
        明細表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        營運收支單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
    End Sub
    Private Sub Set_日期格式轉換()
        If 補單_cb.Checked = False Then
            DTP4 = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
        Else
            DTP1 = Format(申請日期_dtp.Value, "yyyyMMdd") : DTP4 = 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()
            PA = 營運成本收支單號_tb.Text
            SQL_營運成本收支單申請_查詢第一筆公帳支付單號()
            If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
        Next
        PA = 營運成本收支單號_tb.Text
        PA50 = 公司編號_cb.Text
        SQL_營運成本收支單申請_新增一筆公帳控制表() : conn.Close()
        申請人_tb.Text = gUserName
        Set_清單1() : PA = ""
    End Sub

    Private Sub 開立營運成本收支單_bt_Click(sender As Object, e As EventArgs) Handles 開立營運成本收支單_bt.Click
        CB選擇清單(公司編號_cb, 公司編號_cb.Text)
        ComboBox2下拉表單資料載入()
        開立零用金支付單()
        開立營運成本收支單_bt.Enabled = False : 未核准的營運成本收支單_rb.Enabled = False
        作廢的營運成本收支單_rb.Enabled = False : 已核准的營運成本收支單_rb.Enabled = False
        營運收支單_dgv.Enabled = False
        明細表_dgv.DataSource = Nothing : ds.Clear() : conn.Close()
        現金_tb.Text = "" : 現金餘額_tb.Text = ""
        Set_清單1()
    End Sub
    Private Sub 刪除選中的營運成本收支單_bt_Click(sender As Object, e As EventArgs) Handles 刪除選中的營運成本收支單_bt.Click
        Dim aa As MsgBoxResult
        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            Dim SSA As String
            SSA = InputBox("確定刪除資料請輸入 [YES] !")
            If SSA = "YES" Then
                SQL_營運成本收支單申請_刪除公帳控制表() : conn.Close()
                SQL_營運成本收支單申請_刪除公帳流水帳() : conn.Close()
                營運成本收支單號_tb.Text = "" : 申請人_tb.Text = "" : 選擇項次_tb.Text = ""
                明細表_dgv.DataSource = Nothing : ds.Clear()
                Set_清單1() : 開立營運成本收支單_bt.Enabled = True : 未核准的營運成本收支單_rb.Enabled = True
                作廢的營運成本收支單_rb.Enabled = True : 已核准的營運成本收支單_rb.Enabled = True
                營運收支單_dgv.Enabled = True
            End If
        End If
    End Sub
    '----------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 重新讀取ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新讀取ToolStripMenuItem.Click
        Set_清單1()
    End Sub
    '----------------------自創視窗滑鼠拖曳功能---------------------------------------------------------------------------------------------------------
    Dim OldX, OldY As Long : Dim drag As Boolean
    Private Sub 收入_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 收入_cb.Click
        If 收入_cb.Checked = True Then
            收入_cb.Checked = True : 支出_cb.Checked = False
        Else
            收入_cb.Checked = False : 支出_cb.Checked = True
        End If
    End Sub
    Private Sub 支出_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 支出_cb.Click
        If 支出_cb.Checked = True Then
            收入_cb.Checked = False : 支出_cb.Checked = True
        Else
            收入_cb.Checked = True : 支出_cb.Checked = False
        End If
    End Sub
    Private Sub 確定_bt_Click(sender As Object, e As EventArgs) Handles 確定_bt.Click
        If 收入_cb.Checked = False And 支出_cb.Checked = False Then
            MsgBox("請先選擇這筆資料是收入還是支出!!!")
        Else
            If 收入_cb.Checked = True Then
                明細表_dgv.Rows(NUM2).Cells("收入").Value = 指定_ndp.Value
                If 窗口說明1_lb.Text = "支票" Then
                    明細表_dgv.Rows(NUM2).Cells("支票").Value = 指定_ndp.Value
                ElseIf 窗口說明1_lb.Text = "零用金" Then
                    明細表_dgv.Rows(NUM2).Cells("零用金").Value = 指定_ndp.Value
                End If
            Else
                明細表_dgv.Rows(NUM2).Cells("支出").Value = 指定_ndp.Value
                If 窗口說明1_lb.Text = "支票" Then
                    明細表_dgv.Rows(NUM2).Cells("支票").Value = 指定_ndp.Value
                ElseIf 窗口說明1_lb.Text = "零用金" Then
                    明細表_dgv.Rows(NUM2).Cells("零用金").Value = 指定_ndp.Value
                End If
            End If : 指定_ndp.Value = 0 : 收入_cb.Checked = False : 支出_cb.Checked = False : Cancel_bt.PerformClick()
        End If
    End Sub
    Private Sub Cancel_bt_Click(sender As Object, e As EventArgs) Handles Cancel_bt.Click
        If 視窗1_pl.Visible = False Then : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : Else : 視窗1_pl.Visible = False : End If
    End Sub
    Private Sub 物料群組1_Panel_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗1_pl.MouseDown
        If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If
    End Sub
    Private Sub 全區域_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 全區域_ch.CheckedChanged
        載入公司編號cb()
    End Sub
    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
        Timer1.Enabled = False : 資料尚未存檔_lb.Visible = False : Set_日期格式轉換()
        開立營運成本收支單_bt.Enabled = True : 未核准的營運成本收支單_rb.Enabled = True : 作廢的營運成本收支單_rb.Enabled = True
        營運收支單_dgv.Enabled = True : 已核准的營運成本收支單_rb.Enabled = True : 存檔() : MsgBox("存檔完成!") : Set_清單1()
    End Sub
    Private Sub 物料群組1_Panel_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗1_pl.MouseMove
        If drag Then : 視窗1_pl.Left = 視窗1_pl.Left + e.X - OldX : 視窗1_pl.Top = 視窗1_pl.Top + e.Y - OldY : End If
    End Sub
    Private Sub 物料群組1_Panel_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗1_pl.MouseUp
        drag = False
    End Sub
End Class