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

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493
  1. Option Strict Off
  2. Imports System.IO
  3. Public Class 請購單申請
  4. Dim 新項次, KKK2, 物料規格, 頁面 As String
  5. Dim NUM1, NUM2 As Integer
  6. DIM 對話框(46), 群組碼(21) As String
  7. Private Sub Set_合約清單()
  8. Dim ds6 As New DataSet : 合約1_dgv.DataSource = Nothing : ds6.Clear()
  9. 合約1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  10. 合約1_dgv.ColumnHeadersHeight = 25 : 合約1_dgv.AllowUserToAddRows = False
  11. PA = 關鍵字搜尋_tb.Text : PA46 = 合約編號1_cb.Text : PA47 = "%%"
  12. SQL_合約清單_倉儲用()
  13. da.Fill(ds6) : 合約1_dgv.DataSource = ds6.Tables(0) : conn.Close()
  14. 合約1_dgv.Columns(0).FillWeight = 130 : 合約1_dgv.Columns("MAT").FillWeight = 40 : 合約1_dgv.Columns("審核通過").FillWeight = 40
  15. 合約1_dgv.Columns("工程名稱").FillWeight = 280 : 合約1_dgv.Columns("Nama Proyek").FillWeight = 280 : 合約1_dgv.Columns("停止").Visible = True
  16. 合約1_dgv.Columns("停止").FillWeight = 40 : 合約1_dgv.Columns("審核通過").Visible = True : 合約1_dgv.Columns("MAT").Visible = False
  17. For i As Integer = 1 To 38 : 合約1_dgv.Columns(i).Visible = False : Next
  18. If 系統語言 = "繁體中文" Then : 合約1_dgv.Columns("工程名稱").Visible = True : 合約1_dgv.Columns("Nama Proyek").Visible = False
  19. Else : 合約1_dgv.Columns("工程名稱").Visible = False : 合約1_dgv.Columns("Nama Proyek").Visible = True : End If
  20. End Sub
  21. Private Sub Set_群組清單()
  22. Dim ds1 As New DataSet : 群組分類_dgv.DataSource = Nothing : ds1.Clear()
  23. 群組分類_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  24. 群組分類_dgv.ColumnHeadersHeight = 25 : 群組分類_dgv.AllowUserToAddRows = False : 群組分類_dgv.RowTemplate.Height = 45
  25. SQL_物料群組() : da.Fill(ds1) : 群組分類_dgv.DataSource = ds1.Tables(0) : conn.Close() : 次項變形()
  26. End Sub
  27. Private Sub Set_主管清單()
  28. Dim ds1 As New DataSet : 主管_dgv.DataSource = Nothing : ds1.Clear()
  29. 主管_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  30. 主管_dgv.ColumnHeadersHeight = 25 : 主管_dgv.AllowUserToAddRows = False : 主管_dgv.RowTemplate.Height = 45
  31. SQL_系統組織結構圖_單位主管1() : da.Fill(ds1) : 主管_dgv.DataSource = ds1.Tables(0) : conn.Close()
  32. 主管_dgv.Columns(0).FillWeight = 100 : 主管_dgv.Columns(1).FillWeight = 50 : 主管_dgv.Columns(2).FillWeight = 150
  33. End Sub
  34. Private Sub Set_清單2()
  35. Dim ds1 As New DataSet : 未核准_dgv.DataSource = Nothing : 未核准1_dgv.DataSource = Nothing : ds1.Clear()
  36. 未核准_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  37. 未核准_dgv.ColumnHeadersHeight = 40 : 未核准_dgv.AllowUserToAddRows = False
  38. 未核准1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  39. 未核准1_dgv.ColumnHeadersHeight = 40 : 未核准1_dgv.AllowUserToAddRows = False
  40. SQL_建築物料請購單申請_未核准()
  41. da.Fill(ds1) : 未核准_dgv.DataSource = ds1.Tables(0) : 未核准1_dgv.DataSource = ds1.Tables(0) : conn.Close()
  42. 未核准_dgv.Columns(0).FillWeight = 120 : 未核准_dgv.Columns(1).FillWeight = 160 : 未核准_dgv.Columns(2).FillWeight = 90 : 未核准_dgv.Columns(3).Visible = False
  43. 未核准_dgv.Columns(4).Visible = False : 未核准_dgv.Columns(5).Visible = False : 未核准_dgv.Columns(7).Visible = False : 未核准_dgv.Columns(8).Visible = False
  44. 未核准_dgv.Columns(9).Visible = False : 未核准_dgv.Columns(10).Visible = False : 未核准_dgv.Columns(11).Visible = False : 未核准_dgv.Columns(6).FillWeight = 120
  45. 未核准_dgv.Columns("退單備註").Visible = False : 未核准_dgv.Columns(表頭(10)).FillWeight = 50
  46. 未核准1_dgv.Columns(0).FillWeight = 120 : 未核准1_dgv.Columns(1).FillWeight = 160 : 未核准1_dgv.Columns(2).FillWeight = 90 : 未核准1_dgv.Columns(3).Visible = False
  47. 未核准1_dgv.Columns(4).Visible = False : 未核准1_dgv.Columns(5).Visible = False : 未核准1_dgv.Columns(7).Visible = False : 未核准1_dgv.Columns(8).Visible = False
  48. 未核准1_dgv.Columns(9).Visible = False : 未核准1_dgv.Columns(10).Visible = False : 未核准1_dgv.Columns(11).Visible = False : 未核准1_dgv.Columns(6).FillWeight = 120
  49. 未核准1_dgv.Columns("退單備註").Visible = False : 未核准1_dgv.Columns(表頭(10)).FillWeight = 50
  50. For i As Integer = 0 To 未核准1_dgv.Rows.Count - 1
  51. If IsDBNull(未核准1_dgv.Rows(i).Cells(表頭(10)).Value) Then : 未核准1_dgv.Rows(i).Cells(表頭(10)).Value = False : End If
  52. If IsDBNull(未核准_dgv.Rows(i).Cells(表頭(10)).Value) Then : 未核准_dgv.Rows(i).Cells(表頭(10)).Value = False : End If
  53. Next
  54. End Sub
  55. Private Sub Set_清單3()
  56. Dim ds3 As New DataSet : 作廢清單_dgv.DataSource = Nothing : 作廢清單1_dgv.DataSource = Nothing : ds3.Clear()
  57. 作廢清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  58. 作廢清單_dgv.ColumnHeadersHeight = 40 : 作廢清單_dgv.AllowUserToAddRows = False
  59. 作廢清單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  60. 作廢清單1_dgv.ColumnHeadersHeight = 40 : 作廢清單1_dgv.AllowUserToAddRows = False
  61. SQL_建築物料請購單申請_作廢清單()
  62. da.Fill(ds3) : 作廢清單_dgv.DataSource = ds3.Tables(0) : 作廢清單1_dgv.DataSource = ds3.Tables(0) : conn.Close()
  63. 作廢清單_dgv.Columns(0).FillWeight = 120 : 作廢清單_dgv.Columns(1).FillWeight = 160 : 作廢清單_dgv.Columns(2).FillWeight = 90 : 作廢清單_dgv.Columns(3).Visible = False
  64. 作廢清單_dgv.Columns(4).Visible = False : 作廢清單_dgv.Columns(5).Visible = False : 作廢清單_dgv.Columns(7).Visible = False : 作廢清單_dgv.Columns(8).Visible = False
  65. 作廢清單_dgv.Columns(9).Visible = False : 作廢清單_dgv.Columns(10).Visible = False : 作廢清單_dgv.Columns(11).Visible = False : 作廢清單_dgv.Columns(6).FillWeight = 120
  66. 作廢清單_dgv.Columns("退單備註").Visible = False : 作廢清單_dgv.Columns(表頭(10)).FillWeight = 50
  67. 作廢清單1_dgv.Columns(0).FillWeight = 120 : 作廢清單1_dgv.Columns(1).FillWeight = 160 : 作廢清單1_dgv.Columns(2).FillWeight = 90 : 作廢清單1_dgv.Columns(3).Visible = False
  68. 作廢清單1_dgv.Columns(4).Visible = False : 作廢清單1_dgv.Columns(5).Visible = False : 作廢清單1_dgv.Columns(7).Visible = False : 作廢清單1_dgv.Columns(8).Visible = False
  69. 作廢清單1_dgv.Columns(9).Visible = False : 作廢清單1_dgv.Columns(10).Visible = False : 作廢清單1_dgv.Columns(11).Visible = False : 作廢清單1_dgv.Columns(6).FillWeight = 120
  70. 作廢清單1_dgv.Columns("退單備註").Visible = False : 作廢清單1_dgv.Columns(表頭(10)).FillWeight = 50
  71. For i As Integer = 0 To 作廢清單1_dgv.Rows.Count - 1
  72. If IsDBNull(作廢清單1_dgv.Rows(i).Cells(表頭(10)).Value) Then : 作廢清單1_dgv.Rows(i).Cells(表頭(10)).Value = False : End If
  73. If IsDBNull(作廢清單_dgv.Rows(i).Cells(表頭(10)).Value) Then : 作廢清單_dgv.Rows(i).Cells(表頭(10)).Value = False : End If
  74. Next
  75. End Sub
  76. Private Sub Set_清單4()
  77. Dim ds6 As New DataSet : 已核准_dgv.DataSource = Nothing : 已核准1_dgv.DataSource = Nothing : ds6.Clear()
  78. 已核准_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  79. 已核准_dgv.ColumnHeadersHeight = 40 : 已核准_dgv.AllowUserToAddRows = False
  80. 已核准1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  81. 已核准1_dgv.ColumnHeadersHeight = 40 : 已核准1_dgv.AllowUserToAddRows = False
  82. SQL_建築物料請購單申請_已核准()
  83. da.Fill(ds6) : 已核准_dgv.DataSource = ds6.Tables(0) : 已核准1_dgv.DataSource = ds6.Tables(0) : conn.Close()
  84. 已核准_dgv.Columns(0).FillWeight = 120 : 已核准_dgv.Columns(1).FillWeight = 160 : 已核准_dgv.Columns(2).FillWeight = 90 : 已核准_dgv.Columns(3).Visible = False
  85. 已核准_dgv.Columns(4).Visible = False : 已核准_dgv.Columns(5).Visible = False : 已核准_dgv.Columns(7).Visible = False : 已核准_dgv.Columns(8).Visible = False
  86. 已核准_dgv.Columns(9).Visible = False : 已核准_dgv.Columns(10).Visible = False : 已核准_dgv.Columns(11).Visible = False : 已核准_dgv.Columns(6).FillWeight = 120
  87. 已核准_dgv.Columns("退單備註").Visible = False : 已核准_dgv.Columns(表頭(10)).FillWeight = 50
  88. 已核准1_dgv.Columns(0).FillWeight = 120 : 已核准1_dgv.Columns(1).FillWeight = 160 : 已核准1_dgv.Columns(2).FillWeight = 90 : 已核准1_dgv.Columns(3).Visible = False
  89. 已核准1_dgv.Columns(4).Visible = False : 已核准1_dgv.Columns(5).Visible = False : 已核准1_dgv.Columns(7).Visible = False : 已核准1_dgv.Columns(8).Visible = False
  90. 已核准1_dgv.Columns(9).Visible = False : 已核准1_dgv.Columns(10).Visible = False : 已核准1_dgv.Columns(11).Visible = False : 已核准1_dgv.Columns(6).FillWeight = 120
  91. 已核准1_dgv.Columns("退單備註").Visible = False : 已核准1_dgv.Columns(表頭(10)).FillWeight = 50
  92. For i As Integer = 0 To 已核准1_dgv.Rows.Count - 1
  93. If IsDBNull(已核准1_dgv.Rows(i).Cells(表頭(10)).Value) Then : 已核准1_dgv.Rows(i).Cells(表頭(10)).Value = False : End If
  94. If IsDBNull(已核准_dgv.Rows(i).Cells(表頭(10)).Value) Then : 已核准_dgv.Rows(i).Cells(表頭(10)).Value = False : End If
  95. Next
  96. End Sub
  97. Private Sub Set_請購單清單()
  98. Dim ds As New DataSet : 請購明細_dgv.DataSource = Nothing : ds.Clear()
  99. 請購明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  100. 請購明細_dgv.ColumnHeadersHeight = 30 : 請購明細_dgv.AllowUserToAddRows = False : 請購明細_dgv.RowTemplate.Height = 35
  101. If 小間距1_ch.Checked = False And 中間距1_ch.Checked = False And 大間距1_ch.Checked = True Then : 請購明細_dgv.RowTemplate.Height = 75
  102. ElseIf 小間距1_ch.Checked = False And 中間距1_ch.Checked = True And 大間距1_ch.Checked = False Then : 請購明細_dgv.RowTemplate.Height = 45
  103. ElseIf 小間距1_ch.Checked = True And 中間距1_ch.Checked = False And 大間距1_ch.Checked = False Then : 請購明細_dgv.RowTemplate.Height = 25 : End If
  104. SQL_建築物料請購單申請_請購單清單() : da.Fill(ds) : 請購明細_dgv.DataSource = ds.Tables(0) : conn.Close()
  105. 請購明細_dgv.Columns(0).Visible = False : 請購明細_dgv.Columns(1).FillWeight = 70 : 請購明細_dgv.Columns(2).FillWeight = 200 : 請購明細_dgv.Columns(3).FillWeight = 200
  106. 請購明細_dgv.Columns(4).FillWeight = 80 : 請購明細_dgv.Columns(5).FillWeight = 70 : 請購明細_dgv.Columns(6).FillWeight = 100 : 請購明細_dgv.Columns(7).FillWeight = 100
  107. 請購明細_dgv.Columns(8).Visible = False : 請購明細_dgv.Columns(9).Visible = False : 請購明細_dgv.Columns(10).Visible = False : 請購明細_dgv.Columns(11).Visible = False
  108. 請購明細_dgv.Columns(12).Visible = False : 請購明細_dgv.Columns(13).Visible = False : 請購明細_dgv.Columns(14).Visible = False : 請購明細_dgv.Columns(15).Visible = False
  109. 請購明細_dgv.Columns(16).Visible = False : 請購明細_dgv.Columns(17).Visible = False : 請購明細_dgv.Columns(18).Visible = False : 請購明細_dgv.Columns(19).Visible = False
  110. 請購明細_dgv.Columns(表頭(9)).FillWeight = 60
  111. If 低網速模式 = False Then
  112. 請購明細_dgv.Columns(21).FillWeight = 80 : 請購明細_dgv.Columns(21).Visible = True
  113. Dim mycol As DataGridViewImageColumn = 請購明細_dgv.Columns("圖檔")
  114. mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
  115. Else : If 請購明細_dgv.Columns.Count = 22 Then : 請購明細_dgv.Columns(21).Visible = False : End If : End If
  116. 請購明細_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
  117. 請購明細_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
  118. 請購明細_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  119. 請購明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
  120. 請購明細_dgv.Columns(1).ReadOnly = True : 請購明細_dgv.Columns(2).ReadOnly = True : 請購明細_dgv.Columns(3).ReadOnly = True
  121. 請購明細_dgv.Columns(6).ReadOnly = True : 請購明細_dgv.Columns(7).ReadOnly = True : 請購明細_dgv.Columns(表頭(9)).ReadOnly = True
  122. For i As Integer = 0 To 請購明細_dgv.Rows.Count - 1
  123. '-------------------------規格合併呈現----------------------------------------------------------------------------------------------------------------------------------------
  124. If i = 0 Then
  125. PA3 = 請購明細_dgv.Rows(i).Cells("規格庫抬頭指定").Value : SQL_規格庫抬頭讀取()
  126. If dr.Read() Then
  127. AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
  128. End If : conn.Close()
  129. Else
  130. If 請購明細_dgv.Rows(i).Cells("規格庫抬頭指定").Value.ToString <> 請購明細_dgv.Rows(i - 1).Cells("規格庫抬頭指定").Value.ToString Then
  131. PA3 = 請購明細_dgv.Rows(i).Cells("規格庫抬頭指定").Value : SQL_規格庫抬頭讀取()
  132. If dr.Read() Then
  133. AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
  134. End If : conn.Close()
  135. End If
  136. End If
  137. Dim ZA1, ZA2, ZA3, ZA4, ZA5, ZA6, ZA7, ZA8 As String : 物料規格 = ""
  138. If 詳細資料2_ch.Checked = True Then
  139. If 請購明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" Then
  140. ZA1 = AAA1 & "=" & 請購明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 物料規格 = ZA1 : End If
  141. If 請購明細_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then : ZA2 = AAA2 & "=" & 請購明細_dgv.Rows(i).Cells("A2").Value
  142. If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If
  143. If 請購明細_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then : ZA3 = AAA3 & "=" & 請購明細_dgv.Rows(i).Cells("A3").Value
  144. If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If
  145. If 請購明細_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then : ZA4 = AAA4 & "=" & 請購明細_dgv.Rows(i).Cells("A4").Value
  146. If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If
  147. If 請購明細_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then : ZA5 = AAA5 & "=" & 請購明細_dgv.Rows(i).Cells("A5").Value
  148. If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If
  149. If 請購明細_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then : ZA6 = AAA6 & "=" & 請購明細_dgv.Rows(i).Cells("A6").Value
  150. If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If
  151. If 請購明細_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then : ZA7 = AAA7 & "=" & 請購明細_dgv.Rows(i).Cells("A7").Value
  152. If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If
  153. If 請購明細_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then : ZA8 = AAA8 & "=" & 請購明細_dgv.Rows(i).Cells("A8").Value
  154. If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If
  155. Else
  156. If 請購明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" Then : ZA1 = 請購明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 物料規格 = ZA1 : End If
  157. If 請購明細_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then
  158. ZA2 = 請購明細_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If
  159. If 請購明細_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then
  160. ZA3 = 請購明細_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If
  161. If 請購明細_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then
  162. ZA4 = 請購明細_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If
  163. If 請購明細_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then
  164. ZA5 = 請購明細_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If
  165. If 請購明細_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then
  166. ZA6 = 請購明細_dgv.Rows(i).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If
  167. If 請購明細_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then
  168. ZA7 = 請購明細_dgv.Rows(i).Cells("A7").Value : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If
  169. If 請購明細_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then
  170. ZA8 = 請購明細_dgv.Rows(i).Cells("A8").Value : If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If
  171. End If
  172. 請購明細_dgv.Rows(i).Cells(表頭(13)).Value = 物料規格
  173. Next
  174. End Sub
  175. Private Sub Set_清單1()
  176. PA1 = 群組碼_tb.Text
  177. Dim ds4 As New DataSet : 物料清單_dgv.DataSource = Nothing : ds4.Clear()
  178. 物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  179. 物料清單_dgv.ColumnHeadersHeight = 25 : 物料清單_dgv.AllowUserToAddRows = False
  180. If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then : 物料清單_dgv.RowTemplate.Height = 65
  181. ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then : 物料清單_dgv.RowTemplate.Height = 45
  182. ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then : 物料清單_dgv.RowTemplate.Height = 25 : End If
  183. ConnOpen() : SQL_建築物料請購單申請_物料清單一() : CmdSet_For_DGV() : da.Fill(ds4) : 物料清單_dgv.DataSource = ds4.Tables(0) : conn.Close()
  184. 物料清單_dgv.Columns(0).FillWeight = 20 : 物料清單_dgv.Columns(1).Visible = False : 物料清單_dgv.Columns(2).FillWeight = 175
  185. 物料清單_dgv.Columns(4).Visible = False : 物料清單_dgv.Columns(5).FillWeight = 45 : 物料清單_dgv.Columns(3).Visible = False
  186. 物料清單_dgv.Columns(0).ReadOnly = True : 物料清單_dgv.Columns(1).ReadOnly = True : 物料清單_dgv.Columns(2).ReadOnly = True
  187. For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1 : 物料清單_dgv(0, i).Value = i + 1 : Next
  188. If 低網速模式 = False Then
  189. 物料清單_dgv.Columns(6).FillWeight = 50 : 物料清單_dgv.Columns(6).Visible = True
  190. Dim mycol As DataGridViewImageColumn = 物料清單_dgv.Columns("圖檔")
  191. mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
  192. Else : If 物料清單_dgv.Columns.Count = 7 Then : 物料清單_dgv.Columns(6).Visible = False : End If : End If
  193. End Sub
  194. Private Sub Set_清單1_1()
  195. Dim ds4 As New DataSet : 物料清單1_dgv.DataSource = Nothing : ds4.Clear()
  196. 物料清單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  197. 物料清單1_dgv.ColumnHeadersHeight = 25 : 物料清單1_dgv.AllowUserToAddRows = False : 物料清單1_dgv.RowTemplate.Height = 45
  198. ConnOpen() : SQL_建築物料請購單申請_物料清單一() : CmdSet_For_DGV()
  199. da.Fill(ds4) : 物料清單1_dgv.DataSource = ds4.Tables(0) : conn.Close()
  200. 物料清單1_dgv.Columns(0).FillWeight = 20 : 物料清單1_dgv.Columns(1).Visible = False : 物料清單1_dgv.Columns(2).FillWeight = 175
  201. 物料清單1_dgv.Columns(4).Visible = False : 物料清單1_dgv.Columns(5).FillWeight = 45 : 物料清單1_dgv.Columns(3).Visible = False
  202. 物料清單1_dgv.Columns(0).ReadOnly = True : 物料清單1_dgv.Columns(1).ReadOnly = True : 物料清單1_dgv.Columns(2).ReadOnly = True
  203. For i As Integer = 0 To 物料清單1_dgv.Rows.Count - 1 : 物料清單1_dgv(0, i).Value = i + 1 : Next
  204. If 低網速模式 = False Then
  205. 物料清單1_dgv.Columns(6).FillWeight = 50 : 物料清單1_dgv.Columns(6).Visible = True
  206. Dim mycol As DataGridViewImageColumn = 物料清單1_dgv.Columns("圖檔")
  207. mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
  208. Else : If 物料清單1_dgv.Columns.Count = 7 Then : 物料清單1_dgv.Columns(6).Visible = False : End If : End If
  209. End Sub
  210. Private Sub 群組碼_cb_語轉_下拉表單資料載入()
  211. SQL_群組碼_語轉_下拉清單() : 新群組1_cb.Items.Clear() : While (dr.Read()) : 新群組1_cb.Items.Add(dr("群組")) : End While : conn.Close()
  212. End Sub
  213. Private Sub 指定倉庫_cb_下拉表單資料載入()
  214. SQL_倉名_下拉清單() : 指定倉庫_cb.Items.Clear() : While (dr.Read()) : 指定倉庫_cb.Items.Add(dr("倉名")) : End While : conn.Close()
  215. End Sub
  216. Private Sub 群組編碼_cb_下拉表單資料載入()
  217. SQL_群組碼_下拉清單() : 群組編碼_cb.Items.Clear() : While (dr.Read()) : 群組編碼_cb.Items.Add(dr("群組碼")) : End While : conn.Close()
  218. End Sub
  219. Private Sub 物料原則一_cb_下拉表單資料載入()
  220. SQL_料號原則前二_下拉清單() : 物料原則一_cb.Items.Clear() : While (dr.Read()) : 物料原則一_cb.Items.Add(dr("原則前二")) : End While : conn.Close()
  221. End Sub
  222. Private Sub 物料原則二_cb_下拉表單資料載入()
  223. PA9 = 物料原則一_cb.Text : SQL_料號原則中段_下拉清單() : 物料原則二_cb.Items.Clear() : While (dr.Read()) : 物料原則二_cb.Items.Add(dr("原則中段")) : End While : conn.Close()
  224. End Sub
  225. Private Sub 甲方條件下拉清單讀取()
  226. SQL合約條件讀取() : 合約編號1_cb.Items.Clear() : 合約編號1_cb.Items.Add("") : While (dr.Read()) : 合約編號1_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-174-" & 語言)
  231. 已作廢_lb.Text = 系統語言字典("H201-100-" & 語言) : 已作廢1_lb.Text = 系統語言字典("H201-100-" & 語言) : 已作廢_rb.Text = 系統語言字典("H201-101-" & 語言)
  232. 已審核_lb.Text = 系統語言字典("H201-102-" & 語言) : 已審核1_lb.Text = 系統語言字典("H201-102-" & 語言) : 已審核_rb.Text = 系統語言字典("H201-103-" & 語言)
  233. 可申請_lb.Text = 系統語言字典("H201-104-" & 語言) : 可申請1_lb.Text = 系統語言字典("H201-104-" & 語言) : 未審核_lb.Text = 系統語言字典("H201-105-" & 語言)
  234. 未審核1_lb.Text = 系統語言字典("H201-105-" & 語言) : 未審核_rb.Text = 系統語言字典("H201-106-" & 語言) : 申請人_lb.Text = 系統語言字典("H201-107-" & 語言)
  235. 申請日期_lb.Text = 系統語言字典("H201-108-" & 語言) : 申請完成_bt.Text = 系統語言字典("H201-109-" & 語言) : 申請數_lb.Text = 系統語言字典("H201-110-" & 語言)
  236. 申請數1_lb.Text = 系統語言字典("H201-110-" & 語言) : 合約號_lb.Text = 系統語言字典("H201-111-" & 語言) : 表頭(134) = 系統語言字典("H201-111-" & 語言)
  237. 刪除_bt.Text = 系統語言字典("H201-112-" & 語言) : 刪除請購單上點選資料_bt.Text = 系統語言字典("H201-113-" & 語言) : 指定倉庫_lb.Text = 系統語言字典("H201-114-" & 語言)
  238. 重新整理_bt.Text = 系統語言字典("H201-115-" & 語言) : 倉庫級別_lb.Text = 系統語言字典("H201-116-" & 語言) : 倉庫編號_lb.Text = 系統語言字典("H201-117-" & 語言)
  239. 庫存量_lb.Text = 系統語言字典("H201-118-" & 語言) : 庫存量1_lb.Text = 系統語言字典("H201-118-" & 語言) : 料號_lb.Text = 系統語言字典("H201-119-" & 語言)
  240. 料號1_lb.Text = 系統語言字典("H201-119-" & 語言) : 料號原則_lb.Text = 系統語言字典("H201-120-" & 語言) : 表頭(19) = 系統語言字典("H201-121-" & 語言)
  241. 表頭(20) = 系統語言字典("H201-122-" & 語言) : 表頭(21) = 系統語言字典("H201-123-" & 語言) : 表頭(22) = 系統語言字典("H201-124-" & 語言)
  242. 表頭(18) = 系統語言字典("H201-125-" & 語言) : 最大庫存量_lb.Text = 系統語言字典("H201-126-" & 語言) : 最大庫存量1_lb.Text = 系統語言字典("H201-126-" & 語言)
  243. 開立建築物料請購單_bt.Text = 系統語言字典("H201-127-" & 語言) : 最大庫存量1_lb.Text = 系統語言字典("H201-126-" & 語言) : 項次_lb.Text = 系統語言字典("H201-128-" & 語言)
  244. 新增_bt.Text = 系統語言字典("H201-129-" & 語言) : 群組編碼_lb.Text = 系統語言字典("H201-130-" & 語言) : 對話框(0) = 系統語言字典("H201-131-" & 語言)
  245. 對話框(9) = 系統語言字典("H201-132-" & 語言) : 對話框(10) = 系統語言字典("H201-133-" & 語言) : 對話框(11) = 系統語言字典("H201-134-" & 語言)
  246. 對話框(12) = 系統語言字典("H201-135-" & 語言) : 對話框(13) = 系統語言字典("H201-136-" & 語言) : 對話框(14) = 系統語言字典("H201-137-" & 語言)
  247. 對話框(15) = 系統語言字典("H201-138-" & 語言) : 對話框(16) = 系統語言字典("H201-139-" & 語言) : 對話框(17) = 系統語言字典("H201-140-" & 語言)
  248. 對話框(18) = 系統語言字典("H201-141-" & 語言) : 對話框(1) = 系統語言字典("H201-142-" & 語言) : 對話框(19) = 系統語言字典("H201-143-" & 語言)
  249. 對話框(20) = 系統語言字典("H201-144-" & 語言) : 對話框(21) = 系統語言字典("H201-145-" & 語言) : 對話框(22) = 系統語言字典("H201-146-" & 語言)
  250. 對話框(23) = 系統語言字典("H201-147-" & 語言) : 對話框(24) = 系統語言字典("H201-148-" & 語言) : 對話框(25) = 系統語言字典("H201-149-" & 語言)
  251. 對話框(26) = 系統語言字典("H201-150-" & 語言) : 對話框(2) = 系統語言字典("H201-151-" & 語言) : 對話框(3) = 系統語言字典("H201-152-" & 語言)
  252. 對話框(4) = 系統語言字典("H201-153-" & 語言) : 對話框(5) = 系統語言字典("H201-154-" & 語言) : 對話框(6) = 系統語言字典("H201-155-" & 語言)
  253. 對話框(7) = 系統語言字典("H201-156-" & 語言) : 對話框(8) = 系統語言字典("H201-157-" & 語言) : 需求日期_lb.Text = 系統語言字典("H201-158-" & 語言)
  254. 複製_bt.Text = 系統語言字典("H201-159-" & 語言) : 表頭(17) = 系統語言字典("H201-160-" & 語言) : 表頭(12) = 系統語言字典("H201-161-" & 語言)
  255. 表頭(13) = 系統語言字典("H201-162-" & 語言) : 表頭(14) = 系統語言字典("H201-163-" & 語言) : 表頭(16) = 系統語言字典("H201-164-" & 語言)
  256. 表頭(11) = 系統語言字典("H201-165-" & 語言) : 表頭(15) = 系統語言字典("H201-166-" & 語言) : 請購單號_lb.Text = 系統語言字典("H201-167-" & 語言)
  257. 操作_lb.Text = 系統語言字典("H201-168-" & 語言) : 選擇_lb.Text = 系統語言字典("H201-169-" & 語言) : 對話框(28) = 系統語言字典("G000-223-" & 語言)
  258. ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言) : 切換_lb.Text = 系統語言字典("G000-176-" & 語言) : 等待_lb.Text = 系統語言字典("G000-123-" & 語言)
  259. 甲方_lb.Text = 系統語言字典("H110-118-" & 語言) : 詳細資料2_ch.Text = 系統語言字典("H211-100-" & 語言) : 對話框(27) = 系統語言字典("G000-180-" & 語言)
  260. 對話框(29) = 系統語言字典("G000-224-" & 語言) : 對話框(30) = 系統語言字典("G000-225-" & 語言) : 對話框(31) = 系統語言字典("G000-183-" & 語言)
  261. 對話框(32) = 系統語言字典("G000-184-" & 語言) : 對話框(33) = 系統語言字典("G000-185-" & 語言) : 對話框(34) = 系統語言字典("G000-186-" & 語言)
  262. 對話框(35) = 系統語言字典("G000-187-" & 語言) : 對話框(36) = 系統語言字典("G000-188-" & 語言) : 對話框(37) = 系統語言字典("G000-189-" & 語言)
  263. 對話框(38) = 系統語言字典("G000-190-" & 語言) : 對話框(39) = 系統語言字典("G000-191-" & 語言) : 對話框(40) = 系統語言字典("G000-192-" & 語言)
  264. 對話框(41) = 系統語言字典("G000-193-" & 語言) : 對話框(42) = 系統語言字典("G000-194-" & 語言) : 對話框(43) = 系統語言字典("H301-137-" & 語言)
  265. 對話框(44) = 系統語言字典("H201-170-" & 語言) : 對話框(45) = 系統語言字典("H110-117-" & 語言) : 對話框(46) = 系統語言字典("G000-152-" & 語言)
  266. 未審核1_rb.Text = 系統語言字典("H201-106-" & 語言) : 已作廢1_rb.Text = 系統語言字典("H201-101-" & 語言) : 已審核1_rb.Text = 系統語言字典("H201-103-" & 語言)
  267. 表頭(10) = 系統語言字典("G000-262-" & 語言) : 表頭(9) = 系統語言字典("H205-107-" & 語言)
  268. End Sub
  269. Private Sub 回首頁_bt_MouseEnter(sender As Object, e As EventArgs) Handles 回首頁_bt.MouseEnter
  270. ToolTip1.SetToolTip(Me.回首頁_bt, 對話框(31))
  271. End Sub
  272. Private Sub 回次頁_bt_MouseEnter(sender As Object, e As EventArgs) Handles 回次頁_bt.MouseEnter
  273. ToolTip1.SetToolTip(Me.回次頁_bt, 對話框(32))
  274. End Sub
  275. Private Sub 管材_bt_MouseEnter(sender As Object, e As EventArgs) Handles 管材_bt.MouseEnter
  276. ToolTip1.SetToolTip(Me.管材_bt, 對話框(33))
  277. End Sub
  278. Private Sub 電線_bt_MouseEnter(sender As Object, e As EventArgs) Handles 電線_bt.MouseEnter
  279. ToolTip1.SetToolTip(Me.電線_bt, 對話框(34))
  280. End Sub
  281. Private Sub 電料_bt_MouseEnter(sender As Object, e As EventArgs) Handles 電料_bt.MouseEnter
  282. ToolTip1.SetToolTip(Me.電料_bt, 對話框(35))
  283. End Sub
  284. Private Sub 槽架_bt_MouseEnter(sender As Object, e As EventArgs) Handles 槽架_bt.MouseEnter
  285. ToolTip1.SetToolTip(Me.槽架_bt, 對話框(36))
  286. End Sub
  287. Private Sub 建材_bt_MouseEnter(sender As Object, e As EventArgs) Handles 建材_bt.MouseEnter
  288. ToolTip1.SetToolTip(Me.建材_bt, 對話框(37))
  289. End Sub
  290. Private Sub 五金_bt_MouseEnter(sender As Object, e As EventArgs) Handles 五金_bt.MouseEnter
  291. ToolTip1.SetToolTip(Me.五金_bt, 對話框(38))
  292. End Sub
  293. Private Sub 設備_bt_MouseEnter(sender As Object, e As EventArgs) Handles 設備_bt.MouseEnter
  294. ToolTip1.SetToolTip(Me.設備_bt, 對話框(39))
  295. End Sub
  296. Private Sub 工具_bt_MouseEnter(sender As Object, e As EventArgs) Handles 工具_bt.MouseEnter
  297. ToolTip1.SetToolTip(Me.工具_bt, 對話框(40))
  298. End Sub
  299. Private Sub 日用_bt_MouseEnter(sender As Object, e As EventArgs) Handles 日用_bt.MouseEnter
  300. ToolTip1.SetToolTip(Me.日用_bt, 對話框(41))
  301. End Sub
  302. Private Sub 其他_bt_MouseEnter(sender As Object, e As EventArgs) Handles 其他_bt.MouseEnter
  303. ToolTip1.SetToolTip(Me.其他_bt, 對話框(42))
  304. End Sub
  305. Private Sub 單據_bt_MouseEnter(sender As Object, e As EventArgs) Handles 單據_bt.MouseEnter
  306. ToolTip1.SetToolTip(Me.單據_bt, 對話框(43))
  307. End Sub
  308. Private Sub 新增1_bt_MouseEnter(sender As Object, e As EventArgs) Handles 新增1_bt.MouseEnter
  309. ToolTip1.SetToolTip(Me.新增1_bt, 對話框(44))
  310. End Sub
  311. Private Sub 搜尋1_bt_MouseEnter(sender As Object, e As EventArgs) Handles 搜尋1_bt.MouseEnter
  312. ToolTip1.SetToolTip(Me.搜尋1_bt, 對話框(45))
  313. End Sub
  314. Private Sub 搜尋_bt_MouseEnter(sender As Object, e As EventArgs) Handles 搜尋_bt.MouseEnter
  315. ToolTip1.SetToolTip(Me.搜尋_bt, 對話框(45))
  316. End Sub
  317. Private Sub 縮放3_bt_MouseEnter(sender As Object, e As EventArgs) Handles 縮放3_bt.MouseEnter
  318. ToolTip1.SetToolTip(Me.縮放3_bt, 對話框(46))
  319. End Sub
  320. Private Sub 建築物料請購單生成_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  321. Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
  322. 風格() : H(201) = True : 介面 = "H201" : 語言轉換讀取() : 顯示說明(999, True)
  323. 未審核_rb.Checked = True : 未審核_lb.Visible = True : 切換_ts.Value = True : Panel3.Visible = True : Panel2.Visible = False : 等待_lb.Visible = True
  324. 新增_bt.Enabled = False : 刪除請購單上點選資料_bt.Enabled = True : 刪除_bt.Enabled = False : 申請完成_bt.Enabled = False : 複製_bt.Enabled = False
  325. 未核准_dgv.Visible = True : 已作廢_lb.Visible = False : 作廢清單_dgv.Visible = False : 已審核_lb.Visible = False : 已核准_dgv.Visible = False : 主頁_p.BringToFront()
  326. 未核准1_dgv.Visible = True : 作廢清單1_dgv.Visible = False : 已核准1_dgv.Visible = False : 已審核1_lb.Visible = False : 已作廢1_lb.Visible = False
  327. 未審核1_rb.Checked = True : 首次開啟 = False : Panel1.SendToBack() : 新增1_bt.Enabled = False : 未審核1_lb.Visible = True
  328. SQL_清單欄位查詢()
  329. If Acdr.Read() Then
  330. 小間距_ch.Checked = Acdr("L_1_1") : 中間距_ch.Checked = Acdr("L_2_1") : 大間距_ch.Checked = Acdr("L_3_1")
  331. 小間距1_ch.Checked = Acdr("L_1_2") : 中間距1_ch.Checked = Acdr("L_2_2") : 大間距1_ch.Checked = Acdr("L_3_2")
  332. End If : Access1.Close()
  333. 需求日期_dtp.Format = DateTimePickerFormat.Custom : 需求日期_dtp.CustomFormat = " "
  334. 銷售單申請_Size()
  335. End Sub
  336. Private Sub 建築物料請購單生成_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
  337. 計算分流1.Enabled = True
  338. End Sub
  339. Private Sub 計算分流1_Tick(sender As Object, e As EventArgs) Handles 計算分流1.Tick
  340. 計算分流1.Enabled = False : 群組碼_cb_語轉_下拉表單資料載入() : 群組編碼_cb_下拉表單資料載入() : Set_合約清單() : 甲方條件下拉清單讀取() : 物料原則一_cb_下拉表單資料載入()
  341. 指定倉庫_cb_下拉表單資料載入()
  342. If 未審核_rb.Checked = True Then : Set_清單2() : ElseIf 已作廢_rb.Checked = True Then : Set_清單3() : ElseIf 已審核_rb.Checked = True Then : Set_清單4() : End If
  343. 等待_lb.Visible = False
  344. End Sub
  345. Private Sub 銷售單申請_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
  346. 銷售單申請_Size()
  347. End Sub
  348. Private Sub 銷售單申請_Size()
  349. MyMod.清單字體大小調整()
  350. 物料清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  351. 物料清單1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  352. 物料規格_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  353. 物料規格1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  354. 已核准_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  355. 已核准1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  356. 未核准_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  357. 未核准1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  358. 作廢清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  359. 作廢清單1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  360. 請購明細_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  361. 合約1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
  362. End Sub
  363. Private Sub 銷售單申請_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
  364. 物料查詢 = False : H(201) = False : MyMod.虛擬桌面開啟()
  365. End Sub
  366. Private Sub 系統說明_bt_Click(sender As Object, e As EventArgs) Handles 系統說明_bt.Click
  367. 介面 = "H201" : WEB說明頁面.Show()
  368. End Sub
  369. Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
  370. 介面 = "H201" : 語言轉換讀取() : If 切換_ts.Value = False Then : Else : 回首頁_bt.PerformClick() : End If
  371. Set_請購單清單() : 群組碼_cb_語轉_下拉表單資料載入() : Set_群組清單()
  372. If 未審核_rb.Checked = True Then : Set_清單2() : ElseIf 已作廢_rb.Checked = True Then : Set_清單3() : ElseIf 已審核_rb.Checked = True Then : Set_清單4() : End If
  373. End Sub
  374. Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
  375. timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
  376. End Sub
  377. Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
  378. timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
  379. End Sub
  380. Private Sub 用途顯示()
  381. Set_請購單清單()
  382. If 請購明細_dgv.Rows.Count = 0 Then : 指定倉庫_cb_下拉表單資料載入() : Else
  383. If 請購明細_dgv.Rows(0).Cells(表頭(17)).Value.ToString = "" Then : 指定倉庫_cb_下拉表單資料載入()
  384. Else : 指定倉庫_cb.Text = 請購明細_dgv.Rows(0).Cells(表頭(17)).Value : End If
  385. End If
  386. End Sub
  387. Private Sub 合約1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約1_dgv.CellClick
  388. If e.RowIndex = -1 Then : Else
  389. If 開立建築物料請購單_bt.Enabled = True Then
  390. If Strings.Left(合約1_dgv.Rows(e.RowIndex).Cells("Kontrak").Value.ToString.ToUpper, 1) = "H" Then : 合約編號_cb.Text = "HX"
  391. ElseIf Strings.Left(合約1_dgv.Rows(e.RowIndex).Cells("Kontrak").Value.ToString.ToUpper, 1) = "P" Then : 合約編號_cb.Text = "PGS" : End If
  392. 合約編號2_tb.Text = 合約1_dgv.Rows(e.RowIndex).Cells("約號排序").Value.ToString : 合約編號3_tb.Text = 合約1_dgv.Rows(e.RowIndex).Cells("約號尾序").Value.ToString
  393. 合約編號1_tb.Text = 合約1_dgv.Rows(e.RowIndex).Cells("約號甲方").Value.ToString.ToUpper
  394. End If
  395. End If
  396. End Sub
  397. Private Sub 已核准_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 已核准_dgv.CellClick
  398. If e.RowIndex = -1 Then : Else
  399. 請購單號_tb.Text = 已核准_dgv(0, e.RowIndex).Value.ToString : 申請人_tb.Text = 已核准_dgv(1, e.RowIndex).Value.ToString
  400. 申請日期_dtp.Value = 已核准_dgv(2, e.RowIndex).Value.ToString : 備註_tb.Text = 已核准_dgv("備註", e.RowIndex).Value.ToString
  401. 合約編號_cb.Text = 已核准_dgv("乙方", e.RowIndex).Value.ToString : 合約編號1_tb.Text = 已核准_dgv("甲方", e.RowIndex).Value.ToString
  402. 合約編號2_tb.Text = 已核准_dgv("立約日", e.RowIndex).Value.ToString : 合約編號3_tb.Text = 已核准_dgv("序號", e.RowIndex).Value.ToString
  403. If 已核准_dgv(5, e.RowIndex).Value.ToString = "" Then : 需求日期_dtp.Format = DateTimePickerFormat.Custom : 需求日期_dtp.CustomFormat = " "
  404. Else : 需求日期_dtp.Format = DateTimePickerFormat.Short : 需求日期_dtp.Value = 已核准_dgv(5, e.RowIndex).Value.ToString : End If : 用途顯示()
  405. If 已核准_dgv.Rows(e.RowIndex).Cells(表頭(10)).Value = True Then : MGB(已核准_dgv.Rows(e.RowIndex).Cells("退單備註").Value.ToString, 1) : End If
  406. End If
  407. End Sub
  408. Private Sub 已核准1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 已核准1_dgv.CellClick
  409. If e.RowIndex = -1 Then : Else
  410. 請購單號_tb.Text = 已核准1_dgv(0, e.RowIndex).Value.ToString : 申請人_tb.Text = 已核准1_dgv(1, e.RowIndex).Value.ToString
  411. 申請日期_dtp.Value = 已核准1_dgv(2, e.RowIndex).Value.ToString : 備註_tb.Text = 已核准1_dgv("備註", e.RowIndex).Value.ToString
  412. 合約編號_cb.Text = 已核准1_dgv("乙方", e.RowIndex).Value.ToString : 合約編號1_tb.Text = 已核准1_dgv("甲方", e.RowIndex).Value.ToString
  413. 合約編號2_tb.Text = 已核准1_dgv("立約日", e.RowIndex).Value.ToString : 合約編號3_tb.Text = 已核准1_dgv("序號", e.RowIndex).Value.ToString
  414. If 已核准1_dgv(5, e.RowIndex).Value.ToString = "" Then : 需求日期_dtp.Format = DateTimePickerFormat.Custom : 需求日期_dtp.CustomFormat = " "
  415. Else : 需求日期_dtp.Format = DateTimePickerFormat.Short : 需求日期_dtp.Value = 已核准1_dgv(5, e.RowIndex).Value.ToString : End If : 用途顯示()
  416. If 已核准1_dgv.Rows(e.RowIndex).Cells(表頭(10)).Value = True Then : MGB(已核准1_dgv.Rows(e.RowIndex).Cells("退單備註").Value.ToString, 1) : End If
  417. End If
  418. End Sub
  419. Private Sub 未核准_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 未核准_dgv.CellClick
  420. If e.RowIndex = -1 Then : Else
  421. 請購單號_tb.Text = 未核准_dgv(0, e.RowIndex).Value.ToString : 申請人_tb.Text = 未核准_dgv(1, e.RowIndex).Value.ToString
  422. 申請日期_dtp.Value = 未核准_dgv(2, e.RowIndex).Value.ToString : 備註_tb.Text = 未核准_dgv("備註", e.RowIndex).Value.ToString
  423. 合約編號_cb.Text = 未核准_dgv("乙方", e.RowIndex).Value.ToString : 合約編號1_tb.Text = 未核准_dgv("甲方", e.RowIndex).Value.ToString
  424. 合約編號2_tb.Text = 未核准_dgv("立約日", e.RowIndex).Value.ToString : 合約編號3_tb.Text = 未核准_dgv("序號", e.RowIndex).Value.ToString
  425. If 未核准_dgv(5, e.RowIndex).Value.ToString = "" Then : 需求日期_dtp.Format = DateTimePickerFormat.Custom : 需求日期_dtp.CustomFormat = " "
  426. Else : 需求日期_dtp.Format = DateTimePickerFormat.Short : 需求日期_dtp.Value = 未核准_dgv(5, e.RowIndex).Value.ToString : End If : 用途顯示()
  427. If 未核准_dgv.Rows(e.RowIndex).Cells(表頭(10)).Value = True Then : MGB(未核准_dgv.Rows(e.RowIndex).Cells("退單備註").Value.ToString, 1) : End If
  428. End If
  429. End Sub
  430. Private Sub 未核准1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 未核准1_dgv.CellClick
  431. If e.RowIndex = -1 Then : Else
  432. 請購單號_tb.Text = 未核准1_dgv(0, e.RowIndex).Value.ToString : 申請人_tb.Text = 未核准1_dgv(1, e.RowIndex).Value.ToString
  433. 申請日期_dtp.Value = 未核准1_dgv(2, e.RowIndex).Value.ToString : 備註_tb.Text = 未核准1_dgv("備註", e.RowIndex).Value.ToString
  434. 合約編號_cb.Text = 未核准1_dgv("乙方", e.RowIndex).Value.ToString : 合約編號1_tb.Text = 未核准1_dgv("甲方", e.RowIndex).Value.ToString
  435. 合約編號2_tb.Text = 未核准1_dgv("立約日", e.RowIndex).Value.ToString : 合約編號3_tb.Text = 未核准1_dgv("序號", e.RowIndex).Value.ToString
  436. If 未核准1_dgv(5, e.RowIndex).Value.ToString = "" Then : 需求日期_dtp.Format = DateTimePickerFormat.Custom : 需求日期_dtp.CustomFormat = " "
  437. Else : 需求日期_dtp.Format = DateTimePickerFormat.Short : 需求日期_dtp.Value = 未核准1_dgv(5, e.RowIndex).Value.ToString : End If : 用途顯示()
  438. If 未核准1_dgv.Rows(e.RowIndex).Cells(表頭(10)).Value = True Then : MGB(未核准1_dgv.Rows(e.RowIndex).Cells("退單備註").Value.ToString, 1) : End If
  439. End If
  440. End Sub
  441. Private Sub 作廢清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 作廢清單_dgv.CellClick
  442. If e.RowIndex = -1 Then : Else
  443. 請購單號_tb.Text = 作廢清單_dgv(0, e.RowIndex).Value.ToString : 申請人_tb.Text = 作廢清單_dgv(1, e.RowIndex).Value.ToString
  444. 申請日期_dtp.Value = 作廢清單_dgv(2, e.RowIndex).Value.ToString : 備註_tb.Text = 作廢清單_dgv("備註", e.RowIndex).Value.ToString
  445. 合約編號_cb.Text = 作廢清單_dgv("乙方", e.RowIndex).Value.ToString : 合約編號1_tb.Text = 作廢清單_dgv("甲方", e.RowIndex).Value.ToString
  446. 合約編號2_tb.Text = 作廢清單_dgv("立約日", e.RowIndex).Value.ToString : 合約編號3_tb.Text = 作廢清單_dgv("序號", e.RowIndex).Value.ToString
  447. If 作廢清單_dgv(5, e.RowIndex).Value.ToString = "" Then : 需求日期_dtp.Format = DateTimePickerFormat.Custom : 需求日期_dtp.CustomFormat = " "
  448. Else : 需求日期_dtp.Format = DateTimePickerFormat.Short : 需求日期_dtp.Value = 作廢清單_dgv(5, e.RowIndex).Value.ToString : End If : 用途顯示()
  449. If 作廢清單_dgv.Rows(e.RowIndex).Cells(表頭(10)).Value = True Then : MGB(作廢清單_dgv.Rows(e.RowIndex).Cells("退單備註").Value.ToString, 1) : End If
  450. End If
  451. End Sub
  452. Private Sub 作廢清單1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 作廢清單1_dgv.CellClick
  453. If e.RowIndex = -1 Then : Else
  454. 請購單號_tb.Text = 作廢清單1_dgv(0, e.RowIndex).Value.ToString : 申請人_tb.Text = 作廢清單1_dgv(1, e.RowIndex).Value.ToString
  455. 申請日期_dtp.Value = 作廢清單1_dgv(2, e.RowIndex).Value.ToString : 備註_tb.Text = 作廢清單1_dgv("備註", e.RowIndex).Value.ToString
  456. 合約編號_cb.Text = 作廢清單1_dgv("乙方", e.RowIndex).Value.ToString : 合約編號1_tb.Text = 作廢清單1_dgv("甲方", e.RowIndex).Value.ToString
  457. 合約編號2_tb.Text = 作廢清單1_dgv("立約日", e.RowIndex).Value.ToString : 合約編號3_tb.Text = 作廢清單1_dgv("序號", e.RowIndex).Value.ToString
  458. If 作廢清單1_dgv(5, e.RowIndex).Value.ToString = "" Then : 需求日期_dtp.Format = DateTimePickerFormat.Custom : 需求日期_dtp.CustomFormat = " "
  459. Else : 需求日期_dtp.Format = DateTimePickerFormat.Short : 需求日期_dtp.Value = 作廢清單1_dgv(5, e.RowIndex).Value.ToString : End If : 用途顯示()
  460. If 作廢清單1_dgv.Rows(e.RowIndex).Cells(表頭(10)).Value = True Then : MGB(作廢清單1_dgv.Rows(e.RowIndex).Cells("退單備註").Value.ToString, 1) : End If
  461. End If
  462. End Sub
  463. Private Sub 請購明細_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 請購明細_dgv.CellClick
  464. If e.RowIndex = -1 Then : Else
  465. 項次_tb.Text = 請購明細_dgv(1, e.RowIndex).Value.ToString
  466. If 請購明細_dgv.Rows(e.RowIndex).Cells(表頭(17)).Value.ToString = "" Then : 指定倉庫_cb_下拉表單資料載入()
  467. Else : 指定倉庫_cb.Text = 請購明細_dgv.Rows(e.RowIndex).Cells(表頭(17)).Value : End If
  468. PA1 = 請購明細_dgv.Rows(e.RowIndex).Cells("群組碼").Value : PA2 = 請購明細_dgv.Rows(e.RowIndex).Cells("群組原則").Value
  469. SQL_物料圖庫_圖檔讀取()
  470. While dr.Read() = True
  471. Dim unused As Byte() = New Byte(-1) {}
  472. Dim bytes As Byte() = DirectCast(dr.Item("圖檔"), Byte())
  473. Dim oStream As New MemoryStream(bytes)
  474. 物料圖_pb.Image = Bitmap.FromStream(oStream)
  475. 物料圖1_pb.Image = Bitmap.FromStream(oStream)
  476. End While : conn.Close() : 物料圖_pb.SizeMode = 4 : 物料圖1_pb.SizeMode = 4
  477. End If
  478. End Sub
  479. Private Sub 物料清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料清單_dgv.CellClick
  480. If e.RowIndex = -1 Then : Else
  481. PA = 物料清單_dgv(1, e.RowIndex).Value.ToString : PA1 = 物料清單_dgv.Rows(e.RowIndex).Cells("群組碼").Value
  482. PA2 = 物料清單_dgv.Rows(e.RowIndex).Cells("料號原則").Value : SQL_物料圖庫_圖檔讀取()
  483. While dr.Read() = True
  484. Dim unused As Byte() = New Byte(-1) {}
  485. Dim bytes As Byte() = DirectCast(dr.Item("圖檔"), Byte())
  486. Dim oStream As New MemoryStream(bytes)
  487. 物料圖_pb.Image = Bitmap.FromStream(oStream)
  488. End While : conn.Close() : 物料圖_pb.SizeMode = 4
  489. '------------------------------------------------------------------------------------------------------------------------------------------
  490. SQL_建築物料請購單申請_物料規格讀取() : If dr.Read() Then : KKK2 = dr("規格庫編號") : PA3 = dr("規格庫抬頭指定") : PA4 = dr("群組碼") : End If : conn.Close()
  491. '------------------------------------------------------------------------------------------------------------------------------------------
  492. SQL_規格庫抬頭讀取()
  493. If dr.Read() Then : AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8") : End If
  494. conn.Close()
  495. '------------------------------------------------------------------------------------------------------------------------------------------
  496. Dim ds3 As New DataSet : 物料規格_dgv.DataSource = Nothing : ds3.Clear()
  497. 物料規格_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  498. 物料規格_dgv.ColumnHeadersHeight = 25 : 物料規格_dgv.AllowUserToAddRows = False : 物料規格_dgv.RowTemplate.Height = 20
  499. If KKK2 = "SQLB03" Then : SQL_物料規格_SQLB03() : ElseIf KKK2 = "SQLB04" Then : SQL_物料規格_SQLB04() : ElseIf KKK2 = "SQLB05" Then : SQL_物料規格_SQLB05()
  500. ElseIf KKK2 = "SQLB06" Then : SQL_物料規格_SQLB06() : ElseIf KKK2 = "SQLB07" Then : SQL_物料規格_SQLB07() : ElseIf KKK2 = "SQLB08" Then : SQL_物料規格_SQLB08() : End If
  501. da.Fill(ds3) : 物料規格_dgv.DataSource = ds3.Tables(0) : conn.Close() : 料號_tb.Text = ""
  502. 物料規格_dgv.Columns(0).Visible = False : 物料規格_dgv.Columns(1).Visible = False : 物料規格_dgv.Columns(3).Visible = False
  503. 物料規格_dgv.Columns(2).Width = 17 : 物料規格_dgv.Columns(12).Visible = False : 物料規格_dgv.Columns(13).Visible = False : 物料規格_dgv.Columns(14).Visible = False
  504. 物料規格_dgv.Columns(15).Visible = False
  505. If KKK2 = "SQLB03" Then
  506. 物料規格_dgv.Columns(7).Visible = False : 物料規格_dgv.Columns(8).Visible = False : 物料規格_dgv.Columns(9).Visible = False : 物料規格_dgv.Columns(10).Visible = False
  507. 物料規格_dgv.Columns(11).Visible = False
  508. 物料規格_dgv.Columns(4).FillWeight = 213 : 物料規格_dgv.Columns(5).FillWeight = 213 : 物料規格_dgv.Columns(6).FillWeight = 214
  509. ElseIf KKK2 = "SQLB04" Then
  510. 物料規格_dgv.Columns(7).Visible = True : 物料規格_dgv.Columns(8).Visible = False : 物料規格_dgv.Columns(9).Visible = False : 物料規格_dgv.Columns(10).Visible = False
  511. 物料規格_dgv.Columns(11).Visible = False
  512. 物料規格_dgv.Columns(4).FillWeight = 160 : 物料規格_dgv.Columns(5).FillWeight = 160 : 物料規格_dgv.Columns(6).FillWeight = 160 : 物料規格_dgv.Columns(7).FillWeight = 160
  513. ElseIf KKK2 = "SQLB05" Then
  514. 物料規格_dgv.Columns(7).Visible = True : 物料規格_dgv.Columns(8).Visible = True : 物料規格_dgv.Columns(9).Visible = False : 物料規格_dgv.Columns(10).Visible = False
  515. 物料規格_dgv.Columns(11).Visible = False
  516. 物料規格_dgv.Columns(4).FillWeight = 128 : 物料規格_dgv.Columns(5).FillWeight = 128 : 物料規格_dgv.Columns(6).FillWeight = 128 : 物料規格_dgv.Columns(7).FillWeight = 128
  517. 物料規格_dgv.Columns(8).FillWeight = 128
  518. ElseIf KKK2 = "SQLB06" Then
  519. 物料規格_dgv.Columns(7).Visible = True : 物料規格_dgv.Columns(8).Visible = True : 物料規格_dgv.Columns(9).Visible = True : 物料規格_dgv.Columns(10).Visible = False
  520. 物料規格_dgv.Columns(11).Visible = False
  521. 物料規格_dgv.Columns(4).FillWeight = 106 : 物料規格_dgv.Columns(5).FillWeight = 107 : 物料規格_dgv.Columns(6).FillWeight = 106 : 物料規格_dgv.Columns(7).FillWeight = 107
  522. 物料規格_dgv.Columns(8).FillWeight = 106 : 物料規格_dgv.Columns(9).FillWeight = 108
  523. ElseIf KKK2 = "SQLB07" Then
  524. 物料規格_dgv.Columns(7).Visible = True : 物料規格_dgv.Columns(8).Visible = True : 物料規格_dgv.Columns(9).Visible = True : 物料規格_dgv.Columns(10).Visible = True
  525. 物料規格_dgv.Columns(11).Visible = False
  526. 物料規格_dgv.Columns(4).FillWeight = 91 : 物料規格_dgv.Columns(5).FillWeight = 92 : 物料規格_dgv.Columns(6).FillWeight = 91 : 物料規格_dgv.Columns(7).FillWeight = 92
  527. 物料規格_dgv.Columns(8).FillWeight = 91 : 物料規格_dgv.Columns(9).FillWeight = 92 : 物料規格_dgv.Columns(10).FillWeight = 91
  528. ElseIf KKK2 = "SQLB08" Then
  529. 物料規格_dgv.Columns(7).Visible = True : 物料規格_dgv.Columns(8).Visible = True : 物料規格_dgv.Columns(9).Visible = True : 物料規格_dgv.Columns(10).Visible = True
  530. 物料規格_dgv.Columns(11).Visible = True
  531. 物料規格_dgv.Columns(4).FillWeight = 80 : 物料規格_dgv.Columns(5).FillWeight = 80 : 物料規格_dgv.Columns(6).FillWeight = 80 : 物料規格_dgv.Columns(7).FillWeight = 80
  532. 物料規格_dgv.Columns(8).FillWeight = 80 : 物料規格_dgv.Columns(9).FillWeight = 80 : 物料規格_dgv.Columns(10).FillWeight = 80 : 物料規格_dgv.Columns(11).FillWeight = 80
  533. End If
  534. 物料規格_dgv.EditMode = DataGridViewEditMode.EditOnEnter
  535. 物料規格_dgv.Columns(0).ReadOnly = True : 物料規格_dgv.Columns(1).ReadOnly = True : 物料規格_dgv.Columns(2).ReadOnly = True : 物料規格_dgv.Columns(3).ReadOnly = True
  536. 物料規格_dgv.Columns(4).ReadOnly = True : 物料規格_dgv.Columns(5).ReadOnly = True : 物料規格_dgv.Columns(6).ReadOnly = True : 物料規格_dgv.Columns(7).ReadOnly = True
  537. 物料規格_dgv.Columns(8).ReadOnly = True : 物料規格_dgv.Columns(9).ReadOnly = True : 物料規格_dgv.Columns(10).ReadOnly = True : 物料規格_dgv.Columns(11).ReadOnly = True
  538. For i As Integer = 0 To 物料規格_dgv.Rows.Count - 1
  539. 物料規格_dgv.Rows(i).Cells("No").Value = i + 1 : 物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value = 0
  540. If Not IsNumeric(物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value) Then : MGB(對話框(27), 1)
  541. ElseIf Val(物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value) > 0 Then : 物料規格_dgv.Rows(i).Cells("Pilih").Value = True
  542. ElseIf Val(物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value) <= 0 Then
  543. 物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value = "0" : 物料規格_dgv.Rows(i).Cells("Pilih").Value = False
  544. End If
  545. Next i
  546. End If
  547. End Sub
  548. Private Sub 物料規格_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 物料規格_dgv.CellEnter
  549. For i As Integer = 0 To 物料規格_dgv.Rows.Count - 1
  550. If Not IsNumeric(物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value) Then : MGB(對話框(27), 1)
  551. 物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value = "0" : 物料規格_dgv.Rows(i).Cells("Pilih").Value = False
  552. ElseIf Val(物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value) > 0 Then : 物料規格_dgv.Rows(i).Cells("Pilih").Value = True
  553. ElseIf Val(物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value) <= 0 Then
  554. 物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value = "0" : 物料規格_dgv.Rows(i).Cells("Pilih").Value = False
  555. End If
  556. Next i
  557. End Sub
  558. Private Sub 物料規格_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料規格_dgv.CellClick
  559. If e.RowIndex = -1 Then : Else
  560. Dim EERR1 As Integer : Dim EERR2 As Integer
  561. 料號_tb.Text = 物料規格_dgv.Rows(e.RowIndex).Cells("Nomor_Bagian").Value.ToString : NUM2 = e.RowIndex
  562. PA3 = 料號_tb.Text : SQL_建築物料請購單申請_物料狀況查詢()
  563. If dr.Read() Then : 最大庫存量_tb.Text = dr("最高庫存量")
  564. If dr("入庫").ToString = "" Then : EERR1 = 0 : Else : EERR1 = dr("入庫") : End If : If dr("出庫").ToString = "" Then : EERR2 = 0 : Else : EERR2 = dr("出庫") : End If
  565. 庫存量_tb.Text = EERR1 - EERR2 : 可申請_tb.Text = CInt(最大庫存量_tb.Text) - CInt(庫存量_tb.Text)
  566. 最大庫存量_tb.Text = Format(CInt(最大庫存量_tb.Text), "###0") : 庫存量_tb.Text = Format(CInt(庫存量_tb.Text), "###0") : 可申請_tb.Text = Format(CInt(可申請_tb.Text), "###0")
  567. End If : conn.Close()
  568. If 申請數_nud.Value > CInt(可申請_tb.Text) Then : MGB(對話框(0) & 可申請_tb.Text & 對話框(1), 1) : 申請數_nud.Value = 0 : End If
  569. End If
  570. End Sub
  571. Private Sub 物料清單1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料清單1_dgv.CellClick
  572. If e.RowIndex = -1 Then : Else
  573. PA = 物料清單1_dgv(1, e.RowIndex).Value.ToString : PA1 = 物料清單1_dgv.Rows(e.RowIndex).Cells("群組碼").Value
  574. PA2 = 物料清單1_dgv.Rows(e.RowIndex).Cells("料號原則").Value : SQL_物料圖庫_圖檔讀取()
  575. While dr.Read() = True
  576. Dim unused As Byte() = New Byte(-1) {}
  577. Dim bytes As Byte() = DirectCast(dr.Item("圖檔"), Byte())
  578. Dim oStream As New MemoryStream(bytes)
  579. 物料圖1_pb.Image = Bitmap.FromStream(oStream)
  580. End While : conn.Close() : 物料圖1_pb.SizeMode = 4
  581. '------------------------------------------------------------------------------------------------------------------------------------------
  582. SQL_建築物料請購單申請_物料規格讀取()
  583. If dr.Read() Then : KKK2 = dr("規格庫編號") : PA3 = dr("規格庫抬頭指定") : PA4 = dr("群組碼") : End If : conn.Close()
  584. '------------------------------------------------------------------------------------------------------------------------------------------
  585. SQL_規格庫抬頭讀取()
  586. If dr.Read() Then : AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8") : End If
  587. conn.Close()
  588. '------------------------------------------------------------------------------------------------------------------------------------------
  589. Dim ds3 As New DataSet
  590. 物料規格1_dgv.DataSource = Nothing : ds3.Clear()
  591. 物料規格1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  592. 物料規格1_dgv.ColumnHeadersHeight = 25 : 物料規格1_dgv.AllowUserToAddRows = False : 物料規格1_dgv.RowTemplate.Height = 20
  593. If KKK2 = "SQLB03" Then : SQL_物料規格_SQLB03() : ElseIf KKK2 = "SQLB04" Then : SQL_物料規格_SQLB04() : ElseIf KKK2 = "SQLB05" Then : SQL_物料規格_SQLB05()
  594. ElseIf KKK2 = "SQLB06" Then : SQL_物料規格_SQLB06() : ElseIf KKK2 = "SQLB07" Then : SQL_物料規格_SQLB07() : ElseIf KKK2 = "SQLB08" Then : SQL_物料規格_SQLB08() : End If
  595. da.Fill(ds3) : 物料規格1_dgv.DataSource = ds3.Tables(0) : conn.Close() : 料號_tb.Text = ""
  596. 物料規格1_dgv.Columns(0).Visible = False : 物料規格1_dgv.Columns(1).Visible = False : 物料規格1_dgv.Columns(3).Visible = False
  597. 物料規格1_dgv.Columns(2).Width = 17 : 物料規格1_dgv.Columns(12).Visible = False : 物料規格1_dgv.Columns(13).Visible = False : 物料規格1_dgv.Columns(14).Visible = False
  598. 物料規格1_dgv.Columns(15).Visible = False
  599. If KKK2 = "SQLB03" Then
  600. 物料規格1_dgv.Columns(7).Visible = False : 物料規格1_dgv.Columns(8).Visible = False : 物料規格1_dgv.Columns(9).Visible = False : 物料規格1_dgv.Columns(10).Visible = False
  601. 物料規格1_dgv.Columns(11).Visible = False
  602. 物料規格1_dgv.Columns(4).FillWeight = 213 : 物料規格1_dgv.Columns(5).FillWeight = 213 : 物料規格1_dgv.Columns(6).FillWeight = 214
  603. ElseIf KKK2 = "SQLB04" Then
  604. 物料規格1_dgv.Columns(7).Visible = True : 物料規格1_dgv.Columns(8).Visible = False : 物料規格1_dgv.Columns(9).Visible = False : 物料規格1_dgv.Columns(10).Visible = False
  605. 物料規格1_dgv.Columns(11).Visible = False
  606. 物料規格1_dgv.Columns(4).FillWeight = 160 : 物料規格1_dgv.Columns(5).FillWeight = 160 : 物料規格1_dgv.Columns(6).FillWeight = 160 : 物料規格1_dgv.Columns(7).FillWeight = 160
  607. ElseIf KKK2 = "SQLB05" Then
  608. 物料規格1_dgv.Columns(7).Visible = True : 物料規格1_dgv.Columns(8).Visible = True : 物料規格1_dgv.Columns(9).Visible = False : 物料規格1_dgv.Columns(10).Visible = False
  609. 物料規格1_dgv.Columns(11).Visible = False
  610. 物料規格1_dgv.Columns(4).FillWeight = 128 : 物料規格1_dgv.Columns(5).FillWeight = 128 : 物料規格1_dgv.Columns(6).FillWeight = 128 : 物料規格1_dgv.Columns(7).FillWeight = 128
  611. 物料規格1_dgv.Columns(8).FillWeight = 128
  612. ElseIf KKK2 = "SQLB06" Then
  613. 物料規格1_dgv.Columns(7).Visible = True : 物料規格1_dgv.Columns(8).Visible = True : 物料規格1_dgv.Columns(9).Visible = True : 物料規格1_dgv.Columns(10).Visible = False
  614. 物料規格1_dgv.Columns(11).Visible = False
  615. 物料規格1_dgv.Columns(4).FillWeight = 106 : 物料規格1_dgv.Columns(5).FillWeight = 107 : 物料規格1_dgv.Columns(6).FillWeight = 106 : 物料規格1_dgv.Columns(7).FillWeight = 107
  616. 物料規格1_dgv.Columns(8).FillWeight = 106 : 物料規格1_dgv.Columns(9).FillWeight = 108
  617. ElseIf KKK2 = "SQLB07" Then
  618. 物料規格1_dgv.Columns(7).Visible = True : 物料規格1_dgv.Columns(8).Visible = True : 物料規格1_dgv.Columns(9).Visible = True : 物料規格1_dgv.Columns(10).Visible = True
  619. 物料規格1_dgv.Columns(11).Visible = False
  620. 物料規格1_dgv.Columns(4).FillWeight = 91 : 物料規格1_dgv.Columns(5).FillWeight = 92 : 物料規格1_dgv.Columns(6).FillWeight = 91 : 物料規格1_dgv.Columns(7).FillWeight = 92
  621. 物料規格1_dgv.Columns(8).FillWeight = 91 : 物料規格1_dgv.Columns(9).FillWeight = 92 : 物料規格1_dgv.Columns(10).FillWeight = 91
  622. ElseIf KKK2 = "SQLB08" Then
  623. 物料規格1_dgv.Columns(7).Visible = True : 物料規格1_dgv.Columns(8).Visible = True : 物料規格1_dgv.Columns(9).Visible = True : 物料規格1_dgv.Columns(10).Visible = True
  624. 物料規格1_dgv.Columns(11).Visible = True
  625. 物料規格1_dgv.Columns(4).FillWeight = 80 : 物料規格1_dgv.Columns(5).FillWeight = 80 : 物料規格1_dgv.Columns(6).FillWeight = 80 : 物料規格1_dgv.Columns(7).FillWeight = 80
  626. 物料規格1_dgv.Columns(8).FillWeight = 80 : 物料規格1_dgv.Columns(9).FillWeight = 80 : 物料規格1_dgv.Columns(10).FillWeight = 80 : 物料規格1_dgv.Columns(11).FillWeight = 80
  627. End If
  628. 物料規格1_dgv.EditMode = DataGridViewEditMode.EditOnEnter
  629. 物料規格1_dgv.Columns(0).ReadOnly = True : 物料規格1_dgv.Columns(1).ReadOnly = True : 物料規格1_dgv.Columns(2).ReadOnly = True : 物料規格1_dgv.Columns(3).ReadOnly = True
  630. 物料規格1_dgv.Columns(4).ReadOnly = True : 物料規格1_dgv.Columns(5).ReadOnly = True : 物料規格1_dgv.Columns(6).ReadOnly = True : 物料規格1_dgv.Columns(7).ReadOnly = True
  631. 物料規格1_dgv.Columns(8).ReadOnly = True : 物料規格1_dgv.Columns(9).ReadOnly = True : 物料規格1_dgv.Columns(10).ReadOnly = True : 物料規格1_dgv.Columns(11).ReadOnly = True
  632. For i As Integer = 0 To 物料規格1_dgv.Rows.Count - 1
  633. 物料規格1_dgv.Rows(i).Cells("No").Value = i + 1 : 物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value = 0
  634. If Not IsNumeric(物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value) Then : MGB(對話框(27), 1)
  635. ElseIf Val(物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value) > 0 Then : 物料規格1_dgv.Rows(i).Cells("Pilih").Value = True
  636. ElseIf Val(物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value) <= 0 Then
  637. 物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value = "0" : 物料規格1_dgv.Rows(i).Cells("Pilih").Value = False
  638. End If
  639. Next i
  640. End If
  641. End Sub
  642. Private Sub 物料規格1_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 物料規格1_dgv.CellEnter
  643. For i As Integer = 0 To 物料規格1_dgv.Rows.Count - 1
  644. If Not IsNumeric(物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value) Then : MGB(對話框(27), 1)
  645. 物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value = "0" : 物料規格1_dgv.Rows(i).Cells("Pilih").Value = False
  646. ElseIf Val(物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value) > 0 Then : 物料規格1_dgv.Rows(i).Cells("Pilih").Value = True
  647. ElseIf Val(物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value) <= 0 Then
  648. 物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value = "0" : 物料規格1_dgv.Rows(i).Cells("Pilih").Value = False
  649. End If
  650. Next i
  651. End Sub
  652. Private Sub 物料規格1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料規格1_dgv.CellClick
  653. If e.RowIndex = -1 Then : Else
  654. Dim EERR1 As Integer : Dim EERR2 As Integer
  655. 料號_tb.Text = 物料規格1_dgv.Rows(e.RowIndex).Cells("Nomor_Bagian").Value.ToString : 料號1_tb.Text = 物料規格1_dgv.Rows(e.RowIndex).Cells("Nomor_Bagian").Value.ToString
  656. NUM2 = e.RowIndex : PA3 = 料號_tb.Text : SQL_建築物料請購單申請_物料狀況查詢()
  657. If dr.Read() Then
  658. 最大庫存量_tb.Text = dr("最高庫存量") : 最大庫存量1_tb.Text = dr("最高庫存量")
  659. If dr("入庫").ToString = "" Then : EERR1 = 0 : Else : EERR1 = dr("入庫") : End If : If dr("出庫").ToString = "" Then : EERR2 = 0 : Else : EERR2 = dr("出庫") : End If
  660. 庫存量_tb.Text = EERR1 - EERR2 : 庫存量1_tb.Text = EERR1 - EERR2
  661. 可申請_tb.Text = CInt(最大庫存量_tb.Text) - CInt(庫存量_tb.Text) : 可申請1_tb.Text = CInt(最大庫存量_tb.Text) - CInt(庫存量_tb.Text)
  662. 最大庫存量_tb.Text = Format(CInt(最大庫存量_tb.Text), "###0") : 最大庫存量1_tb.Text = Format(CInt(最大庫存量_tb.Text), "###0")
  663. 庫存量_tb.Text = Format(CInt(庫存量_tb.Text), "###0") : 庫存量1_tb.Text = Format(CInt(庫存量_tb.Text), "###0")
  664. 可申請_tb.Text = Format(CInt(可申請_tb.Text), "###0") : 可申請1_tb.Text = Format(CInt(可申請_tb.Text), "###0")
  665. End If : conn.Close()
  666. If 申請數_nud.Value > CInt(可申請_tb.Text) Then : MGB(對話框(0) & 可申請_tb.Text & 對話框(1), 1) : 申請數_nud.Value = 0 : 申請數1_nud.Value = 0 : End If
  667. End If
  668. End Sub
  669. Private Sub 合約編號1_cb_Click(sender As Object, e As EventArgs) Handles 合約編號1_cb.Click
  670. CB選擇清單(合約編號1_cb, 合約編號1_cb.Text)
  671. End Sub
  672. Private Sub 指定倉庫_cb_Click(sender As Object, e As EventArgs) Handles 指定倉庫_cb.Click
  673. CB選擇清單(指定倉庫_cb, 指定倉庫_cb.Text)
  674. End Sub
  675. Private Sub 合約編號_cb_Click(sender As Object, e As EventArgs) Handles 合約編號_cb.Click
  676. CB選擇清單(合約編號_cb, 合約編號_cb.Text)
  677. End Sub
  678. Private Sub 新群組1_cb_Click(sender As Object, e As EventArgs) Handles 新群組1_cb.Click
  679. CB選擇清單(新群組1_cb, 新群組1_cb.Text)
  680. End Sub
  681. Private Sub 合約編號1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約編號1_cb.SelectedIndexChanged
  682. Set_合約清單()
  683. End Sub
  684. Private Sub 新群組1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 新群組1_cb.SelectedIndexChanged
  685. PA = 新群組1_cb.Text : SQL_群組碼_語轉_選擇() : If dr.Read Then : 群組編碼_cb.Text = dr("群組碼").ToString : End If : PA = "" : Set_清單1()
  686. End Sub
  687. Private Sub 需求日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 需求日期_dtp.MouseDown
  688. 需求日期_dtp.Format = DateTimePickerFormat.Short
  689. If DateDiff(DateInterval.Day, 申請日期_dtp.Value, 需求日期_dtp.Value) > 7 Then : Else
  690. 需求日期_dtp.Value = 申請日期_dtp.Value.AddDays(7)
  691. End If
  692. End Sub
  693. Private Sub 需求日期_dtp_ValueChanged_1(sender As Object, e As EventArgs) Handles 需求日期_dtp.ValueChanged
  694. If DateDiff(DateInterval.Day, 申請日期_dtp.Value, 需求日期_dtp.Value) > 7 Then : Else
  695. 需求日期_dtp.Value = 申請日期_dtp.Value.AddDays(7)
  696. End If
  697. End Sub
  698. Private Sub 指定倉庫_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 指定倉庫_cb.SelectedIndexChanged
  699. PA6 = 指定倉庫_cb.Text : SQL_指定倉儲_資料讀取() : If dr.Read() Then : 倉庫級別_tb.Text = dr("倉級") : 倉庫編號_tb.Text = dr("倉名編號") : End If : conn.Close()
  700. End Sub
  701. Private Sub 群組編碼_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 群組編碼_cb.SelectedIndexChanged
  702. 群組碼_tb.Text = 群組編碼_cb.Text
  703. End Sub
  704. Private Sub 物料原則一_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 物料原則一_cb.SelectedIndexChanged
  705. PA1 = 物料原則一_cb.Text & "-"
  706. Dim ds4 As New DataSet : 物料清單_dgv.DataSource = Nothing : ds4.Clear()
  707. 物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  708. 物料清單_dgv.ColumnHeadersHeight = 25 : 物料清單_dgv.AllowUserToAddRows = False
  709. If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then : 物料清單_dgv.RowTemplate.Height = 65
  710. ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then : 物料清單_dgv.RowTemplate.Height = 45
  711. ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then : 物料清單_dgv.RowTemplate.Height = 25 : End If
  712. ConnOpen() : SQL_建築物料請購單申請_物料清單二() : CmdSet_For_DGV() : da.Fill(ds4) : 物料清單_dgv.DataSource = ds4.Tables(0) : conn.Close()
  713. 物料清單_dgv.Columns(0).Visible = False : 物料清單_dgv.Columns(1).FillWeight = 80 : 物料清單_dgv.Columns(2).FillWeight = 175 : 物料清單_dgv.Columns(3).Visible = False
  714. 物料清單_dgv.Columns(4).Visible = False : 物料清單_dgv.Columns(5).FillWeight = 45
  715. 物料清單_dgv.Columns(0).ReadOnly = True : 物料清單_dgv.Columns(1).ReadOnly = True : 物料清單_dgv.Columns(2).ReadOnly = True
  716. For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1 : 物料清單_dgv(0, i).Value = i + 1 : Next
  717. If 低網速模式 = False Then
  718. 物料清單_dgv.Columns(6).FillWeight = 50 : 物料清單_dgv.Columns(6).Visible = True
  719. Dim mycol As DataGridViewImageColumn = 物料清單_dgv.Columns("圖檔")
  720. mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
  721. Else : If 物料清單_dgv.Columns.Count = 7 Then : 物料清單_dgv.Columns(6).Visible = False : End If : End If : 物料原則二_cb_下拉表單資料載入() : 料號_tb.Text = ""
  722. End Sub
  723. Private Sub 物料原則二_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 物料原則二_cb.SelectedIndexChanged
  724. PA1 = 物料原則一_cb.Text & "-" & 物料原則二_cb.Text
  725. Dim ds4 As New DataSet : 物料清單_dgv.DataSource = Nothing : ds4.Clear()
  726. 物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  727. 物料清單_dgv.ColumnHeadersHeight = 25 : 物料清單_dgv.AllowUserToAddRows = False
  728. If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then : 物料清單_dgv.RowTemplate.Height = 65
  729. ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then : 物料清單_dgv.RowTemplate.Height = 45
  730. ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then : 物料清單_dgv.RowTemplate.Height = 25 : End If
  731. ConnOpen() : SQL_建築物料請購單申請_物料清單二() : CmdSet_For_DGV() : da.Fill(ds4) : 物料清單_dgv.DataSource = ds4.Tables(0) : conn.Close()
  732. 物料清單_dgv.Columns(0).Visible = False : 物料清單_dgv.Columns(1).FillWeight = 80 : 物料清單_dgv.Columns(2).FillWeight = 175 : 物料清單_dgv.Columns(3).Visible = False
  733. 物料清單_dgv.Columns(4).Visible = False : 物料清單_dgv.Columns(5).FillWeight = 45
  734. 物料清單_dgv.Columns(0).ReadOnly = True : 物料清單_dgv.Columns(1).ReadOnly = True : 物料清單_dgv.Columns(2).ReadOnly = True
  735. For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1 : 物料清單_dgv(0, i).Value = i + 1 : Next
  736. If 低網速模式 = False Then
  737. 物料清單_dgv.Columns(6).FillWeight = 50 : 物料清單_dgv.Columns(6).Visible = True
  738. Dim mycol As DataGridViewImageColumn = 物料清單_dgv.Columns("圖檔")
  739. mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
  740. Else : If 物料清單_dgv.Columns.Count = 7 Then : 物料清單_dgv.Columns(6).Visible = False : End If : End If : 物料原則二_cb_下拉表單資料載入() : 料號_tb.Text = ""
  741. End Sub
  742. Private Sub Set_日期格式轉換()
  743. DTP = Format(Today(), "yyyy/MM/dd") & "-" & Format(TimeOfDay(), "HH:mm:ss") : DTP1 = Format(Today(), "yyyyMMdd")
  744. End Sub
  745. Private Sub 存檔()
  746. For i As Integer = 0 To 請購明細_dgv.Rows.Count - 1
  747. 資料數 = 請購明細_dgv.Rows.Count : MyMod.進度條()
  748. PA1 = 請購明細_dgv.Rows(i).Cells(表頭(14)).Value.ToString.Replace("'", "") : NU1 = 請購明細_dgv.Rows(i).Cells(表頭(15)).Value
  749. PA2 = 請購明細_dgv.Rows(i).Cells(表頭(16)).Value : PA3 = 倉庫編號_tb.Text : PA4 = 請購單號_tb.Text : PA5 = 請購明細_dgv.Rows(i).Cells(表頭(11)).Value
  750. SQL_建築物料請購單申請_存檔() : conn.Close()
  751. Next
  752. PA1 = 請購單號_tb.Text : If 需求日期_dtp.Text = "" Or 需求日期_dtp.Text = " " Then : DTP = "" : Else : DTP = Format(需求日期_dtp.Value, "yyyy/MM/dd") : End If
  753. SQL_請購單需求日其修改() : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
  754. End Sub
  755. Private Sub 搜尋_bt_Click(sender As Object, e As EventArgs) Handles 搜尋_bt.Click
  756. INB(對話框(2)) : PA = 訊息回應
  757. If PA = "" Then : Else
  758. Dim ds4 As New DataSet : 物料清單_dgv.DataSource = Nothing : ds4.Clear()
  759. 物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  760. 物料清單_dgv.ColumnHeadersHeight = 25 : 物料清單_dgv.AllowUserToAddRows = False
  761. If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then : 物料清單_dgv.RowTemplate.Height = 65
  762. ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then : 物料清單_dgv.RowTemplate.Height = 45
  763. ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then : 物料清單_dgv.RowTemplate.Height = 25 : End If
  764. ConnOpen() : SQL_建築物料請購單申請_物料清單三() : CmdSet_For_DGV() : da.Fill(ds4) : 物料清單_dgv.DataSource = ds4.Tables(0) : conn.Close()
  765. 物料清單_dgv.Columns(0).Visible = False : 物料清單_dgv.Columns(1).FillWeight = 80 : 物料清單_dgv.Columns(2).FillWeight = 175 : 物料清單_dgv.Columns(3).Visible = False
  766. 物料清單_dgv.Columns(4).Visible = False : 物料清單_dgv.Columns(5).FillWeight = 45
  767. 物料清單_dgv.Columns(0).ReadOnly = True : 物料清單_dgv.Columns(1).ReadOnly = True : 物料清單_dgv.Columns(2).ReadOnly = True
  768. For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1 : 物料清單_dgv(0, i).Value = i + 1 : Next
  769. If 低網速模式 = False Then
  770. 物料清單_dgv.Columns(6).FillWeight = 50 : 物料清單_dgv.Columns(6).Visible = True
  771. Dim mycol As DataGridViewImageColumn = 物料清單_dgv.Columns("圖檔")
  772. mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
  773. Else : If 物料清單_dgv.Columns.Count = 7 Then : 物料清單_dgv.Columns(6).Visible = False : End If : End If : 料號_tb.Text = ""
  774. End If
  775. End Sub
  776. Private Sub 搜尋1_bt_Click(sender As Object, e As EventArgs) Handles 搜尋1_bt.Click
  777. INB(對話框(2)) : 物料關鍵字 = 訊息回應
  778. If 物料關鍵字 = "" Then : Else : 物料查詢 = True : Set_群組清單() : 次頁_p.BringToFront() : End If
  779. End Sub
  780. Private Sub 申請完成_bt_Click(sender As Object, e As EventArgs) Handles 申請完成_bt.Click
  781. If 指定倉庫_cb.Text = "" Then : MGB(對話框(4), 1) : Else
  782. If 需求日期_dtp.Text = "" Or 需求日期_dtp.Text = " " Then : MGB(對話框(14), 1) : Else
  783. Timer1.Enabled = False : 未核准_dgv.Enabled = True : 作廢清單_dgv.Enabled = True : 未審核_rb.Enabled = True : 已作廢_rb.Enabled = True
  784. 已審核_rb.Enabled = True : 未核准1_dgv.Enabled = True : 作廢清單1_dgv.Enabled = True : 未審核1_rb.Enabled = True : 已作廢1_rb.Enabled = True
  785. 已審核1_rb.Enabled = True
  786. PA47 = 申請人_tb.Text : SQL_系統組織結_級別讀取() : If dr.Read Then : PA46 = dr("級別") : End If : 存檔()
  787. If Val(PA46) <= 5 Then
  788. PA = 請購單號_tb.Text : PA1 = gUserName : SQL_建築物料請購單核准_請購單核准() : conn.Close()
  789. MGB(對話框(15) & 請購單號_tb.Text & 對話框(16), 1)
  790. ElseIf Val(PA46) > 5 Then : MGB(對話框(3), 1) : End If
  791. '---LINE_AUTO 部門主管------------------------------------------------------------------------------------------------------------------------------------------
  792. PA47 = 申請人_tb.Text : PA4 = 申請人_tb.Text : Set_主管清單()
  793. For i As Integer = 0 To 主管_dgv.Rows.Count - 1
  794. If 主管_dgv.Rows.Count = 1 Then
  795. LIN訊息通知("CC207", 主管_dgv.Rows(i).Cells("Lead").Value.ToString, PA4, "二日內")
  796. ElseIf 主管_dgv.Rows.Count > 1 Then
  797. If CInt(主管_dgv.Rows(i).Cells("Level").Value.ToString) <= 5 And CInt(主管_dgv.Rows(i).Cells("Level").Value.ToString) >= 4 Then
  798. LIN訊息通知("CC207", 主管_dgv.Rows(i).Cells("Lead").Value.ToString, PA4, "二日內")
  799. End If
  800. End If
  801. Next : LIN訊息通知("CC207", "李協叡", PA4, "二日內")
  802. 請購單號_tb.Text = "" : 申請人_tb.Text = "" : 項次_tb.Text = "" : 請購明細_dgv.DataSource = Nothing
  803. If 未審核_rb.Checked = True Then : Set_清單2() : ElseIf 已作廢_rb.Checked = True Then : Set_清單3() : ElseIf 已審核_rb.Checked = True Then : Set_清單4() : End If
  804. End If
  805. End If
  806. End Sub
  807. Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
  808. If 已作廢_rb.Checked = True Or 已審核_rb.Checked = True Then : MGB(對話框(13), 1) : Else
  809. If 指定倉庫_cb.Text = "" Then : MGB(對話框(4), 1) : Else
  810. If 需求日期_dtp.Text = "" Or 需求日期_dtp.Text = " " Then : MGB(對話框(14), 1) : Else
  811. If 料號_tb.Text = "" Then : MGB(對話框(10), 1) : Else
  812. If 請購單號_tb.Text = "" Then : 開立建築物料請購單_bt.PerformClick() : 請購明細_dgv.DataSource = Nothing
  813. If 請購單號_tb.Text <> "" Then : Set_新增選取的資料到請購單() : End If
  814. Else : Set_新增選取的資料到請購單() : End If
  815. End If
  816. End If
  817. End If
  818. End If
  819. End Sub
  820. Private Sub 新增1_bt_Click(sender As Object, e As EventArgs) Handles 新增1_bt.Click
  821. If 已作廢1_rb.Checked = True Or 已審核1_rb.Checked = True Then : MGB(對話框(13), 1) : Else
  822. If 指定倉庫_cb.Text = "" Then : MGB(對話框(4), 1) : Else
  823. If 需求日期_dtp.Text = "" Or 需求日期_dtp.Text = " " Then : MGB(對話框(14), 1) : Else
  824. If 料號1_tb.Text = "" Then : MGB(對話框(10), 1) : Else
  825. If 請購單號_tb.Text = "" Then
  826. 開立建築物料請購單_bt.PerformClick() : 請購明細_dgv.DataSource = Nothing
  827. If 請購單號_tb.Text <> "" Then : Set_新增選取的資料到請購單() : End If
  828. Else
  829. Set_新增選取的資料到請購單()
  830. End If
  831. End If
  832. End If
  833. End If
  834. End If
  835. End Sub
  836. Private Sub Set_新增選取的資料到請購單()
  837. If 已作廢_rb.Checked = True Then : MGB(對話框(5), 1) : Else
  838. If 申請數_nud.Value = 0 Then : MGB(對話框(6), 1) : Else
  839. 存檔() : PA1 = 請購單號_tb.Text : PA2 = 料號_tb.Text : SQL_建築物料請購單申請_增選取資料驗證()
  840. If dr.Read() Then : conn.Close() : MGB(對話框(6), 1) : Else
  841. SQL_請購單明細表_項次最後一筆()
  842. If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close() : NUM1 = Double.Parse(新項次) + 1
  843. If NUM1 < 10 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
  844. 物料規格 = KKK2
  845. PA = 請購單號_tb.Text : PA2 = 物料規格 : PA3 = "" : PA4 = "" : PA5 = 倉庫編號_tb.Text : PA5 = 倉庫編號_tb.Text : PA6 = 新項次
  846. If 切換_ts.Value = False Then
  847. PA1 = 物料規格_dgv.Rows(NUM2).Cells("原則說明").Value : NU1 = 申請數_nud.Value : PA9 = 物料規格_dgv.Rows(NUM2).Cells("Nomor_Bagian").Value
  848. PA7 = 物料規格_dgv.Rows(NUM2).Cells("群組碼").Value : PA8 = 物料規格_dgv.Rows(NUM2).Cells("料號原則").Value
  849. Else
  850. PA1 = 物料規格1_dgv.Rows(NUM2).Cells("原則說明").Value : NU1 = 申請數1_nud.Value : PA9 = 物料規格1_dgv.Rows(NUM2).Cells("Nomor_Bagian").Value
  851. PA7 = 物料規格1_dgv.Rows(NUM2).Cells("群組碼").Value : PA8 = 物料規格1_dgv.Rows(NUM2).Cells("料號原則").Value
  852. End If : SQL_請購單明細表_新增()
  853. End If : conn.Close() : MGB(對話框(7), 1) : Set_請購單清單() : 申請數_nud.Value = 0
  854. End If
  855. End If
  856. End Sub
  857. Private Sub 複製_bt_Click(sender As Object, e As EventArgs) Handles 複製_bt.Click
  858. If 合約號_tb.Text = "" Then : MGB(對話框(28), 1) : Else
  859. If 指定倉庫_cb.Text = "" Then : MGB(對話框(4), 1) : Else
  860. MGB(對話框(8), 2)
  861. If 訊息回應 = "YES" Then
  862. Timer1.Enabled = True
  863. 申請完成_bt.Enabled = True : 未審核_rb.Checked = True : 已作廢_rb.Checked = False : 已審核_rb.Checked = False : 未審核_lb.Visible = True : 未核准_dgv.Visible = True
  864. 已作廢_lb.Visible = False : 作廢清單_dgv.Visible = False : 已審核_lb.Visible = False : 已核准_dgv.Visible = False : 複製_bt.Enabled = False : 刪除_bt.Enabled = True
  865. 作廢清單1_dgv.Visible = False : 未核准1_dgv.Visible = True : 已核准1_dgv.Visible = False : 已審核1_lb.Visible = False : 已作廢1_lb.Visible = False
  866. 未審核1_lb.Visible = True : 未審核1_rb.Checked = True : 已作廢1_rb.Checked = False : 已審核1_rb.Checked = False
  867. 開立建築物料請購單_bt.PerformClick()
  868. 資料數 = 請購明細_dgv.Rows.Count
  869. For i As Integer = 0 To 請購明細_dgv.Rows.Count - 1 : MyMod.進度條()
  870. PA1 = 請購單號_tb.Text : SQL_請購單明細表_項次最後一筆() : If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close()
  871. NUM1 = Double.Parse(新項次) + 1 : If NUM1 < 10 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
  872. PA = 請購單號_tb.Text : PA1 = 請購明細_dgv.Rows(i).Cells(表頭(12)).Value : PA2 = 請購明細_dgv.Rows(i).Cells(表頭(13)).Value
  873. PA3 = 請購明細_dgv.Rows(i).Cells(表頭(14)).Value : NU1 = 請購明細_dgv.Rows(i).Cells(表頭(15)).Value
  874. PA4 = 請購明細_dgv.Rows(i).Cells(表頭(16)).Value : PA5 = 倉庫編號_tb.Text : PA6 = 新項次 : PA7 = 請購明細_dgv.Rows(i).Cells("群組碼").Value
  875. PA8 = 請購明細_dgv.Rows(i).Cells("群組原則").Value : PA9 = 請購明細_dgv.Rows(i).Cells("料號").Value
  876. SQL_請購單明細表_新增()
  877. Next : conn.Close() : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 : Set_請購單清單() : MGB(對話框(9), 1)
  878. End If
  879. End If
  880. End If
  881. End Sub
  882. Private Sub 未審核_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 未審核_rb.Click
  883. If 未審核_rb.Checked = True Then
  884. 未審核_rb.Checked = True : 已作廢_rb.Checked = False : 已審核_rb.Checked = False : 未審核_lb.Visible = True : 未核准_dgv.Visible = True
  885. 已作廢_lb.Visible = False : 作廢清單_dgv.Visible = False : 已審核_lb.Visible = False : 已核准_dgv.Visible = False : 複製_bt.Enabled = False
  886. 請購明細_dgv.DataSource = Nothing : 請購單號_tb.Text = "" : 申請人_tb.Text = "" : 項次_tb.Text = "" : 刪除_bt.Enabled = True
  887. 作廢清單1_dgv.Visible = False : 未核准1_dgv.Visible = True : 已核准1_dgv.Visible = False : 已審核1_lb.Visible = False : 已作廢1_lb.Visible = False
  888. 未審核1_lb.Visible = True : 未審核1_rb.Checked = True : 已作廢1_rb.Checked = False : 已審核1_rb.Checked = False
  889. Set_清單2()
  890. End If
  891. End Sub
  892. Private Sub 未審核1_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 未審核1_rb.Click
  893. If 未審核1_rb.Checked = True Then
  894. 未審核_rb.Checked = True : 已作廢_rb.Checked = False : 已審核_rb.Checked = False : 未審核_lb.Visible = True : 未核准_dgv.Visible = True
  895. 已作廢_lb.Visible = False : 作廢清單_dgv.Visible = False : 已審核_lb.Visible = False : 已核准_dgv.Visible = False : 複製_bt.Enabled = False
  896. 請購明細_dgv.DataSource = Nothing : 請購單號_tb.Text = "" : 申請人_tb.Text = "" : 項次_tb.Text = "" : 刪除_bt.Enabled = True
  897. 作廢清單1_dgv.Visible = False : 未核准1_dgv.Visible = True : 已核准1_dgv.Visible = False : 已審核1_lb.Visible = False : 已作廢1_lb.Visible = False
  898. 未審核1_lb.Visible = True : 未審核1_rb.Checked = True : 已作廢1_rb.Checked = False : 已審核1_rb.Checked = False
  899. Set_清單2()
  900. End If
  901. End Sub
  902. Private Sub 已作廢_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 已作廢_rb.Click
  903. If 已作廢_rb.Checked = True Then
  904. 未審核_rb.Checked = False : 已作廢_rb.Checked = True : 已審核_rb.Checked = False : 未審核_lb.Visible = False : 未核准_dgv.Visible = False
  905. 已作廢_lb.Visible = True : 作廢清單_dgv.Visible = True : 已審核_lb.Visible = False : 已核准_dgv.Visible = False : 複製_bt.Enabled = False
  906. 請購明細_dgv.DataSource = Nothing : 請購單號_tb.Text = "" : 申請人_tb.Text = "" : 項次_tb.Text = "" : 刪除_bt.Enabled = False
  907. 作廢清單1_dgv.Visible = True : 未核准1_dgv.Visible = False : 已核准1_dgv.Visible = False : 已審核1_lb.Visible = False : 已作廢1_lb.Visible = True
  908. 未審核1_lb.Visible = False : 未審核1_rb.Checked = False : 已作廢1_rb.Checked = True : 已審核1_rb.Checked = False
  909. Set_清單3()
  910. End If
  911. End Sub
  912. Private Sub 已作廢1_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 已作廢1_rb.Click
  913. If 已作廢1_rb.Checked = True Then
  914. 未審核_rb.Checked = False : 已作廢_rb.Checked = True : 已審核_rb.Checked = False : 未審核_lb.Visible = False : 未核准_dgv.Visible = False
  915. 已作廢_lb.Visible = True : 作廢清單_dgv.Visible = True : 已審核_lb.Visible = False : 已核准_dgv.Visible = False : 複製_bt.Enabled = False
  916. 請購明細_dgv.DataSource = Nothing : 請購單號_tb.Text = "" : 申請人_tb.Text = "" : 項次_tb.Text = "" : 刪除_bt.Enabled = False
  917. 作廢清單1_dgv.Visible = True : 未核准1_dgv.Visible = False : 已核准1_dgv.Visible = False : 已審核1_lb.Visible = False : 已作廢1_lb.Visible = True
  918. 未審核1_lb.Visible = False : 未審核1_rb.Checked = False : 已作廢1_rb.Checked = True : 已審核1_rb.Checked = False
  919. Set_清單3()
  920. End If
  921. End Sub
  922. Private Sub 已審核_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 已審核_rb.Click
  923. If 已審核_rb.Checked = True Then
  924. 未審核_rb.Checked = False : 已作廢_rb.Checked = False : 已審核_rb.Checked = True : 未審核_lb.Visible = False : 未核准_dgv.Visible = False
  925. 已作廢_lb.Visible = False : 作廢清單_dgv.Visible = False : 已審核_lb.Visible = True : 已核准_dgv.Visible = True : 複製_bt.Enabled = True
  926. 請購明細_dgv.DataSource = Nothing : 請購單號_tb.Text = "" : 申請人_tb.Text = "" : 項次_tb.Text = "" : 刪除_bt.Enabled = False
  927. 作廢清單1_dgv.Visible = False : 未核准1_dgv.Visible = False : 已核准1_dgv.Visible = True : 已審核1_lb.Visible = True : 已作廢1_lb.Visible = False
  928. 未審核1_lb.Visible = False : 未審核1_rb.Checked = False : 已作廢1_rb.Checked = False : 已審核1_rb.Checked = True
  929. Set_清單4()
  930. End If
  931. End Sub
  932. Private Sub 已審核1_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 已審核1_rb.Click
  933. If 已審核1_rb.Checked = True Then
  934. 未審核_rb.Checked = False : 已作廢_rb.Checked = False : 已審核_rb.Checked = True : 未審核_lb.Visible = False : 未核准_dgv.Visible = False
  935. 已作廢_lb.Visible = False : 作廢清單_dgv.Visible = False : 已審核_lb.Visible = True : 已核准_dgv.Visible = True : 複製_bt.Enabled = True
  936. 請購明細_dgv.DataSource = Nothing : 請購單號_tb.Text = "" : 申請人_tb.Text = "" : 項次_tb.Text = "" : 刪除_bt.Enabled = False
  937. 作廢清單1_dgv.Visible = False : 未核准1_dgv.Visible = False : 已核准1_dgv.Visible = True : 已審核1_lb.Visible = True : 已作廢1_lb.Visible = False
  938. 未審核1_lb.Visible = False : 未審核1_rb.Checked = False : 已作廢1_rb.Checked = False : 已審核1_rb.Checked = True
  939. Set_清單4()
  940. End If
  941. End Sub
  942. Private Sub 格式設定1()
  943. 開立建築物料請購單_bt.Enabled = True : 新增_bt.Enabled = False : 新增1_bt.Enabled = False : 刪除請購單上點選資料_bt.Enabled = False
  944. 刪除_bt.Enabled = False : 申請完成_bt.Enabled = False
  945. End Sub
  946. Private Sub 請購單號_tb_TextChanged(sender As Object, e As EventArgs) Handles 請購單號_tb.TextChanged
  947. If 請購單號_tb.Text = "" Then : 格式設定1() : Else
  948. If 已審核_rb.Checked = True And 已作廢_rb.Checked = False And 未審核_rb.Checked = False Then : 格式設定1() : 複製_bt.Enabled = True
  949. ElseIf 已審核_rb.Checked = False And 已作廢_rb.Checked = True And 未審核_rb.Checked = False Then : 格式設定1() : 複製_bt.Enabled = False
  950. Else : 開立建築物料請購單_bt.Enabled = False : 刪除_bt.Enabled = True : 申請完成_bt.Enabled = True : 複製_bt.Enabled = False : End If
  951. End If
  952. End Sub
  953. Private Sub 申請數_nud_ValueChanged(sender As Object, e As EventArgs) Handles 申請數_nud.ValueChanged
  954. 新增_bt.Enabled = True : 新增1_bt.Enabled = True
  955. If 申請數_nud.Value > Val(可申請_tb.Text) Then : MGB(對話框(0) & 可申請_tb.Text & 對話框(1), 1) : 申請數_nud.Value = 0 : End If
  956. End Sub
  957. Private Sub 申請數1_nud_ValueChanged(sender As Object, e As EventArgs) Handles 申請數1_nud.ValueChanged
  958. 申請數_nud.Value = 申請數1_nud.Value
  959. End Sub
  960. Private Sub 小間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距_ch.Click
  961. 小間距_ch.Checked = True : 中間距_ch.Checked = False : 大間距_ch.Checked = False : MyMod.間距設定存檔_1() : If 切換_ts.Value = False Then : Set_清單1() : End If
  962. End Sub
  963. Private Sub 中間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距_ch.Click
  964. 小間距_ch.Checked = False : 中間距_ch.Checked = True : 大間距_ch.Checked = False : MyMod.間距設定存檔_2() : If 切換_ts.Value = False Then : Set_清單1() : End If
  965. End Sub
  966. Private Sub 大間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距_ch.Click
  967. 小間距_ch.Checked = False : 中間距_ch.Checked = False : 大間距_ch.Checked = True : MyMod.間距設定存檔_3() : If 切換_ts.Value = False Then : Set_清單1() : End If
  968. End Sub
  969. Private Sub 小間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距1_ch.Click
  970. 小間距1_ch.Checked = True : 中間距1_ch.Checked = False : 大間距1_ch.Checked = False : MyMod.間距設定存檔_4() : Set_請購單清單()
  971. End Sub
  972. Private Sub 中間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距1_ch.Click
  973. 小間距1_ch.Checked = False : 中間距1_ch.Checked = True : 大間距1_ch.Checked = False : MyMod.間距設定存檔_5() : Set_請購單清單()
  974. End Sub
  975. Private Sub 大間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距1_ch.Click
  976. 小間距1_ch.Checked = False : 中間距1_ch.Checked = False : 大間距1_ch.Checked = True : MyMod.間距設定存檔_6() : Set_請購單清單()
  977. End Sub
  978. Private Sub Set_開立建築物料請購單()
  979. Timer1.Enabled = True
  980. 申請完成_bt.Enabled = True : 未審核_rb.Checked = True : 已作廢_rb.Checked = False : 已審核_rb.Checked = False : 未審核_lb.Visible = True : 未核准_dgv.Visible = True
  981. 已作廢_lb.Visible = False : 作廢清單_dgv.Visible = False : 已審核_lb.Visible = False : 已核准_dgv.Visible = False : 複製_bt.Enabled = False
  982. 未審核_rb.Enabled = False : 已作廢_rb.Enabled = False : 已審核_rb.Enabled = False : 未核准_dgv.Enabled = False : 已作廢1_rb.Checked = False
  983. 作廢清單1_dgv.Visible = False : 未核准1_dgv.Enabled = False : 已核准1_dgv.Visible = False : 已審核1_lb.Visible = False : 已作廢1_lb.Visible = False
  984. 未審核1_lb.Visible = True : 未審核1_rb.Enabled = False : 已審核1_rb.Checked = False
  985. Set_日期格式轉換() : Dim NUM1 As Integer
  986. For i As Integer = 1 To 999
  987. NUM1 = 0 + i
  988. If NUM1 < 10 Then : 請購單號_tb.Text = "CR-" & DTP1 & "-00" & NUM1
  989. ElseIf NUM1 > 9 And NUM1 < 100 Then : 請購單號_tb.Text = "CR-" & DTP1 & "-0" & NUM1
  990. ElseIf NUM1 > 99 Then : 請購單號_tb.Text = "CR-" & DTP1 & "-" & NUM1 : End If
  991. PA = 請購單號_tb.Text : SQL_請購單控制表_流水號查詢()
  992. If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
  993. Next
  994. PA1 = 合約號_tb.Text.ToUpper : PA43 = 備註_tb.Text : PA44 = 合約編號_cb.Text : PA45 = 合約編號1_tb.Text : PA46 = 合約編號2_tb.Text : PA47 = 合約編號3_tb.Text
  995. SQL_請購單控制表_新增() : 申請人_tb.Text = gUserName : conn.Close()
  996. If 未審核_rb.Checked = True Then : Set_清單2() : ElseIf 已作廢_rb.Checked = True Then : Set_清單3() : ElseIf 已審核_rb.Checked = True Then : Set_清單4() : End If
  997. End Sub
  998. Private Sub 開立建築物料請購單_bt_Click(sender As Object, e As EventArgs) Handles 開立建築物料請購單_bt.Click
  999. Dim 合約編號條件 As Boolean = True
  1000. If 合約編號_cb.Text = "" Then : 合約編號條件 = False : Else
  1001. If 合約編號1_tb.Text = "" Then : MGB(對話框(19), 1) : 合約編號條件 = False : Else
  1002. Dim d As Int32
  1003. For index = 0 To 合約編號1_tb.Text.Length - 1
  1004. d = Asc(合約編號1_tb.Text(index))
  1005. Dim 可能不行 As Boolean = False
  1006. If (d < 65 Or d > 90) Then : 可能不行 = True : End If 'c變數若在65~90是大寫的英文字母
  1007. If 可能不行 = True Then
  1008. If (d < 97 Or d > 122) Then : 可能不行 = True : Else : 可能不行 = False : End If 'c變數若在97~122是小寫的英文字母
  1009. If 可能不行 = True Then '然後查表, c變數若在48~57, 表示它是數字,
  1010. If (d < 48 Or d > 57) Then : MGB(對話框(20), 1) : 合約編號條件 = False : Exit For : End If
  1011. End If
  1012. End If
  1013. Next
  1014. End If
  1015. If 合約編號2_tb.Text = "" Then : MGB(對話框(21), 1) : 合約編號條件 = False : End If
  1016. Dim c As Int32 '然後查表, c變數若在48~57, 表示它是數字,
  1017. For index = 0 To 合約編號2_tb.Text.Length - 1
  1018. c = Asc(合約編號2_tb.Text(index))
  1019. If c < 48 Or c > 57 Then : MGB(對話框(22), 1) : 合約編號條件 = False : Exit For : Else
  1020. If Len(合約編號2_tb.Text) <> 6 Then : MGB(對話框(23), 1) : 合約編號條件 = False : Exit For : End If
  1021. End If
  1022. Next
  1023. If 合約編號3_tb.Text = "" Then : MGB(對話框(24), 1) : 合約編號條件 = False
  1024. ElseIf IsNumeric(合約編號3_tb.Text) = False Then : MGB(對話框(25), 1) : 合約編號條件 = False
  1025. End If
  1026. End If
  1027. If 合約編號條件 = False Then : 合約號_tb.Text = "" : 合約編號_cb.Text = "" : 合約編號1_tb.Text = "" : 合約編號2_tb.Text = "" : 合約編號3_tb.Text = ""
  1028. Else : Dim SSA As String = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text : 合約號_tb.Text = SSA.ToUpper : End If
  1029. If 指定倉庫_cb.Text = "" Then : MGB(對話框(4), 1) : Else
  1030. If 需求日期_dtp.Text = "" Or 需求日期_dtp.Text = " " Then : MGB(對話框(14), 1) : Else
  1031. If 合約號_tb.Text = "" Then : Dim SS As String = 對話框(29) : MGB(對話框(17), 2)
  1032. If 訊息回應 = "YES" Then
  1033. INB(SS) : PA20 = 訊息回應 : SQL_請購功能單次授權碼使用驗證()
  1034. If dr.Read() Then : MGB(對話框(18), 1) : 合約號_tb.Text = PA20 : Set_開立建築物料請購單() : 請購明細_dgv.DataSource = Nothing : SQL_授權使用()
  1035. Else : MGB(對話框(26), 1) : End If
  1036. End If
  1037. Else : PA = 合約號_tb.Text : SQL_合約號確認()
  1038. If dr.Read Then : Set_開立建築物料請購單() : 請購明細_dgv.DataSource = Nothing : Else : MGB(對話框(30), 1) : End If
  1039. End If
  1040. End If
  1041. End If
  1042. End Sub
  1043. Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
  1044. If 已作廢_rb.Checked = True Or 已審核_rb.Checked = True Then : MGB(對話框(13), 1) : Else
  1045. MGB(對話框(12), 2)
  1046. If 訊息回應 = "YES" Then
  1047. PA = 請購單號_tb.Text : SQL_請購單控制表_刪除() : SQL_請購單明細表_刪除() : conn.Close()
  1048. 請購單號_tb.Text = "" : 申請人_tb.Text = "" : 項次_tb.Text = "" : 請購明細_dgv.DataSource = Nothing
  1049. If 未審核_rb.Checked = True Then : Set_清單2() : ElseIf 已作廢_rb.Checked = True Then : Set_清單3() : ElseIf 已審核_rb.Checked = True Then : Set_清單4() : End If
  1050. Timer1.Enabled = False
  1051. 未核准_dgv.Enabled = True : 作廢清單_dgv.Enabled = True : 未審核_rb.Enabled = True : 已作廢_rb.Enabled = True : 已審核_rb.Enabled = True
  1052. 未核准1_dgv.Enabled = True : 作廢清單1_dgv.Enabled = True : 未審核1_rb.Enabled = True : 已作廢1_rb.Enabled = True
  1053. End If
  1054. End If
  1055. End Sub
  1056. Private Sub 刪除請購單上點選資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除請購單上點選資料_bt.Click
  1057. If 已作廢_rb.Checked = True Or 已審核_rb.Checked = True Then : MGB(對話框(13), 1) : Else
  1058. If 請購單號_tb.Text = "" Then : MGB(對話框(10), 1) : Else
  1059. If 已作廢_rb.Checked = True Then : MGB(對話框(5), 1) : Else
  1060. If 項次_tb.Text = "" Then : MGB(對話框(11), 1) : Else
  1061. MGB(對話框(12), 2)
  1062. If 訊息回應 = "YES" Then
  1063. 存檔() : PA1 = 請購單號_tb.Text : PA2 = 項次_tb.Text : SQL_請購單明細表_指定刪除() : conn.Close() : Set_請購單清單()
  1064. Dim NUM1 As Integer = 0
  1065. For i As Integer = 0 To 請購明細_dgv.Rows.Count - 1
  1066. NUM1 += 1 : If NUM1 < 10 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
  1067. PA = 新項次 : PA1 = 請購單號_tb.Text : PA2 = 請購明細_dgv.Rows(i).Cells(表頭(11)).Value
  1068. SQL_請購單明細表_項次修改() : conn.Close()
  1069. Next : Set_請購單清單()
  1070. End If
  1071. End If
  1072. End If
  1073. End If
  1074. End If
  1075. End Sub
  1076. Private Sub 縮放3_bt_Click(sender As Object, e As EventArgs) Handles 縮放3_bt.Click
  1077. 合約_P.BringToFront()
  1078. End Sub
  1079. Private Sub 重新整理_bt_Click(sender As Object, e As EventArgs) Handles 重新整理_bt.Click
  1080. If 未審核_rb.Checked = True Then : Set_清單2() : ElseIf 已作廢_rb.Checked = True Then : Set_清單3() : ElseIf 已審核_rb.Checked = True Then : Set_清單4() : End If
  1081. End Sub
  1082. Private Sub 物料圖_pb_Click(sender As Object, e As EventArgs) Handles 物料圖_pb.Click
  1083. If IsNothing(物料圖_pb.Image) = False Then : 圖片傳遞 = 物料圖_pb.Image : 圖片放大視窗.ShowDialog() : End If
  1084. End Sub
  1085. Private Sub 物料圖1_pb_Click(sender As Object, e As EventArgs) Handles 物料圖1_pb.Click
  1086. If IsNothing(物料圖1_pb.Image) = False Then : 圖片傳遞 = 物料圖1_pb.Image : 圖片放大視窗.ShowDialog() : End If
  1087. End Sub
  1088. Private Sub 詳細資料2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 詳細資料2_ch.Click
  1089. If 詳細資料2_ch.Checked = True Then : 詳細資料2_ch.Checked = True : Else : 詳細資料2_ch.Checked = False : End If : Set_請購單清單()
  1090. End Sub
  1091. Private Sub 合約編號1_tb_TextChanged(sender As Object, e As EventArgs) Handles 合約編號1_tb.TextChanged
  1092. 合約編號1_tb.Text = 合約編號1_tb.Text.ToUpper
  1093. End Sub
  1094. Private Sub 切換_ts_ValueChanged(sender As Object, e As EventArgs) Handles 切換_ts.ValueChanged
  1095. If 首次開啟 = True Then : Else
  1096. If 切換_ts.Value = True Then : 切換_ts.Value = True : Panel3.Visible = True : Panel2.Visible = False
  1097. Else : 切換_ts.Value = False : Panel3.Visible = False : Panel2.Visible = True : End If
  1098. End If
  1099. End Sub
  1100. Private Sub 回首頁_bt_Click(sender As Object, e As EventArgs) Handles 回首頁_bt.Click
  1101. 物料查詢 = False : 主頁_p.BringToFront()
  1102. End Sub
  1103. Private Sub 回次頁_bt_Click(sender As Object, e As EventArgs) Handles 回次頁_bt.Click
  1104. If 頁面 = "1" Then : 主頁_p.BringToFront() : ElseIf 頁面 = "2" Then : 次頁_p.BringToFront() : Else : 主頁_p.BringToFront() : End If
  1105. End Sub
  1106. Private Sub 單據_bt_Click(sender As Object, e As EventArgs) Handles 單據_bt.Click
  1107. 單據_p.BringToFront()
  1108. End Sub
  1109. Private Sub 次項變形()
  1110. For i As Integer = 1 To 21 : Dim 選擇 As Panel = CType(Me.Controls.Find("AP" & i, True)(0), Panel) : 選擇.Visible = False : Next
  1111. Dim SS As Integer
  1112. If 群組分類_dgv.Rows.Count > 21 Then : SS = 21 : Else : SS = 群組分類_dgv.Rows.Count : End If
  1113. For i As Integer = 1 To SS : Dim 選擇 As Panel = CType(Me.Controls.Find("AP" & i, True)(0), Panel) : 選擇.Visible = True : Next
  1114. Dim 轉檔 As Boolean
  1115. For i As Integer = 0 To 群組分類_dgv.Rows.Count - 1
  1116. Dim 選擇 As PictureBox = CType(Me.Controls.Find("PB_" & i + 1, True)(0), PictureBox)
  1117. If IsDBNull(群組分類_dgv.Rows(i).Cells(2).Value) = True Then : 轉檔 = False : Else : 轉檔 = True : End If
  1118. While 轉檔 = True
  1119. Dim unused As Byte() = New Byte(-1) {}
  1120. Dim bytes As Byte() = DirectCast(群組分類_dgv.Rows(i).Cells(2).Value, Byte())
  1121. Dim oStream As New MemoryStream(bytes)
  1122. 選擇.Image = Bitmap.FromStream(oStream) : 轉檔 = False
  1123. End While : conn.Close() : 選擇.SizeMode = 4
  1124. Dim 選擇1 As TextBox = CType(Me.Controls.Find("TB_" & i + 1, True)(0), TextBox) : 選擇1.Text = 群組分類_dgv.Rows(i).Cells(1).Value.ToString
  1125. '---------未做換頁計算---------------------------------------------
  1126. 群組碼(i + 1) = 群組分類_dgv.Rows(i).Cells(0).Value.ToString
  1127. Next
  1128. End Sub
  1129. Private Sub 管材_bt_Click(sender As Object, e As EventArgs) Handles 管材_bt.Click
  1130. 頁面 = "1" : PA1 = "管材" : Set_群組清單() : 次頁_p.BringToFront()
  1131. End Sub
  1132. Private Sub 電線_bt_Click(sender As Object, e As EventArgs) Handles 電線_bt.Click
  1133. 頁面 = "1" : PA1 = "電線" : Set_群組清單() : 次頁_p.BringToFront()
  1134. End Sub
  1135. Private Sub 電料_bt_Click(sender As Object, e As EventArgs) Handles 電料_bt.Click
  1136. 頁面 = "1" : PA1 = "電料" : Set_群組清單() : 次頁_p.BringToFront()
  1137. End Sub
  1138. Private Sub 槽架_bt_Click(sender As Object, e As EventArgs) Handles 槽架_bt.Click
  1139. 頁面 = "1" : PA1 = "槽架" : Set_群組清單() : 次頁_p.BringToFront()
  1140. End Sub
  1141. Private Sub 建材_bt_Click(sender As Object, e As EventArgs) Handles 建材_bt.Click
  1142. 頁面 = "1" : PA1 = "建材" : Set_群組清單() : 次頁_p.BringToFront()
  1143. End Sub
  1144. Private Sub 五金_bt_Click(sender As Object, e As EventArgs) Handles 五金_bt.Click
  1145. 頁面 = "1" : PA1 = "五金" : Set_群組清單() : 次頁_p.BringToFront()
  1146. End Sub
  1147. Private Sub 設備_bt_Click(sender As Object, e As EventArgs) Handles 設備_bt.Click
  1148. 頁面 = "1" : PA1 = "設備" : Set_群組清單() : 次頁_p.BringToFront()
  1149. End Sub
  1150. Private Sub 工具_bt_Click(sender As Object, e As EventArgs) Handles 工具_bt.Click
  1151. 頁面 = "1" : PA1 = "工具" : Set_群組清單() : 次頁_p.BringToFront()
  1152. End Sub
  1153. Private Sub 日用_bt_Click(sender As Object, e As EventArgs) Handles 日用_bt.Click
  1154. 頁面 = "1" : PA1 = "日用" : Set_群組清單() : 次頁_p.BringToFront()
  1155. End Sub
  1156. Private Sub 其他_bt_Click(sender As Object, e As EventArgs) Handles 其他_bt.Click
  1157. 頁面 = "1" : PA1 = "其他" : Set_群組清單() : 次頁_p.BringToFront()
  1158. End Sub
  1159. Private Sub PB_1_Click(sender As Object, e As EventArgs) Handles PB_1.Click
  1160. 頁面 = "2" : PA1 = 群組碼(1) : Set_清單1_1() : 物料_p.BringToFront()
  1161. End Sub
  1162. Private Sub PB_2_Click(sender As Object, e As EventArgs) Handles PB_2.Click
  1163. 頁面 = "2" : PA1 = 群組碼(2) : Set_清單1_1() : 物料_p.BringToFront()
  1164. End Sub
  1165. Private Sub PB_3_Click(sender As Object, e As EventArgs) Handles PB_3.Click
  1166. 頁面 = "2" : PA1 = 群組碼(3) : Set_清單1_1() : 物料_p.BringToFront()
  1167. End Sub
  1168. Private Sub PB_4_Click(sender As Object, e As EventArgs) Handles PB_4.Click
  1169. 頁面 = "2" : PA1 = 群組碼(4) : Set_清單1_1() : 物料_p.BringToFront()
  1170. End Sub
  1171. Private Sub PB_5_Click(sender As Object, e As EventArgs) Handles PB_5.Click
  1172. 頁面 = "2" : PA1 = 群組碼(5) : Set_清單1_1() : 物料_p.BringToFront()
  1173. End Sub
  1174. Private Sub PB_6_Click(sender As Object, e As EventArgs) Handles PB_6.Click
  1175. 頁面 = "2" : PA1 = 群組碼(6) : Set_清單1_1() : 物料_p.BringToFront()
  1176. End Sub
  1177. Private Sub PB_7_Click(sender As Object, e As EventArgs) Handles PB_7.Click
  1178. 頁面 = "2" : PA1 = 群組碼(7) : Set_清單1_1() : 物料_p.BringToFront()
  1179. End Sub
  1180. Private Sub PB_8_Click(sender As Object, e As EventArgs) Handles PB_8.Click
  1181. 頁面 = "2" : PA1 = 群組碼(8) : Set_清單1_1() : 物料_p.BringToFront()
  1182. End Sub
  1183. Private Sub PB_9_Click(sender As Object, e As EventArgs) Handles PB_9.Click
  1184. 頁面 = "2" : PA1 = 群組碼(9) : Set_清單1_1() : 物料_p.BringToFront()
  1185. End Sub
  1186. Private Sub PB_10_Click(sender As Object, e As EventArgs) Handles PB_10.Click
  1187. 頁面 = "2" : PA1 = 群組碼(10) : Set_清單1_1() : 物料_p.BringToFront()
  1188. End Sub
  1189. Private Sub PB_11_Click(sender As Object, e As EventArgs) Handles PB_11.Click
  1190. 頁面 = "2" : PA1 = 群組碼(11) : Set_清單1_1() : 物料_p.BringToFront()
  1191. End Sub
  1192. Private Sub PB_12_Click(sender As Object, e As EventArgs) Handles PB_12.Click
  1193. 頁面 = "2" : PA1 = 群組碼(12) : Set_清單1_1() : 物料_p.BringToFront()
  1194. End Sub
  1195. Private Sub PB_13_Click(sender As Object, e As EventArgs) Handles PB_13.Click
  1196. 頁面 = "2" : PA1 = 群組碼(13) : Set_清單1_1() : 物料_p.BringToFront()
  1197. End Sub
  1198. Private Sub PB_14_Click(sender As Object, e As EventArgs) Handles PB_14.Click
  1199. 頁面 = "2" : PA1 = 群組碼(14) : Set_清單1_1() : 物料_p.BringToFront()
  1200. End Sub
  1201. Private Sub PB_15_Click(sender As Object, e As EventArgs) Handles PB_15.Click
  1202. 頁面 = "2" : PA1 = 群組碼(15) : Set_清單1_1() : 物料_p.BringToFront()
  1203. End Sub
  1204. Private Sub PB_16_Click(sender As Object, e As EventArgs) Handles PB_16.Click
  1205. 頁面 = "2" : PA1 = 群組碼(16) : Set_清單1_1() : 物料_p.BringToFront()
  1206. End Sub
  1207. Private Sub PB_17_Click(sender As Object, e As EventArgs) Handles PB_17.Click
  1208. 頁面 = "2" : PA1 = 群組碼(17) : Set_清單1_1() : 物料_p.BringToFront()
  1209. End Sub
  1210. Private Sub PB_18_Click(sender As Object, e As EventArgs) Handles PB_18.Click
  1211. 頁面 = "2" : PA1 = 群組碼(18) : Set_清單1_1() : 物料_p.BringToFront()
  1212. End Sub
  1213. Private Sub PB_19_Click(sender As Object, e As EventArgs) Handles PB_19.Click
  1214. 頁面 = "2" : PA1 = 群組碼(19) : Set_清單1_1() : 物料_p.BringToFront()
  1215. End Sub
  1216. Private Sub PB_20_Click(sender As Object, e As EventArgs) Handles PB_20.Click
  1217. 頁面 = "2" : PA1 = 群組碼(20) : Set_清單1_1() : 物料_p.BringToFront()
  1218. End Sub
  1219. Private Sub PB_21_Click(sender As Object, e As EventArgs) Handles PB_21.Click
  1220. 頁面 = "2" : PA1 = 群組碼(21) : Set_清單1_1() : 物料_p.BringToFront()
  1221. End Sub
  1222. Private Sub TB_1_TextChanged(sender As Object, e As EventArgs) Handles TB_1.Click
  1223. 頁面 = "2" : PA1 = 群組碼(1) : Set_清單1_1() : 物料_p.BringToFront()
  1224. End Sub
  1225. Private Sub TB_2_TextChanged(sender As Object, e As EventArgs) Handles TB_2.Click
  1226. 頁面 = "2" : PA1 = 群組碼(2) : Set_清單1_1() : 物料_p.BringToFront()
  1227. End Sub
  1228. Private Sub TB_3_TextChanged(sender As Object, e As EventArgs) Handles TB_3.Click
  1229. 頁面 = "2" : PA1 = 群組碼(3) : Set_清單1_1() : 物料_p.BringToFront()
  1230. End Sub
  1231. Private Sub TB_4_TextChanged(sender As Object, e As EventArgs) Handles TB_4.Click
  1232. 頁面 = "2" : PA1 = 群組碼(4) : Set_清單1_1() : 物料_p.BringToFront()
  1233. End Sub
  1234. Private Sub TB_5_TextChanged(sender As Object, e As EventArgs) Handles TB_5.Click
  1235. 頁面 = "2" : PA1 = 群組碼(5) : Set_清單1_1() : 物料_p.BringToFront()
  1236. End Sub
  1237. Private Sub TB_6_TextChanged(sender As Object, e As EventArgs) Handles TB_6.Click
  1238. 頁面 = "2" : PA1 = 群組碼(6) : Set_清單1_1() : 物料_p.BringToFront()
  1239. End Sub
  1240. Private Sub TB_7_TextChanged(sender As Object, e As EventArgs) Handles TB_7.Click
  1241. 頁面 = "2" : PA1 = 群組碼(7) : Set_清單1_1() : 物料_p.BringToFront()
  1242. End Sub
  1243. Private Sub TB_8_TextChanged(sender As Object, e As EventArgs) Handles TB_8.Click
  1244. 頁面 = "2" : PA1 = 群組碼(8) : Set_清單1_1() : 物料_p.BringToFront()
  1245. End Sub
  1246. Private Sub TB_9_TextChanged(sender As Object, e As EventArgs) Handles TB_9.Click
  1247. 頁面 = "2" : PA1 = 群組碼(9) : Set_清單1_1() : 物料_p.BringToFront()
  1248. End Sub
  1249. Private Sub TB_10_TextChanged(sender As Object, e As EventArgs) Handles TB_10.Click
  1250. 頁面 = "2" : PA1 = 群組碼(10) : Set_清單1_1() : 物料_p.BringToFront()
  1251. End Sub
  1252. Private Sub TB_11_TextChanged(sender As Object, e As EventArgs) Handles TB_11.Click
  1253. 頁面 = "2" : PA1 = 群組碼(11) : Set_清單1_1() : 物料_p.BringToFront()
  1254. End Sub
  1255. Private Sub TB_12_TextChanged(sender As Object, e As EventArgs) Handles TB_12.Click
  1256. 頁面 = "2" : PA1 = 群組碼(12) : Set_清單1_1() : 物料_p.BringToFront()
  1257. End Sub
  1258. Private Sub TB_13_TextChanged(sender As Object, e As EventArgs) Handles TB_13.Click
  1259. 頁面 = "2" : PA1 = 群組碼(13) : Set_清單1_1() : 物料_p.BringToFront()
  1260. End Sub
  1261. Private Sub TB_14_TextChanged(sender As Object, e As EventArgs) Handles TB_14.Click
  1262. 頁面 = "2" : PA1 = 群組碼(14) : Set_清單1_1() : 物料_p.BringToFront()
  1263. End Sub
  1264. Private Sub TB_15_TextChanged(sender As Object, e As EventArgs) Handles TB_15.Click
  1265. 頁面 = "2" : PA1 = 群組碼(15) : Set_清單1_1() : 物料_p.BringToFront()
  1266. End Sub
  1267. Private Sub TB_16_TextChanged(sender As Object, e As EventArgs) Handles TB_16.Click
  1268. 頁面 = "2" : PA1 = 群組碼(16) : Set_清單1_1() : 物料_p.BringToFront()
  1269. End Sub
  1270. Private Sub TB_17_TextChanged(sender As Object, e As EventArgs) Handles TB_17.Click
  1271. 頁面 = "2" : PA1 = 群組碼(17) : Set_清單1_1() : 物料_p.BringToFront()
  1272. End Sub
  1273. Private Sub TB_18_TextChanged(sender As Object, e As EventArgs) Handles TB_18.Click
  1274. 頁面 = "2" : PA1 = 群組碼(18) : Set_清單1_1() : 物料_p.BringToFront()
  1275. End Sub
  1276. Private Sub TB_19_TextChanged(sender As Object, e As EventArgs) Handles TB_19.Click
  1277. 頁面 = "2" : PA1 = 群組碼(19) : Set_清單1_1() : 物料_p.BringToFront()
  1278. End Sub
  1279. Private Sub TB_20_TextChanged(sender As Object, e As EventArgs) Handles TB_20.Click
  1280. 頁面 = "2" : PA1 = 群組碼(20) : Set_清單1_1() : 物料_p.BringToFront()
  1281. End Sub
  1282. Private Sub TB_21_TextChanged(sender As Object, e As EventArgs) Handles TB_21.Click
  1283. 頁面 = "2" : PA1 = 群組碼(21) : Set_清單1_1() : 物料_p.BringToFront()
  1284. End Sub
  1285. Private Sub 風格()
  1286. If 深色風格 = False Then
  1287. Me.BackColor = SystemColors.Control
  1288. 切換_lb.ForeColor = Color.Black : Label7.ForeColor = Color.Black : 料號_lb.ForeColor = Color.Black : 庫存量_lb.ForeColor = Color.Black
  1289. 最大庫存量_lb.ForeColor = Color.Black : 可申請_lb.ForeColor = Color.Black : 詳細資料2_ch.ForeColor = Color.Black : Label1.ForeColor = Color.Black
  1290. 小間距_ch.ForeColor = Color.Black : 中間距_ch.ForeColor = Color.Black : 大間距_ch.ForeColor = Color.Black : 小間距1_ch.ForeColor = Color.Black
  1291. 中間距1_ch.ForeColor = Color.Black : 大間距1_ch.ForeColor = Color.Black : 已審核_lb.ForeColor = Color.Black : 未審核_lb.ForeColor = Color.Black
  1292. 已作廢_lb.ForeColor = Color.Black : 未審核1_lb.ForeColor = Color.Black : 料號1_lb.ForeColor = Color.Black : 庫存量1_lb.ForeColor = Color.Black
  1293. 最大庫存量1_lb.ForeColor = Color.Black : 可申請1_lb.ForeColor = Color.Black : 已審核1_lb.ForeColor = Color.Black : 已作廢1_lb.ForeColor = Color.Black
  1294. Label4.ForeColor = Color.Black : 合約號_lb.ForeColor = Color.Black : Label35.ForeColor = Color.Black : 請購單號_lb.ForeColor = Color.Black
  1295. 申請日期_lb.ForeColor = Color.Black : Label7.ForeColor = Color.Black : 選擇_lb.ForeColor = Color.Black : 項次_lb.ForeColor = Color.Black
  1296. 申請人_lb.ForeColor = Color.Black
  1297. 指定倉庫_lb.ForeColor = Color.MediumVioletRed : 操作_lb.ForeColor = Color.Blue : 群組編碼_lb.ForeColor = Color.MediumVioletRed : 未審核_rb.ForeColor = Color.Blue
  1298. 已作廢_rb.ForeColor = Color.Red : 已審核_rb.ForeColor = Color.Green : 申請數_lb.ForeColor = Color.MediumVioletRed : 甲方_lb.ForeColor = Color.Blue
  1299. 已作廢1_rb.ForeColor = Color.Red : 已審核1_rb.ForeColor = Color.Green : 申請數1_lb.ForeColor = Color.MediumVioletRed : 未審核1_rb.ForeColor = Color.Blue
  1300. 需求日期_lb.ForeColor = Color.MediumVioletRed
  1301. 料號_tb.BackColor = Color.White : 料號_tb.ForeColor = Color.Black : 申請數_nud.BackColor = Color.White : 申請數_nud.ForeColor = Color.Black
  1302. 庫存量_tb.BackColor = Color.White : 庫存量_tb.ForeColor = Color.Black : 語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black
  1303. 最大庫存量_tb.BackColor = Color.White : 最大庫存量_tb.ForeColor = Color.Black : 請購單號_tb.BackColor = Color.White : 請購單號_tb.ForeColor = Color.Black
  1304. 可申請_tb.BackColor = Color.White : 可申請_tb.ForeColor = Color.Black : 複製_bt.BackColor = Color.White : 複製_bt.ForeColor = Color.Green
  1305. 新增_bt.BackColor = Color.White : 新增_bt.ForeColor = Color.MediumVioletRed : 料號1_tb.BackColor = Color.White : 料號1_tb.ForeColor = Color.Black
  1306. 庫存量1_tb.BackColor = Color.White : 庫存量1_tb.ForeColor = Color.Black : 最大庫存量1_tb.BackColor = Color.White : 最大庫存量1_tb.ForeColor = Color.Black
  1307. 可申請1_tb.BackColor = Color.White : 可申請1_tb.ForeColor = Color.Black : 申請數1_nud.BackColor = Color.White : 申請數1_nud.ForeColor = Color.Black
  1308. 申請人_tb.BackColor = Color.White : 申請人_tb.ForeColor = Color.Black : 備註_tb.BackColor = Color.White : 備註_tb.ForeColor = Color.Black
  1309. 合約編號1_tb.BackColor = Color.White : 合約編號1_tb.ForeColor = Color.Black : 合約編號2_tb.BackColor = Color.White : 合約編號2_tb.ForeColor = Color.Black
  1310. 合約編號3_tb.BackColor = Color.White : 合約編號3_tb.ForeColor = Color.Black : 項次_tb.BackColor = Color.White : 項次_tb.ForeColor = Color.Black
  1311. 重新整理_bt.BackColor = Color.White : 重新整理_bt.ForeColor = Color.Black : 等待_lb.BackColor = Color.White : 等待_lb.ForeColor = Color.Black
  1312. TB_1.BackColor = Color.White : TB_1.ForeColor = Color.Black : TB_2.BackColor = Color.White : TB_2.ForeColor = Color.Black
  1313. TB_3.BackColor = Color.White : TB_3.ForeColor = Color.Black : TB_4.BackColor = Color.White : TB_4.ForeColor = Color.Black
  1314. TB_5.BackColor = Color.White : TB_5.ForeColor = Color.Black : TB_6.BackColor = Color.White : TB_6.ForeColor = Color.Black
  1315. TB_7.BackColor = Color.White : TB_7.ForeColor = Color.Black : TB_8.BackColor = Color.White : TB_8.ForeColor = Color.Black
  1316. TB_9.BackColor = Color.White : TB_9.ForeColor = Color.Black : TB_10.BackColor = Color.White : TB_10.ForeColor = Color.Black
  1317. TB_11.BackColor = Color.White : TB_11.ForeColor = Color.Black : TB_12.BackColor = Color.White : TB_12.ForeColor = Color.Black
  1318. TB_13.BackColor = Color.White : TB_13.ForeColor = Color.Black : TB_14.BackColor = Color.White : TB_14.ForeColor = Color.Black
  1319. TB_15.BackColor = Color.White : TB_15.ForeColor = Color.Black : TB_16.BackColor = Color.White : TB_16.ForeColor = Color.Black
  1320. TB_17.BackColor = Color.White : TB_17.ForeColor = Color.Black : TB_18.BackColor = Color.White : TB_18.ForeColor = Color.Black
  1321. TB_19.BackColor = Color.White : TB_19.ForeColor = Color.Black : TB_20.BackColor = Color.White : TB_20.ForeColor = Color.Black
  1322. TB_21.BackColor = Color.White : TB_21.ForeColor = Color.Black : 刪除請購單上點選資料_bt.BackColor = Color.White : 刪除請購單上點選資料_bt.ForeColor = Color.Red
  1323. 開立建築物料請購單_bt.BackColor = Color.White : 開立建築物料請購單_bt.ForeColor = Color.MediumVioletRed
  1324. 申請完成_bt.BackColor = Color.White : 申請完成_bt.ForeColor = Color.MediumVioletRed : 刪除_bt.BackColor = Color.White : 刪除_bt.ForeColor = Color.Red
  1325. 搜尋_bt.BackColor = Color.White : 回首頁_bt.BackColor = Color.White : 回次頁_bt.BackColor = Color.White : 新增1_bt.BackColor = Color.White
  1326. 搜尋1_bt.BackColor = Color.White : 單據_bt.BackColor = Color.White : 縮放3_bt.BackColor = Color.White
  1327. PB_1.BackColor = Color.White : PB_2.BackColor = Color.White : PB_3.BackColor = Color.White : PB_4.BackColor = Color.White : PB_5.BackColor = Color.White
  1328. PB_6.BackColor = Color.White : PB_7.BackColor = Color.White : PB_8.BackColor = Color.White : PB_9.BackColor = Color.White : PB_10.BackColor = Color.White
  1329. PB_11.BackColor = Color.White : PB_12.BackColor = Color.White : PB_13.BackColor = Color.White : PB_14.BackColor = Color.White : PB_15.BackColor = Color.White
  1330. PB_16.BackColor = Color.White : PB_17.BackColor = Color.White : PB_18.BackColor = Color.White : PB_19.BackColor = Color.White : PB_20.BackColor = Color.White
  1331. PB_21.BackColor = Color.White
  1332. 指定倉庫_cb.BackColor = Color.White : 指定倉庫_cb.ForeColor = Color.Black : 合約編號_cb.BackColor = Color.White : 合約編號_cb.ForeColor = Color.Black
  1333. 合約編號1_cb.BackColor = Color.White : 合約編號1_cb.ForeColor = Color.Black : 新群組1_cb.BackColor = Color.White : 新群組1_cb.ForeColor = Color.Black
  1334. 物料清單_dgv.EnableHeadersVisualStyles = True : 物料清單_dgv.BackgroundColor = Color.White : 物料清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
  1335. 物料清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightPink
  1336. 物料清單_dgv.DefaultCellStyle.BackColor = Color.White : 物料清單_dgv.DefaultCellStyle.ForeColor = Color.Black
  1337. 物料規格_dgv.EnableHeadersVisualStyles = True : 物料規格_dgv.BackgroundColor = Color.White : 物料規格_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
  1338. 物料規格_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue
  1339. 物料規格_dgv.DefaultCellStyle.BackColor = Color.White : 物料規格_dgv.DefaultCellStyle.ForeColor = Color.Black
  1340. 未核准_dgv.EnableHeadersVisualStyles = True : 未核准_dgv.BackgroundColor = Color.White : 未核准_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
  1341. 未核准_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGray
  1342. 未核准_dgv.DefaultCellStyle.BackColor = Color.White : 未核准_dgv.DefaultCellStyle.ForeColor = Color.Black
  1343. 已核准_dgv.EnableHeadersVisualStyles = True : 已核准_dgv.BackgroundColor = Color.White : 已核准_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
  1344. 已核准_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGray
  1345. 已核准_dgv.DefaultCellStyle.BackColor = Color.White : 已核准_dgv.DefaultCellStyle.ForeColor = Color.Black
  1346. 作廢清單_dgv.EnableHeadersVisualStyles = True : 作廢清單_dgv.BackgroundColor = Color.White : 作廢清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
  1347. 作廢清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGray
  1348. 作廢清單_dgv.DefaultCellStyle.BackColor = Color.White : 作廢清單_dgv.DefaultCellStyle.ForeColor = Color.Black
  1349. 物料清單1_dgv.EnableHeadersVisualStyles = True : 物料清單1_dgv.BackgroundColor = Color.White : 物料清單1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
  1350. 物料清單1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightPink
  1351. 物料清單1_dgv.DefaultCellStyle.BackColor = Color.White : 物料清單1_dgv.DefaultCellStyle.ForeColor = Color.Black
  1352. 作廢清單1_dgv.EnableHeadersVisualStyles = True : 作廢清單1_dgv.BackgroundColor = Color.White : 作廢清單1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
  1353. 作廢清單1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue
  1354. 作廢清單1_dgv.DefaultCellStyle.BackColor = Color.White : 作廢清單1_dgv.DefaultCellStyle.ForeColor = Color.Black
  1355. 未核准1_dgv.EnableHeadersVisualStyles = True : 未核准1_dgv.BackgroundColor = Color.White : 未核准1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
  1356. 未核准1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue
  1357. 未核准1_dgv.DefaultCellStyle.BackColor = Color.White : 未核准1_dgv.DefaultCellStyle.ForeColor = Color.Black
  1358. 已核准1_dgv.EnableHeadersVisualStyles = True : 已核准1_dgv.BackgroundColor = Color.White : 已核准1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
  1359. 已核准1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue
  1360. 已核准1_dgv.DefaultCellStyle.BackColor = Color.White : 已核准1_dgv.DefaultCellStyle.ForeColor = Color.Black
  1361. 合約1_dgv.EnableHeadersVisualStyles = True : 合約1_dgv.BackgroundColor = Color.White : 合約1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
  1362. 合約1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue
  1363. 合約1_dgv.DefaultCellStyle.BackColor = Color.White : 合約1_dgv.DefaultCellStyle.ForeColor = Color.Black
  1364. 物料規格1_dgv.EnableHeadersVisualStyles = True : 物料規格1_dgv.BackgroundColor = Color.White : 物料規格1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
  1365. 物料規格1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGray
  1366. 物料規格1_dgv.DefaultCellStyle.BackColor = Color.White : 物料規格1_dgv.DefaultCellStyle.ForeColor = Color.Black
  1367. 請購明細_dgv.EnableHeadersVisualStyles = True : 請購明細_dgv.BackgroundColor = Color.White : 請購明細_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
  1368. 物料規格1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGray
  1369. 請購明細_dgv.DefaultCellStyle.BackColor = Color.White : 請購明細_dgv.DefaultCellStyle.ForeColor = Color.Black
  1370. Else
  1371. Me.BackColor = Color.Black
  1372. 切換_lb.ForeColor = Color.White : Label7.ForeColor = Color.White : 料號_lb.ForeColor = Color.White : 庫存量_lb.ForeColor = Color.White
  1373. 最大庫存量_lb.ForeColor = Color.White : 可申請_lb.ForeColor = Color.White : 詳細資料2_ch.ForeColor = Color.White : Label1.ForeColor = Color.White
  1374. 小間距_ch.ForeColor = Color.White : 中間距_ch.ForeColor = Color.White : 大間距_ch.ForeColor = Color.White : 小間距1_ch.ForeColor = Color.White
  1375. 中間距1_ch.ForeColor = Color.White : 大間距1_ch.ForeColor = Color.White : 已審核_lb.ForeColor = Color.White : 未審核_lb.ForeColor = Color.White
  1376. 已作廢_lb.ForeColor = Color.White : 未審核1_lb.ForeColor = Color.White : 料號1_lb.ForeColor = Color.White : 庫存量1_lb.ForeColor = Color.White
  1377. 最大庫存量1_lb.ForeColor = Color.White : 可申請1_lb.ForeColor = Color.White : 已審核1_lb.ForeColor = Color.White : 已作廢1_lb.ForeColor = Color.White
  1378. Label4.ForeColor = Color.White : 合約號_lb.ForeColor = Color.White : Label35.ForeColor = Color.White : 請購單號_lb.ForeColor = Color.White
  1379. 申請日期_lb.ForeColor = Color.White : Label7.ForeColor = Color.White : 選擇_lb.ForeColor = Color.White : 項次_lb.ForeColor = Color.White
  1380. 申請人_lb.ForeColor = Color.White
  1381. 指定倉庫_lb.ForeColor = Color.Fuchsia : 操作_lb.ForeColor = Color.LightBlue : 群組編碼_lb.ForeColor = Color.Fuchsia : 未審核_rb.ForeColor = Color.LightBlue
  1382. 已作廢_rb.ForeColor = Color.LightPink : 已審核_rb.ForeColor = Color.LightGreen : 申請數_lb.ForeColor = Color.Fuchsia : 甲方_lb.ForeColor = Color.LightBlue
  1383. 已作廢1_rb.ForeColor = Color.LightPink : 已審核1_rb.ForeColor = Color.LightGreen : 申請數1_lb.ForeColor = Color.Fuchsia : 未審核1_rb.ForeColor = Color.LightBlue
  1384. 需求日期_lb.ForeColor = Color.Fuchsia
  1385. 指定倉庫_cb.BackColor = Color.DimGray : 指定倉庫_cb.ForeColor = Color.White : 合約編號_cb.BackColor = Color.DimGray : 合約編號_cb.ForeColor = Color.White
  1386. 合約編號1_cb.BackColor = Color.DimGray : 合約編號1_cb.ForeColor = Color.White : 新群組1_cb.BackColor = Color.DimGray : 新群組1_cb.ForeColor = Color.White
  1387. 料號_tb.BackColor = Color.DimGray : 料號_tb.ForeColor = Color.White : 申請數_nud.BackColor = Color.DimGray : 申請數_nud.ForeColor = Color.White
  1388. 庫存量_tb.BackColor = Color.DimGray : 庫存量_tb.ForeColor = Color.White : 語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White
  1389. 最大庫存量_tb.BackColor = Color.DimGray : 最大庫存量_tb.ForeColor = Color.White : 請購單號_tb.BackColor = Color.DimGray : 請購單號_tb.ForeColor = Color.White
  1390. 可申請_tb.BackColor = Color.DimGray : 可申請_tb.ForeColor = Color.White : 複製_bt.BackColor = Color.DimGray : 複製_bt.ForeColor = Color.LightGreen
  1391. 新增_bt.BackColor = Color.DimGray : 新增_bt.ForeColor = Color.Fuchsia : 料號1_tb.BackColor = Color.DimGray : 料號1_tb.ForeColor = Color.White
  1392. 庫存量1_tb.BackColor = Color.DimGray : 庫存量1_tb.ForeColor = Color.White : 最大庫存量1_tb.BackColor = Color.DimGray : 最大庫存量1_tb.ForeColor = Color.White
  1393. 可申請1_tb.BackColor = Color.DimGray : 可申請1_tb.ForeColor = Color.White : 申請數1_nud.BackColor = Color.DimGray : 申請數1_nud.ForeColor = Color.White
  1394. 申請人_tb.BackColor = Color.DimGray : 申請人_tb.ForeColor = Color.White : 備註_tb.BackColor = Color.DimGray : 備註_tb.ForeColor = Color.White
  1395. 合約編號1_tb.BackColor = Color.DimGray : 合約編號1_tb.ForeColor = Color.White : 合約編號2_tb.BackColor = Color.DimGray : 合約編號2_tb.ForeColor = Color.White
  1396. 合約編號3_tb.BackColor = Color.DimGray : 合約編號3_tb.ForeColor = Color.White : 項次_tb.BackColor = Color.DimGray : 項次_tb.ForeColor = Color.White
  1397. 重新整理_bt.BackColor = Color.DimGray : 重新整理_bt.ForeColor = Color.White : 等待_lb.BackColor = Color.DimGray : 等待_lb.ForeColor = Color.White
  1398. TB_1.BackColor = Color.Black : TB_1.ForeColor = Color.White : TB_2.BackColor = Color.Black : TB_2.ForeColor = Color.White
  1399. TB_3.BackColor = Color.Black : TB_3.ForeColor = Color.White : TB_4.BackColor = Color.Black : TB_4.ForeColor = Color.White
  1400. TB_5.BackColor = Color.Black : TB_5.ForeColor = Color.White : TB_6.BackColor = Color.Black : TB_6.ForeColor = Color.White
  1401. TB_7.BackColor = Color.Black : TB_7.ForeColor = Color.White : TB_8.BackColor = Color.Black : TB_8.ForeColor = Color.White
  1402. TB_9.BackColor = Color.Black : TB_9.ForeColor = Color.White : TB_10.BackColor = Color.Black : TB_10.ForeColor = Color.White
  1403. TB_11.BackColor = Color.Black : TB_11.ForeColor = Color.White : TB_12.BackColor = Color.Black : TB_12.ForeColor = Color.White
  1404. TB_13.BackColor = Color.Black : TB_13.ForeColor = Color.White : TB_14.BackColor = Color.Black : TB_14.ForeColor = Color.White
  1405. TB_15.BackColor = Color.Black : TB_15.ForeColor = Color.White : TB_16.BackColor = Color.Black : TB_16.ForeColor = Color.White
  1406. TB_17.BackColor = Color.Black : TB_17.ForeColor = Color.White : TB_18.BackColor = Color.Black : TB_18.ForeColor = Color.White
  1407. TB_19.BackColor = Color.Black : TB_19.ForeColor = Color.White : TB_20.BackColor = Color.Black : TB_20.ForeColor = Color.White
  1408. TB_21.BackColor = Color.Black : TB_21.ForeColor = Color.White : 刪除請購單上點選資料_bt.BackColor = Color.DimGray : 刪除請購單上點選資料_bt.ForeColor = Color.LightPink
  1409. 開立建築物料請購單_bt.BackColor = Color.DimGray : 開立建築物料請購單_bt.ForeColor = Color.Fuchsia
  1410. 申請完成_bt.BackColor = Color.DimGray : 申請完成_bt.ForeColor = Color.Fuchsia : 刪除_bt.BackColor = Color.DimGray : 刪除_bt.ForeColor = Color.LightPink
  1411. 搜尋_bt.BackColor = Color.DimGray : 回首頁_bt.BackColor = Color.DimGray : 回次頁_bt.BackColor = Color.DimGray : 新增1_bt.BackColor = Color.DimGray
  1412. 搜尋1_bt.BackColor = Color.DimGray : 單據_bt.BackColor = Color.DimGray : 縮放3_bt.BackColor = Color.DimGray
  1413. PB_1.BackColor = Color.DimGray : PB_2.BackColor = Color.DimGray : PB_3.BackColor = Color.DimGray : PB_4.BackColor = Color.DimGray : PB_5.BackColor = Color.DimGray
  1414. PB_6.BackColor = Color.DimGray : PB_7.BackColor = Color.DimGray : PB_8.BackColor = Color.DimGray : PB_9.BackColor = Color.DimGray : PB_10.BackColor = Color.DimGray
  1415. PB_11.BackColor = Color.DimGray : PB_12.BackColor = Color.DimGray : PB_13.BackColor = Color.DimGray : PB_14.BackColor = Color.DimGray : PB_15.BackColor = Color.DimGray
  1416. PB_16.BackColor = Color.DimGray : PB_17.BackColor = Color.DimGray : PB_18.BackColor = Color.DimGray : PB_19.BackColor = Color.DimGray : PB_20.BackColor = Color.DimGray
  1417. PB_21.BackColor = Color.DimGray
  1418. 物料清單_dgv.EnableHeadersVisualStyles = False : 物料清單_dgv.BackgroundColor = Color.DimGray : 物料清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
  1419. 物料清單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 物料清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
  1420. 物料清單_dgv.DefaultCellStyle.BackColor = Color.Black : 物料清單_dgv.DefaultCellStyle.ForeColor = Color.White
  1421. 物料規格_dgv.EnableHeadersVisualStyles = False : 物料規格_dgv.BackgroundColor = Color.DimGray : 物料規格_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
  1422. 物料規格_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 物料規格_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
  1423. 物料規格_dgv.DefaultCellStyle.BackColor = Color.Black : 物料規格_dgv.DefaultCellStyle.ForeColor = Color.White
  1424. 未核准_dgv.EnableHeadersVisualStyles = False : 未核准_dgv.BackgroundColor = Color.DimGray : 未核准_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
  1425. 未核准_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 未核准_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
  1426. 未核准_dgv.DefaultCellStyle.BackColor = Color.Black : 未核准_dgv.DefaultCellStyle.ForeColor = Color.White
  1427. 已核准_dgv.EnableHeadersVisualStyles = False : 已核准_dgv.BackgroundColor = Color.DimGray : 已核准_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
  1428. 已核准_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 已核准_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
  1429. 已核准_dgv.DefaultCellStyle.BackColor = Color.Black : 已核准_dgv.DefaultCellStyle.ForeColor = Color.White
  1430. 作廢清單_dgv.EnableHeadersVisualStyles = False : 作廢清單_dgv.BackgroundColor = Color.DimGray : 作廢清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
  1431. 作廢清單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 作廢清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
  1432. 作廢清單_dgv.DefaultCellStyle.BackColor = Color.Black : 作廢清單_dgv.DefaultCellStyle.ForeColor = Color.White
  1433. 物料清單1_dgv.EnableHeadersVisualStyles = False : 物料清單1_dgv.BackgroundColor = Color.DimGray : 物料清單1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
  1434. 物料清單1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 物料清單1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
  1435. 物料清單1_dgv.DefaultCellStyle.BackColor = Color.Black : 物料清單1_dgv.DefaultCellStyle.ForeColor = Color.White
  1436. 作廢清單1_dgv.EnableHeadersVisualStyles = False : 作廢清單1_dgv.BackgroundColor = Color.DimGray : 作廢清單1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
  1437. 作廢清單1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 作廢清單1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
  1438. 作廢清單1_dgv.DefaultCellStyle.BackColor = Color.Black : 作廢清單1_dgv.DefaultCellStyle.ForeColor = Color.White
  1439. 未核准1_dgv.EnableHeadersVisualStyles = False : 未核准1_dgv.BackgroundColor = Color.DimGray : 未核准1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
  1440. 未核准1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 未核准1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
  1441. 未核准1_dgv.DefaultCellStyle.BackColor = Color.Black : 未核准1_dgv.DefaultCellStyle.ForeColor = Color.White
  1442. 已核准1_dgv.EnableHeadersVisualStyles = False : 已核准1_dgv.BackgroundColor = Color.DimGray : 已核准1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
  1443. 已核准1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 已核准1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
  1444. 已核准1_dgv.DefaultCellStyle.BackColor = Color.Black : 已核准1_dgv.DefaultCellStyle.ForeColor = Color.White
  1445. 合約1_dgv.EnableHeadersVisualStyles = False : 合約1_dgv.BackgroundColor = Color.DimGray : 合約1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
  1446. 合約1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合約1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
  1447. 合約1_dgv.DefaultCellStyle.BackColor = Color.Black : 合約1_dgv.DefaultCellStyle.ForeColor = Color.White
  1448. 物料規格1_dgv.EnableHeadersVisualStyles = False : 物料規格1_dgv.BackgroundColor = Color.DimGray : 物料規格1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
  1449. 物料規格1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 物料規格1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
  1450. 物料規格1_dgv.DefaultCellStyle.BackColor = Color.Black : 物料規格1_dgv.DefaultCellStyle.ForeColor = Color.White
  1451. 請購明細_dgv.EnableHeadersVisualStyles = False : 請購明細_dgv.BackgroundColor = Color.DimGray : 請購明細_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
  1452. 請購明細_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 請購明細_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
  1453. 請購明細_dgv.DefaultCellStyle.BackColor = Color.Black : 請購明細_dgv.DefaultCellStyle.ForeColor = Color.White
  1454. End If
  1455. End Sub
  1456. End Class