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

Option Strict Off
Imports System.IO
Public Class 特支費申請
    Dim RI As Integer = -1 : Dim 不可編輯 As Boolean
    Dim SK As String = "要查找的 KEY"
    Dim Str As String = Application.StartupPath
    Dim 新項次 As String
    Dim NUM1 As Integer
    Dim 對話框(14) As String
    Private Sub Set_清單1()
        Dim ds1 As New DataSet : 清單_dgv.DataSource = Nothing : ds1.Clear()
        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單_dgv.ColumnHeadersHeight = 50 : 清單_dgv.AllowUserToAddRows = False
        SQL_特支費與傭金清單() : da.Fill(ds1) : 清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
        清單_dgv.Columns(0).Visible = False : 清單_dgv.Columns(1).Visible = False : 清單_dgv.Columns(2).FillWeight = 170 : 清單_dgv.Columns(3).FillWeight = 80
        清單_dgv.Columns(4).Visible = False : 清單_dgv.Columns(5).Visible = False : 清單_dgv.Columns(6).FillWeight = 50 : 清單_dgv.Columns(7).Visible = False
        For i As Integer = 0 To 清單_dgv.Rows.Count - 1
            If 清單_dgv("Approval", i).Value.ToString = "" Then
                清單_dgv("Approval", i).Value = ""
            ElseIf strings.Left(清單_dgv("Approval", i).Value.ToString, 2) = "作廢" Then
                清單_dgv("Approval", i).Value = "NO"
            Else
                清單_dgv("Approval", i).Value = "YES"
            End If
        Next
    End Sub
    Private Sub Set_零用金清單()
        If 首次開啟 = True Then : Else
            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 : 表頭(11) = "會" : 表頭(12) = "出" : SQL2 = "" : 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 = 120 : 明細_dgv.Columns(3).FillWeight = 400
            明細_dgv.Columns(4).Visible = False : 明細_dgv.Columns(5).FillWeight = 140 : 明細_dgv.Columns(6).FillWeight = 400 : 明細_dgv.Columns(7).FillWeight = 70
            明細_dgv.Columns(8).FillWeight = 70 : 明細_dgv.Columns(9).FillWeight = 45 : 明細_dgv.Columns(10).FillWeight = 45

            明細_dgv.Columns(1).ReadOnly = True : 明細_dgv.Columns(2).ReadOnly = True : 明細_dgv.Columns(3).ReadOnly = True : 明細_dgv.Columns(7).ReadOnly = True
            明細_dgv.Columns(8).ReadOnly = True
            If 不可編輯 = False Then
                明細_dgv.Columns(5).ReadOnly = False : 明細_dgv.Columns(6).ReadOnly = False
            Else
                明細_dgv.Columns(5).ReadOnly = True : 明細_dgv.Columns(6).ReadOnly = True
            End If

            明細_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
            明細_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            明細_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter

            總金額_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
            For i As Integer = 0 To 明細_dgv.Rows.Count - 1
                If IsDBNull(明細_dgv(9, i).Value) = True Then : 明細_dgv(9, i).Value = False : End If
                If IsDBNull(明細_dgv(10, i).Value) = True Then : 明細_dgv(10, i).Value = False : End If
                明細_dgv.Rows(i).Cells(表頭(7)).Value = My.Resources.add_2 : 明細_dgv.Rows(i).Cells(表頭(8)).Value = My.Resources.Close
                總金額_tb.Text = Val(總金額_tb.Text) + 明細_dgv.Rows(i).Cells(表頭(5)).Value
                If 明細_dgv(9, i).Value = True Or 明細_dgv(10, i).Value = True Then : 明細_dgv(5, i).ReadOnly = True : End If
            Next i
            總金額_tb.Text = Format(Val(總金額_tb.Text), "#,##0")
        End If
    End Sub
    Private Sub Set_日期格式轉換()
        DTP = Format(Today(), "yyyy/MM/dd") & "-" & Format(TimeOfDay(), "HH:mm:ss") : DTP1 = Format(Today(), "yyyyMMdd")
    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-207" 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) = "H305-106" 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-207" : 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 = "H304-101" : Set_語言查詢() : 表頭(7) = 語言_dgv(1, RI).Value.ToString
        SK = "H304-102" : Set_語言查詢() : 表頭(8) = 語言_dgv(1, RI).Value.ToString : SK = "H304-103" : Set_語言查詢() : Label8.Text = 語言_dgv(1, RI).Value.ToString
        SK = "H304-104" : Set_語言查詢() : 對話框(0) = 語言_dgv(1, RI).Value.ToString : SK = "H304-105" : Set_語言查詢() : 對話框(1) = 語言_dgv(1, RI).Value.ToString
        SK = "H401-102" : Set_語言查詢() : 對話框(2) = 語言_dgv(1, RI).Value.ToString : SK = "G000-110" : Set_語言查詢() : 對話框(3) = 語言_dgv(1, RI).Value.ToString
        SK = "H704-121" : Set_語言查詢() : 對話框(4) = 語言_dgv(1, RI).Value.ToString : SK = "G000-218" : Set_語言查詢() : 對話框(5) = 語言_dgv(1, RI).Value.ToString
        SK = "G000-119" : Set_語言查詢() : 對話框(6) = 語言_dgv(1, RI).Value.ToString : SK = "H204-131" : Set_語言查詢() : 對話框(7) = 語言_dgv(1, RI).Value.ToString
        SK = "G000-120" : Set_語言查詢() : 對話框(8) = 語言_dgv(1, RI).Value.ToString : SK = "G000-124" : Set_語言查詢() : 對話框(9) = 語言_dgv(1, RI).Value.ToString
        SK = "H304-106" : Set_語言查詢() : 對話框(10) = 語言_dgv(1, RI).Value.ToString : SK = "H304-107" : Set_語言查詢() : 對話框(11) = 語言_dgv(1, RI).Value.ToString
        SK = "H305-106" : Set_語言查詢() : 表頭(13) = 語言_dgv(1, RI).Value.ToString : SK = "G000-221" : Set_語言查詢() : 對話框(12) = 語言_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 = "G000-117" : Set_語言查詢() : 對話框(13) = 語言_dgv(1, RI).Value.ToString
        SK = "G000-234" : Set_語言查詢() : 對話框(14) = 語言_dgv(1, RI).Value.ToString
    End Sub
    Private Sub 開單_bt_MouseEnter(sender As Object, e As EventArgs) Handles 開單_bt.MouseEnter
        ToolTip1.SetToolTip(Me.開單_bt, 對話框(0))
    End Sub
    Private Sub 新增項目_bt_MouseEnter(sender As Object, e As EventArgs) Handles 新增項目_bt.MouseEnter
        ToolTip1.SetToolTip(Me.新增項目_bt, 對話框(1))
    End Sub
    Private Sub 刪除項目_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除項目_bt.MouseEnter
        ToolTip1.SetToolTip(Me.刪除項目_bt, 對話框(2))
    End Sub
    Private Sub 存檔_bt_MouseEnter(sender As Object, e As EventArgs) Handles 存檔_bt.MouseEnter
        ToolTip1.SetToolTip(Me.存檔_bt, 對話框(3))
    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, 對話框(14))
    End Sub
    Private Sub 支付品項()
        SQL_支付品項()
        選擇品項_cb.Items.Clear() : 選擇品項編號_cb.Items.Clear() : While (dr.Read()) : 選擇品項_cb.Items.Add(dr("品項")) : 選擇品項編號_cb.Items.Add(dr("編號")) : End While : conn.Close()
    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 特支費與傭金申請_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        風格() : H(304) = True : 介面 = "H304" : 語言轉換讀取() : 顯示說明(999, True)
        Panel1.SendToBack()

        MyMod.清單字體大小調整()
        清單_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)
    End Sub
    Private Sub 特支費與傭金申請_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        支付品項() : 甲方條件下拉清單讀取() : Set_清單1() : SQL_特支費與傭金申請明細預設() : 首次開啟 = False : WEB說明頁面.BringToFront()
    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 系統說明_bt_Click(sender As Object, e As EventArgs) Handles 系統說明_bt.Click
        介面 = "H304" : WEB說明頁面.Show()
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        H(304) = True : 介面 = "H304" : 支付品項() : 語言轉換讀取() : Set_清單1() : Set_零用金清單()
    End Sub
    Private Sub 特支費與傭金申請_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        If 清單_dgv.Enabled = False Then : 發送_bt.PerformClick() : End If
        H(304) = False : MyMod.虛擬桌面開啟()
    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
            If 清單_dgv("Approval", e.RowIndex).Value = "" Then : 不可編輯 = False : Else : 不可編輯 = True : End If
            PA = 清單_dgv(0, e.RowIndex).Value.ToString : PA1 = 清單_dgv(1, e.RowIndex).Value.ToString : PA2 = 清單_dgv(2, e.RowIndex).Value.ToString
            單據_tb.Text = PA : TextBox2.Text = PA1 : 申請人_tb.Text = PA2 : 首次開啟 = False : Set_零用金清單()
            If 明細_dgv.Rows.Count = 0 Then
                For w As Integer = 0 To 9999
                    If 合約編號1_cb.Items.Count > 2999 Then : MGB(對話框(12), 1) : Else
                        For I As Integer = 0 To 3000 : PPBB(I) = "" : Next
                        For I As Integer = 0 To 合約編號1_cb.Items.Count - 1 : PPBB(I) = 合約編號1_cb.Items(I).ToString : NN1 = I : Next
                        下拉清單_2.ShowDialog() : 合約編號1_cb.Text = PPAA
                    End If
                    If 合約編號1_cb.Text = "" Then : MGB(對話框(13), 1) : Else : Exit For : End If
                Next
                For w As Integer = 0 To 9999
                    If 選擇品項_cb.Items.Count > 2999 Then : MGB(對話框(12), 1) : Else
                        For I As Integer = 0 To 3000 : PPBB(I) = "" : Next
                        For I As Integer = 0 To 選擇品項_cb.Items.Count - 1 : PPBB(I) = 選擇品項_cb.Items(I).ToString : NN1 = I : Next
                        下拉清單_2.ShowDialog() : 選擇品項_cb.Text = PPAA
                    End If
                    If 選擇品項_cb.Text = "" Then : MGB(對話框(13), 1) : Else : Exit For : End If
                Next
                新增項目_bt.PerformClick()
            End If
        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 : 合約編號1_cb.Text = 明細_dgv(2, e.RowIndex).Value.ToString : 選擇品項_cb.Text = 明細_dgv(3, e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub 明細_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 明細_dgv.CellEndEdit
        If e.RowIndex = -1 Then : Else
            總金額_tb.Text = "0"
            For i As Integer = 0 To 明細_dgv.Rows.Count - 1
                總金額_tb.Text = Val(總金額_tb.Text) + 明細_dgv.Rows(i).Cells(表頭(5)).Value
            Next i
            總金額_tb.Text = Format(Val(總金額_tb.Text), "#,##0")
        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 不可編輯 = False Then
            If 明細_dgv.SelectedCells.Count > 0 Then
                If 明細_dgv.SelectedCells(0).ColumnIndex = 7 Then : 新增項目_bt.PerformClick()
                ElseIf 明細_dgv.SelectedCells(0).ColumnIndex = 8 Then : 項次_tb.Text = 明細_dgv(1, 明細_dgv.SelectedCells(0).RowIndex).Value.ToString : 刪除項目_bt.PerformClick()
                ElseIf 明細_dgv.SelectedCells(0).ColumnIndex = 2 Then
                    If 明細_dgv(9, 明細_dgv.SelectedCells(0).RowIndex).Value = True Or 明細_dgv(10, 明細_dgv.SelectedCells(0).RowIndex).Value = True Then : Else
                        If 合約編號1_cb.Items.Count > 2999 Then : MGB(對話框(12), 1) : Else
                            Dim 原來的 As String = 明細_dgv(2, 明細_dgv.SelectedCells(0).RowIndex).Value
                            For I As Integer = 0 To 3000 : PPBB(I) = "" : Next
                            For I As Integer = 0 To 合約編號1_cb.Items.Count - 1 : PPBB(I) = 合約編號1_cb.Items(I).ToString : NN1 = I : Next
                            下拉清單_2.ShowDialog()
                            If PPAA = "" Then
                                明細_dgv(2, 明細_dgv.SelectedCells(0).RowIndex).Value = 原來的 : 合約編號1_cb.Text = 原來的
                            Else
                                明細_dgv(2, 明細_dgv.SelectedCells(0).RowIndex).Value = PPAA : 合約編號1_cb.Text = PPAA
                            End If
                        End If
                    End If
                ElseIf 明細_dgv.SelectedCells(0).ColumnIndex = 3 Then
                    If 明細_dgv(9, 明細_dgv.SelectedCells(0).RowIndex).Value = True Or 明細_dgv(10, 明細_dgv.SelectedCells(0).RowIndex).Value = True Then : Else
                        If 選擇品項_cb.Items.Count > 2999 Then : MGB(對話框(12), 1) : Else
                            Dim 原來的 As String = 明細_dgv(3, 明細_dgv.SelectedCells(0).RowIndex).Value
                            For I As Integer = 0 To 3000 : PPBB(I) = "" : Next
                            For I As Integer = 0 To 選擇品項_cb.Items.Count - 1 : PPBB(I) = 選擇品項_cb.Items(I).ToString : NN1 = I : Next
                            下拉清單_2.ShowDialog()
                            If PPAA = "" Then
                                明細_dgv(3, 明細_dgv.SelectedCells(0).RowIndex).Value = 原來的 : 合約編號1_cb.Text = 原來的
                                明細_dgv(4, 明細_dgv.SelectedCells(0).RowIndex).Value = 選擇品項編號_cb.Text
                            Else
                                明細_dgv(3, 明細_dgv.SelectedCells(0).RowIndex).Value = PPAA : 選擇品項_cb.Text = PPAA
                                明細_dgv(4, 明細_dgv.SelectedCells(0).RowIndex).Value = 選擇品項編號_cb.Text
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End Sub
    Private Sub 選擇品項_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 選擇品項_cb.SelectedIndexChanged
        選擇品項編號_cb.SelectedIndex = 選擇品項_cb.SelectedIndex
    End Sub
    Private Sub 存檔()
        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
            資料數 = 明細_dgv.Rows.Count : MyMod.進度條()
            PA = 單據_tb.Text : PA1 = 明細_dgv.Rows(i).Cells(表頭(3)).Value : PA2 = 明細_dgv.Rows(i).Cells(4).Value : PA3 = 明細_dgv.Rows(i).Cells(表頭(5)).Value
            PA4 = 明細_dgv.Rows(i).Cells(表頭(6)).Value : PA5 = 明細_dgv.Rows(i).Cells(2).Value.ToString : SQL_特支費與傭金存檔()
        Next : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
    End Sub
    Private Sub 開單()
        Set_日期格式轉換() : Dim NUM1 As Integer
        SQL_特支費與傭金最後一筆()
        If dr.Read() Then : NUM1 = Strings.Right(dr("流水號").ToString, 3) : End If : NUM1 += 1
        If NUM1 < 10 Then : 單據_tb.Text = "PC-" & DTP1 & "-00" & NUM1
        ElseIf NUM1 > 9 And NUM1 < 100 Then : 單據_tb.Text = "PC-" & DTP1 & "-0" & NUM1
        ElseIf NUM1 > 99 Then : 單據_tb.Text = "PC-" & DTP1 & "-" & NUM1 : End If
        PA = 單據_tb.Text : 申請人_tb.Text = gUserName : SQL_特支費與傭金控制表新增()
    End Sub
    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
        存檔() : Set_清單1() : MGB(對話框(6), 1) : 首次開啟 = False : 清單_dgv.Enabled = False
    End Sub
    Private Sub 發送_bt_Click(sender As Object, e As EventArgs) Handles 發送_bt.Click
        '---LINE_AUTO 部門主管------------------------------------------------------------------------------------------------------------------------------------------
        If 登入人IP = 測試IP Then : Else
            LIN訊息通知("CC206", "李協叡", gUserName, 單據_tb.Text) : LIN訊息通知("CC206", "LIN HSING HAO", gUserName, 單據_tb.Text)
        End If : 清單_dgv.Enabled = True
    End Sub
    Private Sub 開單_bt_Click(sender As Object, e As EventArgs) Handles 開單_bt.Click
        首次開啟 = False : 不可編輯 = False : 開單() : 明細_dgv.DataSource = Nothing : conn.Close()
        For w As Integer = 0 To 9999
            If 合約編號1_cb.Items.Count > 2999 Then : MGB(對話框(12), 1) : Else
                For I As Integer = 0 To 3000 : PPBB(I) = "" : Next
                For I As Integer = 0 To 合約編號1_cb.Items.Count - 1 : PPBB(I) = 合約編號1_cb.Items(I).ToString : NN1 = I : Next
                下拉清單_2.ShowDialog() : 合約編號1_cb.Text = PPAA
            End If
            If 合約編號1_cb.Text = "" Then : MGB(對話框(13), 1) : Else : Exit For : End If
        Next
        For w As Integer = 0 To 9999
            If 選擇品項_cb.Items.Count > 2999 Then : MGB(對話框(12), 1) : Else
                For I As Integer = 0 To 3000 : PPBB(I) = "" : Next
                For I As Integer = 0 To 選擇品項_cb.Items.Count - 1 : PPBB(I) = 選擇品項_cb.Items(I).ToString : NN1 = I : Next
                下拉清單_2.ShowDialog() : 選擇品項_cb.Text = PPAA
            End If
            If 選擇品項_cb.Text = "" Then : MGB(對話框(13), 1) : Else : Exit For : End If
        Next
        新增項目_bt.PerformClick() : 清單_dgv.Enabled = False
    End Sub
    Private Sub 新增項目_bt_Click(sender As Object, e As EventArgs) Handles 新增項目_bt.Click
        首次開啟 = False
        If 選擇品項_cb.Text = "" Then : MGB(對話框(10), 1) : Else
            If 合約編號1_cb.Text = "" Then : MGB(對話框(11), 1) : Else
                If 單據_tb.Text = "" Then : 開單() : End If
                存檔() : PA = 單據_tb.Text : SQL_特支費與傭金明細項次讀取()
                If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : NUM1 = Double.Parse(新項次) + 1
                If NUM1 < 10 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
                PA35 = 選擇品項編號_cb.Text : PA36 = 合約編號1_cb.Text : PA45 = 新項次 : SQL_特支費與傭金明細新增() : Set_零用金清單()
            End If
        End If
    End Sub
    Private Sub 刪除項目_bt_Click(sender As Object, e As EventArgs) Handles 刪除項目_bt.Click
        首次開啟 = False
        If 項次_tb.Text = "" Then : MGB(對話框(7), 1) : Else : 存檔() : PA = 單據_tb.Text : PA45 = 項次_tb.Text
            SQL_特支費與傭金明細指定刪除() : Set_零用金清單()
            Dim NUM1 As Integer = 0
            For i As Integer = 0 To 明細_dgv.Rows.Count - 1
                NUM1 += 1 : If NUM1 < 10 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
                PA45 = 新項次 : PA44 = 明細_dgv.Rows(i).Cells(表頭(3)).Value : SQL_特支費與傭金明細項次更換()
            Next : Set_零用金清單() : MGB(對話框(8), 1)
        End If : conn.Close()
    End Sub
    Private Sub 重新讀取_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click
        首次開啟 = False : Set_清單1()
    End Sub
    Private Sub 刪除單據_bt_Click(sender As Object, e As EventArgs) Handles 刪除單據_bt.Click
        首次開啟 = False : MGB(對話框(9), 2)
        If 訊息回應 = "YES" Then : PA = 單據_tb.Text
            SQL_特支費與傭金全單據刪除() : conn.Close() : 單據_tb.Text = "" : TextBox2.Text = "" : 申請人_tb.Text = "" : 項次_tb.Text = ""
            明細_dgv.DataSource = Nothing : MGB(對話框(8), 1) : Set_清單1()
        End If
    End Sub
    Private Sub 小間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距_ch.CheckedChanged
        Set_零用金清單()
    End Sub
    Private Sub 中間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距_ch.CheckedChanged
        Set_零用金清單()
    End Sub
    Private Sub 大間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距_ch.CheckedChanged
        Set_零用金清單()
    End Sub
    Private Sub 縮放1_bt_Click(sender As Object, e As EventArgs) Handles 縮放1_bt.Click
        If Panel2.Visible = True Then
            Panel2.Visible = False : Panel3.Location = New System.Drawing.Point(0, 0) : Panel3.Size = New System.Drawing.Point(Panel3.Size.Width + 334, Panel3.Size.Height)
        Else
            Panel2.Visible = True : Panel3.Location = New System.Drawing.Point(334, 0) : Panel3.Size = New System.Drawing.Point(Panel3.Size.Width - 334, Panel3.Size.Height)
        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

            單據_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 : 選擇品項_cb.BackColor = Color.White : 選擇品項_cb.ForeColor = Color.Black

            開單_bt.BackColor = Color.White : 新增項目_bt.BackColor = Color.White : 刪除項目_bt.BackColor = Color.White : 縮放1_bt.BackColor = Color.White
            存檔_bt.BackColor = Color.White : 重新讀取_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
        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

            單據_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 : 選擇品項_cb.BackColor = Color.DimGray : 選擇品項_cb.ForeColor = Color.White

            開單_bt.BackColor = Color.DimGray : 新增項目_bt.BackColor = Color.DimGray : 刪除項目_bt.BackColor = Color.DimGray : 縮放1_bt.BackColor = Color.DimGray
            存檔_bt.BackColor = Color.DimGray : 重新讀取_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
        End If
    End Sub
End Class