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