HX-PGS-ERP-SYS-LEEHSIEHJUI/05、財務管理系統/特支費申請與沖銷/會計帳務沖銷.vb

Option Strict Off
Imports System.IO
Public Class 會計帳務沖銷
    Dim RI As Integer = -1
    Dim SK As String = "要查找的 KEY" : Dim SK1, SK2 As String
    Dim Str As String = Application.StartupPath
    Dim QQW(11), 對話框(13), 新流水1, 新項次 As String : Dim II, 選取位置 As Integer
    Private Sub Set_合約清單()
        Dim ds As New DataSet : 已出納_dgv.DataSource = Nothing : ds.Clear()
        已出納_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        已出納_dgv.ColumnHeadersHeight = 25 : 已出納_dgv.AllowUserToAddRows = False : 已出納_dgv.RowTemplate.Height = 25
        SQL_零用金已出納_特支費()
        da.Fill(ds) : 已出納_dgv.DataSource = ds.Tables(0) : conn.Close()
        已出納_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 已出納_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        Dim ds5 As New DataSet : 彙總_dgv.DataSource = Nothing
        彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        彙總_dgv.ColumnHeadersHeight = 25 : 彙總_dgv.AllowUserToAddRows = False
        SQL_合約百分之2彙總()
        da.Fill(ds5) : 彙總_dgv.DataSource = ds5.Tables(0) ': 彙總1_dgv.DataSource = ds5.Tables(0) : conn.Close()
        彙總_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 彙總_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 彙總_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
        彙總_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(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        彙總_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        彙總_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        彙總_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        彙總_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        彙總_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        彙總_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        彙總_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        For i As Integer = 0 To 彙總_dgv.Rows.Count - 1
            For ii As Integer = 0 To 已出納_dgv.Rows.Count - 1
                If 彙總_dgv.Rows(i).Cells(0).Value.ToString = 已出納_dgv.Rows(ii).Cells(0).Value.ToString Then
                    彙總_dgv.Rows(i).Cells(8).Value = 彙總_dgv.Rows(i).Cells(8).Value - 已出納_dgv.Rows(ii).Cells(1).Value
                End If
            Next
        Next
    End Sub
    Private Sub 新驗證碼()
        RI = -1 : For Each row As DataGridViewRow In 簽名檔_dgv.Rows : If row.Cells(1).Value.ToString() = gUserName Then : RI = row.Index : Exit For : End If : Next
        If RI = -1 Then
            For Each row As DataGridViewRow In 簽名檔_dgv.Rows : If Strings.Left(row.Cells(1).Value.ToString(), 3) = "未啟用" Then : RI = row.Index : Exit For : End If : Next
        End If
        圖片編碼_tb.Text = 簽名檔_dgv(0, RI).Value.ToString : PA1 = 圖片編碼_tb.Text : 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
            PA45 = 驗證碼_tb.Text : SQL_簽名檔認證() : If dr.Read() = True Then : Else : QAZ = 999 : End If : conn.Close()
        Next
    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_清單()
        Dim ds2 As New DataSet : 簽名檔_dgv.DataSource = Nothing : ds2.Clear()
        簽名檔_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        簽名檔_dgv.ColumnHeadersHeight = 25 : 簽名檔_dgv.AllowUserToAddRows = False
        表頭(87) = "簽名檔編碼" : SQL_主管簽名檔管理1()
        da.Fill(ds2) : 簽名檔_dgv.DataSource = ds2.Tables(0) : conn.Close()
        簽名檔_dgv.Columns(0).Width = 173 : 簽名檔_dgv.Columns(1).Visible = False
    End Sub
    Private Sub Set_清單3()
        Dim ds3 As New DataSet : 清單_dgv.DataSource = Nothing : ds3.Clear()
        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單_dgv.ColumnHeadersHeight = 40 : 清單_dgv.AllowUserToAddRows = False
        SQL_特支費與傭金清單1() : da.Fill(ds3) : 清單_dgv.DataSource = ds3.Tables(0) : conn.Close()
        清單_dgv.Columns(0).Visible = False : 清單_dgv.Columns(1).Visible = False : 清單_dgv.Columns(2).FillWeight = 150 : 清單_dgv.Columns(3).FillWeight = 85
        清單_dgv.Columns(4).Visible = False : 清單_dgv.Columns(5).Visible = False : 清單_dgv.Columns(6).Visible = False : 清單_dgv.Columns(7).Visible = False
        清單_dgv.Columns(0).ReadOnly = True : 清單_dgv.Columns(2).ReadOnly = True : 清單_dgv.Columns(3).ReadOnly = True
    End Sub
    Private Sub Set_支付單清單()
        Dim ds As New DataSet : 明細_dgv.DataSource = Nothing : ds.Clear()
        明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        明細_dgv.ColumnHeadersHeight = 25 : 明細_dgv.AllowUserToAddRows = False : 明細_dgv.RowTemplate.Height = 35

        If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then : 明細_dgv.RowTemplate.Height = 65
        ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then : 明細_dgv.RowTemplate.Height = 45
        ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then : 明細_dgv.RowTemplate.Height = 25 : End If
        PA = 單據_tb.Text
        SQL2 = ", 零用金支付明細.合約號 AS [" & 表頭(14) & "],  零用金支付明細.備用金, HX空白圖片.圖片 AS  [" & 表頭(15) & "], 零用金支付明細.公帳, 零用金支付明細.特別指定"
        SQL_特支費與傭金明細() : da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close()

        明細_dgv.Columns(0).Visible = False : 明細_dgv.Columns(1).FillWeight = 70 : 明細_dgv.Columns(4).Visible = False : 明細_dgv.Columns(5).FillWeight = 140
        明細_dgv.Columns(6).FillWeight = 370 : 明細_dgv.Columns(7).FillWeight = 60 : 明細_dgv.Columns(8).FillWeight = 60 : 明細_dgv.Columns(9).FillWeight = 100
        明細_dgv.Columns(10).FillWeight = 130 : 明細_dgv.Columns(2).FillWeight = 150 : 明細_dgv.Columns(3).FillWeight = 370 : 明細_dgv.Columns(11).FillWeight = 170
        明細_dgv.Columns(12).Visible = False : 明細_dgv.Columns(13).FillWeight = 80 : 明細_dgv.Columns(14).Visible = False : 明細_dgv.Columns(15).Visible = False
        明細_dgv.Columns(1).ReadOnly = True : 明細_dgv.Columns(4).ReadOnly = True : 明細_dgv.Columns(5).ReadOnly = True : 明細_dgv.Columns(6).ReadOnly = True
        明細_dgv.Columns(7).ReadOnly = True : 明細_dgv.Columns(8).ReadOnly = True : 明細_dgv.Columns(9).ReadOnly = True : 明細_dgv.Columns(10).ReadOnly = True
        明細_dgv.Columns(2).ReadOnly = True : 明細_dgv.Columns(3).ReadOnly = True : 明細_dgv.Columns(11).ReadOnly = True : 明細_dgv.Columns(12).ReadOnly = True
        明細_dgv.Columns(13).ReadOnly = True
        明細_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
        明細_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        明細_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

        總金額_tb.Text = "0"
        Dim mycol1 As DataGridViewImageColumn = 明細_dgv.Columns(表頭(7)) : mycol1.ImageLayout = DataGridViewImageCellLayout.Zoom
        Dim mycol2 As DataGridViewImageColumn = 明細_dgv.Columns(表頭(8)) : mycol2.ImageLayout = DataGridViewImageCellLayout.Zoom
        Dim mycol3 As DataGridViewImageColumn = 明細_dgv.Columns(表頭(15)) : mycol3.ImageLayout = DataGridViewImageCellLayout.Zoom
        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
            明細_dgv.Rows(i).Cells(表頭(7)).Value = My.Resources.SAVER : 明細_dgv.Rows(i).Cells(表頭(8)).Value = My.Resources.Close
            If IsDBNull(明細_dgv.Rows(i).Cells("備用金").Value) = True Then : 明細_dgv.Rows(i).Cells("備用金").Value = False : End If
            If IsDBNull(明細_dgv.Rows(i).Cells("公帳").Value) = True Then : 明細_dgv.Rows(i).Cells("公帳").Value = False : End If
            If 明細_dgv.Rows(i).Cells("備用金").Value = False And 明細_dgv.Rows(i).Cells("公帳").Value = False Then
                明細_dgv.Rows(i).Cells(表頭(15)).Value = My.Resources.Sendnow
            ElseIf 明細_dgv.Rows(i).Cells("備用金").Value = True And 明細_dgv.Rows(i).Cells("公帳").Value = False Then
                明細_dgv.Rows(i).Cells(表頭(15)).Value = My.Resources.mail_receive
            ElseIf 明細_dgv.Rows(i).Cells("備用金").Value = True And 明細_dgv.Rows(i).Cells("公帳").Value = True Then
                明細_dgv.Rows(i).Cells(表頭(15)).Value = My.Resources.Checked_Shield_Green
            End If
        Next
    End Sub
    Private Sub Set_歷史清單()
        Dim ds As New DataSet : 歷史清單_dgv.DataSource = Nothing : ds.Clear()
        歷史清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        歷史清單_dgv.ColumnHeadersHeight = 40 : 歷史清單_dgv.AllowUserToAddRows = False : 歷史清單_dgv.RowTemplate.Height = 35

        If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then : 歷史清單_dgv.RowTemplate.Height = 65
        ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then : 歷史清單_dgv.RowTemplate.Height = 45
        ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then : 歷史清單_dgv.RowTemplate.Height = 25 : End If
        SQL_特支費歷史明細() : da.Fill(ds) : 歷史清單_dgv.DataSource = ds.Tables(0) : conn.Close()

        歷史清單_dgv.Columns(0).Visible = False : 歷史清單_dgv.Columns(1).FillWeight = 150 : 歷史清單_dgv.Columns(2).FillWeight = 70 : 歷史清單_dgv.Columns(3).Visible = False
        歷史清單_dgv.Columns(4).FillWeight = 225 : 歷史清單_dgv.Columns(5).FillWeight = 80 : 歷史清單_dgv.Columns(6).FillWeight = 225 : 歷史清單_dgv.Columns(7).FillWeight = 60
        歷史清單_dgv.Columns(8).FillWeight = 70

        歷史清單_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
        歷史清單_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        歷史清單_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

        總金額1_tb.Text = "0"
        For i As Integer = 0 To 歷史清單_dgv.Rows.Count - 1
            歷史清單_dgv.Rows(i).Cells(2).Value = Strings.Left(歷史清單_dgv.Rows(i).Cells(2).Value.ToString, 10)
            總金額1_tb.Text = Val(總金額1_tb.Text) + 歷史清單_dgv.Rows(i).Cells(5).Value
        Next i : 總金額1_tb.Text = Format(Val(總金額1_tb.Text), "#,##0")
    End Sub
    Private Sub Set_日期格式轉換()
        DTP = Format(Today(), "yyyy/MM/dd") & "-" & Format(TimeOfDay(), "HH:mm:ss") : DTP2 = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
    End Sub
    Private Sub Set_日期格式轉換1()
        DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
    End Sub
    Private Sub 甲方條件下拉清單讀取()
        SQL合約條件讀取() : 合約編號1_cb.Items.Clear() : 合約編號1_cb.Items.Add("") : While (dr.Read()) : 合約編號1_cb.Items.Add(dr("約號甲方")) : End While : conn.Close()
    End Sub
    Private Sub Set_語言()
        語言_dgv.DataSource = Nothing
        語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        語言_dgv.ColumnHeadersHeight = 25 : 語言_dgv.AllowUserToAddRows = False
        For i As Integer = 0 To 語言_dgv.Rows.Count - 1 : 語言_dgv.Rows.RemoveAt(0) : Next
        If File.Exists(Str + "\LANGUAGE_FILE.csv") Then
            Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\LANGUAGE_FILE.csv", System.Text.Encoding.Default)
            Dim line As String = filereader.ReadLine()
            While Not (line Is Nothing)
                line = filereader.ReadLine()
                If line <> Nothing Then
                    line = line.Replace("""", "")
                    If Strings.Left(line, 4) = "G000" Or Strings.Left(line, 8) = "H001-208" Or Strings.Left(line, 8) = "H904-103" Or Strings.Left(line, 8) = "H904-104" Or
                       Strings.Left(line, 8) = "H204-125" Or Strings.Left(line, 8) = "H204-109" Or Strings.Left(line, 8) = "H204-123" Or Strings.Left(line, 8) = "H401-102" Or
                       Strings.Left(line, 8) = "H704-121" Or Strings.Left(line, 8) = "H204-131" Or Strings.Left(line, 8) = "H204-130" Or Strings.Left(line, 8) = "H906-111" Or
                       Strings.Left(line, 8) = "H204-108" Or Strings.Left(line, 4) = "H304" Or Strings.Left(line, 4) = 介面 Then
                        If 系統語言 = "繁體中文" Then
                            If Strings.Mid(line, 10, 2) = "CH" Then : 語言_dgv.Rows.Insert(0)
                                語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)
                                If Strings.Mid(line, 13, 300).EndsWith(",") Then
                                    語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)
                                Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If
                            End If
                        ElseIf 系統語言 = "English" Then
                            If Strings.Mid(line, 10, 2) = "EN" Then : 語言_dgv.Rows.Insert(0)
                                語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)
                                If Strings.Mid(line, 13, 300).EndsWith(",") Then
                                    語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)
                                Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If
                            End If
                        ElseIf 系統語言 = "Indonesian" Then
                            If Strings.Mid(line, 10, 2) = "IN" Then : 語言_dgv.Rows.Insert(0)
                                語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)
                                If Strings.Mid(line, 13, 300).EndsWith(",") Then
                                    語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)
                                Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If
                            End If
                        End If
                    End If
                End If
            End While
            filereader.Close()
        End If
    End Sub
    Private Sub Set_語言查詢()
        RI = -1 : For Each row As DataGridViewRow In 語言_dgv.Rows
            If Strings.Left(row.Cells(0).Value.ToString(), 8) = SK Then
                RI = row.Index : Exit For
            End If
        Next
    End Sub
    Private Sub 語言轉換讀取()
        Set_語言()
        SK = "H001-208" : Set_語言查詢() : Me.Text = 語言_dgv(1, RI).Value.ToString : SK = "G000-108" : Set_語言查詢() : ToolTip1.ToolTipTitle = 語言_dgv(1, RI).Value.ToString
        SK = "H904-104" : Set_語言查詢() : 表頭(2) = 語言_dgv(1, RI).Value.ToString : SK = "H204-125" : Set_語言查詢() : 表頭(3) = 語言_dgv(1, RI).Value.ToString
        SK = "H304-100" : Set_語言查詢() : 表頭(4) = 語言_dgv(1, RI).Value.ToString : SK = "H204-109" : Set_語言查詢() : 表頭(5) = 語言_dgv(1, RI).Value.ToString
        SK = "H204-123" : Set_語言查詢() : 表頭(6) = 語言_dgv(1, RI).Value.ToString : SK = "G000-110" : Set_語言查詢() : 表頭(7) = 語言_dgv(1, RI).Value.ToString
        SK = "G000-101" : Set_語言查詢() : 表頭(8) = 語言_dgv(1, RI).Value.ToString : SK = "H305-101" : Set_語言查詢() : Label4.Text = 語言_dgv(1, RI).Value.ToString
        SK = "H204-130" : Set_語言查詢() : 對話框(0) = 語言_dgv(1, RI).Value.ToString : SK = "H305-100" : Set_語言查詢() : 對話框(1) = 語言_dgv(1, RI).Value.ToString
        SK = "H305-102" : Set_語言查詢() : 對話框(2) = 語言_dgv(1, RI).Value.ToString : SK = "H305-103" : Set_語言查詢() : 對話框(3) = 語言_dgv(1, RI).Value.ToString
        SK = "G000-219" : Set_語言查詢() : 對話框(4) = 語言_dgv(1, RI).Value.ToString : SK = "H305-110" : Set_語言查詢() : 對話框(5) = 語言_dgv(1, RI).Value.ToString
        SK = "G000-110" : Set_語言查詢() : 對話框(6) = 語言_dgv(1, RI).Value.ToString : SK = "G000-220" : Set_語言查詢() : 對話框(7) = 語言_dgv(1, RI).Value.ToString
        SK = "H305-105" : Set_語言查詢() : Label5.Text = 語言_dgv(1, RI).Value.ToString : SK = "H305-106" : Set_語言查詢() : 表頭(9) = 語言_dgv(1, RI).Value.ToString
        SK = "H305-107" : Set_語言查詢() : 表頭(10) = 語言_dgv(1, RI).Value.ToString : SK = "H305-108" : Set_語言查詢() : 表頭(11) = 語言_dgv(1, RI).Value.ToString
        SK = "H305-109" : Set_語言查詢() : 表頭(12) = 語言_dgv(1, RI).Value.ToString : SK = "H305-112" : Set_語言查詢() : 對話框(8) = 語言_dgv(1, RI).Value.ToString
        SK = "H305-106" : Set_語言查詢() : 表頭(13) = 語言_dgv(1, RI).Value.ToString : SK = "H305-113" : Set_語言查詢() : 對話框(9) = 語言_dgv(1, RI).Value.ToString
        SK = "H304-103" : Set_語言查詢() : Label8.Text = 語言_dgv(1, RI).Value.ToString : SK = "H305-114" : Set_語言查詢() : Label7.Text = 語言_dgv(1, RI).Value.ToString
        SK = "H305-115" : Set_語言查詢() : 對話框(10) = 語言_dgv(1, RI).Value.ToString : SK = "H906-111" : Set_語言查詢() : 對話框(11) = 語言_dgv(1, RI).Value.ToString
        SK = "H204-108" : Set_語言查詢() : 表頭(14) = 語言_dgv(1, RI).Value.ToString : SK = "H305-116" : Set_語言查詢() : 對話框(12) = 語言_dgv(1, RI).Value.ToString
        SK = "H305-117" : Set_語言查詢() : 表頭(15) = 語言_dgv(1, RI).Value.ToString : SK = "H305-118" : Set_語言查詢() : 對話框(13) = 語言_dgv(1, RI).Value.ToString
        SK = "G000-217" : Set_語言查詢() : 表頭(0) = 語言_dgv(1, RI).Value.ToString : Label1.Text = 語言_dgv(1, RI).Value.ToString
        SK = "H904-103" : Set_語言查詢() : 表頭(1) = 語言_dgv(1, RI).Value.ToString : Label3.Text = 語言_dgv(1, RI).Value.ToString
        SK = "H305-104" : Set_語言查詢() : Label6.Text = 語言_dgv(1, RI).Value.ToString : Label2.Text = 語言_dgv(1, RI).Value.ToString
    End Sub
    Private Sub 作廢_bt_MouseEnter(sender As Object, e As EventArgs) Handles 作廢_bt.MouseEnter
        ToolTip1.SetToolTip(Me.作廢_bt, 對話框(4))
    End Sub
    Private Sub 核准_bt_MouseEnter(sender As Object, e As EventArgs) Handles 核准_bt.MouseEnter
        ToolTip1.SetToolTip(Me.核准_bt, 對話框(5))
    End Sub
    Private Sub 存檔_bt_MouseEnter(sender As Object, e As EventArgs) Handles 存檔_bt.MouseEnter
        ToolTip1.SetToolTip(Me.存檔_bt, 對話框(6))
    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
        風格() : H(305) = True : 介面 = "H305" : 語言轉換讀取() : 顯示說明(999, True)
        Panel3.SendToBack() : 當前剩餘_tb.Text = "0" : 總金額_tb.Text = "0" : 沖帳後餘額_tb.Text = "0" : 指定會科 = "B-02-04-29"
        Panel4.SendToBack() : Panel4.Visible = False : Panel1.SendToBack() : 年份2_cb.Text = Year(Today) : 月份2_cb.SelectedIndex = Month(Today) - 1

        If 登入人級別 <= 3 Then
            縮放1_bt.Visible = True : 已沖帳清單_bt.Visible = True : 作廢_bt.Visible = True
        Else
            縮放1_bt.Visible = False : 已沖帳清單_bt.Visible = False : 作廢_bt.Visible = False
        End If
        MyMod.清單字體大小調整()
        彙總_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        彙總1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        已出納_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        歷史清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

        彙總1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        彙總1_dgv.ColumnHeadersHeight = 40 : 彙總1_dgv.AllowUserToAddRows = False
    End Sub
    Private Sub 特支費與傭金沖帳_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        甲方條件下拉清單讀取() : Set_清單() : Set_清單3() : 新驗證碼() : Set_合約清單() : SQL_特支費與傭金申請明細預設() : WEB說明頁面.BringToFront()
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        H(305) = True : 介面 = "H305" : 語言轉換讀取() : Set_清單() : Set_清單3() : 新驗證碼() : Set_合約清單()
    End Sub
    Private Sub 系統說明_bt_Click(sender As Object, e As EventArgs) Handles 系統說明_bt.Click
        介面 = "H305" : WEB說明頁面.Show()
    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 特支費與傭金沖帳_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        H(305) = False : MyMod.虛擬桌面開啟()
    End Sub
    Private Sub 簽名檔_dgv_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 : PA1 = 圖片編碼_tb.Text : 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
                PA45 = 驗證碼_tb.Text : SQL_簽名檔認證() : If dr.Read() = True Then : Else : QAZ = 999 : End If : conn.Close()
            Next
        End If
    End Sub
    Private Sub 清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 清單_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            合約編號1_cb.Text = "" : 合約編號1_cb.Text = 清單_dgv(1, e.RowIndex).Value.ToString
            PA = 清單_dgv(0, e.RowIndex).Value.ToString : PA1 = 清單_dgv(1, e.RowIndex).Value.ToString : PA2 = 清單_dgv(2, e.RowIndex).Value.ToString
            單據_tb.Text = PA : 申請人_tb.Text = PA2 : Set_支付單清單() : 新驗證碼()
        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 : 選取位置 = e.RowIndex
            當前剩餘_tb.Text = "0" : 項次_tb.Text = 明細_dgv(1, e.RowIndex).Value.ToString
            總金額_tb.Text = Strings.Format(CLng(明細_dgv.Rows(e.RowIndex).Cells(表頭(5)).Value.ToString), "#,##0")
            彙總1計算0() : 彙總1計算()
        End If
    End Sub
    Private Sub 彙總1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 彙總1_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            當前剩餘_tb.Text = 彙總1_dgv(1, e.RowIndex).Value.ToString : 合約號_tb.Text = 彙總1_dgv(0, e.RowIndex).Value.ToString
            明細_dgv.Rows(選取位置).Cells(表頭(14)).Value = 彙總1_dgv.Rows(e.RowIndex).Cells(0).Value.ToString
            For i As Integer = 0 To 彙總_dgv.Rows.Count - 1
                For ii As Integer = 0 To 彙總1_dgv.Rows.Count - 1
                    If 彙總_dgv.Rows(i).Cells(0).Value.ToString = 彙總1_dgv.Rows(ii).Cells(0).Value.ToString Then
                        彙總1_dgv.Rows(ii).Cells(1).Value = Strings.Format(CLng(彙總_dgv.Rows(i).Cells(表頭(10)).Value.ToString), "#,##0")
                    End If
                Next
            Next
            彙總1計算()
        End If
    End Sub
    Private Sub 彙總1計算0()
        彙總1_dgv.Columns(1).DefaultCellStyle.Format = "#,##0"
        彙總1_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        彙總1_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        If 彙總1_dgv.Rows.Count > 0 Then : For i As Integer = 0 To 彙總1_dgv.Rows.Count - 1 : 彙總1_dgv.Rows.RemoveAt(0) : Next : End If
        For i As Integer = 0 To 彙總_dgv.Rows.Count - 1
            If 彙總_dgv.Rows(i).Cells("約號甲方").Value.ToString = 明細_dgv.Rows(選取位置).Cells(表頭(13)).Value.ToString Then
                If CLng(彙總_dgv.Rows(i).Cells(表頭(10)).Value.ToString) > CLng(明細_dgv.Rows(選取位置).Cells(表頭(5)).Value.ToString) Then
                    彙總1_dgv.Rows.Insert(0)
                    彙總1_dgv.Rows(0).Cells(0).Value = 彙總_dgv.Rows(i).Cells(表頭(9)).Value.ToString
                    彙總1_dgv.Rows(0).Cells(1).Value = Strings.Format(CLng(彙總_dgv.Rows(i).Cells(表頭(10)).Value.ToString), "#,##0")
                End If
            ElseIf 彙總_dgv.Rows(i).Cells("約號甲方").Value.ToString = 明細_dgv.Rows(選取位置).Cells("特別指定").Value.ToString And
                   明細_dgv.Rows(選取位置).Cells("特別指定").Value.ToString <> "" Then
                If CLng(彙總_dgv.Rows(i).Cells(表頭(10)).Value.ToString) > CLng(明細_dgv.Rows(選取位置).Cells(表頭(5)).Value.ToString) Then
                    彙總1_dgv.Rows.Insert(0)
                    彙總1_dgv.Rows(0).Cells(0).Value = 彙總_dgv.Rows(i).Cells(表頭(9)).Value.ToString
                    彙總1_dgv.Rows(0).Cells(1).Value = Strings.Format(CLng(彙總_dgv.Rows(i).Cells(表頭(10)).Value.ToString), "#,##0")
                End If
            End If
        Next
    End Sub
    Private Sub 彙總1計算()
        Dim 產生負數 As Boolean
        For i As Integer = 0 To 彙總1_dgv.Rows.Count - 1
            For ii As Integer = 0 To 明細_dgv.Rows.Count - 1
                If 彙總1_dgv.Rows(i).Cells(0).Value.ToString = 明細_dgv.Rows(ii).Cells(表頭(14)).Value.ToString Then
                    If Strings.Format(CLng(彙總1_dgv.Rows(i).Cells(1).Value) - CLng(明細_dgv.Rows(ii).Cells(表頭(5)).Value.ToString), "#,##0") < 0 Then
                        產生負數 = True
                    Else
                        彙總1_dgv.Rows(i).Cells(1).Value = Strings.Format(CLng(彙總1_dgv.Rows(i).Cells(1).Value) - CLng(明細_dgv.Rows(ii).Cells(表頭(5)).Value.ToString), "#,##0")
                    End If
                End If
            Next
        Next
        If 產生負數 = True Then
            MGB(對話框(8), 1) : 明細_dgv.Rows(選取位置).Cells(表頭(14)).Value = ""
        End If
    End Sub
    Private Sub 彙總_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 彙總_dgv.CellFormatting
        If e.Value IsNot Nothing Then
            If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
                If 深色風格 = False Then : e.CellStyle.ForeColor = Color.Red : Else : e.CellStyle.ForeColor = Color.LightPink : End If
            End If
        End If
    End Sub
    Private Sub 彙總1_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 彙總1_dgv.CellFormatting
        If e.Value IsNot Nothing Then
            If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
                If 深色風格 = False Then : e.CellStyle.ForeColor = Color.Red : Else : e.CellStyle.ForeColor = Color.LightPink : End If
            End If
        End If
    End Sub
    Private Sub 明細_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 明細_dgv.MouseUp
        'If 明細_dgv.SelectedCells.Count = 1 Then : MsgBox(明細_dgv.SelectedCells(0).ColumnIndex & "  " & 明細_dgv.SelectedCells(0).RowIndex) : End If
        If 明細_dgv.SelectedCells.Count > 0 Then
            If 明細_dgv.SelectedCells(0).ColumnIndex = 9 Or 明細_dgv.SelectedCells(0).ColumnIndex = 10 Then
                If 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(明細_dgv.SelectedCells(0).ColumnIndex).Value = True Then
                    明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(明細_dgv.SelectedCells(0).ColumnIndex).Value = False
                Else
                    明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(明細_dgv.SelectedCells(0).ColumnIndex).Value = True
                End If
            ElseIf 明細_dgv.SelectedCells(0).ColumnIndex = 7 Then
                If 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(11).Value.ToString = "" Then
                    MGB(對話框(2), 1)
                Else
                    明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(9).Value = True
                    明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(10).Value = True
                    存檔_bt.PerformClick()
                End If
            ElseIf 明細_dgv.SelectedCells(0).ColumnIndex = 8 Then
                明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(9).Value = False
                明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(10).Value = False
                明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(表頭(14)).Value = ""
                選取位置 = 明細_dgv.SelectedCells(0).RowIndex : 彙總1計算0() : 彙總1計算() : 存檔_bt.PerformClick()
            ElseIf 明細_dgv.SelectedCells(0).ColumnIndex = 13 Then
                If 項次_tb.Text = "" Then : MGB(對話框(0), 1) : Else
                    If 彙總1_dgv.Rows.Count > 0 Then : MGB(對話框(12), 1) : Else
                        PA = 單據_tb.Text : PA44 = 項次_tb.Text
                        If 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells("備用金").Value = False Then
                            PA45 = "1" : SQL_特支費與傭金通知主管() : Set_支付單清單()
                            '---LINE_AUTO 部門主管---------------------------------------------------------------------------------
                            If 登入人級別 = "00" Then
                                If 登入人IP = 測試IP Then : Else : LIN訊息通知("CC202", "李協叡", " ", " ") : End If
                            Else
                                If 登入人IP = 測試IP Then : Else : LIN訊息通知("CC202", "李協叡", " ", " ") : LIN訊息通知("CC202", "LIN HSING HAO", " ", " ") : End If
                            End If : MGB(對話框(13), 1)
                        Else : MGB(對話框(13), 1) : End If
                    End If
                End If
            End If
        End If
    End Sub
    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
        If 單據_tb.Text = "" Then : MGB(對話框(0), 1) : Else
            Dim 全部存檔 As Boolean = True
            For i As Integer = 0 To 明細_dgv.Rows.Count - 1 : If 明細_dgv.Rows(i).Cells(10).Value = False Then : 全部存檔 = False : End If : Next
            PA = 單據_tb.Text : PA40 = 圖片編碼_tb.Text : PA41 = 驗證碼_tb.Text : PA42 = 合約編號1_cb.Text : PA42 = 合約編號1_cb.Text
            If 全部存檔 = False Then
                PA = 單據_tb.Text
                For i As Integer = 0 To 明細_dgv.Rows.Count - 1
                    PA15 = 明細_dgv.Rows(i).Cells(9).Value.ToString : PA16 = 明細_dgv.Rows(i).Cells(10).Value.ToString
                    PA44 = 明細_dgv.Rows(i).Cells(1).Value.ToString : PA17 = 明細_dgv.Rows(i).Cells(11).Value.ToString : SQL_零用金會計與出納變更()
                Next
            Else : 核准_bt.PerformClick() : End If
            Set_合約清單() : Set_清單3() : MGB(對話框(1), 1)
        End If
    End Sub
    Private Sub 核准_bt_Click(sender As Object, e As EventArgs) Handles 核准_bt.Click
        Set_日期格式轉換()
        If 單據_tb.Text = "" Then : MGB(對話框(0), 1) : Else
            '--------------完成沖銷----------------------------------------------------------------------------------------------------------------------------
            新驗證碼() : PA = 單據_tb.Text : PA40 = 圖片編碼_tb.Text : PA41 = 驗證碼_tb.Text : PA42 = 合約編號1_cb.Text
            SQL_特支費與傭金沖帳() : 總金額_tb.Text = "0"
            For i As Integer = 0 To 明細_dgv.Rows.Count - 1
                PA15 = "1" : PA16 = "1" : PA44 = 明細_dgv.Rows(i).Cells(1).Value.ToString : PA17 = 明細_dgv.Rows(i).Cells(11).Value.ToString : SQL_零用金會計與出納變更()
                總金額_tb.Text = CLng(總金額_tb.Text) + CLng(明細_dgv.Rows(i).Cells(5).Value.ToString)
            Next
            '--------------轉財務收支--------------------------------------------------------------------------------------------------------------------------
            Dim NUM1 As Integer : Set_日期格式轉換1()
            For i As Integer = 1 To 999 : NUM1 = 0 + i
                If NUM1 < 10 Then : PA = "OE-" & DTP1 & "-00" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : PA = "OE-" & DTP1 & "-0" & NUM1
                ElseIf NUM1 > 99 Then : PA = "OE-" & DTP1 & "-" & NUM1 : End If : conn.Close() : PA2 = 合約編號1_cb.Text
                SQL_營運成本收支單申請_查詢第一筆公帳支付單號() : If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
            Next : SQL_營運成本收支單申請_新增一筆財務收支控制表1() : conn.Close()
            Set_流水號() : PA12 = 單據_tb.Text & " - Biaya Pembayaran Khusus (特支費轉財務單)" : PA13 = "0" : PA14 = CLng(總金額_tb.Text) : PA15 = PA : 指定會科 = "B-02-04-29"
            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 : PA11 = 新項次
            SQL_新增財務收支明細表資料1() : PA5 = 申請人_tb.Text : SQL_財物支付單修改1()
            '--------------作業完成--------------------------------------------------------------------------------------------------------------------------
            單據_tb.Text = "" : 申請人_tb.Text = "" : 驗證碼_tb.Text = "" : 圖片編碼_tb.Text = ""
            合約編號1_cb.Text = "" : 當前剩餘_tb.Text = "0" : 沖帳後餘額_tb.Text = "0"
            明細_dgv.DataSource = Nothing : Set_清單3() : Set_合約清單() : conn.Close() : MGB(對話框(1), 1)
        End If
    End Sub
    Private Sub 月份2_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 月份2_cb.SelectedIndexChanged
        If 月份2_cb.Text = "01" Then : SK1 = "I/" : ElseIf 月份2_cb.Text = "02" Then : SK1 = "II/" : ElseIf 月份2_cb.Text = "03" Then : SK1 = "III/"
        ElseIf 月份2_cb.Text = "04" Then : SK1 = "IV/" : ElseIf 月份2_cb.Text = "05" Then : SK1 = "V/" : ElseIf 月份2_cb.Text = "06" Then : SK1 = "VI/"
        ElseIf 月份2_cb.Text = "07" Then : SK1 = "VII/" : ElseIf 月份2_cb.Text = "08" Then : SK1 = "VIII/" : ElseIf 月份2_cb.Text = "09" Then : SK1 = "IX/"
        ElseIf 月份2_cb.Text = "10" Then : SK1 = "X/" : ElseIf 月份2_cb.Text = "11" Then : SK1 = "XI/" : ElseIf 月份2_cb.Text = "12" Then : SK1 = "XII/" : End If
    End Sub
    Private Sub Set_流水號()
        CB選擇清單(選擇公司_cb, 選擇公司_cb.Text)
        If 選擇公司_cb.Text = "PT HONG XHE INDUSTRIAL" Then : SK2 = "/HXI-PP/" : Else : SK2 = "/PGS-PP/" : End If
        PA25 = "ACC" & SK2 & SK1 & 年份2_cb.Text : SQL_財物支付單申請_查詢最後一筆公帳支付單號()
        If dr.Read() Then : PA19 = Strings.Left(dr("流水號").ToString, 3) : Else : PA19 = "000" : End If : conn.Close()
        PA19 = CInt(PA19) + 1
        If CInt(PA19) < 10 Then : PA19 = "00" & CInt(PA19)
        ElseIf CInt(PA19) > 9 And CInt(PA19) < 100 Then : PA19 = "0" & CInt(PA19)
        ElseIf CInt(PA19) > 99 And CInt(PA19) < 1000 Then : PA19 = CInt(PA19) : End If
        PA19 = PA19 & "-" & "ACC" & SK2 & SK1 & 年份2_cb.Text
    End Sub
    Private Sub 作廢_bt_Click(sender As Object, e As EventArgs) Handles 作廢_bt.Click
        Set_日期格式轉換()
        If 單據_tb.Text = "" Then : MGB(對話框(0), 1) : Else
            MGB(對話框(7), 2) : PA30 = 訊息回應
            If PA30 = "YES" Then
                PA = 單據_tb.Text : SQL_特支費與傭金作廢() : conn.Close() : MGB(對話框(11), 1)
                單據_tb.Text = "" : 申請人_tb.Text = "" : 驗證碼_tb.Text = "" : 圖片編碼_tb.Text = ""
                合約編號1_cb.Text = "" : 當前剩餘_tb.Text = "0" : 沖帳後餘額_tb.Text = "0"
                明細_dgv.DataSource = Nothing : Set_清單3()
            End If
        End If
    End Sub
    Private Sub 縮放2_bt_Click(sender As Object, e As EventArgs) Handles 縮放2_bt.Click
        Panel1.SendToBack() : Panel3.SendToBack() : Panel1.Visible = False : Panel2.Visible = True
    End Sub
    Private Sub 已沖帳清單_bt_Click(sender As Object, e As EventArgs) Handles 已沖帳清單_bt.Click
        Panel5.SendToBack() : Panel4.BringToFront() : Panel5.Visible = False : Panel4.Visible = True
        PA25 = 合約號_tb.Text : Set_歷史清單()
    End Sub
    Private Sub 小間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距_ch.Click
        小間距_ch.Checked = True : 中間距_ch.Checked = False : 大間距_ch.Checked = False : Set_支付單清單()
    End Sub
    Private Sub 中間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距_ch.Click
        小間距_ch.Checked = False : 中間距_ch.Checked = True : 大間距_ch.Checked = False : Set_支付單清單()
    End Sub
    Private Sub 大間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距_ch.Click
        小間距_ch.Checked = False : 中間距_ch.Checked = False : 大間距_ch.Checked = True : Set_支付單清單()
    End Sub
    Private Sub 縮放3_bt_Click(sender As Object, e As EventArgs) Handles 縮放3_bt.Click
        Panel5.BringToFront() : Panel4.SendToBack() : Panel4.Visible = False : Panel5.Visible = True
    End Sub
    Private Sub 縮放1_bt_Click(sender As Object, e As EventArgs) Handles 縮放1_bt.Click
        Panel2.SendToBack() : Panel3.SendToBack() : Panel1.Visible = True : Panel2.Visible = False
    End Sub
    Private Sub 沖帳後餘額_tb_TextChanged(sender As Object, e As EventArgs) Handles 沖帳後餘額_tb.TextChanged
        If IsNumeric(沖帳後餘額_tb.Text) = True Then
            If CLng(沖帳後餘額_tb.Text) > -1 Then
                If 深色風格 = False Then : 沖帳後餘額_tb.ForeColor = Color.Black : Else : 沖帳後餘額_tb.ForeColor = Color.LightBlue : End If
            Else
                If 深色風格 = False Then : 沖帳後餘額_tb.ForeColor = Color.Red : Else : 沖帳後餘額_tb.ForeColor = Color.LightPink : End If
            End If
        End If
    End Sub

    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = SystemColors.Control
            '----------------黑-------------------------------------------
            小間距_ch.ForeColor = Color.Black : 中間距_ch.ForeColor = Color.Black : 大間距_ch.ForeColor = Color.Black : Label1.ForeColor = Color.Black
            Label3.ForeColor = Color.Black : Label8.ForeColor = Color.Black : Label4.ForeColor = Color.Black : Label6.ForeColor = Color.Black
            Label5.ForeColor = Color.Black : Label2.ForeColor = Color.Black : Label7.ForeColor = Color.Black

            單據_tb.BackColor = Color.White : 單據_tb.ForeColor = Color.Black : 總金額_tb.BackColor = Color.White : 總金額_tb.ForeColor = Color.Black
            語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black : 申請人_tb.BackColor = Color.White : 申請人_tb.ForeColor = Color.Black
            合約編號1_cb.BackColor = Color.White : 合約編號1_cb.ForeColor = Color.Black : 當前剩餘_tb.BackColor = Color.White : 當前剩餘_tb.ForeColor = Color.Black
            沖帳後餘額_tb.BackColor = Color.White : 沖帳後餘額_tb.ForeColor = Color.Black : 當前剩餘1_tb.BackColor = Color.White : 當前剩餘1_tb.ForeColor = Color.Black
            總金額1_tb.BackColor = Color.White : 總金額1_tb.ForeColor = Color.Black

            縮放2_bt.BackColor = Color.White : 縮放1_bt.BackColor = Color.White : 核准_bt.BackColor = Color.White : 縮放1_bt.BackColor = Color.White
            作廢_bt.BackColor = Color.White : 存檔_bt.BackColor = Color.White : 縮放3_bt.BackColor = Color.White : 已沖帳清單_bt.BackColor = Color.White
            系統說明_bt.BackColor = Color.White

            清單_dgv.EnableHeadersVisualStyles = True : 清單_dgv.BackgroundColor = Color.White : 清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            清單_dgv.DefaultCellStyle.BackColor = Color.White : 清單_dgv.DefaultCellStyle.ForeColor = Color.Black
            明細_dgv.EnableHeadersVisualStyles = True : 明細_dgv.BackgroundColor = Color.White : 明細_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            明細_dgv.DefaultCellStyle.BackColor = Color.White : 明細_dgv.DefaultCellStyle.ForeColor = Color.Black
            彙總1_dgv.EnableHeadersVisualStyles = True : 彙總1_dgv.BackgroundColor = Color.White : 彙總1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            彙總1_dgv.DefaultCellStyle.BackColor = Color.White : 彙總1_dgv.DefaultCellStyle.ForeColor = Color.Black
            彙總_dgv.EnableHeadersVisualStyles = True : 彙總_dgv.BackgroundColor = Color.White : 彙總_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            彙總_dgv.DefaultCellStyle.BackColor = Color.White : 彙總_dgv.DefaultCellStyle.ForeColor = Color.Black
            已出納_dgv.EnableHeadersVisualStyles = True : 已出納_dgv.BackgroundColor = Color.White : 已出納_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            已出納_dgv.DefaultCellStyle.BackColor = Color.White : 已出納_dgv.DefaultCellStyle.ForeColor = Color.Black
            歷史清單_dgv.EnableHeadersVisualStyles = True : 歷史清單_dgv.BackgroundColor = Color.White : 歷史清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            歷史清單_dgv.DefaultCellStyle.BackColor = Color.White : 歷史清單_dgv.DefaultCellStyle.ForeColor = Color.Black
        Else
            Me.BackColor = Color.Black
            '----------------黑-------------------------------------------
            小間距_ch.ForeColor = Color.White : 中間距_ch.ForeColor = Color.White : 大間距_ch.ForeColor = Color.White : Label1.ForeColor = Color.White
            Label3.ForeColor = Color.White : Label8.ForeColor = Color.White : Label4.ForeColor = Color.White : Label6.ForeColor = Color.White
            Label5.ForeColor = Color.White : Label2.ForeColor = Color.White : Label7.ForeColor = Color.White

            單據_tb.BackColor = Color.DimGray : 單據_tb.ForeColor = Color.White : 總金額_tb.BackColor = Color.DimGray : 總金額_tb.ForeColor = Color.White
            語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White : 申請人_tb.BackColor = Color.DimGray : 申請人_tb.ForeColor = Color.White
            合約編號1_cb.BackColor = Color.DimGray : 合約編號1_cb.ForeColor = Color.White : 當前剩餘_tb.BackColor = Color.DimGray : 當前剩餘_tb.ForeColor = Color.White
            沖帳後餘額_tb.BackColor = Color.DimGray : 沖帳後餘額_tb.ForeColor = Color.White : 當前剩餘1_tb.BackColor = Color.DimGray : 當前剩餘1_tb.ForeColor = Color.White
            總金額1_tb.BackColor = Color.DimGray : 總金額1_tb.ForeColor = Color.White

            縮放2_bt.BackColor = Color.DimGray : 縮放1_bt.BackColor = Color.DimGray : 核准_bt.BackColor = Color.DimGray : 縮放1_bt.BackColor = Color.DimGray
            作廢_bt.BackColor = Color.DimGray : 存檔_bt.BackColor = Color.DimGray : 縮放3_bt.BackColor = Color.DimGray : 已沖帳清單_bt.BackColor = Color.DimGray
            系統說明_bt.BackColor = Color.DimGray

            清單_dgv.EnableHeadersVisualStyles = False : 清單_dgv.BackgroundColor = Color.DimGray : 清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            清單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 清單_dgv.DefaultCellStyle.BackColor = Color.Black : 清單_dgv.DefaultCellStyle.ForeColor = Color.White
            明細_dgv.EnableHeadersVisualStyles = False : 明細_dgv.BackgroundColor = Color.DimGray : 明細_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            明細_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 明細_dgv.DefaultCellStyle.BackColor = Color.Black : 明細_dgv.DefaultCellStyle.ForeColor = Color.White
            彙總1_dgv.EnableHeadersVisualStyles = False : 彙總1_dgv.BackgroundColor = Color.DimGray : 彙總1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            彙總1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 彙總1_dgv.DefaultCellStyle.BackColor = Color.Black : 彙總1_dgv.DefaultCellStyle.ForeColor = Color.White
            彙總_dgv.EnableHeadersVisualStyles = False : 彙總_dgv.BackgroundColor = Color.DimGray : 彙總_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            彙總_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 彙總_dgv.DefaultCellStyle.BackColor = Color.Black : 彙總_dgv.DefaultCellStyle.ForeColor = Color.White
            已出納_dgv.EnableHeadersVisualStyles = False : 已出納_dgv.BackgroundColor = Color.DimGray : 已出納_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            已出納_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 已出納_dgv.DefaultCellStyle.BackColor = Color.Black : 已出納_dgv.DefaultCellStyle.ForeColor = Color.White
            歷史清單_dgv.EnableHeadersVisualStyles = False : 歷史清單_dgv.BackgroundColor = Color.DimGray : 歷史清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            歷史清單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 歷史清單_dgv.DefaultCellStyle.BackColor = Color.Black : 歷史清單_dgv.DefaultCellStyle.ForeColor = Color.White
        End If
    End Sub
End Class