HX-PGS-ERP-SYS-LEEHSIEHJUI/02、採購管理系統/物料請採購/採購轉財物支付單.vb

Public Class 採購轉財物支付單
    Dim SK1, SK2 As String
    Dim 匯率1 As Double
    Dim 對話框(7) As String
    Private Sub Set_清單1()
        Dim ds1 As New DataSet : 已核准_dgv.DataSource = Nothing : ds1.Clear()
        已核准_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        已核准_dgv.ColumnHeadersHeight = 40 : 已核准_dgv.RowTemplate.Height = 30
        已核准_dgv.AllowUserToAddRows = False
        If 全部資料_cb.Checked = True Then : SQL_採購轉財務_清單() : Else : SQL_採購轉財務_清單1() : End If
        da.Fill(ds1) : 已核准_dgv.DataSource = ds1.Tables(0) : conn.Close()
        已核准_dgv.Columns(表頭(0)).FillWeight = 40 : 已核准_dgv.Columns(表頭(1)).FillWeight = 40 : 已核准_dgv.Columns(25).FillWeight = 40
        已核准_dgv.Columns(21).FillWeight = 180 : 已核准_dgv.Columns(26).FillWeight = 40 : 已核准_dgv.Columns(27).FillWeight = 40
        已核准_dgv.Columns(22).DefaultCellStyle.Format = "#,##0" : 已核准_dgv.Columns(23).DefaultCellStyle.Format = "#,##0"
        已核准_dgv.Columns(24).DefaultCellStyle.Format = "#,##0"
        已核准_dgv.Columns(22).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        已核准_dgv.Columns(23).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        已核准_dgv.Columns(24).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        已核准_dgv.EditMode = DataGridViewEditMode.EditOnEnter

        Dim mycol1 As DataGridViewImageColumn = 已核准_dgv.Columns("Select All") : mycol1.ImageLayout = DataGridViewImageCellLayout.Zoom
        Dim mycol2 As DataGridViewImageColumn = 已核准_dgv.Columns("To DK") : mycol2.ImageLayout = DataGridViewImageCellLayout.Zoom
        Dim mycol3 As DataGridViewImageColumn = 已核准_dgv.Columns("Save") : mycol3.ImageLayout = DataGridViewImageCellLayout.Zoom
        For i As Integer = 0 To 已核准_dgv.Rows.Count - 1
            Dim 折扣, 稅金 As Long : 折扣 = 0 : 稅金 = 0
            已核准_dgv.Rows(i).Cells(表頭(8)).Value = 0
            If 已核准_dgv.Rows(i).Cells("DISC").Value <> 0 Then : 折扣 = 已核准_dgv.Rows(i).Cells(表頭(7)).Value / 100 * 已核准_dgv.Rows(i).Cells("DISC").Value : End If
            If 已核准_dgv.Rows(i).Cells("PPN").Value <> 0 And 已核准_dgv.Rows(i).Cells("稅").Value = True Then : 稅金 = 已核准_dgv.Rows(i).Cells(表頭(7)).Value / 100 * 已核准_dgv.Rows(i).Cells("PPN").Value : End If
            已核准_dgv.Rows(i).Cells(表頭(7)).Value += (稅金 - 折扣)
        Next
        已核准_dgv.Columns(0).FillWeight = 125
        For i As Integer = 1 To 20 : 已核准_dgv.Columns(i).Visible = False : Next
        For i As Integer = 21 To 27 : 已核准_dgv.Columns(i).Visible = True : Next
        已核准_dgv.Columns("Select All").Visible = False : 已核准_dgv.Columns("To DK").Visible = False : 已核准_dgv.Columns("Save").Visible = False
        已核准_dgv.Columns(表頭(8)).Visible = False
        已核准_dgv.Columns(0).ReadOnly = True : 已核准_dgv.Columns(21).ReadOnly = True : 已核准_dgv.Columns(23).ReadOnly = True : 已核准_dgv.Columns(24).ReadOnly = True
        已核准_dgv.Columns(25).ReadOnly = True : 已核准_dgv.Columns(26).ReadOnly = True : 已核准_dgv.Columns(27).ReadOnly = True : 已核准_dgv.Columns(28).ReadOnly = True
        已核准_dgv.Columns(29).ReadOnly = True

        For i As Integer = 已核准_dgv.Rows.Count - 1 To 0 Step -1
            If 已核准_dgv.Rows(i).Cells(表頭(9)).Value.ToString = 已核准_dgv.Rows(i).Cells(表頭(7)).Value.ToString And 已核准_dgv.Rows(i).Cells(表頭(0)).Value Then
                已核准_dgv.Rows.RemoveAt(i)
            End If
        Next

    End Sub
    Private Sub 戴入付款資料()
        SQL_採購轉財務_查詢支付對象(公司1_tb.Text)
        If dr.Read() Then
            支付銀行_tb.Text = dr(2).ToString : 銀行帳號_tb.Text = dr(3).ToString : 銀行支行_tb.Text = dr(4).ToString
            支付銀行_tb.Enabled = False : 銀行帳號_tb.Enabled = False : 銀行支行_tb.Enabled = False
        Else
            支付銀行_tb.Text = "" : 銀行帳號_tb.Text = "" : 銀行支行_tb.Text = ""
            支付銀行_tb.Enabled = True : 銀行帳號_tb.Enabled = True : 銀行支行_tb.Enabled = True
        End If
    End Sub
    Private Sub 部門選單下拉清單讀取()
        SQL_部門選單() : 部門選單_cb.Items.Clear() : While (dr.Read()) : 部門選單_cb.Items.Add(dr("部門")) : End While : conn.Close()
    End Sub
    Private Sub 計算申請金額()
        Dim 申請金額 As Double = 0
        Dim 內容 As String
        內容 = 系統語言字典("H220-100-" & 語言)
        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
            申請金額 += Double.Parse(明細_dgv.Rows(i).Cells(1).Value.ToString)
            If 內容 = "" Then
                內容 = 明細_dgv.Rows(i).Cells(0).Value.ToString & " - " & 明細_dgv.Rows(i).Cells(1).Value.ToString
            Else
                內容 += vbCrLf & 明細_dgv.Rows(i).Cells(0).Value.ToString & " - " & 明細_dgv.Rows(i).Cells(1).Value.ToString
            End If
        Next
        申請金額_nud.Value = 申請金額 : 內容_tb.Text = 內容
    End Sub
    Private Sub 語言轉換讀取()
        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
        Me.Text = 系統語言字典("H001-291-" & 語言) : 表頭(0) = 系統語言字典("H206-145-" & 語言) : 表頭(1) = 系統語言字典("H206-146-" & 語言)
        表頭(6) = 系統語言字典("H299-109-" & 語言) : 表頭(7) = 系統語言字典("H304-103-" & 語言) : 表頭(8) = 系統語言字典("H314-120-" & 語言)
        表頭(9) = 系統語言字典("H314-121-" & 語言) : 表頭(2) = 系統語言字典("H314-125-" & 語言) : 表頭(18) = 系統語言字典("H208-111-" & 語言)
        Label1.Text = 系統語言字典("H314-105-" & 語言) : Label2.Text = 系統語言字典("H314-115-" & 語言) : Label3.Text = 系統語言字典("H314-114-" & 語言)
        Label4.Text = 系統語言字典("H314-116-" & 語言) : Label5.Text = 系統語言字典("H314-100-" & 語言) : Label6.Text = 系統語言字典("H314-101-" & 語言)
        Label7.Text = 系統語言字典("H314-102-" & 語言) : Label8.Text = 系統語言字典("H314-104-" & 語言) : Label20.Text = 系統語言字典("H314-124-" & 語言)
        對話框(1) = 系統語言字典("H314-127-" & 語言) : 對話框(2) = 系統語言字典("H314-128-" & 語言) : 對話框(3) = 系統語言字典("G000-121-" & 語言)
        對話框(4) = 系統語言字典("H314-119-" & 語言) : 對話框(5) = 系統語言字典("H220-101-" & 語言) : 對話框(6) = 系統語言字典("H220-102-" & 語言)
        對話框(7) = 系統語言字典("H220-103-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言)
    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 生成財務單_bt_MouseEnter(sender As Object, e As EventArgs) Handles 生成財務單_bt.MouseEnter
        ToolTip1.SetToolTip(Me.生成財務單_bt, 對話框(7))
    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(208) = True : 介面 = "H220" : 語言轉換讀取() : 顯示說明(999, False)
        部門選單下拉清單讀取() : 幣別_cb.Text = "IDR" : 年份2_cb.Text = Year(Today)
        公司_tb.Text = "" : 公司1_tb.Text = "" : Set_清單1()
    End Sub
    Private Sub 採購轉財物支付單_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        H(208) = False : MyMod.虛擬桌面開啟()
    End Sub
    Private Sub 已核准_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 已核准_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2)
        If e.RowIndex = 已核准_dgv.Rows.Count - 1 Then : Exit Sub : Else
            If 已核准_dgv(21, e.RowIndex).Value.ToString <> 已核准_dgv(21, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(已核准_dgv.RowHeadersVisible, 已核准_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 已核准_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 已核准_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
            End If
        End If
    End Sub
    Private Sub 已核准_dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles 已核准_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            公司_tb.Text = 已核准_dgv(表頭(6), e.RowIndex).Value.ToString()
            單號_tb.Text = 已核准_dgv(表頭(18), e.RowIndex).Value.ToString() : 總金額_tb.Text = 已核准_dgv(表頭(7), e.RowIndex).Value.ToString()
            已轉金額_tb.Text = 已核准_dgv(表頭(9), e.RowIndex).Value.ToString()
        End If
    End Sub
    Private Sub 已核准_dgv_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles 已核准_dgv.CellDoubleClick
        If e.RowIndex = -1 Then : Else : Dim 可寫入 As Boolean = False
            If 明細_dgv.Rows.Count <= 0 Then
                If 公司1_tb.Text = "" Then : 公司1_tb.Text = 已核准_dgv(表頭(6), e.RowIndex).Value.ToString() : 戴入付款資料() : End If : 可寫入 = True
            Else
                If 已核准_dgv(表頭(6), e.RowIndex).Value.ToString() = 公司1_tb.Text Then : 可寫入 = True : End If
            End If
            If 可寫入 Then
                If 明細_dgv.Rows.Count <= 0 Then
                    明細_dgv.Columns.Clear() : 明細_dgv.AllowUserToAddRows = False
                    明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
                    明細_dgv.ColumnHeadersHeight = 25 : 明細_dgv.RowTemplate.Height = 30
                    明細_dgv.Columns.Add(表頭(18), 表頭(18)) : 明細_dgv.Columns.Add(表頭(2), 表頭(2)) : 明細_dgv.Columns.Add("已轉財務", "已轉財務")
                    明細_dgv.Columns.Add("總金額", "總金額")
                    明細_dgv.Columns(0).FillWeight = 150 : 明細_dgv.Columns(1).FillWeight = 150
                    明細_dgv.Columns(1).DefaultCellStyle.Format = "#,##0"
                    明細_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
                    明細_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
                    明細_dgv.Columns(0).ReadOnly = True : 明細_dgv.Columns(1).ReadOnly = True : 明細_dgv.Columns(2).Visible = False : 明細_dgv.Columns(3).Visible = False
                    Dim newRow As DataGridViewRow = New DataGridViewRow() : newRow.CreateCells(明細_dgv)
                    newRow.Cells(0).Value = 單號_tb.Text
                    Dim 付款金額 As Double : 付款金額 = Double.Parse(總金額_tb.Text) - Double.Parse(已轉金額_tb.Text)
                    newRow.Cells(1).Value = Strings.Format(付款金額, "#,##0")
                    newRow.Cells(2).Value = Strings.Format(Val(已轉金額_tb.Text), "#,##0") : newRow.Cells(3).Value = Strings.Format(Val(總金額_tb.Text), "#,##0")
                    明細_dgv.Rows.Add(newRow)
                    單號_tb.Text = "" : 總金額_tb.Text = "" : 已轉金額_tb.Text = ""
                Else
                    Dim 有重複項次 As Boolean = False
                    For i As Integer = 0 To 明細_dgv.Rows.Count - 1
                        If 單號_tb.Text = 明細_dgv.Rows(i).Cells(表頭(18)).Value.ToString Then : 有重複項次 = True : Exit For : End If
                    Next
                    If 有重複項次 Then : MGB(對話框(2), 1) : Else
                        Dim newRow As DataGridViewRow = New DataGridViewRow() : newRow.CreateCells(明細_dgv)
                        newRow.Cells(0).Value = 單號_tb.Text
                        Dim 付款金額 As Double : 付款金額 = Double.Parse(總金額_tb.Text) - Double.Parse(已轉金額_tb.Text)
                        newRow.Cells(1).Value = Strings.Format(付款金額, "#,##0")
                        newRow.Cells(2).Value = Strings.Format(Val(已轉金額_tb.Text), "#,##0") : newRow.Cells(3).Value = Strings.Format(Val(總金額_tb.Text), "#,##0")
                        明細_dgv.Rows.Add(newRow)
                        單號_tb.Text = "" : 總金額_tb.Text = "" : 已轉金額_tb.Text = ""
                    End If
                End If
            Else : MGB(對話框(1), 1) : End If : 計算申請金額()
        End If
    End Sub
    Private Sub 清除_bt_Click(sender As Object, e As EventArgs) Handles 清除_bt.Click
        明細_dgv.Rows.Clear() : 公司_tb.Text = "" : 公司1_tb.Text = "" : 支付銀行_tb.Text = "" : 銀行帳號_tb.Text = "" : 銀行支行_tb.Text = ""
        部門選單_cb.Text = "" : 選擇公司_cb.Text = "" : 內容_tb.Text = "" : 申請金額_nud.Value = 0
        支付銀行_tb.Enabled = True : 銀行帳號_tb.Enabled = True : 銀行支行_tb.Enabled = True
    End Sub
    Private Sub 全選_bt_Click(sender As Object, e As EventArgs) Handles 全選_bt.Click
        If 公司1_tb.Text <> "" Or 公司_tb.Text <> "" Then : Dim 可ALL As Boolean = False
            If 公司_tb.Text <> "" And 公司1_tb.Text = "" And 明細_dgv.Rows.Count <= 0 Then : 可ALL = True : End If : If 公司1_tb.Text = 公司_tb.Text Then : 可ALL = True : End If
            If 可ALL Then
                If 公司1_tb.Text = "" Then : 公司1_tb.Text = 公司_tb.Text : 戴入付款資料() : End If : Dim 單號 As String
                For i As Integer = 0 To 已核准_dgv.Rows.Count - 1 : 單號 = 已核准_dgv.Rows(i).Cells(0).Value.ToString
                    If 已核准_dgv.Rows(i).Cells(表頭(6)).Value.ToString = 公司1_tb.Text Or 已核准_dgv.Rows(i).Cells(表頭(6)).Value.ToString = 公司_tb.Text Then
                        Dim 有重複項次 As Boolean = False
                        For j As Integer = 0 To 明細_dgv.Rows.Count - 1 : If 單號 = 明細_dgv.Rows(j).Cells(0).Value.ToString Then : 有重複項次 = True : Exit For : End If : Next
                        If 有重複項次 Then : Else
                            If 明細_dgv.Rows.Count <= 0 Then
                                明細_dgv.Columns.Clear() : 明細_dgv.AllowUserToAddRows = False
                                明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
                                明細_dgv.ColumnHeadersHeight = 25 : 明細_dgv.RowTemplate.Height = 30
                                明細_dgv.Columns.Add(表頭(18), 表頭(18)) : 明細_dgv.Columns.Add(表頭(2), 表頭(2)) : 明細_dgv.Columns.Add("已轉財務", "已轉財務")
                                明細_dgv.Columns.Add("總金額", "總金額")
                                明細_dgv.Columns(0).FillWeight = 150 : 明細_dgv.Columns(1).FillWeight = 150
                                明細_dgv.Columns(1).DefaultCellStyle.Format = "#,##0"
                                明細_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
                                明細_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
                                明細_dgv.Columns(0).ReadOnly = True : 明細_dgv.Columns(1).ReadOnly = True : 明細_dgv.Columns(2).Visible = False : 明細_dgv.Columns(3).Visible = False
                            End If
                            Dim newRow As DataGridViewRow = New DataGridViewRow() : newRow.CreateCells(明細_dgv)
                            newRow.Cells(0).Value = 已核准_dgv.Rows(i).Cells(0).Value.ToString
                            Dim 付款金額 As Double : 付款金額 = Double.Parse(已核准_dgv.Rows(i).Cells(表頭(7)).Value.ToString) - Double.Parse(已核准_dgv.Rows(i).Cells(表頭(9)).Value.ToString)
                            newRow.Cells(1).Value = Strings.Format(付款金額, "#,##0")
                            newRow.Cells(2).Value = Strings.Format(Val(已核准_dgv.Rows(i).Cells(表頭(9)).Value.ToString), "#,##0")
                            newRow.Cells(3).Value = Strings.Format(Val(已核准_dgv.Rows(i).Cells(表頭(7)).Value.ToString), "#,##0")
                            明細_dgv.Rows.Add(newRow)
                        End If
                    End If
                Next
            Else : MGB(對話框(3), 1) : End If : 計算申請金額()
        Else : MGB(對話框(3), 1) : End If
    End Sub
    Private Sub 設定金額_bt_Click(sender As Object, e As EventArgs)
        採購轉財務_設定金額.ShowDialog() : 採購轉財務_設定金額.BringToFront()
    End Sub
    Private Sub 明細_dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles 明細_dgv.CellClick
        If e.ColumnIndex = 1 AndAlso e.RowIndex <> -1 Then : PA = 明細_dgv(3, e.RowIndex).Value.ToString() : PA1 = "" : PA2 = 明細_dgv(2, e.RowIndex).Value.ToString()
            採購轉財務_設定金額.ShowDialog() : 採購轉財務_設定金額.BringToFront() : 明細_dgv(1, e.RowIndex).Value = Strings.Format(Double.Parse(PA1), "#,##0")
            PA = "" : PA1 = "" : PA2 = "" : 計算申請金額()
        End If
    End Sub
    Private Sub 明細_dgv_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles 明細_dgv.CellDoubleClick
        If e.RowIndex = -1 Then : Else : 明細_dgv.Rows.RemoveAt(e.RowIndex) : 計算申請金額() : End If
    End Sub
    Private Sub 部門選單_cb_Click(sender As Object, e As EventArgs) Handles 部門選單_cb.Click
        CB選擇清單(部門選單_cb, 部門選單_cb.Text) : CB選擇清單(選擇公司_cb, 選擇公司_cb.Text)
        If 選擇公司_cb.Text.Contains("HONG") Then : PictureBox1.BringToFront()
        ElseIf 選擇公司_cb.Text.Contains("PUNCAK") Then : PictureBox1.SendToBack() : Else : PictureBox1.BringToFront() : End If
    End Sub
    Private Sub 全部資料_cb_Click(sender As Object, e As EventArgs) Handles 全部資料_cb.Click
        公司_tb.Text = "" : 公司1_tb.Text = "" : Set_清單1()
    End Sub
    Private Sub Set_日期格式轉換()
        DTP1 = Strings.Format(申請日期_dtp.Value, "yyyyMMdd") : DTP = Strings.Format(申請日期_dtp.Value, "yyyy/MM/dd")
    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
        If 首次開啟 = False Then : Set_清單1() : End If
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H208" : 語言轉換讀取() : Set_清單1() : 清除_bt.PerformClick()
    End Sub
    Private Sub 生成財務單_bt_Click(sender As Object, e As EventArgs) Handles 生成財務單_bt.Click
        If 部門選單_cb.Text <> "" Then : 申請人_tb.Text = gUserName
            If 選擇公司_cb.Text = "PT HONG XHE INDUSTRIAL" Then : SK2 = "/HXI-PP/" : Else : SK2 = "/PGS-PP/" : End If
            Dim NUM1 As Integer : Set_日期格式轉換() : Dim 財務單號 As String = "OE-" & DTP1 & "-000"
            SQL_採購轉財務_查詢最後公帳支付單號("OE-" & DTP1 & "-") : If dr.Read() Then : 財務單號 = dr("支付單號").ToString : End If
            NUM1 = Double.Parse(財務單號.Substring(12, 3)) + 1 : 財務單號 = "OE-" & DTP1 & "-" & NUM1.ToString.PadLeft(3, "0")
            SQL_採購轉財務_新增一筆財務收支控制表(財務單號)

            月份2_cb.Text = Strings.Mid(Strings.Format(申請日期_dtp.Value, "yyyy/MM/dd"), 6, 2)
            PA25 = 部門選單_cb.Text & SK2 & SK1 & 年份2_cb.Text : SQL_財物支付單申請_查詢最後一筆公帳支付單號()
            If dr.Read() Then : 單號_tb.Text = Strings.Left(dr("流水號").ToString, 3) : Else : 單號_tb.Text = "000" : End If : conn.Close()
            單號_tb.Text = CInt(單號_tb.Text) + 1
            If CInt(單號_tb.Text) < 10 Then : 單號_tb.Text = "00" & CInt(單號_tb.Text)
            ElseIf CInt(單號_tb.Text) > 9 And CInt(單號_tb.Text) < 100 Then : 單號_tb.Text = "0" & CInt(單號_tb.Text)
            ElseIf CInt(單號_tb.Text) > 99 And CInt(單號_tb.Text) < 1000 Then : 單號_tb.Text = CInt(單號_tb.Text) : End If
            單號_tb.Text = 單號_tb.Text & "-" & 部門選單_cb.Text & SK2 & SK1 & 年份2_cb.Text

            PA19 = 單號_tb.Text : PA11 = "01"
            指定會科 = "B-02-01-02" : PA13 = "0" : PA14 = 申請金額_nud.Value : PA12 = 內容_tb.Text : PA37 = "" : PA38 = "" : PA39 = 公司1_tb.Text
            PA40 = 銀行帳號_tb.Text : PA41 = 支付銀行_tb.Text : PA42 = 銀行支行_tb.Text
            If 幣別_cb.Text = "TWD" Then : 匯率1 = 1 / CDbl(印尼匯率_tb.Text)
            ElseIf 幣別_cb.Text = "RMB" Then : 匯率1 = CDbl(人民幣匯率_tb.Text) / CDbl(印尼匯率_tb.Text)
            ElseIf 幣別_cb.Text = "USD" Then : 匯率1 = CDbl(美金匯率_tb.Text) / CDbl(印尼匯率_tb.Text)
            ElseIf 幣別_cb.Text = "IDR" Then : 匯率1 = 1
            End If : PA16 = 匯率1
            SQL_採購轉財務_明細表資料新增(Strings.Format(支付日期_dtp.Value, "yyyy/MM/dd"), 財務單號)
            For i As Integer = 0 To 明細_dgv.Rows.Count - 1
                Dim 已轉 As Double = Double.Parse(明細_dgv.Rows(i).Cells(2).Value.ToString) + Double.Parse(明細_dgv.Rows(i).Cells(1).Value.ToString)
                SQL_採購轉財務_修改已轉金額(明細_dgv.Rows(i).Cells(0).Value.ToString, 已轉)
            Next
            明細_dgv.Rows.Clear() : 公司_tb.Text = "" : 公司1_tb.Text = "" : 支付銀行_tb.Text = "" : 銀行帳號_tb.Text = "" : 銀行支行_tb.Text = ""
            部門選單_cb.Text = "" : 選擇公司_cb.Text = "" : 內容_tb.Text = "" : 申請金額_nud.Value = 0
            支付銀行_tb.Enabled = True : 銀行帳號_tb.Enabled = True : 銀行支行_tb.Enabled = True
            MGB(對話框(4), 1) : Set_清單1()
        Else : MGB(對話框(3), 1) : End If
    End Sub
End Class