HX-PGS-ERP-SYS-LEEHSIEHJUI/02、採購管理系統/電信費追加/電信費追加申請.vb

Public Class 電信費追加申請
    Dim 對話框(46), 新流水1, 新項次 As String : Dim 匯率1 As Double
    Dim SK1, SK2 As String
    Private Sub 第一層下拉表單資料載入()
        SQL_財務單會計科目1() : 第一層_cb.Items.Clear() : 編號1_cb.Items.Clear()
        While (dr.Read()) : 第一層_cb.Items.Add(dr("第一階")) : 編號1_cb.Items.Add(dr("編號")) : End While : conn.Close() : 第一層_cb.Text = "" : 編號1_cb.Text = ""
    End Sub
    Private Sub 第二層下拉表單資料載入()
        PA25 = 編號1_cb.Text : SQL_財務單會計科目2() : 第二層_cb.Items.Clear() : 編號2_cb.Items.Clear()
        While (dr.Read()) : 第二層_cb.Items.Add(dr("第二階")) : 編號2_cb.Items.Add(dr("編號")) : End While : conn.Close() : 第二層_cb.Text = "" : 編號2_cb.Text = ""
    End Sub
    Private Sub 第三層下拉表單資料載入()
        PA26 = 編號2_cb.Text : SQL_財務單會計科目3() : 第三層_cb.Items.Clear() : 編號3_cb.Items.Clear()
        While (dr.Read()) : 第三層_cb.Items.Add(dr("會計科目")) : 編號3_cb.Items.Add(dr("編號")) : End While : conn.Close()
        If 第三層_cb.Items.Count <> 0 Then : 第三層_cb.SelectedIndex = 0 : End If
    End Sub
    Private Sub 語言轉換讀取()
        Me.Text = 系統語言字典("H001-274-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言)
        Label1.Text = 系統語言字典("H206-103-" & 語言) : Label2.Text = 系統語言字典("H301-114-" & 語言) : Label3.Text = 系統語言字典("H204-109-" & 語言)
        對話框(0) = 系統語言字典("H301-125-" & 語言) : 對話框(1) = 系統語言字典("H214-100-" & 語言) : 對話框(2) = 系統語言字典("H214-101-" & 語言)
        對話框(3) = 系統語言字典("H905-103-" & 語言)
    End Sub
    Private Sub 電信費追加申請_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
    Private Sub 電信費追加申請_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        風格() : H(214) = True : 介面 = "H214" : 語言轉換讀取() : 幣別_cb.SelectedIndex = 3 : 申請人_tb.Text = gUserName : 顯示說明(999, False)
        第一層下拉表單資料載入() : 編號1_cb.Text = "B-02" : 編號2_cb.Text = "B-02-04" : 科目_cb.Items.Clear()
        編號3_cb.Text = "B-02-04-20" : 科目_cb.Items.Add(第三層_cb.Text)
        編號3_cb.Text = "B-02-04-21" : 科目_cb.Items.Add(第三層_cb.Text)
        年份2_cb.Text = Year(Today) : 月份2_cb.SelectedIndex = Month(Today) - 1
    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(214) = False
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        H(214) = True : 介面 = "H214" : 語言轉換讀取()
    End Sub
    Private Sub 第一層_cb_TextChanged(sender As Object, e As EventArgs) Handles 第一層_cb.TextChanged
        編號1_cb.SelectedIndex = 第一層_cb.SelectedIndex : 第二層下拉表單資料載入() : 第三層下拉表單資料載入()
    End Sub
    Private Sub 第二層_cb_TextChanged(sender As Object, e As EventArgs) Handles 第二層_cb.TextChanged
        編號2_cb.SelectedIndex = 第二層_cb.SelectedIndex : 第三層下拉表單資料載入()
    End Sub
    Private Sub 編號1_cb_TextChanged(sender As Object, e As EventArgs) Handles 編號1_cb.TextChanged
        第一層_cb.SelectedIndex = 編號1_cb.SelectedIndex : 第二層下拉表單資料載入() : 第三層下拉表單資料載入()
    End Sub
    Private Sub 編號2_cb_TextChanged(sender As Object, e As EventArgs) Handles 編號2_cb.TextChanged
        第二層_cb.SelectedIndex = 編號2_cb.SelectedIndex : 第三層下拉表單資料載入()
    End Sub
    Private Sub 第三層_cb_TextChanged(sender As Object, e As EventArgs) Handles 第三層_cb.TextChanged
        編號3_cb.SelectedIndex = 第三層_cb.SelectedIndex
    End Sub
    Private Sub 編號3_cb_TextChanged(sender As Object, e As EventArgs) Handles 編號3_cb.TextChanged
        第三層_cb.SelectedIndex = 編號3_cb.SelectedIndex
    End Sub
    Private Sub 科目_cb_TextChanged(sender As Object, e As EventArgs) Handles 科目_cb.TextChanged
        第三層_cb.Text = 科目_cb.Text
    End Sub
    Private Sub 第一層_cb_Click(sender As Object, e As EventArgs) Handles 第一層_cb.Click
        CB選擇清單(第一層_cb, 第一層_cb.Text)
    End Sub
    Private Sub 第二層_cb_Click(sender As Object, e As EventArgs) Handles 第二層_cb.Click
        CB選擇清單(第二層_cb, 第二層_cb.Text)
    End Sub
    Private Sub 第三層_cb_Click(sender As Object, e As EventArgs) Handles 第三層_cb.Click
        CB選擇清單(第三層_cb, 第三層_cb.Text)
    End Sub
    Private Sub 科目_cb_Click(sender As Object, e As EventArgs) Handles 科目_cb.Click
        CB選擇清單(科目_cb, 科目_cb.Text)
    End Sub
    Private Sub 金額_cb_Click(sender As Object, e As EventArgs) Handles 金額_cb.Click
        CB選擇清單(金額_cb, 金額_cb.Text)
    End Sub
    Private Sub 幣別_cb_Click(sender As Object, e As EventArgs) Handles 幣別_cb.Click
        CB選擇清單(幣別_cb, 幣別_cb.Text)
    End Sub
    Private Sub Set_日期格式轉換()
        DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
    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 申請完成_bt_Click(sender As Object, e As EventArgs) Handles 申請完成_bt.Click
        If 科目_cb.Text = "" Then : MGB(對話框(0), 1) : Else
            If 金額_cb.Text = "" Then : MGB(對話框(1), 1) : Else
                If CLng(金額_cb.Text) > 200000 Then : MGB(對話框(2), 1) : Else
                    '-------開立單據----------------------------------------------------------------------------------------
                    Dim NUM1 As Integer
                    Set_日期格式轉換()
                    For i As Integer = 1 To 999
                        NUM1 = 0 + i
                        If NUM1 < 10 Then : 單號_tb.Text = "OE-" & DTP1 & "-00" & NUM1
                        ElseIf NUM1 > 9 And NUM1 < 100 Then : 單號_tb.Text = "OE-" & DTP1 & "-0" & NUM1
                        ElseIf NUM1 > 99 Then : 單號_tb.Text = "OE-" & DTP1 & "-" & NUM1
                        End If : conn.Close() : PA = 單號_tb.Text
                        SQL_營運成本收支單申請_查詢第一筆公帳支付單號()
                        If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
                    Next : SQL_營運成本收支單申請_新增一筆財務收支控制表() : conn.Close()
                    '-------建立明細----------------------------------------------------------------------------------------
                    SK2 = "/HXI-PP/"
                    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

                    PA15 = 單號_tb.Text : 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
                    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 : PA11 = 新項次 : 指定會科 = 編號3_cb.Text : PA13 = "0" : PA14 = CLng(金額_cb.Text)
                    PA12 = 申請人_tb.Text & " / " & 科目_cb.Text : PA37 = ""
                    SQL_新增財務收支明細表資料1() : MGB(對話框(3), 1)
                    '---LINE_AUTO 部門主管------------------------------------------------------------------------------------------------------------------------------------------
                    If 登入人IP = 測試IP Then : Else
                        LIN訊息通知("CC203", "李協叡", 申請人_tb.Text)
                        LIN訊息通知("CC203", "KERIH", 申請人_tb.Text)
                    End If
                End If
            End If
        End If
    End Sub
    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = SystemColors.Control
            '----------------黑-------------------------------------------
            Label1.ForeColor = Color.Black : Label2.ForeColor = Color.Black : Label3.ForeColor = Color.Black : Label4.ForeColor = Color.Black

            科目_cb.BackColor = Color.White : 科目_cb.ForeColor = Color.Black : 金額_cb.BackColor = Color.White : 金額_cb.ForeColor = Color.Black
            申請人_tb.BackColor = Color.White : 申請人_tb.ForeColor = Color.Black

            申請完成_bt.BackColor = Color.White
        Else
            Me.BackColor = Color.Black
            '----------------黑-------------------------------------------
            Label1.ForeColor = Color.White : Label2.ForeColor = Color.White : Label3.ForeColor = Color.White : Label4.ForeColor = Color.White

            科目_cb.BackColor = Color.DimGray : 科目_cb.ForeColor = Color.White : 金額_cb.BackColor = Color.DimGray : 金額_cb.ForeColor = Color.White
            申請人_tb.BackColor = Color.DimGray : 申請人_tb.ForeColor = Color.White

            申請完成_bt.BackColor = Color.DimGray
        End If
    End Sub
End Class