説明なし
選択できるのは25トピックまでです。 トピックは、先頭が英数字で、英数字とダッシュ('-')を使用した35文字以内のものにしてください。

請購單核准.vb 56KB

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