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