No Description
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

供應商管理銀行修改審核.vb 6.0KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465
  1. Public Class 供應商管理銀行修改審核
  2. Private Sub Set_清單()
  3. Dim ds As New DataSet : 廠商清單_dgv.DataSource = Nothing : ds.Clear()
  4. 廠商清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  5. 廠商清單_dgv.ColumnHeadersHeight = 25 : 廠商清單_dgv.AllowUserToAddRows = False : 廠商清單_dgv.RowTemplate.Height = 35
  6. SQL_供應商資料主管審核_清單()
  7. da.Fill(ds) : 廠商清單_dgv.DataSource = ds.Tables(0)
  8. 廠商清單_dgv.Columns(2).Visible = False : 廠商清單_dgv.Columns(3).Visible = False : 廠商清單_dgv.Columns(4).Visible = False : 廠商清單_dgv.Columns(5).Visible = False
  9. 廠商清單_dgv.Columns(6).Visible = False : 廠商清單_dgv.Columns(7).Visible = False : 廠商清單_dgv.Columns(8).Visible = False : 廠商清單_dgv.Columns(9).Visible = False
  10. 廠商清單_dgv.Columns(10).Visible = False
  11. 廠商清單_dgv.Columns(0).Visible = False : 廠商清單_dgv.Columns(1).FillWeight = 270
  12. 廠商清單_dgv.Columns(0).ReadOnly = True : 廠商清單_dgv.Columns(1).ReadOnly = True
  13. End Sub
  14. Private Sub 語言轉換讀取()
  15. If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
  16. Me.Text = 系統語言字典("H001-290-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言)
  17. Label2.Text = 系統語言字典("H299-148-" & 語言) : Label3.Text = 系統語言字典("H299-149-" & 語言) : Label4.Text = 系統語言字典("H314-105-" & 語言)
  18. Label11.Text = 系統語言字典("H314-105-" & 語言) : Label5.Text = 系統語言字典("H314-115-" & 語言) : Label10.Text = 系統語言字典("H314-115-" & 語言)
  19. Label6.Text = 系統語言字典("H314-116-" & 語言) : Label9.Text = 系統語言字典("H314-116-" & 語言) : Label7.Text = 系統語言字典("H314-114-" & 語言)
  20. Label8.Text = 系統語言字典("H314-114-" & 語言)
  21. End Sub
  22. Private Sub 供應商管理銀行修改審核_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  23. 語言轉換讀取()
  24. End Sub
  25. Private Sub 供應商管理銀行修改審核_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
  26. SQL_主管名稱(2, 23) : If dr.Read Then : 出納人員 = dr("姓名").ToString : End If
  27. SQL_主管名稱(2, 25) : If dr.Read Then : 採購主管 = dr("姓名").ToString : End If
  28. Set_清單()
  29. End Sub
  30. Private Sub 廠商清單_dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles 廠商清單_dgv.CellClick
  31. If e.RowIndex = -1 Then : Else
  32. 供應商編號_tb.Text = 廠商清單_dgv(0, e.RowIndex).Value.ToString : 供應商名稱_tb.Text = 廠商清單_dgv(1, e.RowIndex).Value.ToString
  33. 支付對象_tb.Text = 廠商清單_dgv(2, e.RowIndex).Value.ToString : 銀行名稱_tb.Text = 廠商清單_dgv(3, e.RowIndex).Value.ToString
  34. 銀行帳號_tb.Text = 廠商清單_dgv(4, e.RowIndex).Value.ToString : 銀行支行_tb.Text = 廠商清單_dgv(5, e.RowIndex).Value.ToString
  35. 新支付對象_tb.Text = 廠商清單_dgv(6, e.RowIndex).Value.ToString : 新銀行名稱_tb.Text = 廠商清單_dgv(7, e.RowIndex).Value.ToString
  36. 新銀行帳號_tb.Text = 廠商清單_dgv(8, e.RowIndex).Value.ToString : 新銀行支行_tb.Text = 廠商清單_dgv(9, e.RowIndex).Value.ToString
  37. If 支付對象_tb.Text <> 新支付對象_tb.Text Then : 新支付對象_tb.ForeColor = Color.Red : Else 新支付對象_tb.ForeColor = Color.Black : End If
  38. If 銀行名稱_tb.Text <> 新銀行名稱_tb.Text Then : 新銀行名稱_tb.ForeColor = Color.Red : Else 新銀行名稱_tb.ForeColor = Color.Black : End If
  39. If 銀行帳號_tb.Text <> 新銀行帳號_tb.Text Then : 新銀行帳號_tb.ForeColor = Color.Red : Else 新銀行帳號_tb.ForeColor = Color.Black : End If
  40. If 銀行支行_tb.Text <> 新銀行支行_tb.Text Then : 新銀行支行_tb.ForeColor = Color.Red : Else 新銀行支行_tb.ForeColor = Color.Black : End If
  41. End If
  42. End Sub
  43. Private Sub 確認_bt_Click(sender As Object, e As EventArgs) Handles 確認_bt.Click
  44. SQL_供應商資料主管審核_修改(供應商編號_tb.Text, 新支付對象_tb.Text, 新銀行名稱_tb.Text, 新銀行帳號_tb.Text, 新銀行支行_tb.Text)
  45. MGB("審核完成!", 1)
  46. If 登入人IP = 測試IP Then : Else
  47. LIN訊息通知("CC214", 出納人員, "已通過 " & 供應商名稱_tb.Text) : LIN訊息通知("CC214", 採購主管, "已通過 " & 供應商名稱_tb.Text)
  48. LIN訊息通知("CC214", "李協叡", "已通過 " & 供應商名稱_tb.Text)
  49. End If
  50. Set_清單() : 供應商編號_tb.Text = "" : 供應商名稱_tb.Text = "" : 支付對象_tb.Text = "" : 銀行名稱_tb.Text = ""
  51. 銀行帳號_tb.Text = "" : 銀行支行_tb.Text = "" : 新支付對象_tb.Text = "" : 新銀行名稱_tb.Text = "" : 新銀行帳號_tb.Text = ""
  52. 新銀行支行_tb.Text = ""
  53. End Sub
  54. Private Sub 取消_bt_Click(sender As Object, e As EventArgs) Handles 取消_bt.Click
  55. SQL_供應商資料主管審核_否決(供應商編號_tb.Text)
  56. MGB("審核完成!", 1)
  57. If 登入人IP = 測試IP Then : Else
  58. LIN訊息通知("CC214", 出納人員, "已取消 " & 供應商名稱_tb.Text) : LIN訊息通知("CC214", 採購主管, "已取消 " & 供應商名稱_tb.Text)
  59. LIN訊息通知("CC214", "李協叡", "已取消 " & 供應商名稱_tb.Text)
  60. End If
  61. Set_清單() : 供應商編號_tb.Text = "" : 供應商名稱_tb.Text = "" : 支付對象_tb.Text = "" : 銀行名稱_tb.Text = ""
  62. 銀行帳號_tb.Text = "" : 銀行支行_tb.Text = "" : 新支付對象_tb.Text = "" : 新銀行名稱_tb.Text = "" : 新銀行帳號_tb.Text = "" : 新銀行支行_tb.Text = ""
  63. End Sub
  64. End Class