1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465 |
- Public Class 供應商管理銀行修改審核
- Private Sub Set_清單()
- Dim ds As New DataSet : 廠商清單_dgv.DataSource = Nothing : ds.Clear()
- 廠商清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- 廠商清單_dgv.ColumnHeadersHeight = 25 : 廠商清單_dgv.AllowUserToAddRows = False : 廠商清單_dgv.RowTemplate.Height = 35
- SQL_供應商資料主管審核_清單()
- da.Fill(ds) : 廠商清單_dgv.DataSource = ds.Tables(0)
-
- 廠商清單_dgv.Columns(2).Visible = False : 廠商清單_dgv.Columns(3).Visible = False : 廠商清單_dgv.Columns(4).Visible = False : 廠商清單_dgv.Columns(5).Visible = False
- 廠商清單_dgv.Columns(6).Visible = False : 廠商清單_dgv.Columns(7).Visible = False : 廠商清單_dgv.Columns(8).Visible = False : 廠商清單_dgv.Columns(9).Visible = False
- 廠商清單_dgv.Columns(10).Visible = False
- 廠商清單_dgv.Columns(0).Visible = False : 廠商清單_dgv.Columns(1).FillWeight = 270
- 廠商清單_dgv.Columns(0).ReadOnly = True : 廠商清單_dgv.Columns(1).ReadOnly = True
- End Sub
- Private Sub 語言轉換讀取()
- If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
- Me.Text = 系統語言字典("H001-290-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言)
- Label2.Text = 系統語言字典("H299-148-" & 語言) : Label3.Text = 系統語言字典("H299-149-" & 語言) : Label4.Text = 系統語言字典("H314-105-" & 語言)
- Label11.Text = 系統語言字典("H314-105-" & 語言) : Label5.Text = 系統語言字典("H314-115-" & 語言) : Label10.Text = 系統語言字典("H314-115-" & 語言)
- Label6.Text = 系統語言字典("H314-116-" & 語言) : Label9.Text = 系統語言字典("H314-116-" & 語言) : Label7.Text = 系統語言字典("H314-114-" & 語言)
- Label8.Text = 系統語言字典("H314-114-" & 語言)
- 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
- SQL_主管名稱(2, 23) : If dr.Read Then : 出納人員 = dr("姓名").ToString : End If
- SQL_主管名稱(2, 25) : If dr.Read Then : 採購主管 = dr("姓名").ToString : End If
- Set_清單()
- End Sub
- Private Sub 廠商清單_dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles 廠商清單_dgv.CellClick
- If e.RowIndex = -1 Then : Else
- 供應商編號_tb.Text = 廠商清單_dgv(0, e.RowIndex).Value.ToString : 供應商名稱_tb.Text = 廠商清單_dgv(1, e.RowIndex).Value.ToString
- 支付對象_tb.Text = 廠商清單_dgv(2, e.RowIndex).Value.ToString : 銀行名稱_tb.Text = 廠商清單_dgv(3, e.RowIndex).Value.ToString
- 銀行帳號_tb.Text = 廠商清單_dgv(4, e.RowIndex).Value.ToString : 銀行支行_tb.Text = 廠商清單_dgv(5, e.RowIndex).Value.ToString
- 新支付對象_tb.Text = 廠商清單_dgv(6, e.RowIndex).Value.ToString : 新銀行名稱_tb.Text = 廠商清單_dgv(7, e.RowIndex).Value.ToString
- 新銀行帳號_tb.Text = 廠商清單_dgv(8, e.RowIndex).Value.ToString : 新銀行支行_tb.Text = 廠商清單_dgv(9, e.RowIndex).Value.ToString
- If 支付對象_tb.Text <> 新支付對象_tb.Text Then : 新支付對象_tb.ForeColor = Color.Red : Else 新支付對象_tb.ForeColor = Color.Black : End If
- If 銀行名稱_tb.Text <> 新銀行名稱_tb.Text Then : 新銀行名稱_tb.ForeColor = Color.Red : Else 新銀行名稱_tb.ForeColor = Color.Black : End If
- If 銀行帳號_tb.Text <> 新銀行帳號_tb.Text Then : 新銀行帳號_tb.ForeColor = Color.Red : Else 新銀行帳號_tb.ForeColor = Color.Black : End If
- If 銀行支行_tb.Text <> 新銀行支行_tb.Text Then : 新銀行支行_tb.ForeColor = Color.Red : Else 新銀行支行_tb.ForeColor = Color.Black : End If
- End If
- End Sub
- Private Sub 確認_bt_Click(sender As Object, e As EventArgs) Handles 確認_bt.Click
- SQL_供應商資料主管審核_修改(供應商編號_tb.Text, 新支付對象_tb.Text, 新銀行名稱_tb.Text, 新銀行帳號_tb.Text, 新銀行支行_tb.Text)
- MGB("審核完成!", 1)
- If 登入人IP = 測試IP Then : Else
- LIN訊息通知("CC214", 出納人員, "已通過 " & 供應商名稱_tb.Text) : LIN訊息通知("CC214", 採購主管, "已通過 " & 供應商名稱_tb.Text)
- LIN訊息通知("CC214", "李協叡", "已通過 " & 供應商名稱_tb.Text)
- End If
- Set_清單() : 供應商編號_tb.Text = "" : 供應商名稱_tb.Text = "" : 支付對象_tb.Text = "" : 銀行名稱_tb.Text = ""
- 銀行帳號_tb.Text = "" : 銀行支行_tb.Text = "" : 新支付對象_tb.Text = "" : 新銀行名稱_tb.Text = "" : 新銀行帳號_tb.Text = ""
- 新銀行支行_tb.Text = ""
- End Sub
- Private Sub 取消_bt_Click(sender As Object, e As EventArgs) Handles 取消_bt.Click
- SQL_供應商資料主管審核_否決(供應商編號_tb.Text)
- MGB("審核完成!", 1)
- If 登入人IP = 測試IP Then : Else
- LIN訊息通知("CC214", 出納人員, "已取消 " & 供應商名稱_tb.Text) : LIN訊息通知("CC214", 採購主管, "已取消 " & 供應商名稱_tb.Text)
- LIN訊息通知("CC214", "李協叡", "已取消 " & 供應商名稱_tb.Text)
- End If
- Set_清單() : 供應商編號_tb.Text = "" : 供應商名稱_tb.Text = "" : 支付對象_tb.Text = "" : 銀行名稱_tb.Text = ""
- 銀行帳號_tb.Text = "" : 銀行支行_tb.Text = "" : 新支付對象_tb.Text = "" : 新銀行名稱_tb.Text = "" : 新銀行帳號_tb.Text = "" : 新銀行支行_tb.Text = ""
- End Sub
- End Class
|