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 68KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821
  1. Option Strict Off
  2. Imports System.IO
  3. Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
  4. Imports Microsoft.Office.Interop.Excel.Constants
  5. Imports Microsoft.Office.Interop.Excel.XlBordersIndex
  6. Imports Microsoft.Office.Interop.Excel.XlLineStyle
  7. Imports Microsoft.Office.Interop.Excel.XlBorderWeight
  8. Imports Microsoft.Office.Interop.Excel.XlThemeFont
  9. Imports Microsoft.Office.Interop.Excel.XlThemeColor
  10. Imports Microsoft.Office.Interop.Excel.XlWindowState
  11. Imports Microsoft.Office.Interop.Excel
  12. Public Class 請購單核准
  13. ReadOnly ds8 As New DataSet
  14. Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet : Dim N1, 選擇項 As Integer
  15. Dim 新項次, 對話框(13), 物料規格 As String
  16. Private Sub Set_請購單清單()
  17. Dim ds As New DataSet : 請購明細_dgv.DataSource = Nothing : ds.Clear()
  18. 請購明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  19. 請購明細_dgv.ColumnHeadersHeight = 25
  20. 請購明細_dgv.AllowUserToAddRows = False
  21. If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then : 請購明細_dgv.RowTemplate.Height = 65
  22. ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then : 請購明細_dgv.RowTemplate.Height = 35
  23. ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then : 請購明細_dgv.RowTemplate.Height = 25 : End If
  24. SQL_建築物料請購單核准_請購單清單()
  25. da.Fill(ds) : 請購明細_dgv.DataSource = ds.Tables(0) : 請購明細1_dgv.DataSource = ds.Tables(0) : conn.Close()
  26. 請購明細_dgv.Columns(0).Visible = False : 請購明細_dgv.Columns(1).FillWeight = 80 : 請購明細_dgv.Columns(2).FillWeight = 250 : 請購明細_dgv.Columns(3).FillWeight = 250
  27. 請購明細_dgv.Columns(4).FillWeight = 120 : 請購明細_dgv.Columns(5).FillWeight = 80 : 請購明細_dgv.Columns(6).FillWeight = 80 : 請購明細_dgv.Columns(7).FillWeight = 120
  28. 請購明細_dgv.Columns(8).Visible = False : 請購明細_dgv.Columns(9).Visible = False : 請購明細_dgv.Columns(10).Visible = False : 請購明細_dgv.Columns(11).Visible = False
  29. 請購明細_dgv.Columns(12).Visible = False : 請購明細_dgv.Columns(13).Visible = False : 請購明細_dgv.Columns(14).Visible = False : 請購明細_dgv.Columns(15).Visible = False
  30. 請購明細_dgv.Columns(16).Visible = False : 請購明細_dgv.Columns(17).Visible = False : 請購明細_dgv.Columns(18).Visible = False : 請購明細_dgv.Columns(19).Visible = False
  31. 請購明細_dgv.Columns(表頭(9)).FillWeight = 60
  32. 請購明細_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
  33. 請購明細_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
  34. 請購明細_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  35. 請購明細_dgv.Columns(0).ReadOnly = True : 請購明細_dgv.Columns(1).ReadOnly = True : 請購明細_dgv.Columns(2).ReadOnly = True : 請購明細_dgv.Columns(3).ReadOnly = True
  36. 請購明細_dgv.Columns(4).ReadOnly = False : 請購明細_dgv.Columns(6).ReadOnly = True : 請購明細_dgv.Columns(表頭(9)).ReadOnly = True
  37. 請購明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
  38. If 低網速模式 = False Then
  39. 請購明細_dgv.Columns(21).FillWeight = 80 : 請購明細_dgv.Columns(21).Visible = True
  40. Dim mycol As DataGridViewImageColumn = 請購明細_dgv.Columns("圖檔")
  41. mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
  42. Else
  43. If 請購明細_dgv.Columns.Count = 22 Then
  44. 請購明細_dgv.Columns(21).Visible = False
  45. End If
  46. End If
  47. AAA1 = "" : AAA2 = "" : AAA3 = "" : AAA4 = "" : AAA5 = "" : AAA6 = "" : AAA7 = "" : AAA8 = ""
  48. For i As Integer = 0 To 請購明細_dgv.Rows.Count - 1
  49. '-------------------------規格合併呈現----------------------------------------------------------------------------------------------------------------------------------------
  50. If i = 0 Then
  51. PA3 = 請購明細_dgv.Rows(i).Cells("規格庫抬頭指定").Value
  52. SQL_規格庫抬頭讀取()
  53. If dr.Read() Then
  54. AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
  55. End If
  56. conn.Close()
  57. Else
  58. If 請購明細_dgv.Rows(i).Cells("規格庫抬頭指定").Value.ToString <> 請購明細_dgv.Rows(i - 1).Cells("規格庫抬頭指定").Value.ToString Then
  59. PA3 = 請購明細_dgv.Rows(i).Cells("規格庫抬頭指定").Value
  60. SQL_規格庫抬頭讀取()
  61. If dr.Read() Then
  62. AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
  63. End If
  64. conn.Close()
  65. End If
  66. End If
  67. Dim ZA1, ZA2, ZA3, ZA4, ZA5, ZA6, ZA7, ZA8 As String : 物料規格 = ""
  68. If 詳細資料2_ch.Checked = True Then
  69. If 請購明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" Then
  70. ZA1 = AAA1 & "=" & 請購明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 物料規格 = ZA1 : End If
  71. If 請購明細_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then : ZA2 = AAA2 & "=" & 請購明細_dgv.Rows(i).Cells("A2").Value
  72. If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If
  73. If 請購明細_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then : ZA3 = AAA3 & "=" & 請購明細_dgv.Rows(i).Cells("A3").Value
  74. If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If
  75. If 請購明細_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then : ZA4 = AAA4 & "=" & 請購明細_dgv.Rows(i).Cells("A4").Value
  76. If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If
  77. If 請購明細_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then : ZA5 = AAA5 & "=" & 請購明細_dgv.Rows(i).Cells("A5").Value
  78. If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If
  79. If 請購明細_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then : ZA6 = AAA6 & "=" & 請購明細_dgv.Rows(i).Cells("A6").Value
  80. If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If
  81. If 請購明細_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then : ZA7 = AAA7 & "=" & 請購明細_dgv.Rows(i).Cells("A7").Value
  82. If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If
  83. If 請購明細_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then : ZA8 = AAA8 & "=" & 請購明細_dgv.Rows(i).Cells("A8").Value
  84. If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If
  85. Else
  86. If 請購明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" Then : ZA1 = 請購明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 物料規格 = ZA1 : End If
  87. If 請購明細_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then
  88. ZA2 = 請購明細_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If
  89. If 請購明細_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then
  90. ZA3 = 請購明細_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If
  91. If 請購明細_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then
  92. ZA4 = 請購明細_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If
  93. If 請購明細_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then
  94. ZA5 = 請購明細_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If
  95. If 請購明細_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then
  96. ZA6 = 請購明細_dgv.Rows(i).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If
  97. If 請購明細_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then
  98. ZA7 = 請購明細_dgv.Rows(i).Cells("A7").Value : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If
  99. If 請購明細_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then
  100. ZA8 = 請購明細_dgv.Rows(i).Cells("A8").Value : If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If
  101. End If
  102. 請購明細_dgv.Rows(i).Cells(表頭(13)).Value = 物料規格
  103. Next
  104. Set_請購單清單1()
  105. End Sub
  106. Private Sub Set_請購單清單1()
  107. Dim ds2 As New DataSet : 請購明細1_dgv.DataSource = Nothing : ds2.Clear()
  108. 請購明細1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  109. 請購明細1_dgv.ColumnHeadersHeight = 25
  110. 請購明細1_dgv.AllowUserToAddRows = False
  111. 請購明細1_dgv.RowTemplate.Height = 35
  112. SQL_建築物料請購單核准_請購單清單()
  113. da.Fill(ds2) : 請購明細1_dgv.DataSource = ds2.Tables(0) : conn.Close()
  114. If 低網速模式 = False Then
  115. 請購明細1_dgv.Columns(20).FillWeight = 80 : 請購明細1_dgv.Columns(20).Visible = True
  116. Dim mycol As DataGridViewImageColumn = 請購明細1_dgv.Columns("圖檔")
  117. mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
  118. Else
  119. If 請購明細1_dgv.Columns.Count = 21 Then
  120. 請購明細1_dgv.Columns(20).Visible = False
  121. End If
  122. End If
  123. AAA1 = "" : AAA2 = "" : AAA3 = "" : AAA4 = "" : AAA5 = "" : AAA6 = "" : AAA7 = "" : AAA8 = ""
  124. For i As Integer = 0 To 請購明細1_dgv.Rows.Count - 1
  125. '-------------------------規格合併呈現----------------------------------------------------------------------------------------------------------------------------------------
  126. If i = 0 Then
  127. PA3 = 請購明細1_dgv.Rows(i).Cells("規格庫抬頭指定").Value : PA20 = 系統語言_cb.Text
  128. SQL_規格庫抬頭讀取_列印用()
  129. If dr.Read() Then
  130. AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
  131. End If
  132. conn.Close()
  133. Else
  134. If 請購明細1_dgv.Rows(i).Cells("規格庫抬頭指定").Value.ToString <> 請購明細1_dgv.Rows(i - 1).Cells("規格庫抬頭指定").Value.ToString Then
  135. PA3 = 請購明細1_dgv.Rows(i).Cells("規格庫抬頭指定").Value : PA20 = 系統語言_cb.Text
  136. SQL_規格庫抬頭讀取_列印用()
  137. If dr.Read() Then
  138. AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
  139. End If
  140. conn.Close()
  141. End If
  142. End If
  143. Dim ZA1, ZA2, ZA3, ZA4, ZA5, ZA6, ZA7, ZA8 As String : 物料規格 = ""
  144. If 詳細資料2_ch.Checked = True Then
  145. If 請購明細1_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" Then
  146. ZA1 = AAA1 & "=" & 請購明細1_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 物料規格 = ZA1 : End If
  147. If 請購明細1_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then : ZA2 = AAA2 & "=" & 請購明細1_dgv.Rows(i).Cells("A2").Value
  148. If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If
  149. If 請購明細1_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then : ZA3 = AAA3 & "=" & 請購明細1_dgv.Rows(i).Cells("A3").Value
  150. If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If
  151. If 請購明細1_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then : ZA4 = AAA4 & "=" & 請購明細1_dgv.Rows(i).Cells("A4").Value
  152. If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If
  153. If 請購明細1_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then : ZA5 = AAA5 & "=" & 請購明細1_dgv.Rows(i).Cells("A5").Value
  154. If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If
  155. If 請購明細1_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then : ZA6 = AAA6 & "=" & 請購明細1_dgv.Rows(i).Cells("A6").Value
  156. If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If
  157. If 請購明細1_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then : ZA7 = AAA7 & "=" & 請購明細1_dgv.Rows(i).Cells("A7").Value
  158. If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If
  159. If 請購明細1_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then : ZA8 = AAA8 & "=" & 請購明細1_dgv.Rows(i).Cells("A8").Value
  160. If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If
  161. Else
  162. If 請購明細1_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" Then : ZA1 = 請購明細1_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 物料規格 = ZA1 : End If
  163. If 請購明細1_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then
  164. ZA2 = 請購明細1_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If
  165. If 請購明細1_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then
  166. ZA3 = 請購明細1_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If
  167. If 請購明細1_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then
  168. ZA4 = 請購明細1_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If
  169. If 請購明細1_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then
  170. ZA5 = 請購明細1_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If
  171. If 請購明細1_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then
  172. ZA6 = 請購明細1_dgv.Rows(i).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If
  173. If 請購明細1_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then
  174. ZA7 = 請購明細1_dgv.Rows(i).Cells("A7").Value : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If
  175. If 請購明細1_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then
  176. ZA8 = 請購明細1_dgv.Rows(i).Cells("A8").Value : If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If
  177. End If
  178. 請購明細1_dgv.Rows(i).Cells(表頭(13)).Value = 物料規格
  179. Next
  180. End Sub
  181. Private Sub Set_清單1()
  182. Dim ds1 As New DataSet : 未核准_dgv.DataSource = Nothing : ds1.Clear()
  183. 未核准_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  184. 未核准_dgv.ColumnHeadersHeight = 40
  185. 未核准_dgv.AllowUserToAddRows = False
  186. SQL_建築物料請購單申請_未核准()
  187. da.Fill(ds1) : 未核准_dgv.DataSource = ds1.Tables(0) : conn.Close()
  188. 未核准_dgv.Columns(0).FillWeight = 120 : 未核准_dgv.Columns(1).FillWeight = 160 : 未核准_dgv.Columns(2).FillWeight = 90 : 未核准_dgv.Columns(3).Visible = False
  189. 未核准_dgv.Columns(4).Visible = False : 未核准_dgv.Columns(5).Visible = False : 未核准_dgv.Columns(7).Visible = False : 未核准_dgv.Columns(8).Visible = False
  190. 未核准_dgv.Columns(9).Visible = False : 未核准_dgv.Columns(10).Visible = False : 未核准_dgv.Columns(11).Visible = False : 未核准_dgv.Columns(6).FillWeight = 120
  191. 未核准_dgv.Columns("退單備註").Visible = False : 未核准_dgv.Columns(表頭(10)).FillWeight = 50
  192. For i As Integer = 0 To 未核准_dgv.Rows.Count - 1
  193. If IsDBNull(未核准_dgv.Rows(i).Cells(表頭(10)).Value) Then : 未核准_dgv.Rows(i).Cells(表頭(10)).Value = False : End If
  194. Next
  195. End Sub
  196. Private Sub Set_清單2()
  197. Dim ds6 As New DataSet : 已核准_dgv.DataSource = Nothing : ds6.Clear()
  198. 已核准_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  199. 已核准_dgv.ColumnHeadersHeight = 40
  200. 已核准_dgv.AllowUserToAddRows = False
  201. SQL_建築物料請購單申請_已核准()
  202. da.Fill(ds6) : 已核准_dgv.DataSource = ds6.Tables(0) : conn.Close()
  203. 已核准_dgv.Columns(0).FillWeight = 120 : 已核准_dgv.Columns(1).FillWeight = 160 : 已核准_dgv.Columns(2).FillWeight = 90 : 已核准_dgv.Columns(3).Visible = False
  204. 已核准_dgv.Columns(4).Visible = False : 已核准_dgv.Columns(5).Visible = False : 已核准_dgv.Columns(7).Visible = False : 已核准_dgv.Columns(8).Visible = False
  205. 已核准_dgv.Columns(9).Visible = False : 已核准_dgv.Columns(10).Visible = False : 已核准_dgv.Columns(11).Visible = False : 已核准_dgv.Columns(6).FillWeight = 120
  206. 已核准_dgv.Columns("退單備註").Visible = False : 已核准_dgv.Columns(表頭(10)).FillWeight = 50
  207. For i As Integer = 0 To 已核准_dgv.Rows.Count - 1
  208. If IsDBNull(已核准_dgv.Rows(i).Cells(表頭(10)).Value) Then : 已核准_dgv.Rows(i).Cells(表頭(10)).Value = False : End If
  209. Next
  210. End Sub
  211. Private Sub Set_清單3()
  212. Dim ds3 As New DataSet : 作廢清單_dgv.DataSource = Nothing : ds3.Clear()
  213. 作廢清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  214. 作廢清單_dgv.ColumnHeadersHeight = 40
  215. 作廢清單_dgv.AllowUserToAddRows = False
  216. SQL_建築物料請購單申請_作廢清單()
  217. da.Fill(ds3) : 作廢清單_dgv.DataSource = ds3.Tables(0) : conn.Close()
  218. 作廢清單_dgv.Columns(0).FillWeight = 120 : 作廢清單_dgv.Columns(1).FillWeight = 160 : 作廢清單_dgv.Columns(2).FillWeight = 90 : 作廢清單_dgv.Columns(3).Visible = False
  219. 作廢清單_dgv.Columns(4).Visible = False : 作廢清單_dgv.Columns(5).Visible = False : 作廢清單_dgv.Columns(7).Visible = False : 作廢清單_dgv.Columns(8).Visible = False
  220. 作廢清單_dgv.Columns(9).Visible = False : 作廢清單_dgv.Columns(10).Visible = False : 作廢清單_dgv.Columns(11).Visible = False : 作廢清單_dgv.Columns(6).FillWeight = 120
  221. 作廢清單_dgv.Columns("退單備註").Visible = False : 作廢清單_dgv.Columns(表頭(10)).FillWeight = 50
  222. For i As Integer = 0 To 作廢清單_dgv.Rows.Count - 1
  223. If IsDBNull(作廢清單_dgv.Rows(i).Cells(表頭(10)).Value) Then : 作廢清單_dgv.Rows(i).Cells(表頭(10)).Value = False : End If
  224. Next
  225. End Sub
  226. Private Sub 作業選擇()
  227. If 零用金選擇 = True Then
  228. 請購單核准_bt.Enabled = True : 請購單作廢_bt.Enabled = True
  229. Else
  230. 請購單核准_bt.Enabled = False : 請購單作廢_bt.Enabled = False
  231. End If
  232. 請購單號_tb.Text = PA : 申請日期_dtp.Value = PA2 : 申請人_tb.Text = PA1 : Set_請購單清單()
  233. End Sub
  234. Private Sub Set_日期格式轉換()
  235. DTP = Strings.Format(Today(), "yyyy/MM/dd") & "-" & Strings.Format(TimeOfDay(), "HH:mm:ss") : DTP1 = Strings.Format(Today(), "yyyyMMdd")
  236. End Sub
  237. Private Sub ComboBox1下拉表單資料載入()
  238. SQL_倉名_下拉清單() : 指定倉庫_cb.Items.Clear()
  239. While (dr.Read()) : 指定倉庫_cb.Items.Add(dr("倉名")) : End While : conn.Close()
  240. End Sub
  241. Private Sub 語言轉換讀取()
  242. If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
  243. Me.Text = 系統語言字典("H001-175-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言)
  244. 已作廢_lb.Text = 系統語言字典("H202-100-" & 語言) : 已作廢_rb.Text = 系統語言字典("H202-101-" & 語言) : 已審核_lb.Text = 系統語言字典("H202-102-" & 語言)
  245. 已審核_rb.Text = 系統語言字典("H202-103-" & 語言) : 未審核_lb.Text = 系統語言字典("H202-104-" & 語言) : 未審核_rb.Text = 系統語言字典("H202-105-" & 語言)
  246. 申請人_lb.Text = 系統語言字典("H202-106-" & 語言) : 申請日期_lb.Text = 系統語言字典("H202-107-" & 語言) : 表頭(19) = 系統語言字典("H202-113-" & 語言)
  247. 合約號_lb.Text = 系統語言字典("H202-108-" & 語言) : 表頭(134) = 系統語言字典("H202-108-" & 語言) : 存檔_tsm.Text = 系統語言字典("H202-109-" & 語言)
  248. 刪除請購單上點選資料_bt.Text = 系統語言字典("H202-110-" & 語言) : 刪除請購單上點選資料_tsm.Text = 系統語言字典("H202-110-" & 語言)
  249. 指定倉庫_lb.Text = 系統語言字典("H202-111-" & 語言) : 重新整理_tsm.Text = 系統語言字典("H202-112-" & 語言) : 表頭(20) = 系統語言字典("H202-114-" & 語言)
  250. 表頭(21) = 系統語言字典("H202-115-" & 語言) : 表頭(22) = 系統語言字典("H202-116-" & 語言) : 表頭(18) = 系統語言字典("H202-117-" & 語言)
  251. 項次_lb.Text = 系統語言字典("H202-118-" & 語言) : 對話框(0) = 系統語言字典("H202-119-" & 語言) : 對話框(1) = 系統語言字典("H202-120-" & 語言)
  252. 對話框(2) = 系統語言字典("H202-121-" & 語言) : 對話框(3) = 系統語言字典("H202-122-" & 語言) : 對話框(4) = 系統語言字典("H202-123-" & 語言)
  253. 對話框(5) = 系統語言字典("H202-124-" & 語言) : 對話框(6) = 系統語言字典("H202-125-" & 語言) : 對話框(7) = 系統語言字典("H202-126-" & 語言)
  254. 對話框(8) = 系統語言字典("H202-127-" & 語言) : 需求日期_lb.Text = 系統語言字典("H202-128-" & 語言) : 表頭(17) = 系統語言字典("H202-129-" & 語言)
  255. 表頭(12) = 系統語言字典("H202-130-" & 語言) : 表頭(13) = 系統語言字典("H202-131-" & 語言) : 表頭(14) = 系統語言字典("H202-132-" & 語言)
  256. 表頭(16) = 系統語言字典("H202-133-" & 語言) : 表頭(11) = 系統語言字典("H202-134-" & 語言) : 表頭(15) = 系統語言字典("H202-135-" & 語言)
  257. 請購單作廢_tsm.Text = 系統語言字典("H202-136-" & 語言) : 請購單核准_tsm.Text = 系統語言字典("H202-137-" & 語言) : 請購單號_lb.Text = 系統語言字典("H202-138-" & 語言)
  258. 選擇_lb.Text = 系統語言字典("H202-139-" & 語言) : 詳細資料2_ch.Text = 系統語言字典("H211-100-" & 語言) : 對話框(9) = 系統語言字典("H207-138-" & 語言)
  259. 對話框(10) = 系統語言字典("H207-139-" & 語言) : 對話框(11) = 系統語言字典("G000-110-" & 語言) : 對話框(12) = 系統語言字典("G000-114-" & 語言)
  260. 對話框(13) = 系統語言字典("H202-153-" & 語言) : 表頭(10) = 系統語言字典("G000-262-" & 語言) : 表頭(9) = 系統語言字典("H205-107-" & 語言)
  261. End Sub
  262. Private Sub 請購單核准_bt_MouseEnter(sender As Object, e As EventArgs) Handles 請購單核准_bt.MouseEnter
  263. ToolTip1.SetToolTip(Me.請購單核准_bt, 對話框(9))
  264. End Sub
  265. Private Sub 請購單作廢_bt_MouseEnter(sender As Object, e As EventArgs) Handles 請購單作廢_bt.MouseEnter
  266. ToolTip1.SetToolTip(Me.請購單作廢_bt, 對話框(10))
  267. End Sub
  268. Private Sub 存檔_bt_MouseEnter(sender As Object, e As EventArgs) Handles 存檔_bt.MouseEnter
  269. ToolTip1.SetToolTip(Me.存檔_bt, 對話框(11))
  270. End Sub
  271. Private Sub 確認列印_bt_MouseEnter(sender As Object, e As EventArgs) Handles 確認列印_bt.MouseEnter
  272. ToolTip1.SetToolTip(Me.確認列印_bt, 對話框(12))
  273. End Sub
  274. Private Sub 加急件_bt_MouseEnter(sender As Object, e As EventArgs) Handles 加急件_bt.MouseEnter
  275. ToolTip1.SetToolTip(Me.加急件_bt, 對話框(13))
  276. End Sub
  277. Private Sub 請購單核准_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  278. Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
  279. 風格() : H(202) = True : 介面 = "H202" : 語言轉換讀取() : 顯示說明(999, True)
  280. Panel1.SendToBack() : 未審核_rb.Checked = True : 未審核_lb.Visible = True : 未核准_dgv.Visible = True : 已作廢_lb.Visible = False
  281. 申請日期_dtp.Enabled = False : 確認列印_bt.Enabled = False : 已審核_lb.Visible = False : 需求日期_dtp.Format = DateTimePickerFormat.Custom
  282. 需求日期_dtp.CustomFormat = " " : 系統語言_cb.Text = "Indonesian" : 作廢清單_dgv.Visible = False : 已核准_dgv.Visible = False
  283. SQL_清單欄位查詢()
  284. If Acdr.Read() Then
  285. 小間距_ch.Checked = Acdr("L_1_1") : 中間距_ch.Checked = Acdr("L_2_1") : 大間距_ch.Checked = Acdr("L_3_1")
  286. End If : Access1.Close()
  287. MyMod.清單字體大小調整()
  288. 作廢清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  289. 未核准_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  290. 已核准_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  291. 請購明細_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  292. End Sub
  293. Private Sub 請購單核准_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
  294. ComboBox1下拉表單資料載入() : Set_清單1() : Set_清單2() : Set_清單3()
  295. If 待辦進入 <> "" Then : lastFoundRowIndex = -1 : lastFoundColIndex = -1
  296. 請購單號_tb.Text = 待辦進入 : 查詢DGV中的關鍵字_自動(未核准_dgv, 請購單號_tb) : 選擇項 = lastFoundRowIndex : 未核准讀取()
  297. lastFoundRowIndex = -1 : lastFoundColIndex = -1 : 請購單號_tb.Text = "" : 待辦進入 = ""
  298. End If
  299. End Sub
  300. Private Sub 請購單核准_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
  301. H(202) = False : MyMod.虛擬桌面開啟()
  302. End Sub
  303. Private Sub 請購單核准_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
  304. MyMod.清單字體大小調整()
  305. 作廢清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  306. 未核准_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  307. 已核准_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  308. 請購明細_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  309. End Sub
  310. Private Sub 系統說明_bt_Click(sender As Object, e As EventArgs) Handles 系統說明_bt.Click
  311. 介面 = "H202" : WEB說明頁面.Show()
  312. End Sub
  313. Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
  314. 介面 = "H202" : 語言轉換讀取()
  315. Set_請購單清單() : Set_請購單清單1() : Set_清單1() : Set_清單2() : Set_清單3()
  316. End Sub
  317. Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
  318. timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
  319. End Sub
  320. Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
  321. timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
  322. End Sub
  323. Private Sub 未核准_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 未核准_dgv.CellClick
  324. If e.RowIndex = -1 Then : Else : 選擇項 = e.RowIndex : 未核准讀取() : End If : 刪除請購單上點選資料_bt.Enabled = True
  325. End Sub
  326. Private Sub 未核准讀取()
  327. PA = 未核准_dgv(0, 選擇項).Value.ToString : PA1 = 未核准_dgv(1, 選擇項).Value.ToString : PA2 = 未核准_dgv(2, 選擇項).Value.ToString : 零用金選擇 = True
  328. 審核_tb.Text = 未核准_dgv(3, 選擇項).Value.ToString : 合約號_tb.Text = 未核准_dgv(6, 選擇項).Value.ToString
  329. 備註_tb.Text = 未核准_dgv("備註", 選擇項).Value.ToString : 作業選擇()
  330. '----------------------------讀取申請人資料-------------------------------------------------------------
  331. SQL_請購單審核_申請人資料()
  332. If dr.Read() Then
  333. 申請人部門_tb.Text = dr("部門") : 申請人課別_tb.Text = dr("課別") : 申請人組別_tb.Text = dr("組別") : 申請人級別_tb.Text = dr("級別")
  334. End If
  335. '----------------------------判斷是否為申請人主管-------------------------------------------------------------
  336. If Val(登入人級別) <= 7 Then : 請購單核准_bt.Enabled = True : 請購單作廢_bt.Enabled = True
  337. Else : 請購單核准_bt.Enabled = False : 請購單作廢_bt.Enabled = False : End If
  338. If 請購明細_dgv.Rows.Count > 0 Then : 指定倉庫_cb.Text = 請購明細_dgv.Rows(0).Cells(表頭(17)).Value.ToString
  339. Else : ComboBox1下拉表單資料載入() : 倉庫編號_tb.Text = "" : 倉庫級別_tb.Text = "" : End If
  340. If 未核准_dgv(5, 選擇項).Value.ToString = "" Then : 需求日期_dtp.Format = DateTimePickerFormat.Custom : 需求日期_dtp.CustomFormat = " "
  341. Else : 需求日期_dtp.Format = DateTimePickerFormat.Short : 需求日期_dtp.Value = 未核准_dgv(5, 選擇項).Value.ToString : End If
  342. If 審核_tb.Text = "" Then : 確認列印_bt.Enabled = False : Else : 確認列印_bt.Enabled = True : End If
  343. End Sub
  344. Private Sub 已核准_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 已核准_dgv.CellClick
  345. If e.RowIndex = -1 Then : Else
  346. PA = 已核准_dgv(0, e.RowIndex).Value.ToString : PA1 = 已核准_dgv(1, e.RowIndex).Value.ToString : PA2 = 已核准_dgv(2, e.RowIndex).Value.ToString : 零用金選擇 = True
  347. 審核_tb.Text = 已核准_dgv(3, e.RowIndex).Value.ToString : 合約號_tb.Text = 已核准_dgv(6, e.RowIndex).Value.ToString
  348. 備註_tb.Text = 已核准_dgv("備註", e.RowIndex).Value.ToString : 作業選擇()
  349. If 請購明細_dgv.Rows.Count > 0 Then : 指定倉庫_cb.Text = 請購明細_dgv.Rows(0).Cells(表頭(17)).Value.ToString
  350. Else : ComboBox1下拉表單資料載入() : 倉庫編號_tb.Text = "" : 倉庫級別_tb.Text = "" : End If
  351. If 已核准_dgv(5, e.RowIndex).Value.ToString = "" Then : 需求日期_dtp.Format = DateTimePickerFormat.Custom : 需求日期_dtp.CustomFormat = " "
  352. Else : 需求日期_dtp.Format = DateTimePickerFormat.Short : 需求日期_dtp.Value = 已核准_dgv(5, e.RowIndex).Value.ToString : End If
  353. If 已核准_dgv.Rows(e.RowIndex).Cells(表頭(10)).Value = True Then : MGB(已核准_dgv.Rows(e.RowIndex).Cells("退單備註").Value.ToString, 1) : End If
  354. If 審核_tb.Text = "" Then : 確認列印_bt.Enabled = False : Else : 確認列印_bt.Enabled = True : End If
  355. End If : 請購單核准_bt.Enabled = False : 刪除請購單上點選資料_bt.Enabled = False
  356. End Sub
  357. Private Sub 作廢清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 作廢清單_dgv.CellClick
  358. If e.RowIndex = -1 Then : Else
  359. PA = 作廢清單_dgv(0, e.RowIndex).Value.ToString : PA1 = 作廢清單_dgv(1, e.RowIndex).Value.ToString : PA2 = 作廢清單_dgv(2, e.RowIndex).Value.ToString : 零用金選擇 = False
  360. 審核_tb.Text = 作廢清單_dgv(3, e.RowIndex).Value.ToString : 合約號_tb.Text = 作廢清單_dgv(6, e.RowIndex).Value.ToString
  361. 備註_tb.Text = 作廢清單_dgv("備註", e.RowIndex).Value.ToString : 作業選擇()
  362. If 請購明細_dgv.Rows.Count > 0 Then : 指定倉庫_cb.Text = 請購明細_dgv.Rows(0).Cells(表頭(17)).Value.ToString
  363. Else : ComboBox1下拉表單資料載入() : 倉庫編號_tb.Text = "" : 倉庫級別_tb.Text = "" : End If
  364. If 作廢清單_dgv(5, e.RowIndex).Value.ToString = "" Then : 需求日期_dtp.Format = DateTimePickerFormat.Custom : 需求日期_dtp.CustomFormat = " "
  365. Else : 需求日期_dtp.Format = DateTimePickerFormat.Short : 需求日期_dtp.Value = 作廢清單_dgv(5, e.RowIndex).Value.ToString : End If
  366. If 作廢清單_dgv.Rows(e.RowIndex).Cells(表頭(10)).Value = True Then : MGB(作廢清單_dgv.Rows(e.RowIndex).Cells("退單備註").Value.ToString, 1) : End If
  367. If 審核_tb.Text = "" Then : 確認列印_bt.Enabled = False : Else : 確認列印_bt.Enabled = True : End If
  368. End If : 刪除請購單上點選資料_bt.Enabled = False
  369. End Sub
  370. Private Sub 請購明細_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 請購明細_dgv.CellClick
  371. If e.RowIndex = -1 Then : Else
  372. 項次_tb.Text = 請購明細_dgv(1, e.RowIndex).Value.ToString : 指定倉庫_cb.Text = 請購明細_dgv.Rows(e.RowIndex).Cells(表頭(17)).Value
  373. PA1 = 請購明細_dgv.Rows(e.RowIndex).Cells("群組碼").Value : PA2 = 請購明細_dgv.Rows(e.RowIndex).Cells("群組原則").Value
  374. SQL_物料圖庫_圖檔讀取()
  375. While dr.Read() = True
  376. Dim unused As Byte() = New Byte(-1) {}
  377. Dim bytes As Byte() = DirectCast(dr.Item("圖檔"), Byte())
  378. Dim oStream As New MemoryStream(bytes)
  379. 物料圖_pb.Image = Bitmap.FromStream(oStream)
  380. End While : conn.Close() : 物料圖_pb.SizeMode = 4
  381. End If
  382. End Sub
  383. Private Sub 需求日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 需求日期_dtp.MouseDown
  384. 需求日期_dtp.Format = DateTimePickerFormat.Short
  385. End Sub
  386. Private Sub 指定倉庫_cb_Click(sender As Object, e As EventArgs) Handles 指定倉庫_cb.Click
  387. CB選擇清單(指定倉庫_cb, 指定倉庫_cb.Text)
  388. End Sub
  389. Private Sub 指定倉庫_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 指定倉庫_cb.SelectedIndexChanged
  390. PA6 = 指定倉庫_cb.Text : SQL_指定倉儲_資料讀取()
  391. If dr.Read() Then : 倉庫級別_tb.Text = dr("倉級") : 倉庫編號_tb.Text = dr("倉名編號") : End If : conn.Close()
  392. End Sub
  393. Private Sub 未審核_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 未審核_rb.CheckedChanged
  394. If 未審核_rb.Checked = True Then
  395. 未審核_rb.Checked = True : 已作廢_rb.Checked = False : 已審核_rb.Checked = False : 未審核_lb.Visible = True : 未核准_dgv.Visible = True
  396. 已作廢_lb.Visible = False : 作廢清單_dgv.Visible = False : 已核准_dgv.Visible = False : 已審核_lb.Visible = False
  397. 請購明細_dgv.DataSource = Nothing : 請購單號_tb.Text = "" : 申請人_tb.Text = "" : 項次_tb.Text = ""
  398. End If
  399. End Sub
  400. Private Sub 已作廢_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 已作廢_rb.CheckedChanged
  401. If 已作廢_rb.Checked = True Then
  402. 未審核_rb.Checked = False : 已作廢_rb.Checked = True : 已審核_rb.Checked = False : 未審核_lb.Visible = False : 未核准_dgv.Visible = False
  403. 已作廢_lb.Visible = True : 作廢清單_dgv.Visible = True : 已核准_dgv.Visible = False : 已審核_lb.Visible = False
  404. 請購明細_dgv.DataSource = Nothing : 請購單號_tb.Text = "" : 申請人_tb.Text = "" : 項次_tb.Text = ""
  405. End If
  406. End Sub
  407. Private Sub 已審核_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 已審核_rb.CheckedChanged
  408. If 已審核_rb.Checked = True Then
  409. 未審核_rb.Checked = False : 已作廢_rb.Checked = False : 已審核_rb.Checked = True : 未審核_lb.Visible = False : 未核准_dgv.Visible = False
  410. 已作廢_lb.Visible = False : 作廢清單_dgv.Visible = False : 已核准_dgv.Visible = True : 已審核_lb.Visible = True
  411. 請購明細_dgv.DataSource = Nothing : 請購單號_tb.Text = "" : 申請人_tb.Text = "" : 項次_tb.Text = ""
  412. End If
  413. End Sub
  414. Private Sub 請購單核准_bt_Click(sender As Object, e As EventArgs) Handles 請購單核准_bt.Click
  415. If 指定倉庫_cb.Text = "" Then : MGB(系統語言字典("H201-153-" & 語言), 1) : Else
  416. If 需求日期_dtp.Text = "" Or 需求日期_dtp.Text = " " Then : MGB(系統語言字典("H201-137-" & 語言), 1) : Else
  417. Set_日期格式轉換()
  418. If 請購單號_tb.Text = "" Then : MGB(對話框(0), 1) : Else
  419. PA = 請購單號_tb.Text : PA1 = gUserName : SQL_建築物料請購單核准_請購單核准() : conn.Close()
  420. 通知訊息 = 對話框(1) & 請購單號_tb.Text & 對話框(2) : 訊息類型 = "1" : 通知視窗.ShowDialog()
  421. 請購單號_tb.Text = "" : 申請人_tb.Text = ""
  422. 請購明細_dgv.DataSource = Nothing
  423. Set_清單1() : Set_清單2() : Set_清單3()
  424. End If
  425. End If
  426. End If
  427. End Sub
  428. Private Sub 加急件_bt_Click(sender As Object, e As EventArgs) Handles 加急件_bt.Click
  429. If 指定倉庫_cb.Text = "" Then : MGB(系統語言字典("H201-153-" & 語言), 1) : Else
  430. If 需求日期_dtp.Text = "" Or 需求日期_dtp.Text = " " Then : MGB(系統語言字典("H201-137-" & 語言), 1) : Else
  431. Set_日期格式轉換()
  432. If 請購單號_tb.Text = "" Then : MGB(對話框(0), 1) : Else
  433. PA = 請購單號_tb.Text : PA1 = gUserName : SQL_建築物料請購單核准_請購單核准() : conn.Close() : SQL_請購單核准_加急核准() : conn.Close()
  434. PA4 = 請購單號_tb.Text : SQL_請購單申請_加急存檔() : conn.Close()
  435. '---LINE_AUTO 部門主管------------------------------------------------------------------------------------------------------------------------------------------
  436. If 登入人IP = 測試IP Then : Else
  437. LIN訊息通知("CC208", "李協叡", 合約號_tb.Text, 請購單號_tb.Text)
  438. LIN訊息通知("CC208", "KERIH", 合約號_tb.Text, 請購單號_tb.Text)
  439. LIN訊息通知("CC208", "LIN HSING HAO", 合約號_tb.Text, 請購單號_tb.Text)
  440. LIN訊息通知("CC208", gUserName, 合約號_tb.Text, 請購單號_tb.Text)
  441. End If
  442. '---完成加急核准------------------------------------------------------------------------------------------------------------------------------------------
  443. 通知訊息 = 對話框(1) & 請購單號_tb.Text & 對話框(2) : 訊息類型 = "1" : 通知視窗.ShowDialog() : 請購單號_tb.Text = "" : 申請人_tb.Text = "" : 請購明細_dgv.DataSource = Nothing
  444. Set_清單1() : Set_清單2() : Set_清單3()
  445. End If
  446. End If
  447. End If
  448. End Sub
  449. Private Sub 請購單作廢_bt_Click(sender As Object, e As EventArgs) Handles 請購單作廢_bt.Click
  450. If 指定倉庫_cb.Text = "" Then : MGB(系統語言字典("H201-153-" & 語言), 1) : Else
  451. If 需求日期_dtp.Text = "" Or 需求日期_dtp.Text = " " Then : MGB(系統語言字典("H201-137-" & 語言), 1) : Else
  452. Set_日期格式轉換()
  453. If 請購單號_tb.Text = "" Then : MGB(對話框(0), 1) : Else
  454. MGB(對話框(3), 2)
  455. If 訊息回應 = "YES" Then
  456. PA = 請購單號_tb.Text : PA1 = "作廢-" & gUserName : SQL_建築物料請購單核准_請購單核准() : conn.Close()
  457. 通知訊息 = 對話框(1) & 請購單號_tb.Text & 對話框(4) : 訊息類型 = "1" : 通知視窗.ShowDialog()
  458. 請購單號_tb.Text = "" : 申請人_tb.Text = ""
  459. 請購明細_dgv.DataSource = Nothing
  460. End If
  461. Set_清單1() : Set_清單2() : Set_清單3()
  462. End If
  463. End If
  464. End If
  465. End Sub
  466. Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
  467. 存檔() : MGB(對話框(5), 2) : If 訊息回應 = "YES" Then : Me.請購單核准_bt.PerformClick() : End If
  468. End Sub
  469. Private Sub 存檔()
  470. For i As Integer = 0 To 請購明細_dgv.Rows.Count - 1
  471. 資料數 = 請購明細_dgv.Rows.Count : MyMod.進度條()
  472. PA1 = 請購明細_dgv.Rows(i).Cells(表頭(14)).Value.ToString.Replace("'", "") : NU1 = 請購明細_dgv.Rows(i).Cells(表頭(15)).Value
  473. PA2 = 請購明細_dgv.Rows(i).Cells(表頭(16)).Value : PA3 = 倉庫編號_tb.Text : PA4 = 請購單號_tb.Text : PA5 = 請購明細_dgv.Rows(i).Cells(表頭(11)).Value
  474. SQL_建築物料請購單申請_存檔() : conn.Close()
  475. Next
  476. PA1 = 請購單號_tb.Text : If 需求日期_dtp.Text = "" Or 需求日期_dtp.Text = " " Then : DTP = "" : Else : DTP = Strings.Format(需求日期_dtp.Value, "yyyy/MM/dd") : End If
  477. SQL_請購單需求日其修改() : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
  478. End Sub
  479. Private Sub 刪除請購單上點選資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除請購單上點選資料_bt.Click
  480. If 請購單號_tb.Text = "" Then : MGB(對話框(0), 1) : Else
  481. If 項次_tb.Text = "" Then : MGB(對話框(6), 1) : Else
  482. MGB(對話框(7), 2)
  483. If 訊息回應 = "YES" Then
  484. 存檔() : PA1 = 請購單號_tb.Text : PA2 = 項次_tb.Text : SQL_請購單明細表_指定刪除() : conn.Close()
  485. Set_請購單清單() : Dim NUM1 As Integer = 0
  486. For i As Integer = 0 To 請購明細_dgv.Rows.Count - 1
  487. NUM1 += 1 : If NUM1 < 10 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
  488. PA = 新項次 : PA1 = 請購單號_tb.Text : PA2 = 請購明細_dgv.Rows(i).Cells(表頭(11)).Value
  489. SQL_請購單明細表_項次修改() : conn.Close()
  490. Next : Set_請購單清單()
  491. End If
  492. End If
  493. End If
  494. End Sub
  495. Private Sub 小間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距_ch.Click
  496. 小間距_ch.Checked = True : 中間距_ch.Checked = False : 大間距_ch.Checked = False : MyMod.間距設定存檔_1() : Set_請購單清單()
  497. End Sub
  498. Private Sub 中間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距_ch.Click
  499. 小間距_ch.Checked = False : 中間距_ch.Checked = True : 大間距_ch.Checked = False : MyMod.間距設定存檔_2() : Set_請購單清單()
  500. End Sub
  501. Private Sub 大間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距_ch.Click
  502. 小間距_ch.Checked = False : 中間距_ch.Checked = False : 大間距_ch.Checked = True : MyMod.間距設定存檔_3() : Set_請購單清單()
  503. End Sub
  504. Private Sub 確認列印_bt_Click(sender As Object, e As EventArgs) Handles 確認列印_bt.Click
  505. xlApp = CType(CreateObject("Excel.Application"), Application)
  506. xlBook = xlApp.Workbooks.Add
  507. xlApp.DisplayAlerts = True
  508. xlBook.Activate()
  509. xlSheet = NewMethod(xlBook)
  510. xlSheet.Activate()
  511. xlApp.Visible = True
  512. xlApp.Application.WindowState = xlMaximized
  513. xlSheet.Cells(2, 1) = "Pembelian Permintaan" : xlSheet.Cells(3, 1) = "請購單"
  514. xlSheet.Cells(5, 1) = "1、" : xlSheet.Cells(6, 1) = "2、" : xlSheet.Cells(7, 1) = "3、" : xlSheet.Cells(8, 1) = "4、" : xlSheet.Cells(9, 1) = "5、"
  515. xlSheet.Cells(5, 2) = " Nomor :" : xlSheet.Cells(6, 2) = " Pemohon :"
  516. xlSheet.Cells(7, 2) = " Gudang Yang Ditunjuk :" : xlSheet.Cells(8, 2) = " Perlu Tanggal :"
  517. xlSheet.Cells(9, 2) = " Setuju :"
  518. xlSheet.Cells(5, 3) = 請購單號_tb.Text : xlSheet.Cells(6, 3) = 申請人_tb.Text : xlSheet.Cells(7, 3) = 指定倉庫_cb.Text
  519. xlSheet.Cells(8, 3) = 需求日期_dtp.Value : xlSheet.Cells(9, 3) = 審核_tb.Text
  520. xlSheet.Cells(11, 1) = "No." : xlSheet.Cells(11, 2) = "Nama produk" : xlSheet.Cells(11, 3) = "Spesifikasi" : xlSheet.Cells(11, 4) = "QTY" : xlSheet.Cells(11, 5) = "SATUAN"
  521. xlSheet.Cells(11, 6) = "Komentar"
  522. For i As Integer = 0 To 請購明細1_dgv.Rows.Count - 1
  523. xlSheet.Cells(i + 12, 1) = i + 1
  524. xlSheet.Cells(i + 12, 2) = 請購明細1_dgv.Rows(i).Cells(表頭(12)).Value
  525. xlSheet.Cells(i + 12, 3) = 請購明細1_dgv.Rows(i).Cells(表頭(13)).Value
  526. xlSheet.Cells(i + 12, 4) = 請購明細1_dgv.Rows(i).Cells(表頭(15)).Value
  527. xlSheet.Cells(i + 12, 5) = 請購明細1_dgv.Rows(i).Cells(表頭(16)).Value
  528. xlSheet.Cells(i + 12, 6) = 請購明細1_dgv.Rows(i).Cells(表頭(14)).Value
  529. N1 = i + 12
  530. Next i
  531. AA(xlApp, xlSheet) : CC(xlApp, xlSheet)
  532. '-------------轉換成PDF---------------------------------------------------------------------
  533. Dim SERT As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
  534. xlBook.Sheets(1).ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, SERT & "\" & 請購單號_tb.Text & "_PP(請購單).pdf", XlFixedFormatQuality.xlQualityStandard, True)
  535. '-------------關閉EXCEL---------------------------------------------------------------------
  536. xlSheet.PageSetup.PrintArea = "" : xlApp.Cells.Select()
  537. xlApp.Application.WindowState = xlMinimized
  538. xlBook.Close(False)
  539. Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet)
  540. Runtime.InteropServices.Marshal.ReleaseComObject(xlBook)
  541. Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
  542. xlApp.Quit() : xlSheet = Nothing : xlBook = Nothing : xlApp = Nothing : GC.Collect()
  543. '-------------開啟PDF---------------------------------------------------------------------
  544. Dim pdfFilePath As String = SERT & "\" & 請購單號_tb.Text & "_PP(請購單).pdf"
  545. If IsChromeInstalled() Then
  546. Try
  547. Dim chromeProcess As New Process()
  548. chromeProcess.StartInfo.FileName = "chrome"
  549. chromeProcess.StartInfo.Arguments = """" & pdfFilePath & """"
  550. chromeProcess.Start()
  551. Catch ex As Exception
  552. End Try
  553. Else
  554. Try
  555. System.Diagnostics.Process.Start("""" & pdfFilePath & """")
  556. Catch ex As Exception
  557. End Try
  558. End If
  559. MGB(對話框(8), 1)
  560. End Sub
  561. ' 檢查系統是否已安裝 Google Chrome
  562. Private Function IsChromeInstalled() As Boolean
  563. Dim key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
  564. If key IsNot Nothing Then
  565. For Each subkeyName As String In key.GetSubKeyNames()
  566. Dim subkey As Microsoft.Win32.RegistryKey = key.OpenSubKey(subkeyName)
  567. Dim displayName As Object = subkey.GetValue("DisplayName")
  568. If displayName IsNot Nothing AndAlso displayName.ToString().Contains("Google Chrome") Then
  569. Return True
  570. End If
  571. Next
  572. End If
  573. Return False
  574. End Function
  575. Private Shared Function NewMethod(xlBook As Workbook) As Worksheet
  576. Return CType(xlBook.Worksheets.Add, Worksheet)
  577. End Function
  578. Private Sub AA(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
  579. xlSheet.Cells.Select()
  580. With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
  581. .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
  582. End With
  583. xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 5
  584. xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 40
  585. xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 40
  586. xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 8
  587. xlSheet.Columns("E:E").Select : myExcel.Selection.ColumnWidth = 10
  588. xlSheet.Columns("F:F").Select : myExcel.Selection.ColumnWidth = 40
  589. xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 85
  590. xlSheet.Rows("2:2").Select : myExcel.Selection.RowHeight = 35
  591. xlSheet.Rows("4:4").Select : myExcel.Selection.RowHeight = 5
  592. xlSheet.Rows("10:10").Select : myExcel.Selection.RowHeight = 5
  593. xlSheet.Rows("11:11").Select : myExcel.Selection.RowHeight = 25
  594. xlSheet.Rows("12:" & N1).Select : myExcel.Selection.RowHeight = 60
  595. xlSheet.Range("A12:F" & N1).Select()
  596. With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
  597. .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
  598. End With
  599. With myExcel.Selection : .HorizontalAlignment = xlGeneral : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
  600. .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
  601. End With
  602. xlSheet.Cells.Select()
  603. With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
  604. .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
  605. End With
  606. xlSheet.Range("D12:D" & N1).Select()
  607. myExcel.Selection.Style = "Comma"
  608. myExcel.Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
  609. xlSheet.Range("B12:C" & N1).Select()
  610. With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
  611. .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
  612. End With
  613. xlSheet.Range("A2:F2").Select()
  614. With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
  615. .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
  616. End With : myExcel.Selection.Merge
  617. With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 18 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
  618. .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
  619. End With
  620. xlSheet.Range("A3:F3").Select()
  621. With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
  622. .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
  623. End With : myExcel.Selection.Merge
  624. myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
  625. myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeTop).LineStyle = xlNone
  626. With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
  627. myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone
  628. myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
  629. xlSheet.Range("C5:C9").Select()
  630. With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
  631. .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
  632. End With
  633. xlSheet.Range("A9:F9").Select()
  634. myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
  635. myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeTop).LineStyle = xlNone
  636. With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
  637. myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone
  638. myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
  639. xlSheet.Range("A11:F" & N1).Select()
  640. myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
  641. With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
  642. With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
  643. With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
  644. With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
  645. With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
  646. With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
  647. xlSheet.Range("A11:F11").Select()
  648. With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent2
  649. .TintAndShade = 0.799981688894314 : .PatternTintAndShade = 0
  650. End With
  651. xlSheet.Range("A1").Select() : myExcel.ActiveWindow.DisplayGridlines = False
  652. If Strings.Left(合約號_tb.Text, 2) = "HX" Then
  653. myExcel.ActiveSheet.PageSetup.CenterHeaderPicture.Filename =
  654. Str01 & "\HXBWLOG.png"
  655. Else
  656. myExcel.ActiveSheet.PageSetup.CenterHeaderPicture.Filename =
  657. Str01 & "\PGSBWLOG.png"
  658. End If
  659. myExcel.Application.PrintCommunication = False
  660. With myExcel.ActiveSheet.PageSetup : .PrintTitleRows = "$1:$11" : .PrintTitleColumns = "" : End With
  661. myExcel.Application.PrintCommunication = True : myExcel.ActiveSheet.PageSetup.PrintArea = "" : myExcel.Application.PrintCommunication = False
  662. With myExcel.ActiveSheet.PageSetup : .LeftHeader = ""
  663. .CenterHeader = "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "&G"
  664. .RightHeader = "" : .LeftFooter = "" : .CenterFooter = "第 &P 頁,共 &N 頁" : .RightFooter = ""
  665. .LeftMargin = myExcel.Application.InchesToPoints(0.236220472440945) : .RightMargin = myExcel.Application.InchesToPoints(0.236220472440945)
  666. .TopMargin = myExcel.Application.InchesToPoints(0.748031496062992) : .BottomMargin = myExcel.Application.InchesToPoints(0.748031496062992)
  667. .HeaderMargin = myExcel.Application.InchesToPoints(0.31496062992126) : .FooterMargin = myExcel.Application.InchesToPoints(0.31496062992126)
  668. .PrintHeadings = False : .PrintGridlines = False : .CenterHorizontally = False : .CenterVertically = False : .Draft = False
  669. .FirstPageNumber = xlAutomatic : .BlackAndWhite = False : .Zoom = False : .FitToPagesWide = 1 : .FitToPagesTall = False : .OddAndEvenPagesHeaderFooter = False
  670. .DifferentFirstPageHeaderFooter = False : .ScaleWithDocHeaderFooter = True : .AlignMarginsHeaderFooter = True : .EvenPage.LeftHeader.Text = ""
  671. .EvenPage.CenterHeader.Text = "" : .EvenPage.RightHeader.Text = "" : .EvenPage.LeftFooter.Text = "" : .EvenPage.CenterFooter.Text = ""
  672. .EvenPage.RightFooter.Text = "" : .FirstPage.LeftHeader.Text = "" : .FirstPage.CenterHeader.Text = "" : .FirstPage.RightHeader.Text = ""
  673. .FirstPage.LeftFooter.Text = "" : .FirstPage.CenterFooter.Text = "" : .FirstPage.RightFooter.Text = ""
  674. End With : myExcel.Application.PrintCommunication = True
  675. End Sub
  676. Private Sub CC(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Worksheet)
  677. Clipboard.SetDataObject(合約報價單.PictureBox1.Image)
  678. xlSheet.Range("A1").Select()
  679. myExcel.ActiveSheet.Pictures.Paste.Select
  680. myExcel.Selection.ShapeRange.Height = 93
  681. myExcel.Selection.ShapeRange.IncrementLeft(50)
  682. myExcel.Selection.ShapeRange.IncrementTop(0)
  683. End Sub
  684. Private Sub 物料圖_pb_Click(sender As Object, e As EventArgs) Handles 物料圖_pb.Click
  685. If IsNothing(物料圖_pb.Image) = False Then
  686. 圖片傳遞 = 物料圖_pb.Image : 圖片放大視窗.ShowDialog()
  687. End If
  688. End Sub
  689. Private Sub 詳細資料2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 詳細資料2_ch.Click
  690. If 詳細資料2_ch.Checked = True Then : 詳細資料2_ch.Checked = True : Else : 詳細資料2_ch.Checked = False : End If : Set_請購單清單()
  691. End Sub
  692. '-----------------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------
  693. Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理_tsm.Click
  694. Set_清單1() : Set_清單3()
  695. End Sub
  696. Private Sub 請購單核准SetujuiToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 請購單核准_tsm.Click
  697. Me.請購單核准_bt.PerformClick()
  698. End Sub
  699. Private Sub 請購單作廢BatalToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 請購單作廢_tsm.Click
  700. Me.請購單作廢_bt.PerformClick()
  701. End Sub
  702. Private Sub 刪除請購單上點選資料ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 刪除請購單上點選資料_tsm.Click
  703. 刪除請購單上點選資料_bt.PerformClick()
  704. End Sub
  705. Private Sub 存檔SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 存檔_tsm.Click
  706. Me.存檔_bt.PerformClick()
  707. End Sub
  708. Private Sub 風格()
  709. If 深色風格 = False Then
  710. Me.BackColor = SystemColors.Control
  711. '--------------------黑---------------------------
  712. 申請人_lb.ForeColor = Color.Black : 小間距_ch.ForeColor = Color.Black : 中間距_ch.ForeColor = Color.Black : 大間距_ch.ForeColor = Color.Black
  713. 請購單號_lb.ForeColor = Color.Black : 申請日期_lb.ForeColor = Color.Black : Label7.ForeColor = Color.Black : 指定倉庫_lb.ForeColor = Color.Black
  714. 選擇_lb.ForeColor = Color.Black : 項次_lb.ForeColor = Color.Black : 詳細資料2_ch.ForeColor = Color.Black : 合約號_lb.ForeColor = Color.Black
  715. 未審核_lb.ForeColor = Color.Black : 已作廢_lb.ForeColor = Color.Black : 已審核_lb.ForeColor = Color.Black
  716. '--------------------藍---------------------------
  717. 未審核_rb.ForeColor = Color.Blue
  718. '--------------------綠---------------------------
  719. 已審核_rb.ForeColor = Color.Green : 需求日期_lb.ForeColor = Color.Green
  720. '--------------------紅---------------------------
  721. 已作廢_rb.ForeColor = Color.Red
  722. 合約號_tb.ForeColor = Color.Black : 合約號_tb.BackColor = Color.White : 請購單號_tb.ForeColor = Color.Black : 請購單號_tb.BackColor = Color.White
  723. 申請人_tb.ForeColor = Color.Black : 申請人_tb.BackColor = Color.White : 備註_tb.ForeColor = Color.Black : 備註_tb.BackColor = Color.White
  724. 指定倉庫_cb.ForeColor = Color.Black : 指定倉庫_cb.BackColor = Color.White : 項次_tb.ForeColor = Color.Black : 項次_tb.BackColor = Color.White
  725. 刪除請購單上點選資料_bt.ForeColor = Color.Red : 刪除請購單上點選資料_bt.BackColor = Color.White
  726. 請購單核准_bt.BackColor = Color.White : 加急件_bt.BackColor = Color.White : 請購單作廢_bt.BackColor = Color.White : 存檔_bt.BackColor = Color.White
  727. 確認列印_bt.BackColor = Color.White : 系統說明_bt.BackColor = Color.White
  728. 未核准_dgv.EnableHeadersVisualStyles = True : 未核准_dgv.BackgroundColor = Color.White : 未核准_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
  729. 未核准_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGray
  730. 未核准_dgv.DefaultCellStyle.BackColor = Color.White : 未核准_dgv.DefaultCellStyle.ForeColor = Color.Black
  731. 已核准_dgv.EnableHeadersVisualStyles = True : 已核准_dgv.BackgroundColor = Color.White : 已核准_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
  732. 已核准_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGray
  733. 已核准_dgv.DefaultCellStyle.BackColor = Color.White : 已核准_dgv.DefaultCellStyle.ForeColor = Color.Black
  734. 作廢清單_dgv.EnableHeadersVisualStyles = True : 作廢清單_dgv.BackgroundColor = Color.White : 作廢清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
  735. 作廢清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGray
  736. 作廢清單_dgv.DefaultCellStyle.BackColor = Color.White : 作廢清單_dgv.DefaultCellStyle.ForeColor = Color.Black
  737. 請購明細_dgv.EnableHeadersVisualStyles = True : 請購明細_dgv.BackgroundColor = Color.White : 請購明細_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
  738. 請購明細_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGray
  739. 請購明細_dgv.DefaultCellStyle.BackColor = Color.White : 請購明細_dgv.DefaultCellStyle.ForeColor = Color.Black
  740. Else
  741. Me.BackColor = Color.Black
  742. '--------------------黑---------------------------
  743. 申請人_lb.ForeColor = Color.White : 小間距_ch.ForeColor = Color.White : 中間距_ch.ForeColor = Color.White : 大間距_ch.ForeColor = Color.White
  744. 請購單號_lb.ForeColor = Color.White : 申請日期_lb.ForeColor = Color.White : Label7.ForeColor = Color.White : 指定倉庫_lb.ForeColor = Color.White
  745. 選擇_lb.ForeColor = Color.White : 項次_lb.ForeColor = Color.White : 詳細資料2_ch.ForeColor = Color.White : 合約號_lb.ForeColor = Color.White
  746. 未審核_lb.ForeColor = Color.White : 已作廢_lb.ForeColor = Color.White : 已審核_lb.ForeColor = Color.White
  747. '--------------------藍---------------------------
  748. 未審核_rb.ForeColor = Color.LightBlue
  749. '--------------------綠---------------------------
  750. 已審核_rb.ForeColor = Color.LightGreen : 需求日期_lb.ForeColor = Color.LightGreen
  751. '--------------------紅---------------------------
  752. 已作廢_rb.ForeColor = Color.LightPink : 刪除請購單上點選資料_bt.ForeColor = Color.LightPink
  753. 合約號_tb.ForeColor = Color.White : 合約號_tb.BackColor = Color.DimGray : 請購單號_tb.ForeColor = Color.White : 請購單號_tb.BackColor = Color.DimGray
  754. 申請人_tb.ForeColor = Color.White : 申請人_tb.BackColor = Color.DimGray : 備註_tb.ForeColor = Color.White : 備註_tb.BackColor = Color.DimGray
  755. 指定倉庫_cb.ForeColor = Color.White : 指定倉庫_cb.BackColor = Color.DimGray : 項次_tb.ForeColor = Color.White : 項次_tb.BackColor = Color.DimGray
  756. 刪除請購單上點選資料_bt.ForeColor = Color.LightGreen : 刪除請購單上點選資料_bt.BackColor = Color.DimGray
  757. 請購單核准_bt.BackColor = Color.DimGray : 加急件_bt.BackColor = Color.DimGray : 請購單作廢_bt.BackColor = Color.DimGray : 存檔_bt.BackColor = Color.DimGray
  758. 確認列印_bt.BackColor = Color.DimGray : 系統說明_bt.BackColor = Color.DimGray
  759. 未核准_dgv.EnableHeadersVisualStyles = False : 未核准_dgv.BackgroundColor = Color.DimGray : 未核准_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
  760. 未核准_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 未核准_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
  761. 未核准_dgv.DefaultCellStyle.BackColor = Color.Black : 未核准_dgv.DefaultCellStyle.ForeColor = Color.White
  762. 已核准_dgv.EnableHeadersVisualStyles = False : 已核准_dgv.BackgroundColor = Color.DimGray : 已核准_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
  763. 已核准_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 已核准_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
  764. 已核准_dgv.DefaultCellStyle.BackColor = Color.Black : 已核准_dgv.DefaultCellStyle.ForeColor = Color.White
  765. 作廢清單_dgv.EnableHeadersVisualStyles = False : 作廢清單_dgv.BackgroundColor = Color.DimGray : 作廢清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
  766. 作廢清單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 作廢清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
  767. 作廢清單_dgv.DefaultCellStyle.BackColor = Color.Black : 作廢清單_dgv.DefaultCellStyle.ForeColor = Color.White
  768. 請購明細_dgv.EnableHeadersVisualStyles = False : 請購明細_dgv.BackgroundColor = Color.DimGray : 請購明細_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
  769. 請購明細_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 請購明細_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
  770. 請購明細_dgv.DefaultCellStyle.BackColor = Color.Black : 請購明細_dgv.DefaultCellStyle.ForeColor = Color.White
  771. End If
  772. End Sub
  773. End Class