HX-PGS-ERP-SYS-LEEHSIEHJUI/02、採購管理系統/物料請採購/採購轉財務_設定金�...

Public Class 採購轉財務_設定金額
    Private Sub 語言轉換讀取()
        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
        Me.Text = 系統語言字典("H001-291-" & 語言)
        總金額_lb.Text = 系統語言字典("H304-103-" & 語言) : Label1.Text = 系統語言字典("H314-120-" & 語言) : Label2.Text = 系統語言字典("H314-126-" & 語言)
        付款金額_lb.Text = 系統語言字典("H314-125-" & 語言)
    End Sub
    Private Sub 採購轉財務_設定金額_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        語言轉換讀取()
        總金額_tb.Text = PA : 已轉財務金額_tb.Text = PA2 : Dim 最高可用金額 As Double = Double.Parse(PA) - Double.Parse(PA2)
        最高可用金額_tb.Text = 最高可用金額.ToString("#,##0")
        If Double.Parse(PA2) = 0 Then : 付款金額_nud.Value = Double.Parse(PA) : Else : 付款金額_nud.Value = Double.Parse(最高可用金額_tb.Text) : End If
        總金額_tb.Enabled = False : 已轉財務金額_tb.Enabled = False : 最高可用金額_tb.Enabled = False
    End Sub
    Private Sub 採購轉財務_設定金額_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        PA1 = 付款金額_nud.Value.ToString
    End Sub
    Private Sub 確認_bt_Click(sender As Object, e As EventArgs) Handles 確認_bt.Click
        Me.Close()
    End Sub

    Private Sub 十_bt_Click(sender As Object, e As EventArgs) Handles 十_bt.Click
        付款金額_nud.Value = Math.Round(Double.Parse(總金額_tb.Text) * 0.1, 0, MidpointRounding.AwayFromZero)
    End Sub

    Private Sub 三十_bt_Click(sender As Object, e As EventArgs) Handles 三十_bt.Click
        付款金額_nud.Value = Math.Round(Double.Parse(總金額_tb.Text) * 0.3, 0, MidpointRounding.AwayFromZero)
    End Sub

    Private Sub 五十_bt_Click(sender As Object, e As EventArgs) Handles 五十_bt.Click
        付款金額_nud.Value = Math.Round(Double.Parse(總金額_tb.Text) * 0.5, 0, MidpointRounding.AwayFromZero)
    End Sub

    Private Sub 七十_bt_Click(sender As Object, e As EventArgs) Handles 七十_bt.Click
        付款金額_nud.Value = Math.Round(Double.Parse(總金額_tb.Text) * 0.7, 0, MidpointRounding.AwayFromZero)
    End Sub

    Private Sub 一百_bt_Click(sender As Object, e As EventArgs) Handles 一百_bt.Click
        付款金額_nud.Value = Double.Parse(總金額_tb.Text)
    End Sub

    Private Sub 付款金額_nud_ValueChanged(sender As Object, e As EventArgs) Handles 付款金額_nud.ValueChanged
        If 付款金額_nud.Value >= Double.Parse(最高可用金額_tb.Text) Then : 付款金額_nud.Value = Double.Parse(最高可用金額_tb.Text) : End If
    End Sub
End Class