HX-PGS-ERP-SYS
/
HX-PGS-ERP-SYS-LEEHSIEHJUI
Watch 4
Star 0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
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.
7 Commits
1 Branch
Tree: ffdb5b9c73
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'ffdb5b9c73'
${ noResults }
HX-PGS-ERP-SYS-LEEHSIEHJUI/02、採購管理系統/物料請採購/請購單申請.vb

請購單申請.vb 138KB
History Raw

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462 
  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. 

  18.         For i As Integer = 1 To 38 : 合約1_dgv.Columns(i).Visible = False : Next

  19.         If 系統語言 = "繁體中文" Then : 合約1_dgv.Columns("工程名稱").Visible = True : 合約1_dgv.Columns("Nama Proyek").Visible = False

  20.         Else : 合約1_dgv.Columns("工程名稱").Visible = False : 合約1_dgv.Columns("Nama Proyek").Visible = True : End If

  21.     End Sub

  22.     Private Sub Set_群組清單()

  23.         Dim ds1 As New DataSet : 群組分類_dgv.DataSource = Nothing : ds1.Clear()

  24.         群組分類_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  25.         群組分類_dgv.ColumnHeadersHeight = 25 : 群組分類_dgv.AllowUserToAddRows = False : 群組分類_dgv.RowTemplate.Height = 45

  26.         SQL_物料群組() : da.Fill(ds1) : 群組分類_dgv.DataSource = ds1.Tables(0) : conn.Close() : 次項變形()

  27.     End Sub

  28.     Private Sub Set_主管清單()

  29.         Dim ds1 As New DataSet : 主管_dgv.DataSource = Nothing : ds1.Clear()

  30.         主管_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  31.         主管_dgv.ColumnHeadersHeight = 25 : 主管_dgv.AllowUserToAddRows = False : 主管_dgv.RowTemplate.Height = 45

  32.         SQL_系統組織結構圖_單位主管1() : da.Fill(ds1) : 主管_dgv.DataSource = ds1.Tables(0) : conn.Close()

  33.         主管_dgv.Columns(0).FillWeight = 100 : 主管_dgv.Columns(1).FillWeight = 50 : 主管_dgv.Columns(2).FillWeight = 150

  34.     End Sub

  35.     Private Sub Set_清單2()

  36.         Dim ds1 As New DataSet : 未核准_dgv.DataSource = Nothing : 未核准1_dgv.DataSource = Nothing : ds1.Clear()

  37.         未核准_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  38.         未核准_dgv.ColumnHeadersHeight = 40 : 未核准_dgv.AllowUserToAddRows = False

  39.         未核准1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  40.         未核准1_dgv.ColumnHeadersHeight = 40 : 未核准1_dgv.AllowUserToAddRows = False

  41.         SQL_建築物料請購單申請_未核准()

  42.         da.Fill(ds1) : 未核准_dgv.DataSource = ds1.Tables(0) : 未核准1_dgv.DataSource = ds1.Tables(0) : conn.Close()

  43.         未核准_dgv.Columns(0).FillWeight = 120 : 未核准_dgv.Columns(1).FillWeight = 160 : 未核准_dgv.Columns(2).FillWeight = 90 : 未核准_dgv.Columns(3).Visible = False

  44.         未核准_dgv.Columns(4).Visible = False : 未核准_dgv.Columns(5).Visible = False : 未核准_dgv.Columns(7).Visible = False : 未核准_dgv.Columns(8).Visible = False

  45.         未核准_dgv.Columns(9).Visible = False : 未核准_dgv.Columns(10).Visible = False : 未核准_dgv.Columns(11).Visible = False : 未核准_dgv.Columns(6).FillWeight = 120

  46. 

  47.         未核准1_dgv.Columns(0).FillWeight = 120 : 未核准1_dgv.Columns(1).FillWeight = 160 : 未核准1_dgv.Columns(2).FillWeight = 90 : 未核准1_dgv.Columns(3).Visible = False

  48.         未核准1_dgv.Columns(4).Visible = False : 未核准1_dgv.Columns(5).Visible = False : 未核准1_dgv.Columns(7).Visible = False : 未核准1_dgv.Columns(8).Visible = False

  49.         未核准1_dgv.Columns(9).Visible = False : 未核准1_dgv.Columns(10).Visible = False : 未核准1_dgv.Columns(11).Visible = False : 未核准1_dgv.Columns(6).FillWeight = 120

  50.     End Sub

  51.     Private Sub Set_清單3()

  52.         Dim ds3 As New DataSet : 作廢清單_dgv.DataSource = Nothing : 作廢清單1_dgv.DataSource = Nothing : ds3.Clear()

  53.         作廢清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  54.         作廢清單_dgv.ColumnHeadersHeight = 40 : 作廢清單_dgv.AllowUserToAddRows = False

  55.         作廢清單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  56.         作廢清單1_dgv.ColumnHeadersHeight = 40 : 作廢清單1_dgv.AllowUserToAddRows = False

  57.         SQL_建築物料請購單申請_作廢清單()

  58.         da.Fill(ds3) : 作廢清單_dgv.DataSource = ds3.Tables(0) : 作廢清單1_dgv.DataSource = ds3.Tables(0) : conn.Close()

  59.         作廢清單_dgv.Columns(0).FillWeight = 120 : 作廢清單_dgv.Columns(1).FillWeight = 160 : 作廢清單_dgv.Columns(2).FillWeight = 90 : 作廢清單_dgv.Columns(3).Visible = False

  60.         作廢清單_dgv.Columns(4).Visible = False : 作廢清單_dgv.Columns(5).Visible = False : 作廢清單_dgv.Columns(7).Visible = False : 作廢清單_dgv.Columns(8).Visible = False

  61.         作廢清單_dgv.Columns(9).Visible = False : 作廢清單_dgv.Columns(10).Visible = False : 作廢清單_dgv.Columns(11).Visible = False : 作廢清單_dgv.Columns(6).FillWeight = 120

  62. 

  63.         作廢清單1_dgv.Columns(0).FillWeight = 120 : 作廢清單1_dgv.Columns(1).FillWeight = 160 : 作廢清單1_dgv.Columns(2).FillWeight = 90 : 作廢清單1_dgv.Columns(3).Visible = False

  64.         作廢清單1_dgv.Columns(4).Visible = False : 作廢清單1_dgv.Columns(5).Visible = False : 作廢清單1_dgv.Columns(7).Visible = False : 作廢清單1_dgv.Columns(8).Visible = False

  65.         作廢清單1_dgv.Columns(9).Visible = False : 作廢清單1_dgv.Columns(10).Visible = False : 作廢清單1_dgv.Columns(11).Visible = False : 作廢清單1_dgv.Columns(6).FillWeight = 120

  66.     End Sub

  67.     Private Sub Set_清單4()

  68.         Dim ds6 As New DataSet : 已核准_dgv.DataSource = Nothing : 已核准1_dgv.DataSource = Nothing : ds6.Clear()

  69.         已核准_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  70.         已核准_dgv.ColumnHeadersHeight = 40 : 已核准_dgv.AllowUserToAddRows = False

  71.         已核准1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  72.         已核准1_dgv.ColumnHeadersHeight = 40 : 已核准1_dgv.AllowUserToAddRows = False

  73.         SQL_建築物料請購單申請_已核准()

  74.         da.Fill(ds6) : 已核准_dgv.DataSource = ds6.Tables(0) : 已核准1_dgv.DataSource = ds6.Tables(0) : conn.Close()

  75.         已核准_dgv.Columns(0).FillWeight = 120 : 已核准_dgv.Columns(1).FillWeight = 160 : 已核准_dgv.Columns(2).FillWeight = 90 : 已核准_dgv.Columns(3).Visible = False

  76.         已核准_dgv.Columns(4).Visible = False : 已核准_dgv.Columns(5).Visible = False : 已核准_dgv.Columns(7).Visible = False : 已核准_dgv.Columns(8).Visible = False

  77.         已核准_dgv.Columns(9).Visible = False : 已核准_dgv.Columns(10).Visible = False : 已核准_dgv.Columns(11).Visible = False : 已核准_dgv.Columns(6).FillWeight = 120

  78. 

  79.         已核准1_dgv.Columns(0).FillWeight = 120 : 已核准1_dgv.Columns(1).FillWeight = 160 : 已核准1_dgv.Columns(2).FillWeight = 90 : 已核准1_dgv.Columns(3).Visible = False

  80.         已核准1_dgv.Columns(4).Visible = False : 已核准1_dgv.Columns(5).Visible = False : 已核准1_dgv.Columns(7).Visible = False : 已核准1_dgv.Columns(8).Visible = False

  81.         已核准1_dgv.Columns(9).Visible = False : 已核准1_dgv.Columns(10).Visible = False : 已核准1_dgv.Columns(11).Visible = False : 已核准1_dgv.Columns(6).FillWeight = 120

  82.     End Sub

  83.     Private Sub Set_請購單清單()

  84.         Dim ds As New DataSet : 請購明細_dgv.DataSource = Nothing : ds.Clear()

  85.         請購明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  86.         請購明細_dgv.ColumnHeadersHeight = 30 : 請購明細_dgv.AllowUserToAddRows = False : 請購明細_dgv.RowTemplate.Height = 35

  87. 

  88.         If 小間距1_ch.Checked = False And 中間距1_ch.Checked = False And 大間距1_ch.Checked = True Then : 請購明細_dgv.RowTemplate.Height = 75

  89.         ElseIf 小間距1_ch.Checked = False And 中間距1_ch.Checked = True And 大間距1_ch.Checked = False Then : 請購明細_dgv.RowTemplate.Height = 45

  90.         ElseIf 小間距1_ch.Checked = True And 中間距1_ch.Checked = False And 大間距1_ch.Checked = False Then : 請購明細_dgv.RowTemplate.Height = 25 : End If

  91. 

  92.         SQL_建築物料請購單申請_請購單清單() : da.Fill(ds) : 請購明細_dgv.DataSource = ds.Tables(0) : conn.Close()

  93. 

  94.         請購明細_dgv.Columns(0).Visible = False : 請購明細_dgv.Columns(1).FillWeight = 70 : 請購明細_dgv.Columns(2).FillWeight = 200 : 請購明細_dgv.Columns(3).FillWeight = 200

  95.         請購明細_dgv.Columns(4).FillWeight = 80 : 請購明細_dgv.Columns(5).FillWeight = 70 : 請購明細_dgv.Columns(6).FillWeight = 100 : 請購明細_dgv.Columns(7).FillWeight = 100

  96.         請購明細_dgv.Columns(8).Visible = False : 請購明細_dgv.Columns(9).Visible = False : 請購明細_dgv.Columns(10).Visible = False : 請購明細_dgv.Columns(11).Visible = False

  97.         請購明細_dgv.Columns(12).Visible = False : 請購明細_dgv.Columns(13).Visible = False : 請購明細_dgv.Columns(14).Visible = False : 請購明細_dgv.Columns(15).Visible = False

  98.         請購明細_dgv.Columns(16).Visible = False : 請購明細_dgv.Columns(17).Visible = False : 請購明細_dgv.Columns(18).Visible = False : 請購明細_dgv.Columns(19).Visible = False

  99.         If 低網速模式 = False Then

  100.             請購明細_dgv.Columns(20).FillWeight = 80 : 請購明細_dgv.Columns(20).Visible = True

  101.             Dim mycol As DataGridViewImageColumn = 請購明細_dgv.Columns("圖檔")

  102.             mycol.ImageLayout = DataGridViewImageCellLayout.Zoom

  103.         Else : If 請購明細_dgv.Columns.Count = 21 Then : 請購明細_dgv.Columns(20).Visible = False : End If : End If

  104.         請購明細_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"

  105.         請購明細_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

  106.         請購明細_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  107.         請購明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter

  108.         請購明細_dgv.Columns(1).ReadOnly = True : 請購明細_dgv.Columns(2).ReadOnly = True : 請購明細_dgv.Columns(3).ReadOnly = True

  109.         請購明細_dgv.Columns(6).ReadOnly = True : 請購明細_dgv.Columns(7).ReadOnly = True

  110. 

  111.         For i As Integer = 0 To 請購明細_dgv.Rows.Count - 1

  112.             '-------------------------規格合併呈現----------------------------------------------------------------------------------------------------------------------------------------

  113.             If i = 0 Then

  114.                 PA3 = 請購明細_dgv.Rows(i).Cells("規格庫抬頭指定").Value : SQL_規格庫抬頭讀取()

  115.                 If dr.Read() Then

  116.                     AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")

  117.                 End If : conn.Close()

  118.             Else

  119.                 If 請購明細_dgv.Rows(i).Cells("規格庫抬頭指定").Value.ToString <> 請購明細_dgv.Rows(i - 1).Cells("規格庫抬頭指定").Value.ToString Then

  120.                     PA3 = 請購明細_dgv.Rows(i).Cells("規格庫抬頭指定").Value : SQL_規格庫抬頭讀取()

  121.                     If dr.Read() Then

  122.                         AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")

  123.                     End If : conn.Close()

  124.                 End If

  125.             End If

  126.             Dim ZA1, ZA2, ZA3, ZA4, ZA5, ZA6, ZA7, ZA8 As String : 物料規格 = ""

  127.             If 詳細資料2_ch.Checked = True Then

  128.                 If 請購明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" Then

  129.                     ZA1 = AAA1 & "=" & 請購明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 物料規格 = ZA1 : End If

  130.                 If 請購明細_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then : ZA2 = AAA2 & "=" & 請購明細_dgv.Rows(i).Cells("A2").Value

  131.                     If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If

  132.                 If 請購明細_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then : ZA3 = AAA3 & "=" & 請購明細_dgv.Rows(i).Cells("A3").Value

  133.                     If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If

  134.                 If 請購明細_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then : ZA4 = AAA4 & "=" & 請購明細_dgv.Rows(i).Cells("A4").Value

  135.                     If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If

  136.                 If 請購明細_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then : ZA5 = AAA5 & "=" & 請購明細_dgv.Rows(i).Cells("A5").Value

  137.                     If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If

  138.                 If 請購明細_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then : ZA6 = AAA6 & "=" & 請購明細_dgv.Rows(i).Cells("A6").Value

  139.                     If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If

  140.                 If 請購明細_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then : ZA7 = AAA7 & "=" & 請購明細_dgv.Rows(i).Cells("A7").Value

  141.                     If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If

  142.                 If 請購明細_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then : ZA8 = AAA8 & "=" & 請購明細_dgv.Rows(i).Cells("A8").Value

  143.                     If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If

  144.             Else

  145.                 If 請購明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" Then : ZA1 = 請購明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 物料規格 = ZA1 : End If

  146.                 If 請購明細_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then

  147.                     ZA2 = 請購明細_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If

  148.                 If 請購明細_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then

  149.                     ZA3 = 請購明細_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If

  150.                 If 請購明細_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then

  151.                     ZA4 = 請購明細_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If

  152.                 If 請購明細_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then

  153.                     ZA5 = 請購明細_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If

  154.                 If 請購明細_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then

  155.                     ZA6 = 請購明細_dgv.Rows(i).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If

  156.                 If 請購明細_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then

  157.                     ZA7 = 請購明細_dgv.Rows(i).Cells("A7").Value : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If

  158.                 If 請購明細_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then

  159.                     ZA8 = 請購明細_dgv.Rows(i).Cells("A8").Value : If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If

  160.             End If

  161.             請購明細_dgv.Rows(i).Cells(表頭(13)).Value = 物料規格

  162.         Next

  163.     End Sub

  164.     Private Sub Set_清單1()

  165.         PA1 = 群組碼_tb.Text

  166.         Dim ds4 As New DataSet : 物料清單_dgv.DataSource = Nothing : ds4.Clear()

  167.         物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  168.         物料清單_dgv.ColumnHeadersHeight = 25 : 物料清單_dgv.AllowUserToAddRows = False

  169.         If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then : 物料清單_dgv.RowTemplate.Height = 65

  170.         ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then : 物料清單_dgv.RowTemplate.Height = 45

  171.         ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then : 物料清單_dgv.RowTemplate.Height = 25 : End If

  172. 

  173.         ConnOpen() : SQL_建築物料請購單申請_物料清單一() : CmdSet_For_DGV() : da.Fill(ds4) : 物料清單_dgv.DataSource = ds4.Tables(0) : conn.Close()

  174.         物料清單_dgv.Columns(0).FillWeight = 20 : 物料清單_dgv.Columns(1).Visible = False : 物料清單_dgv.Columns(2).FillWeight = 175

  175.         物料清單_dgv.Columns(4).Visible = False : 物料清單_dgv.Columns(5).FillWeight = 45 : 物料清單_dgv.Columns(3).Visible = False

  176.         物料清單_dgv.Columns(0).ReadOnly = True : 物料清單_dgv.Columns(1).ReadOnly = True : 物料清單_dgv.Columns(2).ReadOnly = True

  177.         For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1 : 物料清單_dgv(0, i).Value = i + 1 : Next

  178.         If 低網速模式 = False Then

  179.             物料清單_dgv.Columns(6).FillWeight = 50 : 物料清單_dgv.Columns(6).Visible = True

  180.             Dim mycol As DataGridViewImageColumn = 物料清單_dgv.Columns("圖檔")

  181.             mycol.ImageLayout = DataGridViewImageCellLayout.Zoom

  182.         Else : If 物料清單_dgv.Columns.Count = 7 Then : 物料清單_dgv.Columns(6).Visible = False : End If : End If

  183.     End Sub

  184.     Private Sub Set_清單1_1()

  185.         Dim ds4 As New DataSet : 物料清單1_dgv.DataSource = Nothing : ds4.Clear()

  186.         物料清單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  187.         物料清單1_dgv.ColumnHeadersHeight = 25 : 物料清單1_dgv.AllowUserToAddRows = False : 物料清單1_dgv.RowTemplate.Height = 45

  188. 

  189.         ConnOpen() : SQL_建築物料請購單申請_物料清單一() : CmdSet_For_DGV()

  190.         da.Fill(ds4) : 物料清單1_dgv.DataSource = ds4.Tables(0) : conn.Close()

  191.         物料清單1_dgv.Columns(0).FillWeight = 20 : 物料清單1_dgv.Columns(1).Visible = False : 物料清單1_dgv.Columns(2).FillWeight = 175

  192.         物料清單1_dgv.Columns(4).Visible = False : 物料清單1_dgv.Columns(5).FillWeight = 45 : 物料清單1_dgv.Columns(3).Visible = False

  193.         物料清單1_dgv.Columns(0).ReadOnly = True : 物料清單1_dgv.Columns(1).ReadOnly = True : 物料清單1_dgv.Columns(2).ReadOnly = True

  194.         For i As Integer = 0 To 物料清單1_dgv.Rows.Count - 1 : 物料清單1_dgv(0, i).Value = i + 1 : Next

  195.         If 低網速模式 = False Then

  196.             物料清單1_dgv.Columns(6).FillWeight = 50 : 物料清單1_dgv.Columns(6).Visible = True

  197.             Dim mycol As DataGridViewImageColumn = 物料清單1_dgv.Columns("圖檔")

  198.             mycol.ImageLayout = DataGridViewImageCellLayout.Zoom

  199.         Else : If 物料清單1_dgv.Columns.Count = 7 Then : 物料清單1_dgv.Columns(6).Visible = False : End If : End If

  200.     End Sub

  201.     Private Sub 群組碼_cb_語轉_下拉表單資料載入()

  202.         SQL_群組碼_語轉_下拉清單() : 新群組1_cb.Items.Clear() : While (dr.Read()) : 新群組1_cb.Items.Add(dr("群組")) : End While : conn.Close()

  203.     End Sub

  204.     Private Sub 指定倉庫_cb_下拉表單資料載入()

  205.         SQL_倉名_下拉清單() : 指定倉庫_cb.Items.Clear() : While (dr.Read()) : 指定倉庫_cb.Items.Add(dr("倉名")) : End While : conn.Close()

  206.     End Sub

  207.     Private Sub 群組編碼_cb_下拉表單資料載入()

  208.         SQL_群組碼_下拉清單() : 群組編碼_cb.Items.Clear() : While (dr.Read()) : 群組編碼_cb.Items.Add(dr("群組碼")) : End While : conn.Close()

  209.     End Sub

  210.     Private Sub 物料原則一_cb_下拉表單資料載入()

  211.         SQL_料號原則前二_下拉清單() : 物料原則一_cb.Items.Clear() : While (dr.Read()) : 物料原則一_cb.Items.Add(dr("原則前二")) : End While : conn.Close()

  212.     End Sub

  213.     Private Sub 物料原則二_cb_下拉表單資料載入()

  214.         PA9 = 物料原則一_cb.Text : SQL_料號原則中段_下拉清單() : 物料原則二_cb.Items.Clear() : While (dr.Read()) : 物料原則二_cb.Items.Add(dr("原則中段")) : End While : conn.Close()

  215.     End Sub

  216.     Private Sub 甲方條件下拉清單讀取()

  217.         SQL合約條件讀取() : 合約編號1_cb.Items.Clear() : 合約編號1_cb.Items.Add("") : While (dr.Read()) : 合約編號1_cb.Items.Add(dr("約號甲方")) : End While : conn.Close()

  218.     End Sub

  219.     Private Sub 語言轉換讀取()

  220.         If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If

  221.         Me.Text = 系統語言字典("H001-174-" & 語言)

  222.         已作廢_lb.Text = 系統語言字典("H201-100-" & 語言) : 已作廢1_lb.Text = 系統語言字典("H201-100-" & 語言) : 已作廢_rb.Text = 系統語言字典("H201-101-" & 語言)

  223.         已審核_lb.Text = 系統語言字典("H201-102-" & 語言) : 已審核1_lb.Text = 系統語言字典("H201-102-" & 語言) : 已審核_rb.Text = 系統語言字典("H201-103-" & 語言)

  224.         可申請_lb.Text = 系統語言字典("H201-104-" & 語言) : 可申請1_lb.Text = 系統語言字典("H201-104-" & 語言) : 未審核_lb.Text = 系統語言字典("H201-105-" & 語言)

  225.         未審核1_lb.Text = 系統語言字典("H201-105-" & 語言) : 未審核_rb.Text = 系統語言字典("H201-106-" & 語言) : 申請人_lb.Text = 系統語言字典("H201-107-" & 語言)

  226.         申請日期_lb.Text = 系統語言字典("H201-108-" & 語言) : 申請完成_bt.Text = 系統語言字典("H201-109-" & 語言) : 申請數_lb.Text = 系統語言字典("H201-110-" & 語言)

  227.         申請數1_lb.Text = 系統語言字典("H201-110-" & 語言) : 合約號_lb.Text = 系統語言字典("H201-111-" & 語言) : 表頭(134) = 系統語言字典("H201-111-" & 語言)

  228.         刪除_bt.Text = 系統語言字典("H201-112-" & 語言) : 刪除請購單上點選資料_bt.Text = 系統語言字典("H201-113-" & 語言) : 指定倉庫_lb.Text = 系統語言字典("H201-114-" & 語言)

  229.         重新整理_bt.Text = 系統語言字典("H201-115-" & 語言) : 倉庫級別_lb.Text = 系統語言字典("H201-116-" & 語言) : 倉庫編號_lb.Text = 系統語言字典("H201-117-" & 語言)

  230.         庫存量_lb.Text = 系統語言字典("H201-118-" & 語言) : 庫存量1_lb.Text = 系統語言字典("H201-118-" & 語言) : 料號_lb.Text = 系統語言字典("H201-119-" & 語言)

  231.         料號1_lb.Text = 系統語言字典("H201-119-" & 語言) : 料號原則_lb.Text = 系統語言字典("H201-120-" & 語言) : 表頭(19) = 系統語言字典("H201-121-" & 語言)

  232.         表頭(20) = 系統語言字典("H201-122-" & 語言) : 表頭(21) = 系統語言字典("H201-123-" & 語言) : 表頭(22) = 系統語言字典("H201-124-" & 語言)

  233.         表頭(18) = 系統語言字典("H201-125-" & 語言) : 最大庫存量_lb.Text = 系統語言字典("H201-126-" & 語言) : 最大庫存量1_lb.Text = 系統語言字典("H201-126-" & 語言)

  234.         開立建築物料請購單_bt.Text = 系統語言字典("H201-127-" & 語言) : 最大庫存量1_lb.Text = 系統語言字典("H201-126-" & 語言) : 項次_lb.Text = 系統語言字典("H201-128-" & 語言)

  235.         新增_bt.Text = 系統語言字典("H201-129-" & 語言) : 群組編碼_lb.Text = 系統語言字典("H201-130-" & 語言) : 對話框(0) = 系統語言字典("H201-131-" & 語言)

  236.         對話框(9) = 系統語言字典("H201-132-" & 語言) : 對話框(10) = 系統語言字典("H201-133-" & 語言) : 對話框(11) = 系統語言字典("H201-134-" & 語言)

  237.         對話框(12) = 系統語言字典("H201-135-" & 語言) : 對話框(13) = 系統語言字典("H201-136-" & 語言) : 對話框(14) = 系統語言字典("H201-137-" & 語言)

  238.         對話框(15) = 系統語言字典("H201-138-" & 語言) : 對話框(16) = 系統語言字典("H201-139-" & 語言) : 對話框(17) = 系統語言字典("H201-140-" & 語言)

  239.         對話框(18) = 系統語言字典("H201-141-" & 語言) : 對話框(1) = 系統語言字典("H201-142-" & 語言) : 對話框(19) = 系統語言字典("H201-143-" & 語言)

  240.         對話框(20) = 系統語言字典("H201-144-" & 語言) : 對話框(21) = 系統語言字典("H201-145-" & 語言) : 對話框(22) = 系統語言字典("H201-146-" & 語言)

  241.         對話框(23) = 系統語言字典("H201-147-" & 語言) : 對話框(24) = 系統語言字典("H201-148-" & 語言) : 對話框(25) = 系統語言字典("H201-149-" & 語言)

  242.         對話框(26) = 系統語言字典("H201-150-" & 語言) : 對話框(2) = 系統語言字典("H201-151-" & 語言) : 對話框(3) = 系統語言字典("H201-152-" & 語言)

  243.         對話框(4) = 系統語言字典("H201-153-" & 語言) : 對話框(5) = 系統語言字典("H201-154-" & 語言) : 對話框(6) = 系統語言字典("H201-155-" & 語言)

  244.         對話框(7) = 系統語言字典("H201-156-" & 語言) : 對話框(8) = 系統語言字典("H201-157-" & 語言) : 需求日期_lb.Text = 系統語言字典("H201-158-" & 語言)

  245.         複製_bt.Text = 系統語言字典("H201-159-" & 語言) : 表頭(17) = 系統語言字典("H201-160-" & 語言) : 表頭(12) = 系統語言字典("H201-161-" & 語言)

  246.         表頭(13) = 系統語言字典("H201-162-" & 語言) : 表頭(14) = 系統語言字典("H201-163-" & 語言) : 表頭(16) = 系統語言字典("H201-164-" & 語言)

  247.         表頭(11) = 系統語言字典("H201-165-" & 語言) : 表頭(15) = 系統語言字典("H201-166-" & 語言) : 請購單號_lb.Text = 系統語言字典("H201-167-" & 語言)

  248.         操作_lb.Text = 系統語言字典("H201-168-" & 語言) : 選擇_lb.Text = 系統語言字典("H201-169-" & 語言) : 對話框(28) = 系統語言字典("G000-223-" & 語言)

  249.         ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言) : 切換_lb.Text = 系統語言字典("G000-176-" & 語言) : 等待_lb.Text = 系統語言字典("G000-123-" & 語言)

  250.         甲方_lb.Text = 系統語言字典("H110-118-" & 語言) : 詳細資料2_ch.Text = 系統語言字典("H211-100-" & 語言) : 對話框(27) = 系統語言字典("G000-176-" & 語言)

  251.         對話框(29) = 系統語言字典("G000-224-" & 語言) : 對話框(30) = 系統語言字典("G000-225-" & 語言) : 對話框(31) = 系統語言字典("G000-183-" & 語言)

  252.         對話框(32) = 系統語言字典("G000-184-" & 語言) : 對話框(33) = 系統語言字典("G000-185-" & 語言) : 對話框(34) = 系統語言字典("G000-186-" & 語言)

  253.         對話框(35) = 系統語言字典("G000-187-" & 語言) : 對話框(36) = 系統語言字典("G000-188-" & 語言) : 對話框(37) = 系統語言字典("G000-189-" & 語言)

  254.         對話框(38) = 系統語言字典("G000-190-" & 語言) : 對話框(39) = 系統語言字典("G000-191-" & 語言) : 對話框(40) = 系統語言字典("G000-192-" & 語言)

  255.         對話框(41) = 系統語言字典("G000-193-" & 語言) : 對話框(42) = 系統語言字典("G000-194-" & 語言) : 對話框(43) = 系統語言字典("H301-137-" & 語言)

  256.         對話框(44) = 系統語言字典("H201-170-" & 語言) : 對話框(45) = 系統語言字典("H110-117-" & 語言) : 對話框(46) = 系統語言字典("G000-152-" & 語言)

  257.         未審核1_rb.Text = 系統語言字典("H201-106-" & 語言) : 已作廢1_rb.Text = 系統語言字典("H201-101-" & 語言) : 已審核1_rb.Text = 系統語言字典("H201-103-" & 語言)

  258.     End Sub

  259.     Private Sub 回首頁_bt_MouseEnter(sender As Object, e As EventArgs) Handles 回首頁_bt.MouseEnter

  260.         ToolTip1.SetToolTip(Me.回首頁_bt, 對話框(31))

  261.     End Sub

  262.     Private Sub 回次頁_bt_MouseEnter(sender As Object, e As EventArgs) Handles 回次頁_bt.MouseEnter

  263.         ToolTip1.SetToolTip(Me.回次頁_bt, 對話框(32))

  264.     End Sub

  265.     Private Sub 管材_bt_MouseEnter(sender As Object, e As EventArgs) Handles 管材_bt.MouseEnter

  266.         ToolTip1.SetToolTip(Me.管材_bt, 對話框(33))

  267.     End Sub

  268.     Private Sub 電線_bt_MouseEnter(sender As Object, e As EventArgs) Handles 電線_bt.MouseEnter

  269.         ToolTip1.SetToolTip(Me.電線_bt, 對話框(34))

  270.     End Sub

  271.     Private Sub 電料_bt_MouseEnter(sender As Object, e As EventArgs) Handles 電料_bt.MouseEnter

  272.         ToolTip1.SetToolTip(Me.電料_bt, 對話框(35))

  273.     End Sub

  274.     Private Sub 槽架_bt_MouseEnter(sender As Object, e As EventArgs) Handles 槽架_bt.MouseEnter

  275.         ToolTip1.SetToolTip(Me.槽架_bt, 對話框(36))

  276.     End Sub

  277.     Private Sub 建材_bt_MouseEnter(sender As Object, e As EventArgs) Handles 建材_bt.MouseEnter

  278.         ToolTip1.SetToolTip(Me.建材_bt, 對話框(37))

  279.     End Sub

  280.     Private Sub 五金_bt_MouseEnter(sender As Object, e As EventArgs) Handles 五金_bt.MouseEnter

  281.         ToolTip1.SetToolTip(Me.五金_bt, 對話框(38))

  282.     End Sub

  283.     Private Sub 設備_bt_MouseEnter(sender As Object, e As EventArgs) Handles 設備_bt.MouseEnter

  284.         ToolTip1.SetToolTip(Me.設備_bt, 對話框(39))

  285.     End Sub

  286.     Private Sub 工具_bt_MouseEnter(sender As Object, e As EventArgs) Handles 工具_bt.MouseEnter

  287.         ToolTip1.SetToolTip(Me.工具_bt, 對話框(40))

  288.     End Sub

  289.     Private Sub 日用_bt_MouseEnter(sender As Object, e As EventArgs) Handles 日用_bt.MouseEnter

  290.         ToolTip1.SetToolTip(Me.日用_bt, 對話框(41))

  291.     End Sub

  292.     Private Sub 其他_bt_MouseEnter(sender As Object, e As EventArgs) Handles 其他_bt.MouseEnter

  293.         ToolTip1.SetToolTip(Me.其他_bt, 對話框(42))

  294.     End Sub

  295.     Private Sub 單據_bt_MouseEnter(sender As Object, e As EventArgs) Handles 單據_bt.MouseEnter

  296.         ToolTip1.SetToolTip(Me.單據_bt, 對話框(43))

  297.     End Sub

  298.     Private Sub 新增1_bt_MouseEnter(sender As Object, e As EventArgs) Handles 新增1_bt.MouseEnter

  299.         ToolTip1.SetToolTip(Me.新增1_bt, 對話框(44))

  300.     End Sub

  301.     Private Sub 搜尋1_bt_MouseEnter(sender As Object, e As EventArgs) Handles 搜尋1_bt.MouseEnter

  302.         ToolTip1.SetToolTip(Me.搜尋1_bt, 對話框(45))

  303.     End Sub

  304.     Private Sub 搜尋_bt_MouseEnter(sender As Object, e As EventArgs) Handles 搜尋_bt.MouseEnter

  305.         ToolTip1.SetToolTip(Me.搜尋_bt, 對話框(45))

  306.     End Sub

  307.     Private Sub 縮放3_bt_MouseEnter(sender As Object, e As EventArgs) Handles 縮放3_bt.MouseEnter

  308.         ToolTip1.SetToolTip(Me.縮放3_bt, 對話框(46))

  309.     End Sub

  310.     Private Sub 建築物料請購單生成_Load(sender As Object, e As EventArgs) Handles MyBase.Load

  311.         Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True

  312.         風格() : H(201) = True : 介面 = "H201" : 語言轉換讀取() : 顯示說明(999, True)

  313. 

  314.         未審核_rb.Checked = True : 未審核_lb.Visible = True : 切換_ts.Value = True : Panel3.Visible = True : Panel2.Visible = False : 等待_lb.Visible = True

  315.         新增_bt.Enabled = False : 刪除請購單上點選資料_bt.Enabled = True : 刪除_bt.Enabled = False : 申請完成_bt.Enabled = False : 複製_bt.Enabled = False

  316.         未核准_dgv.Visible = True : 已作廢_lb.Visible = False : 作廢清單_dgv.Visible = False : 已審核_lb.Visible = False : 已核准_dgv.Visible = False : 主頁_p.BringToFront()

  317.         未核准1_dgv.Visible = True : 作廢清單1_dgv.Visible = False : 已核准1_dgv.Visible = False : 已審核1_lb.Visible = False : 已作廢1_lb.Visible = False

  318.         未審核1_rb.Checked = True : 首次開啟 = False : Panel1.SendToBack() : 新增1_bt.Enabled = False : 未審核1_lb.Visible = True

  319. 

  320.         SQL_清單欄位查詢()

  321.         If Acdr.Read() Then

  322.             小間距_ch.Checked = Acdr("L_1_1") : 中間距_ch.Checked = Acdr("L_2_1") : 大間距_ch.Checked = Acdr("L_3_1")

  323.             小間距1_ch.Checked = Acdr("L_1_2") : 中間距1_ch.Checked = Acdr("L_2_2") : 大間距1_ch.Checked = Acdr("L_3_2")

  324.         End If : Access1.Close()

  325. 

  326.         需求日期_dtp.Format = DateTimePickerFormat.Custom : 需求日期_dtp.CustomFormat = " "

  327.         銷售單申請_Size()

  328.     End Sub

  329.     Private Sub 建築物料請購單生成_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown

  330.         計算分流1.Enabled = True

  331.     End Sub

  332.     Private Sub 計算分流1_Tick(sender As Object, e As EventArgs) Handles 計算分流1.Tick

  333.         計算分流1.Enabled = False : 群組碼_cb_語轉_下拉表單資料載入() : 群組編碼_cb_下拉表單資料載入() : Set_合約清單() : 甲方條件下拉清單讀取() : 物料原則一_cb_下拉表單資料載入()

  334.         指定倉庫_cb_下拉表單資料載入()

  335.         If 未審核_rb.Checked = True Then : Set_清單2() : ElseIf 已作廢_rb.Checked = True Then : Set_清單3() : ElseIf 已審核_rb.Checked = True Then : Set_清單4() : End If

  336.         等待_lb.Visible = False

  337.     End Sub

  338.     Private Sub 銷售單申請_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged

  339.         銷售單申請_Size()

  340.     End Sub

  341.     Private Sub 銷售單申請_Size()

  342.         MyMod.清單字體大小調整()

  343.         物料清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  344.         物料清單1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  345.         物料規格_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  346.         物料規格1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  347.         已核准_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  348.         已核准1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  349.         未核准_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  350.         未核准1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  351.         作廢清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  352.         作廢清單1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  353.         請購明細_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  354.         合約1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)

  355.     End Sub

  356.     Private Sub 銷售單申請_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed

  357.         物料查詢 = False : H(201) = False : MyMod.虛擬桌面開啟()

  358.     End Sub

  359.     Private Sub 系統說明_bt_Click(sender As Object, e As EventArgs) Handles 系統說明_bt.Click

  360.         介面 = "H201" : WEB說明頁面.Show()

  361.     End Sub

  362.     Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click

  363.         介面 = "H201" : 語言轉換讀取() : If 切換_ts.Value = False Then : Else : 回首頁_bt.PerformClick() : End If

  364.         Set_請購單清單() : 群組碼_cb_語轉_下拉表單資料載入() : Set_群組清單()

  365.         If 未審核_rb.Checked = True Then : Set_清單2() : ElseIf 已作廢_rb.Checked = True Then : Set_清單3() : ElseIf 已審核_rb.Checked = True Then : Set_清單4() : End If

  366.     End Sub

  367.     Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove

  368.         timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True

  369.     End Sub

  370.     Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress

  371.         timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True

  372.     End Sub

  373.     Private Sub 用途顯示()

  374.         Set_請購單清單()

  375.         If 請購明細_dgv.Rows.Count = 0 Then : 指定倉庫_cb_下拉表單資料載入() : Else

  376.             If 請購明細_dgv.Rows(0).Cells(表頭(17)).Value.ToString = "" Then : 指定倉庫_cb_下拉表單資料載入()

  377.             Else : 指定倉庫_cb.Text = 請購明細_dgv.Rows(0).Cells(表頭(17)).Value : End If

  378.         End If

  379.     End Sub

  380.     Private Sub 合約1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約1_dgv.CellClick

  381.         If e.RowIndex = -1 Then : Else

  382.             If 開立建築物料請購單_bt.Enabled = True Then

  383.                 If Strings.Left(合約1_dgv.Rows(e.RowIndex).Cells("Kontrak").Value.ToString.ToUpper, 1) = "H" Then : 合約編號_cb.Text = "HX"

  384.                 ElseIf Strings.Left(合約1_dgv.Rows(e.RowIndex).Cells("Kontrak").Value.ToString.ToUpper, 1) = "P" Then : 合約編號_cb.Text = "PGS" : End If

  385.                 合約編號2_tb.Text = 合約1_dgv.Rows(e.RowIndex).Cells("約號排序").Value.ToString : 合約編號3_tb.Text = 合約1_dgv.Rows(e.RowIndex).Cells("約號尾序").Value.ToString

  386.                 合約編號1_tb.Text = 合約1_dgv.Rows(e.RowIndex).Cells("約號甲方").Value.ToString.ToUpper

  387.             End If

  388.         End If

  389.     End Sub

  390.     Private Sub 已核准_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 已核准_dgv.CellClick

  391.         If e.RowIndex = -1 Then : Else

  392.             請購單號_tb.Text = 已核准_dgv(0, e.RowIndex).Value.ToString : 申請人_tb.Text = 已核准_dgv(1, e.RowIndex).Value.ToString

  393.             申請日期_dtp.Value = 已核准_dgv(2, e.RowIndex).Value.ToString : 備註_tb.Text = 已核准_dgv("備註", e.RowIndex).Value.ToString

  394.             合約編號_cb.Text = 已核准_dgv("乙方", e.RowIndex).Value.ToString : 合約編號1_tb.Text = 已核准_dgv("甲方", e.RowIndex).Value.ToString

  395.             合約編號2_tb.Text = 已核准_dgv("立約日", e.RowIndex).Value.ToString : 合約編號3_tb.Text = 已核准_dgv("序號", e.RowIndex).Value.ToString

  396. 

  397.             If 已核准_dgv(5, e.RowIndex).Value.ToString = "" Then : 需求日期_dtp.Format = DateTimePickerFormat.Custom : 需求日期_dtp.CustomFormat = " "

  398.             Else : 需求日期_dtp.Format = DateTimePickerFormat.Short : 需求日期_dtp.Value = 已核准_dgv(5, e.RowIndex).Value.ToString : End If : 用途顯示()

  399.         End If

  400.     End Sub

  401.     Private Sub 已核准1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 已核准1_dgv.CellClick

  402.         If e.RowIndex = -1 Then : Else

  403.             請購單號_tb.Text = 已核准1_dgv(0, e.RowIndex).Value.ToString : 申請人_tb.Text = 已核准1_dgv(1, e.RowIndex).Value.ToString

  404.             申請日期_dtp.Value = 已核准1_dgv(2, e.RowIndex).Value.ToString : 備註_tb.Text = 已核准1_dgv("備註", e.RowIndex).Value.ToString

  405.             合約編號_cb.Text = 已核准1_dgv("乙方", e.RowIndex).Value.ToString : 合約編號1_tb.Text = 已核准1_dgv("甲方", e.RowIndex).Value.ToString

  406.             合約編號2_tb.Text = 已核准1_dgv("立約日", e.RowIndex).Value.ToString : 合約編號3_tb.Text = 已核准1_dgv("序號", e.RowIndex).Value.ToString

  407. 

  408.             If 已核准1_dgv(5, e.RowIndex).Value.ToString = "" Then : 需求日期_dtp.Format = DateTimePickerFormat.Custom : 需求日期_dtp.CustomFormat = " "

  409.             Else : 需求日期_dtp.Format = DateTimePickerFormat.Short : 需求日期_dtp.Value = 已核准1_dgv(5, e.RowIndex).Value.ToString : End If : 用途顯示()

  410.         End If

  411.     End Sub

  412.     Private Sub 未核准_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 未核准_dgv.CellClick

  413.         If e.RowIndex = -1 Then : Else

  414.             請購單號_tb.Text = 未核准_dgv(0, e.RowIndex).Value.ToString : 申請人_tb.Text = 未核准_dgv(1, e.RowIndex).Value.ToString

  415.             申請日期_dtp.Value = 未核准_dgv(2, e.RowIndex).Value.ToString : 備註_tb.Text = 未核准_dgv("備註", e.RowIndex).Value.ToString

  416.             合約編號_cb.Text = 未核准_dgv("乙方", e.RowIndex).Value.ToString : 合約編號1_tb.Text = 未核准_dgv("甲方", e.RowIndex).Value.ToString

  417.             合約編號2_tb.Text = 未核准_dgv("立約日", e.RowIndex).Value.ToString : 合約編號3_tb.Text = 未核准_dgv("序號", e.RowIndex).Value.ToString

  418. 

  419.             If 未核准_dgv(5, e.RowIndex).Value.ToString = "" Then : 需求日期_dtp.Format = DateTimePickerFormat.Custom : 需求日期_dtp.CustomFormat = " "

  420.             Else : 需求日期_dtp.Format = DateTimePickerFormat.Short : 需求日期_dtp.Value = 未核准_dgv(5, e.RowIndex).Value.ToString : End If : 用途顯示()

  421.         End If

  422.     End Sub

  423.     Private Sub 未核准1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 未核准1_dgv.CellClick

  424.         If e.RowIndex = -1 Then : Else

  425.             請購單號_tb.Text = 未核准1_dgv(0, e.RowIndex).Value.ToString : 申請人_tb.Text = 未核准1_dgv(1, e.RowIndex).Value.ToString

  426.             申請日期_dtp.Value = 未核准1_dgv(2, e.RowIndex).Value.ToString : 備註_tb.Text = 未核准1_dgv("備註", e.RowIndex).Value.ToString

  427.             合約編號_cb.Text = 未核准1_dgv("乙方", e.RowIndex).Value.ToString : 合約編號1_tb.Text = 未核准1_dgv("甲方", e.RowIndex).Value.ToString

  428.             合約編號2_tb.Text = 未核准1_dgv("立約日", e.RowIndex).Value.ToString : 合約編號3_tb.Text = 未核准1_dgv("序號", e.RowIndex).Value.ToString

  429. 

  430.             If 未核准1_dgv(5, e.RowIndex).Value.ToString = "" Then : 需求日期_dtp.Format = DateTimePickerFormat.Custom : 需求日期_dtp.CustomFormat = " "

  431.             Else : 需求日期_dtp.Format = DateTimePickerFormat.Short : 需求日期_dtp.Value = 未核准1_dgv(5, e.RowIndex).Value.ToString : End If : 用途顯示()

  432.         End If

  433.     End Sub

  434.     Private Sub 作廢清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 作廢清單_dgv.CellClick

  435.         If e.RowIndex = -1 Then : Else

  436.             請購單號_tb.Text = 作廢清單_dgv(0, e.RowIndex).Value.ToString : 申請人_tb.Text = 作廢清單_dgv(1, e.RowIndex).Value.ToString

  437.             申請日期_dtp.Value = 作廢清單_dgv(2, e.RowIndex).Value.ToString : 備註_tb.Text = 作廢清單_dgv("備註", e.RowIndex).Value.ToString

  438.             合約編號_cb.Text = 作廢清單_dgv("乙方", e.RowIndex).Value.ToString : 合約編號1_tb.Text = 作廢清單_dgv("甲方", e.RowIndex).Value.ToString

  439.             合約編號2_tb.Text = 作廢清單_dgv("立約日", e.RowIndex).Value.ToString : 合約編號3_tb.Text = 作廢清單_dgv("序號", e.RowIndex).Value.ToString

  440. 

  441.             If 作廢清單_dgv(5, e.RowIndex).Value.ToString = "" Then : 需求日期_dtp.Format = DateTimePickerFormat.Custom : 需求日期_dtp.CustomFormat = " "

  442.             Else : 需求日期_dtp.Format = DateTimePickerFormat.Short : 需求日期_dtp.Value = 作廢清單_dgv(5, e.RowIndex).Value.ToString : End If : 用途顯示()

  443.         End If

  444.     End Sub

  445.     Private Sub 作廢清單1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 作廢清單1_dgv.CellClick

  446.         If e.RowIndex = -1 Then : Else

  447.             請購單號_tb.Text = 作廢清單1_dgv(0, e.RowIndex).Value.ToString : 申請人_tb.Text = 作廢清單1_dgv(1, e.RowIndex).Value.ToString

  448.             申請日期_dtp.Value = 作廢清單1_dgv(2, e.RowIndex).Value.ToString : 備註_tb.Text = 作廢清單1_dgv("備註", e.RowIndex).Value.ToString

  449.             合約編號_cb.Text = 作廢清單1_dgv("乙方", e.RowIndex).Value.ToString : 合約編號1_tb.Text = 作廢清單1_dgv("甲方", e.RowIndex).Value.ToString

  450.             合約編號2_tb.Text = 作廢清單1_dgv("立約日", e.RowIndex).Value.ToString : 合約編號3_tb.Text = 作廢清單1_dgv("序號", e.RowIndex).Value.ToString

  451. 

  452.             If 作廢清單1_dgv(5, e.RowIndex).Value.ToString = "" Then : 需求日期_dtp.Format = DateTimePickerFormat.Custom : 需求日期_dtp.CustomFormat = " "

  453.             Else : 需求日期_dtp.Format = DateTimePickerFormat.Short : 需求日期_dtp.Value = 作廢清單1_dgv(5, e.RowIndex).Value.ToString : End If : 用途顯示()

  454.         End If

  455.     End Sub

  456.     Private Sub 請購明細_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 請購明細_dgv.CellClick

  457.         If e.RowIndex = -1 Then : Else

  458.             項次_tb.Text = 請購明細_dgv(1, e.RowIndex).Value.ToString

  459.             If 請購明細_dgv.Rows(e.RowIndex).Cells(表頭(17)).Value.ToString = "" Then : 指定倉庫_cb_下拉表單資料載入()

  460.             Else : 指定倉庫_cb.Text = 請購明細_dgv.Rows(e.RowIndex).Cells(表頭(17)).Value : End If

  461.             PA1 = 請購明細_dgv.Rows(e.RowIndex).Cells("群組碼").Value : PA2 = 請購明細_dgv.Rows(e.RowIndex).Cells("群組原則").Value

  462.             SQL_物料圖庫_圖檔讀取()

  463.             While dr.Read() = True

  464.                 Dim unused As Byte() = New Byte(-1) {}

  465.                 Dim bytes As Byte() = DirectCast(dr.Item("圖檔"), Byte())

  466.                 Dim oStream As New MemoryStream(bytes)

  467.                 物料圖_pb.Image = Bitmap.FromStream(oStream)

  468.                 物料圖1_pb.Image = Bitmap.FromStream(oStream)

  469.             End While : conn.Close() : 物料圖_pb.SizeMode = 4 : 物料圖1_pb.SizeMode = 4

  470.         End If

  471.     End Sub

  472.     Private Sub 物料清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料清單_dgv.CellClick

  473.         If e.RowIndex = -1 Then : Else

  474.             PA = 物料清單_dgv(1, e.RowIndex).Value.ToString : PA1 = 物料清單_dgv.Rows(e.RowIndex).Cells("群組碼").Value

  475.             PA2 = 物料清單_dgv.Rows(e.RowIndex).Cells("料號原則").Value : SQL_物料圖庫_圖檔讀取()

  476.             While dr.Read() = True

  477.                 Dim unused As Byte() = New Byte(-1) {}

  478.                 Dim bytes As Byte() = DirectCast(dr.Item("圖檔"), Byte())

  479.                 Dim oStream As New MemoryStream(bytes)

  480.                 物料圖_pb.Image = Bitmap.FromStream(oStream)

  481.             End While : conn.Close() : 物料圖_pb.SizeMode = 4

  482.             '------------------------------------------------------------------------------------------------------------------------------------------

  483.             SQL_建築物料請購單申請_物料規格讀取() : If dr.Read() Then : KKK2 = dr("規格庫編號") : PA3 = dr("規格庫抬頭指定") : PA4 = dr("群組碼") : End If : conn.Close()

  484.             '------------------------------------------------------------------------------------------------------------------------------------------

  485.             SQL_規格庫抬頭讀取()

  486.             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

  487.             conn.Close()

  488.             '------------------------------------------------------------------------------------------------------------------------------------------

  489.             Dim ds3 As New DataSet : 物料規格_dgv.DataSource = Nothing : ds3.Clear()

  490.             物料規格_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  491.             物料規格_dgv.ColumnHeadersHeight = 25 : 物料規格_dgv.AllowUserToAddRows = False : 物料規格_dgv.RowTemplate.Height = 20

  492.             If KKK2 = "SQLB03" Then : SQL_物料規格_SQLB03() : ElseIf KKK2 = "SQLB04" Then : SQL_物料規格_SQLB04() : ElseIf KKK2 = "SQLB05" Then : SQL_物料規格_SQLB05()

  493.             ElseIf KKK2 = "SQLB06" Then : SQL_物料規格_SQLB06() : ElseIf KKK2 = "SQLB07" Then : SQL_物料規格_SQLB07() : ElseIf KKK2 = "SQLB08" Then : SQL_物料規格_SQLB08() : End If

  494.             da.Fill(ds3) : 物料規格_dgv.DataSource = ds3.Tables(0) : conn.Close() : 料號_tb.Text = ""

  495. 

  496.             物料規格_dgv.Columns(0).Visible = False : 物料規格_dgv.Columns(1).Visible = False : 物料規格_dgv.Columns(3).Visible = False

  497.             物料規格_dgv.Columns(2).Width = 17 : 物料規格_dgv.Columns(12).Visible = False : 物料規格_dgv.Columns(13).Visible = False : 物料規格_dgv.Columns(14).Visible = False

  498.             物料規格_dgv.Columns(15).Visible = False

  499.             If KKK2 = "SQLB03" Then

  500.                 物料規格_dgv.Columns(7).Visible = False : 物料規格_dgv.Columns(8).Visible = False : 物料規格_dgv.Columns(9).Visible = False : 物料規格_dgv.Columns(10).Visible = False

  501.                 物料規格_dgv.Columns(11).Visible = False

  502.                 物料規格_dgv.Columns(4).FillWeight = 213 : 物料規格_dgv.Columns(5).FillWeight = 213 : 物料規格_dgv.Columns(6).FillWeight = 214

  503.             ElseIf KKK2 = "SQLB04" Then

  504.                 物料規格_dgv.Columns(7).Visible = True : 物料規格_dgv.Columns(8).Visible = False : 物料規格_dgv.Columns(9).Visible = False : 物料規格_dgv.Columns(10).Visible = False

  505.                 物料規格_dgv.Columns(11).Visible = False

  506.                 物料規格_dgv.Columns(4).FillWeight = 160 : 物料規格_dgv.Columns(5).FillWeight = 160 : 物料規格_dgv.Columns(6).FillWeight = 160 : 物料規格_dgv.Columns(7).FillWeight = 160

  507.             ElseIf KKK2 = "SQLB05" Then

  508.                 物料規格_dgv.Columns(7).Visible = True : 物料規格_dgv.Columns(8).Visible = True : 物料規格_dgv.Columns(9).Visible = False : 物料規格_dgv.Columns(10).Visible = False

  509.                 物料規格_dgv.Columns(11).Visible = False

  510.                 物料規格_dgv.Columns(4).FillWeight = 128 : 物料規格_dgv.Columns(5).FillWeight = 128 : 物料規格_dgv.Columns(6).FillWeight = 128 : 物料規格_dgv.Columns(7).FillWeight = 128

  511.                 物料規格_dgv.Columns(8).FillWeight = 128

  512.             ElseIf KKK2 = "SQLB06" Then

  513.                 物料規格_dgv.Columns(7).Visible = True : 物料規格_dgv.Columns(8).Visible = True : 物料規格_dgv.Columns(9).Visible = True : 物料規格_dgv.Columns(10).Visible = False

  514.                 物料規格_dgv.Columns(11).Visible = False

  515.                 物料規格_dgv.Columns(4).FillWeight = 106 : 物料規格_dgv.Columns(5).FillWeight = 107 : 物料規格_dgv.Columns(6).FillWeight = 106 : 物料規格_dgv.Columns(7).FillWeight = 107

  516.                 物料規格_dgv.Columns(8).FillWeight = 106 : 物料規格_dgv.Columns(9).FillWeight = 108

  517.             ElseIf KKK2 = "SQLB07" Then

  518.                 物料規格_dgv.Columns(7).Visible = True : 物料規格_dgv.Columns(8).Visible = True : 物料規格_dgv.Columns(9).Visible = True : 物料規格_dgv.Columns(10).Visible = True

  519.                 物料規格_dgv.Columns(11).Visible = False

  520.                 物料規格_dgv.Columns(4).FillWeight = 91 : 物料規格_dgv.Columns(5).FillWeight = 92 : 物料規格_dgv.Columns(6).FillWeight = 91 : 物料規格_dgv.Columns(7).FillWeight = 92

  521.                 物料規格_dgv.Columns(8).FillWeight = 91 : 物料規格_dgv.Columns(9).FillWeight = 92 : 物料規格_dgv.Columns(10).FillWeight = 91

  522.             ElseIf KKK2 = "SQLB08" Then

  523.                 物料規格_dgv.Columns(7).Visible = True : 物料規格_dgv.Columns(8).Visible = True : 物料規格_dgv.Columns(9).Visible = True : 物料規格_dgv.Columns(10).Visible = True

  524.                 物料規格_dgv.Columns(11).Visible = True

  525.                 物料規格_dgv.Columns(4).FillWeight = 80 : 物料規格_dgv.Columns(5).FillWeight = 80 : 物料規格_dgv.Columns(6).FillWeight = 80 : 物料規格_dgv.Columns(7).FillWeight = 80

  526.                 物料規格_dgv.Columns(8).FillWeight = 80 : 物料規格_dgv.Columns(9).FillWeight = 80 : 物料規格_dgv.Columns(10).FillWeight = 80 : 物料規格_dgv.Columns(11).FillWeight = 80

  527.             End If

  528.             物料規格_dgv.EditMode = DataGridViewEditMode.EditOnEnter

  529.             物料規格_dgv.Columns(0).ReadOnly = True : 物料規格_dgv.Columns(1).ReadOnly = True : 物料規格_dgv.Columns(2).ReadOnly = True : 物料規格_dgv.Columns(3).ReadOnly = True

  530.             物料規格_dgv.Columns(4).ReadOnly = True : 物料規格_dgv.Columns(5).ReadOnly = True : 物料規格_dgv.Columns(6).ReadOnly = True : 物料規格_dgv.Columns(7).ReadOnly = True

  531.             物料規格_dgv.Columns(8).ReadOnly = True : 物料規格_dgv.Columns(9).ReadOnly = True : 物料規格_dgv.Columns(10).ReadOnly = True : 物料規格_dgv.Columns(11).ReadOnly = True

  532. 

  533.             For i As Integer = 0 To 物料規格_dgv.Rows.Count - 1

  534.                 物料規格_dgv.Rows(i).Cells("No").Value = i + 1 : 物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value = 0

  535.                 If Not IsNumeric(物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value) Then : MGB(對話框(27), 1)

  536.                 ElseIf Val(物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value) > 0 Then : 物料規格_dgv.Rows(i).Cells("Pilih").Value = True

  537.                 ElseIf Val(物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value) <= 0 Then

  538.                     物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value = "0" : 物料規格_dgv.Rows(i).Cells("Pilih").Value = False

  539.                 End If

  540.             Next i

  541.         End If

  542.     End Sub

  543.     Private Sub 物料規格_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 物料規格_dgv.CellEnter

  544.         For i As Integer = 0 To 物料規格_dgv.Rows.Count - 1

  545.             If Not IsNumeric(物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value) Then : MGB(對話框(27), 1)

  546.                 物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value = "0" : 物料規格_dgv.Rows(i).Cells("Pilih").Value = False

  547.             ElseIf Val(物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value) > 0 Then : 物料規格_dgv.Rows(i).Cells("Pilih").Value = True

  548.             ElseIf Val(物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value) <= 0 Then

  549.                 物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value = "0" : 物料規格_dgv.Rows(i).Cells("Pilih").Value = False

  550.             End If

  551.         Next i

  552.     End Sub

  553.     Private Sub 物料規格_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料規格_dgv.CellClick

  554.         If e.RowIndex = -1 Then : Else

  555.             Dim EERR1 As Integer : Dim EERR2 As Integer

  556.             料號_tb.Text = 物料規格_dgv.Rows(e.RowIndex).Cells("Nomor_Bagian").Value.ToString : NUM2 = e.RowIndex

  557.             PA3 = 料號_tb.Text : SQL_建築物料請購單申請_物料狀況查詢()

  558.             If dr.Read() Then : 最大庫存量_tb.Text = dr("最高庫存量")

  559.                 If dr("入庫").ToString = "" Then : EERR1 = 0 : Else : EERR1 = dr("入庫") : End If : If dr("出庫").ToString = "" Then : EERR2 = 0 : Else : EERR2 = dr("出庫") : End If

  560.                 庫存量_tb.Text = EERR1 - EERR2 : 可申請_tb.Text = CInt(最大庫存量_tb.Text) - CInt(庫存量_tb.Text)

  561.                 最大庫存量_tb.Text = Format(CInt(最大庫存量_tb.Text), "###0") : 庫存量_tb.Text = Format(CInt(庫存量_tb.Text), "###0") : 可申請_tb.Text = Format(CInt(可申請_tb.Text), "###0")

  562.             End If : conn.Close()

  563.             If 申請數_nud.Value > CInt(可申請_tb.Text) Then : MGB(對話框(0) & 可申請_tb.Text & 對話框(1), 1) : 申請數_nud.Value = 0 : End If

  564.         End If

  565.     End Sub

  566.     Private Sub 物料清單1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料清單1_dgv.CellClick

  567.         If e.RowIndex = -1 Then : Else

  568.             PA = 物料清單1_dgv(1, e.RowIndex).Value.ToString : PA1 = 物料清單1_dgv.Rows(e.RowIndex).Cells("群組碼").Value

  569.             PA2 = 物料清單1_dgv.Rows(e.RowIndex).Cells("料號原則").Value : SQL_物料圖庫_圖檔讀取()

  570.             While dr.Read() = True

  571.                 Dim unused As Byte() = New Byte(-1) {}

  572.                 Dim bytes As Byte() = DirectCast(dr.Item("圖檔"), Byte())

  573.                 Dim oStream As New MemoryStream(bytes)

  574.                 物料圖1_pb.Image = Bitmap.FromStream(oStream)

  575.             End While : conn.Close() : 物料圖1_pb.SizeMode = 4

  576.             '------------------------------------------------------------------------------------------------------------------------------------------

  577.             SQL_建築物料請購單申請_物料規格讀取()

  578.             If dr.Read() Then : KKK2 = dr("規格庫編號") : PA3 = dr("規格庫抬頭指定") : PA4 = dr("群組碼") : End If : conn.Close()

  579.             '------------------------------------------------------------------------------------------------------------------------------------------

  580.             SQL_規格庫抬頭讀取()

  581.             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

  582.             conn.Close()

  583.             '------------------------------------------------------------------------------------------------------------------------------------------

  584.             Dim ds3 As New DataSet

  585.             物料規格1_dgv.DataSource = Nothing : ds3.Clear()

  586.             物料規格1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  587.             物料規格1_dgv.ColumnHeadersHeight = 25 : 物料規格1_dgv.AllowUserToAddRows = False : 物料規格1_dgv.RowTemplate.Height = 20

  588.             If KKK2 = "SQLB03" Then : SQL_物料規格_SQLB03() : ElseIf KKK2 = "SQLB04" Then : SQL_物料規格_SQLB04() : ElseIf KKK2 = "SQLB05" Then : SQL_物料規格_SQLB05()

  589.             ElseIf KKK2 = "SQLB06" Then : SQL_物料規格_SQLB06() : ElseIf KKK2 = "SQLB07" Then : SQL_物料規格_SQLB07() : ElseIf KKK2 = "SQLB08" Then : SQL_物料規格_SQLB08() : End If

  590.             da.Fill(ds3) : 物料規格1_dgv.DataSource = ds3.Tables(0) : conn.Close() : 料號_tb.Text = ""

  591. 

  592.             物料規格1_dgv.Columns(0).Visible = False : 物料規格1_dgv.Columns(1).Visible = False : 物料規格1_dgv.Columns(3).Visible = False

  593.             物料規格1_dgv.Columns(2).Width = 17 : 物料規格1_dgv.Columns(12).Visible = False : 物料規格1_dgv.Columns(13).Visible = False : 物料規格1_dgv.Columns(14).Visible = False

  594.             物料規格1_dgv.Columns(15).Visible = False

  595.             If KKK2 = "SQLB03" Then

  596.                 物料規格1_dgv.Columns(7).Visible = False : 物料規格1_dgv.Columns(8).Visible = False : 物料規格1_dgv.Columns(9).Visible = False : 物料規格1_dgv.Columns(10).Visible = False

  597.                 物料規格1_dgv.Columns(11).Visible = False

  598.                 物料規格1_dgv.Columns(4).FillWeight = 213 : 物料規格1_dgv.Columns(5).FillWeight = 213 : 物料規格1_dgv.Columns(6).FillWeight = 214

  599.             ElseIf KKK2 = "SQLB04" Then

  600.                 物料規格1_dgv.Columns(7).Visible = True : 物料規格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 = 160 : 物料規格1_dgv.Columns(5).FillWeight = 160 : 物料規格1_dgv.Columns(6).FillWeight = 160 : 物料規格1_dgv.Columns(7).FillWeight = 160

  603.             ElseIf KKK2 = "SQLB05" Then

  604.                 物料規格1_dgv.Columns(7).Visible = True : 物料規格1_dgv.Columns(8).Visible = True : 物料規格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 = 128 : 物料規格1_dgv.Columns(5).FillWeight = 128 : 物料規格1_dgv.Columns(6).FillWeight = 128 : 物料規格1_dgv.Columns(7).FillWeight = 128

  607.                 物料規格1_dgv.Columns(8).FillWeight = 128

  608.             ElseIf KKK2 = "SQLB06" Then

  609.                 物料規格1_dgv.Columns(7).Visible = True : 物料規格1_dgv.Columns(8).Visible = True : 物料規格1_dgv.Columns(9).Visible = True : 物料規格1_dgv.Columns(10).Visible = False

  610.                 物料規格1_dgv.Columns(11).Visible = False

  611.                 物料規格1_dgv.Columns(4).FillWeight = 106 : 物料規格1_dgv.Columns(5).FillWeight = 107 : 物料規格1_dgv.Columns(6).FillWeight = 106 : 物料規格1_dgv.Columns(7).FillWeight = 107

  612.                 物料規格1_dgv.Columns(8).FillWeight = 106 : 物料規格1_dgv.Columns(9).FillWeight = 108

  613.             ElseIf KKK2 = "SQLB07" Then

  614.                 物料規格1_dgv.Columns(7).Visible = True : 物料規格1_dgv.Columns(8).Visible = True : 物料規格1_dgv.Columns(9).Visible = True : 物料規格1_dgv.Columns(10).Visible = True

  615.                 物料規格1_dgv.Columns(11).Visible = False

  616.                 物料規格1_dgv.Columns(4).FillWeight = 91 : 物料規格1_dgv.Columns(5).FillWeight = 92 : 物料規格1_dgv.Columns(6).FillWeight = 91 : 物料規格1_dgv.Columns(7).FillWeight = 92

  617.                 物料規格1_dgv.Columns(8).FillWeight = 91 : 物料規格1_dgv.Columns(9).FillWeight = 92 : 物料規格1_dgv.Columns(10).FillWeight = 91

  618.             ElseIf KKK2 = "SQLB08" Then

  619.                 物料規格1_dgv.Columns(7).Visible = True : 物料規格1_dgv.Columns(8).Visible = True : 物料規格1_dgv.Columns(9).Visible = True : 物料規格1_dgv.Columns(10).Visible = True

  620.                 物料規格1_dgv.Columns(11).Visible = True

  621.                 物料規格1_dgv.Columns(4).FillWeight = 80 : 物料規格1_dgv.Columns(5).FillWeight = 80 : 物料規格1_dgv.Columns(6).FillWeight = 80 : 物料規格1_dgv.Columns(7).FillWeight = 80

  622.                 物料規格1_dgv.Columns(8).FillWeight = 80 : 物料規格1_dgv.Columns(9).FillWeight = 80 : 物料規格1_dgv.Columns(10).FillWeight = 80 : 物料規格1_dgv.Columns(11).FillWeight = 80

  623.             End If

  624.             物料規格1_dgv.EditMode = DataGridViewEditMode.EditOnEnter

  625.             物料規格1_dgv.Columns(0).ReadOnly = True : 物料規格1_dgv.Columns(1).ReadOnly = True : 物料規格1_dgv.Columns(2).ReadOnly = True : 物料規格1_dgv.Columns(3).ReadOnly = True

  626.             物料規格1_dgv.Columns(4).ReadOnly = True : 物料規格1_dgv.Columns(5).ReadOnly = True : 物料規格1_dgv.Columns(6).ReadOnly = True : 物料規格1_dgv.Columns(7).ReadOnly = True

  627.             物料規格1_dgv.Columns(8).ReadOnly = True : 物料規格1_dgv.Columns(9).ReadOnly = True : 物料規格1_dgv.Columns(10).ReadOnly = True : 物料規格1_dgv.Columns(11).ReadOnly = True

  628. 

  629.             For i As Integer = 0 To 物料規格1_dgv.Rows.Count - 1

  630.                 物料規格1_dgv.Rows(i).Cells("No").Value = i + 1 : 物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value = 0

  631.                 If Not IsNumeric(物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value) Then : MGB(對話框(27), 1)

  632.                 ElseIf Val(物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value) > 0 Then : 物料規格1_dgv.Rows(i).Cells("Pilih").Value = True

  633.                 ElseIf Val(物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value) <= 0 Then

  634.                     物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value = "0" : 物料規格1_dgv.Rows(i).Cells("Pilih").Value = False

  635.                 End If

  636.             Next i

  637.         End If

  638.     End Sub

  639.     Private Sub 物料規格1_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 物料規格1_dgv.CellEnter

  640.         For i As Integer = 0 To 物料規格1_dgv.Rows.Count - 1

  641.             If Not IsNumeric(物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value) Then : MGB(對話框(27), 1)

  642.                 物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value = "0" : 物料規格1_dgv.Rows(i).Cells("Pilih").Value = False

  643.             ElseIf Val(物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value) > 0 Then : 物料規格1_dgv.Rows(i).Cells("Pilih").Value = True

  644.             ElseIf Val(物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value) <= 0 Then

  645.                 物料規格1_dgv.Rows(i).Cells("申請數 Terapkan").Value = "0" : 物料規格1_dgv.Rows(i).Cells("Pilih").Value = False

  646.             End If

  647.         Next i

  648.     End Sub

  649.     Private Sub 物料規格1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料規格1_dgv.CellClick

  650.         If e.RowIndex = -1 Then : Else

  651.             Dim EERR1 As Integer : Dim EERR2 As Integer

  652.             料號_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

  653.             NUM2 = e.RowIndex : PA3 = 料號_tb.Text : SQL_建築物料請購單申請_物料狀況查詢()

  654.             If dr.Read() Then

  655.                 最大庫存量_tb.Text = dr("最高庫存量") : 最大庫存量1_tb.Text = dr("最高庫存量")

  656.                 If dr("入庫").ToString = "" Then : EERR1 = 0 : Else : EERR1 = dr("入庫") : End If : If dr("出庫").ToString = "" Then : EERR2 = 0 : Else : EERR2 = dr("出庫") : End If

  657.                 庫存量_tb.Text = EERR1 - EERR2 : 庫存量1_tb.Text = EERR1 - EERR2

  658.                 可申請_tb.Text = CInt(最大庫存量_tb.Text) - CInt(庫存量_tb.Text) : 可申請1_tb.Text = CInt(最大庫存量_tb.Text) - CInt(庫存量_tb.Text)

  659.                 最大庫存量_tb.Text = Format(CInt(最大庫存量_tb.Text), "###0") : 最大庫存量1_tb.Text = Format(CInt(最大庫存量_tb.Text), "###0")

  660.                 庫存量_tb.Text = Format(CInt(庫存量_tb.Text), "###0") : 庫存量1_tb.Text = Format(CInt(庫存量_tb.Text), "###0")

  661.                 可申請_tb.Text = Format(CInt(可申請_tb.Text), "###0") : 可申請1_tb.Text = Format(CInt(可申請_tb.Text), "###0")

  662.             End If : conn.Close()

  663.             If 申請數_nud.Value > CInt(可申請_tb.Text) Then : MGB(對話框(0) & 可申請_tb.Text & 對話框(1), 1) : 申請數_nud.Value = 0 : 申請數1_nud.Value = 0 : End If

  664.         End If

  665.     End Sub

  666.     Private Sub 合約編號1_cb_Click(sender As Object, e As EventArgs) Handles 合約編號1_cb.Click

  667.         CB選擇清單(合約編號1_cb, 合約編號1_cb.Text)

  668.     End Sub

  669.     Private Sub 指定倉庫_cb_Click(sender As Object, e As EventArgs) Handles 指定倉庫_cb.Click

  670.         CB選擇清單(指定倉庫_cb, 指定倉庫_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 新群組1_cb_Click(sender As Object, e As EventArgs) Handles 新群組1_cb.Click

  676.         CB選擇清單(新群組1_cb, 新群組1_cb.Text)

  677.     End Sub

  678.     Private Sub 合約編號1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約編號1_cb.SelectedIndexChanged

  679.         Set_合約清單()

  680.     End Sub

  681.     Private Sub 新群組1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 新群組1_cb.SelectedIndexChanged

  682.         PA = 新群組1_cb.Text : SQL_群組碼_語轉_選擇() : If dr.Read Then : 群組編碼_cb.Text = dr("群組碼").ToString : End If : PA = "" : Set_清單1()

  683.     End Sub

  684.     Private Sub 需求日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 需求日期_dtp.MouseDown

  685.         需求日期_dtp.Format = DateTimePickerFormat.Short

  686.     End Sub

  687.     Private Sub 指定倉庫_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 指定倉庫_cb.SelectedIndexChanged

  688.         PA6 = 指定倉庫_cb.Text : SQL_指定倉儲_資料讀取() : If dr.Read() Then : 倉庫級別_tb.Text = dr("倉級") : 倉庫編號_tb.Text = dr("倉名編號") : End If : conn.Close()

  689.     End Sub

  690.     Private Sub 群組編碼_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 群組編碼_cb.SelectedIndexChanged

  691.         群組碼_tb.Text = 群組編碼_cb.Text

  692.     End Sub

  693.     Private Sub 物料原則一_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 物料原則一_cb.SelectedIndexChanged

  694.         PA1 = 物料原則一_cb.Text & "-"

  695.         Dim ds4 As New DataSet : 物料清單_dgv.DataSource = Nothing : ds4.Clear()

  696.         物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  697.         物料清單_dgv.ColumnHeadersHeight = 25 : 物料清單_dgv.AllowUserToAddRows = False

  698. 

  699.         If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then : 物料清單_dgv.RowTemplate.Height = 65

  700.         ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then : 物料清單_dgv.RowTemplate.Height = 45

  701.         ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then : 物料清單_dgv.RowTemplate.Height = 25 : End If

  702.         ConnOpen() : SQL_建築物料請購單申請_物料清單二() : CmdSet_For_DGV() : da.Fill(ds4) : 物料清單_dgv.DataSource = ds4.Tables(0) : conn.Close()

  703.         物料清單_dgv.Columns(0).Visible = False : 物料清單_dgv.Columns(1).FillWeight = 80 : 物料清單_dgv.Columns(2).FillWeight = 175 : 物料清單_dgv.Columns(3).Visible = False

  704.         物料清單_dgv.Columns(4).Visible = False : 物料清單_dgv.Columns(5).FillWeight = 45

  705.         物料清單_dgv.Columns(0).ReadOnly = True : 物料清單_dgv.Columns(1).ReadOnly = True : 物料清單_dgv.Columns(2).ReadOnly = True

  706.         For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1 : 物料清單_dgv(0, i).Value = i + 1 : Next

  707.         If 低網速模式 = False Then

  708.             物料清單_dgv.Columns(6).FillWeight = 50 : 物料清單_dgv.Columns(6).Visible = True

  709.             Dim mycol As DataGridViewImageColumn = 物料清單_dgv.Columns("圖檔")

  710.             mycol.ImageLayout = DataGridViewImageCellLayout.Zoom

  711.         Else : If 物料清單_dgv.Columns.Count = 7 Then : 物料清單_dgv.Columns(6).Visible = False : End If : End If : 物料原則二_cb_下拉表單資料載入() : 料號_tb.Text = ""

  712.     End Sub

  713.     Private Sub 物料原則二_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 物料原則二_cb.SelectedIndexChanged

  714.         PA1 = 物料原則一_cb.Text & "-" & 物料原則二_cb.Text

  715.         Dim ds4 As New DataSet : 物料清單_dgv.DataSource = Nothing : ds4.Clear()

  716.         物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  717.         物料清單_dgv.ColumnHeadersHeight = 25 : 物料清單_dgv.AllowUserToAddRows = False

  718. 

  719.         If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then : 物料清單_dgv.RowTemplate.Height = 65

  720.         ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then : 物料清單_dgv.RowTemplate.Height = 45

  721.         ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then : 物料清單_dgv.RowTemplate.Height = 25 : End If

  722.         ConnOpen() : SQL_建築物料請購單申請_物料清單二() : CmdSet_For_DGV() : da.Fill(ds4) : 物料清單_dgv.DataSource = ds4.Tables(0) : conn.Close()

  723.         物料清單_dgv.Columns(0).Visible = False : 物料清單_dgv.Columns(1).FillWeight = 80 : 物料清單_dgv.Columns(2).FillWeight = 175 : 物料清單_dgv.Columns(3).Visible = False

  724.         物料清單_dgv.Columns(4).Visible = False : 物料清單_dgv.Columns(5).FillWeight = 45

  725.         物料清單_dgv.Columns(0).ReadOnly = True : 物料清單_dgv.Columns(1).ReadOnly = True : 物料清單_dgv.Columns(2).ReadOnly = True

  726.         For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1 : 物料清單_dgv(0, i).Value = i + 1 : Next

  727.         If 低網速模式 = False Then

  728.             物料清單_dgv.Columns(6).FillWeight = 50 : 物料清單_dgv.Columns(6).Visible = True

  729.             Dim mycol As DataGridViewImageColumn = 物料清單_dgv.Columns("圖檔")

  730.             mycol.ImageLayout = DataGridViewImageCellLayout.Zoom

  731.         Else : If 物料清單_dgv.Columns.Count = 7 Then : 物料清單_dgv.Columns(6).Visible = False : End If : End If : 物料原則二_cb_下拉表單資料載入() : 料號_tb.Text = ""

  732.     End Sub

  733.     Private Sub Set_日期格式轉換()

  734.         DTP = Format(Today(), "yyyy/MM/dd") & "-" & Format(TimeOfDay(), "HH:mm:ss") : DTP1 = Format(Today(), "yyyyMMdd")

  735.     End Sub

  736.     Private Sub 存檔()

  737.         For i As Integer = 0 To 請購明細_dgv.Rows.Count - 1

  738.             資料數 = 請購明細_dgv.Rows.Count : MyMod.進度條()

  739.             PA1 = 請購明細_dgv.Rows(i).Cells(表頭(14)).Value.ToString.Replace("'", "") : NU1 = 請購明細_dgv.Rows(i).Cells(表頭(15)).Value

  740.             PA2 = 請購明細_dgv.Rows(i).Cells(表頭(16)).Value : PA3 = 倉庫編號_tb.Text : PA4 = 請購單號_tb.Text : PA5 = 請購明細_dgv.Rows(i).Cells(表頭(11)).Value

  741.             SQL_建築物料請購單申請_存檔() : conn.Close()

  742.         Next

  743.         PA1 = 請購單號_tb.Text : If 需求日期_dtp.Text = "" Or 需求日期_dtp.Text = " " Then : DTP = "" : Else : DTP = Format(需求日期_dtp.Value, "yyyy/MM/dd") : End If

  744.         SQL_請購單需求日其修改() : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0

  745.     End Sub

  746.     Private Sub 搜尋_bt_Click(sender As Object, e As EventArgs) Handles 搜尋_bt.Click

  747.         INB(對話框(3)) : PA = 訊息回應

  748.         If PA = "" Then : Else

  749.             Dim ds4 As New DataSet : 物料清單_dgv.DataSource = Nothing : ds4.Clear()

  750.             物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  751.             物料清單_dgv.ColumnHeadersHeight = 25 : 物料清單_dgv.AllowUserToAddRows = False

  752. 

  753.             If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then : 物料清單_dgv.RowTemplate.Height = 65

  754.             ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then : 物料清單_dgv.RowTemplate.Height = 45

  755.             ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then : 物料清單_dgv.RowTemplate.Height = 25 : End If

  756.             ConnOpen() : SQL_建築物料請購單申請_物料清單三() : CmdSet_For_DGV() : da.Fill(ds4) : 物料清單_dgv.DataSource = ds4.Tables(0) : conn.Close()

  757.             物料清單_dgv.Columns(0).Visible = False : 物料清單_dgv.Columns(1).FillWeight = 80 : 物料清單_dgv.Columns(2).FillWeight = 175 : 物料清單_dgv.Columns(3).Visible = False

  758.             物料清單_dgv.Columns(4).Visible = False : 物料清單_dgv.Columns(5).FillWeight = 45

  759.             物料清單_dgv.Columns(0).ReadOnly = True : 物料清單_dgv.Columns(1).ReadOnly = True : 物料清單_dgv.Columns(2).ReadOnly = True

  760.             For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1 : 物料清單_dgv(0, i).Value = i + 1 : Next

  761.             If 低網速模式 = False Then

  762.                 物料清單_dgv.Columns(6).FillWeight = 50 : 物料清單_dgv.Columns(6).Visible = True

  763.                 Dim mycol As DataGridViewImageColumn = 物料清單_dgv.Columns("圖檔")

  764.                 mycol.ImageLayout = DataGridViewImageCellLayout.Zoom

  765.             Else : If 物料清單_dgv.Columns.Count = 7 Then : 物料清單_dgv.Columns(6).Visible = False : End If : End If : 料號_tb.Text = ""

  766.         End If

  767.     End Sub

  768.     Private Sub 搜尋1_bt_Click(sender As Object, e As EventArgs) Handles 搜尋1_bt.Click

  769.         INB(對話框(2)) : 物料關鍵字 = 訊息回應

  770.         If 物料關鍵字 = "" Then : Else : 物料查詢 = True : Set_群組清單() : 次頁_p.BringToFront() : End If

  771.     End Sub

  772.     Private Sub 申請完成_bt_Click(sender As Object, e As EventArgs) Handles 申請完成_bt.Click

  773.         If 指定倉庫_cb.Text = "" Then : MGB(對話框(4), 1) : Else

  774.             If 需求日期_dtp.Text = "" Or 需求日期_dtp.Text = " " Then : MGB(對話框(14), 1) : Else

  775.                 Timer1.Enabled = False : 未核准_dgv.Enabled = True : 作廢清單_dgv.Enabled = True : 未審核_rb.Enabled = True : 已作廢_rb.Enabled = True

  776.                 已審核_rb.Enabled = True : 未核准1_dgv.Enabled = True : 作廢清單1_dgv.Enabled = True : 未審核1_rb.Enabled = True : 已作廢1_rb.Enabled = True

  777.                 已審核1_rb.Enabled = True

  778.                 PA47 = 申請人_tb.Text : SQL_系統組織結_級別讀取() : If dr.Read Then : PA46 = dr("級別") : End If : 存檔()

  779.                 If Val(PA46) <= 5 Then

  780.                     PA = 請購單號_tb.Text : PA1 = gUserName : SQL_建築物料請購單核准_請購單核准() : conn.Close()

  781.                     MGB(對話框(15) & 請購單號_tb.Text & 對話框(16), 1)

  782.                 ElseIf Val(PA46) > 5 Then : MGB(對話框(3), 1) : End If

  783. 

  784.                 '---LINE_AUTO 部門主管------------------------------------------------------------------------------------------------------------------------------------------

  785.                 PA47 = 申請人_tb.Text : PA4 = 申請人_tb.Text : Set_主管清單()

  786.                 For i As Integer = 0 To 主管_dgv.Rows.Count - 1

  787.                     If 主管_dgv.Rows.Count = 1 Then

  788.                         LIN訊息通知("CC207", 主管_dgv.Rows(i).Cells("Lead").Value.ToString, PA4, "二日內")

  789.                     ElseIf 主管_dgv.Rows.Count > 1 Then

  790.                         If CInt(主管_dgv.Rows(i).Cells("Level").Value.ToString) <= 5 And CInt(主管_dgv.Rows(i).Cells("Level").Value.ToString) >= 4 Then

  791.                             LIN訊息通知("CC207", 主管_dgv.Rows(i).Cells("Lead").Value.ToString, PA4, "二日內")

  792.                         End If

  793.                     End If

  794.                 Next : LIN訊息通知("CC207", "李協叡", PA4, "二日內")

  795.                 請購單號_tb.Text = "" : 申請人_tb.Text = "" : 項次_tb.Text = "" : 請購明細_dgv.DataSource = Nothing

  796.                 If 未審核_rb.Checked = True Then : Set_清單2() : ElseIf 已作廢_rb.Checked = True Then : Set_清單3() : ElseIf 已審核_rb.Checked = True Then : Set_清單4() : End If

  797.             End If

  798.         End If

  799.     End Sub

  800.     Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click

  801.         If 已作廢_rb.Checked = True Or 已審核_rb.Checked = True Then : MGB(對話框(13), 1) : Else

  802.             If 指定倉庫_cb.Text = "" Then : MGB(對話框(4), 1) : Else

  803.                 If 需求日期_dtp.Text = "" Or 需求日期_dtp.Text = " " Then : MGB(對話框(14), 1) : Else

  804.                     If 料號_tb.Text = "" Then : MGB(對話框(10), 1) : Else

  805.                         If 請購單號_tb.Text = "" Then : 開立建築物料請購單_bt.PerformClick() : 請購明細_dgv.DataSource = Nothing

  806.                             If 請購單號_tb.Text <> "" Then : Set_新增選取的資料到請購單() : End If

  807.                         Else : Set_新增選取的資料到請購單() : End If

  808.                     End If

  809.                 End If

  810.             End If

  811.         End If

  812.     End Sub

  813.     Private Sub 新增1_bt_Click(sender As Object, e As EventArgs) Handles 新增1_bt.Click

  814.         If 已作廢1_rb.Checked = True Or 已審核1_rb.Checked = True Then : MGB(對話框(13), 1) : Else

  815.             If 指定倉庫_cb.Text = "" Then : MGB(對話框(4), 1) : Else

  816.                 If 需求日期_dtp.Text = "" Or 需求日期_dtp.Text = " " Then : MGB(對話框(14), 1) : Else

  817.                     If 料號1_tb.Text = "" Then : MGB(對話框(10), 1) : Else

  818.                         If 請購單號_tb.Text = "" Then

  819.                             開立建築物料請購單_bt.PerformClick() : 請購明細_dgv.DataSource = Nothing

  820.                             If 請購單號_tb.Text <> "" Then : Set_新增選取的資料到請購單() : End If

  821.                         Else

  822.                             Set_新增選取的資料到請購單()

  823.                         End If

  824.                     End If

  825.                 End If

  826.             End If

  827.         End If

  828.     End Sub

  829.     Private Sub Set_新增選取的資料到請購單()

  830.         If 已作廢_rb.Checked = True Then : MGB(對話框(5), 1) : Else

  831.             If 申請數_nud.Value = 0 Then : MGB(對話框(6), 1) : Else

  832.                 存檔() : PA1 = 請購單號_tb.Text : PA2 = 料號_tb.Text : SQL_建築物料請購單申請_增選取資料驗證()

  833.                 If dr.Read() Then : conn.Close() : MGB(對話框(6), 1) : Else

  834.                     SQL_請購單明細表_項次最後一筆()

  835.                     If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close() : NUM1 = Double.Parse(新項次) + 1

  836.                     If NUM1 < 10 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If

  837. 

  838.                     物料規格 = KKK2

  839.                     PA = 請購單號_tb.Text : PA2 = 物料規格 : PA3 = "" : PA4 = "" : PA5 = 倉庫編號_tb.Text : PA5 = 倉庫編號_tb.Text : PA6 = 新項次

  840.                     If 切換_ts.Value = False Then

  841.                         PA1 = 物料規格_dgv.Rows(NUM2).Cells("原則說明").Value : NU1 = 申請數_nud.Value : PA9 = 物料規格_dgv.Rows(NUM2).Cells("Nomor_Bagian").Value

  842.                         PA7 = 物料規格_dgv.Rows(NUM2).Cells("群組碼").Value : PA8 = 物料規格_dgv.Rows(NUM2).Cells("料號原則").Value

  843.                     Else

  844.                         PA1 = 物料規格1_dgv.Rows(NUM2).Cells("原則說明").Value : NU1 = 申請數1_nud.Value : PA9 = 物料規格1_dgv.Rows(NUM2).Cells("Nomor_Bagian").Value

  845.                         PA7 = 物料規格1_dgv.Rows(NUM2).Cells("群組碼").Value : PA8 = 物料規格1_dgv.Rows(NUM2).Cells("料號原則").Value

  846.                     End If : SQL_請購單明細表_新增()

  847.                 End If : conn.Close() : MGB(對話框(7), 1) : Set_請購單清單() : 申請數_nud.Value = 0

  848.             End If

  849.         End If

  850.     End Sub

  851.     Private Sub 複製_bt_Click(sender As Object, e As EventArgs) Handles 複製_bt.Click

  852.         If 合約號_tb.Text = "" Then : MGB(對話框(28), 1) : Else

  853.             If 指定倉庫_cb.Text = "" Then : MGB(對話框(4), 1) : Else

  854.                 MGB(對話框(8), 2)

  855.                 If 訊息回應 = "YES" Then

  856.                     Timer1.Enabled = True

  857.                     申請完成_bt.Enabled = True : 未審核_rb.Checked = True : 已作廢_rb.Checked = False : 已審核_rb.Checked = False : 未審核_lb.Visible = True : 未核准_dgv.Visible = True

  858.                     已作廢_lb.Visible = False : 作廢清單_dgv.Visible = False : 已審核_lb.Visible = False : 已核准_dgv.Visible = False : 複製_bt.Enabled = False : 刪除_bt.Enabled = True

  859.                     作廢清單1_dgv.Visible = False : 未核准1_dgv.Visible = True : 已核准1_dgv.Visible = False : 已審核1_lb.Visible = False : 已作廢1_lb.Visible = False

  860.                     未審核1_lb.Visible = True : 未審核1_rb.Checked = True : 已作廢1_rb.Checked = False : 已審核1_rb.Checked = False

  861.                     開立建築物料請購單_bt.PerformClick()

  862.                     資料數 = 請購明細_dgv.Rows.Count

  863.                     For i As Integer = 0 To 請購明細_dgv.Rows.Count - 1 : MyMod.進度條()

  864.                         PA1 = 請購單號_tb.Text : SQL_請購單明細表_項次最後一筆() : If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close()

  865.                         NUM1 = Double.Parse(新項次) + 1 : If NUM1 < 10 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If

  866.                         PA = 請購單號_tb.Text : PA1 = 請購明細_dgv.Rows(i).Cells(表頭(12)).Value : PA2 = 請購明細_dgv.Rows(i).Cells(表頭(13)).Value

  867.                         PA3 = 請購明細_dgv.Rows(i).Cells(表頭(14)).Value : NU1 = 請購明細_dgv.Rows(i).Cells(表頭(15)).Value

  868.                         PA4 = 請購明細_dgv.Rows(i).Cells(表頭(16)).Value : PA5 = 倉庫編號_tb.Text : PA6 = 新項次 : PA7 = 請購明細_dgv.Rows(i).Cells("群組碼").Value

  869.                         PA8 = 請購明細_dgv.Rows(i).Cells("群組原則").Value : PA9 = 請購明細_dgv.Rows(i).Cells("料號").Value

  870.                         SQL_請購單明細表_新增()

  871.                     Next : conn.Close() : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 : Set_請購單清單() : MGB(對話框(9), 1)

  872.                 End If

  873.             End If

  874.         End If

  875.     End Sub

  876.     Private Sub 未審核_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 未審核_rb.Click

  877.         If 未審核_rb.Checked = True Then

  878.             未審核_rb.Checked = True : 已作廢_rb.Checked = False : 已審核_rb.Checked = False : 未審核_lb.Visible = True : 未核准_dgv.Visible = True

  879.             已作廢_lb.Visible = False : 作廢清單_dgv.Visible = False : 已審核_lb.Visible = False : 已核准_dgv.Visible = False : 複製_bt.Enabled = False

  880.             請購明細_dgv.DataSource = Nothing : 請購單號_tb.Text = "" : 申請人_tb.Text = "" : 項次_tb.Text = "" : 刪除_bt.Enabled = True

  881.             作廢清單1_dgv.Visible = False : 未核准1_dgv.Visible = True : 已核准1_dgv.Visible = False : 已審核1_lb.Visible = False : 已作廢1_lb.Visible = False

  882.             未審核1_lb.Visible = True : 未審核1_rb.Checked = True : 已作廢1_rb.Checked = False : 已審核1_rb.Checked = False

  883.             Set_清單2()

  884.         End If

  885.     End Sub

  886.     Private Sub 未審核1_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 未審核1_rb.Click

  887.         If 未審核1_rb.Checked = True Then

  888.             未審核_rb.Checked = True : 已作廢_rb.Checked = False : 已審核_rb.Checked = False : 未審核_lb.Visible = True : 未核准_dgv.Visible = True

  889.             已作廢_lb.Visible = False : 作廢清單_dgv.Visible = False : 已審核_lb.Visible = False : 已核准_dgv.Visible = False : 複製_bt.Enabled = False

  890.             請購明細_dgv.DataSource = Nothing : 請購單號_tb.Text = "" : 申請人_tb.Text = "" : 項次_tb.Text = "" : 刪除_bt.Enabled = True

  891.             作廢清單1_dgv.Visible = False : 未核准1_dgv.Visible = True : 已核准1_dgv.Visible = False : 已審核1_lb.Visible = False : 已作廢1_lb.Visible = False

  892.             未審核1_lb.Visible = True : 未審核1_rb.Checked = True : 已作廢1_rb.Checked = False : 已審核1_rb.Checked = False

  893.             Set_清單2()

  894.         End If

  895.     End Sub

  896.     Private Sub 已作廢_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 已作廢_rb.Click

  897.         If 已作廢_rb.Checked = True Then

  898.             未審核_rb.Checked = False : 已作廢_rb.Checked = True : 已審核_rb.Checked = False : 未審核_lb.Visible = False : 未核准_dgv.Visible = False

  899.             已作廢_lb.Visible = True : 作廢清單_dgv.Visible = True : 已審核_lb.Visible = False : 已核准_dgv.Visible = False : 複製_bt.Enabled = False

  900.             請購明細_dgv.DataSource = Nothing : 請購單號_tb.Text = "" : 申請人_tb.Text = "" : 項次_tb.Text = "" : 刪除_bt.Enabled = False

  901.             作廢清單1_dgv.Visible = True : 未核准1_dgv.Visible = False : 已核准1_dgv.Visible = False : 已審核1_lb.Visible = False : 已作廢1_lb.Visible = True

  902.             未審核1_lb.Visible = False : 未審核1_rb.Checked = False : 已作廢1_rb.Checked = True : 已審核1_rb.Checked = False

  903.             Set_清單3()

  904.         End If

  905.     End Sub

  906.     Private Sub 已作廢1_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 已作廢1_rb.Click

  907.         If 已作廢1_rb.Checked = True Then

  908.             未審核_rb.Checked = False : 已作廢_rb.Checked = True : 已審核_rb.Checked = False : 未審核_lb.Visible = False : 未核准_dgv.Visible = False

  909.             已作廢_lb.Visible = True : 作廢清單_dgv.Visible = True : 已審核_lb.Visible = False : 已核准_dgv.Visible = False : 複製_bt.Enabled = False

  910.             請購明細_dgv.DataSource = Nothing : 請購單號_tb.Text = "" : 申請人_tb.Text = "" : 項次_tb.Text = "" : 刪除_bt.Enabled = False

  911.             作廢清單1_dgv.Visible = True : 未核准1_dgv.Visible = False : 已核准1_dgv.Visible = False : 已審核1_lb.Visible = False : 已作廢1_lb.Visible = True

  912.             未審核1_lb.Visible = False : 未審核1_rb.Checked = False : 已作廢1_rb.Checked = True : 已審核1_rb.Checked = False

  913.             Set_清單3()

  914.         End If

  915.     End Sub

  916.     Private Sub 已審核_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 已審核_rb.Click

  917.         If 已審核_rb.Checked = True Then

  918.             未審核_rb.Checked = False : 已作廢_rb.Checked = False : 已審核_rb.Checked = True : 未審核_lb.Visible = False : 未核准_dgv.Visible = False

  919.             已作廢_lb.Visible = False : 作廢清單_dgv.Visible = False : 已審核_lb.Visible = True : 已核准_dgv.Visible = True : 複製_bt.Enabled = True

  920.             請購明細_dgv.DataSource = Nothing : 請購單號_tb.Text = "" : 申請人_tb.Text = "" : 項次_tb.Text = "" : 刪除_bt.Enabled = False

  921.             作廢清單1_dgv.Visible = False : 未核准1_dgv.Visible = False : 已核准1_dgv.Visible = True : 已審核1_lb.Visible = True : 已作廢1_lb.Visible = False

  922.             未審核1_lb.Visible = False : 未審核1_rb.Checked = False : 已作廢1_rb.Checked = False : 已審核1_rb.Checked = True

  923.             Set_清單4()

  924.         End If

  925.     End Sub

  926.     Private Sub 已審核1_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 已審核1_rb.Click

  927.         If 已審核1_rb.Checked = True Then

  928.             未審核_rb.Checked = False : 已作廢_rb.Checked = False : 已審核_rb.Checked = True : 未審核_lb.Visible = False : 未核准_dgv.Visible = False

  929.             已作廢_lb.Visible = False : 作廢清單_dgv.Visible = False : 已審核_lb.Visible = True : 已核准_dgv.Visible = True : 複製_bt.Enabled = True

  930.             請購明細_dgv.DataSource = Nothing : 請購單號_tb.Text = "" : 申請人_tb.Text = "" : 項次_tb.Text = "" : 刪除_bt.Enabled = False

  931.             作廢清單1_dgv.Visible = False : 未核准1_dgv.Visible = False : 已核准1_dgv.Visible = True : 已審核1_lb.Visible = True : 已作廢1_lb.Visible = False

  932.             未審核1_lb.Visible = False : 未審核1_rb.Checked = False : 已作廢1_rb.Checked = False : 已審核1_rb.Checked = True

  933.             Set_清單4()

  934.         End If

  935.     End Sub

  936.     Private Sub 格式設定1()

  937.         開立建築物料請購單_bt.Enabled = True : 新增_bt.Enabled = False : 新增1_bt.Enabled = False : 刪除請購單上點選資料_bt.Enabled = False

  938.         刪除_bt.Enabled = False : 申請完成_bt.Enabled = False

  939.     End Sub

  940.     Private Sub 請購單號_tb_TextChanged(sender As Object, e As EventArgs) Handles 請購單號_tb.TextChanged

  941.         If 請購單號_tb.Text = "" Then : 格式設定1() : Else

  942.             If 已審核_rb.Checked = True And 已作廢_rb.Checked = False And 未審核_rb.Checked = False Then : 格式設定1() : 複製_bt.Enabled = True

  943.             ElseIf 已審核_rb.Checked = False And 已作廢_rb.Checked = True And 未審核_rb.Checked = False Then : 格式設定1() : 複製_bt.Enabled = False

  944.             Else : 開立建築物料請購單_bt.Enabled = False : 刪除_bt.Enabled = True : 申請完成_bt.Enabled = True : 複製_bt.Enabled = False : End If

  945.         End If

  946.     End Sub

  947.     Private Sub 申請數_nud_ValueChanged(sender As Object, e As EventArgs) Handles 申請數_nud.ValueChanged

  948.         新增_bt.Enabled = True : 新增1_bt.Enabled = True

  949.         If 申請數_nud.Value > Val(可申請_tb.Text) Then : MGB(對話框(0) & 可申請_tb.Text & 對話框(1), 1) : 申請數_nud.Value = 0 : End If

  950.     End Sub

  951.     Private Sub 申請數1_nud_ValueChanged(sender As Object, e As EventArgs) Handles 申請數1_nud.ValueChanged

  952.         申請數_nud.Value = 申請數1_nud.Value

  953.     End Sub

  954.     Private Sub 小間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距_ch.Click

  955.         小間距_ch.Checked = True : 中間距_ch.Checked = False : 大間距_ch.Checked = False : MyMod.間距設定存檔_1() : If 切換_ts.Value = False Then : Set_清單1() : End If

  956.     End Sub

  957.     Private Sub 中間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距_ch.Click

  958.         小間距_ch.Checked = False : 中間距_ch.Checked = True : 大間距_ch.Checked = False : MyMod.間距設定存檔_2() : If 切換_ts.Value = False Then : Set_清單1() : End If

  959.     End Sub

  960.     Private Sub 大間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距_ch.Click

  961.         小間距_ch.Checked = False : 中間距_ch.Checked = False : 大間距_ch.Checked = True : MyMod.間距設定存檔_3() : If 切換_ts.Value = False Then : Set_清單1() : End If

  962.     End Sub

  963.     Private Sub 小間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距1_ch.Click

  964.         小間距1_ch.Checked = True : 中間距1_ch.Checked = False : 大間距1_ch.Checked = False : MyMod.間距設定存檔_4() : Set_請購單清單()

  965.     End Sub

  966.     Private Sub 中間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距1_ch.Click

  967.         小間距1_ch.Checked = False : 中間距1_ch.Checked = True : 大間距1_ch.Checked = False : MyMod.間距設定存檔_5() : Set_請購單清單()

  968.     End Sub

  969.     Private Sub 大間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距1_ch.Click

  970.         小間距1_ch.Checked = False : 中間距1_ch.Checked = False : 大間距1_ch.Checked = True : MyMod.間距設定存檔_6() : Set_請購單清單()

  971.     End Sub

  972.     Private Sub Set_開立建築物料請購單()

  973.         Timer1.Enabled = True

  974.         申請完成_bt.Enabled = True : 未審核_rb.Checked = True : 已作廢_rb.Checked = False : 已審核_rb.Checked = False : 未審核_lb.Visible = True : 未核准_dgv.Visible = True

  975.         已作廢_lb.Visible = False : 作廢清單_dgv.Visible = False : 已審核_lb.Visible = False : 已核准_dgv.Visible = False : 複製_bt.Enabled = False

  976.         未審核_rb.Enabled = False : 已作廢_rb.Enabled = False : 已審核_rb.Enabled = False : 未核准_dgv.Enabled = False : 已作廢1_rb.Checked = False

  977.         作廢清單1_dgv.Visible = False : 未核准1_dgv.Enabled = False : 已核准1_dgv.Visible = False : 已審核1_lb.Visible = False : 已作廢1_lb.Visible = False

  978.         未審核1_lb.Visible = True : 未審核1_rb.Enabled = False : 已審核1_rb.Checked = False

  979.         Set_日期格式轉換() : Dim NUM1 As Integer

  980.         For i As Integer = 1 To 999

  981.             NUM1 = 0 + i

  982.             If NUM1 < 10 Then : 請購單號_tb.Text = "CR-" & DTP1 & "-00" & NUM1

  983.             ElseIf NUM1 > 9 And NUM1 < 100 Then : 請購單號_tb.Text = "CR-" & DTP1 & "-0" & NUM1

  984.             ElseIf NUM1 > 99 Then : 請購單號_tb.Text = "CR-" & DTP1 & "-" & NUM1 : End If

  985.             PA = 請購單號_tb.Text : SQL_請購單控制表_流水號查詢()

  986.             If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()

  987.         Next

  988.         PA1 = 合約號_tb.Text.ToUpper : PA43 = 備註_tb.Text : PA44 = 合約編號_cb.Text : PA45 = 合約編號1_tb.Text : PA46 = 合約編號2_tb.Text : PA47 = 合約編號3_tb.Text

  989.         SQL_請購單控制表_新增() : 申請人_tb.Text = gUserName : conn.Close()

  990.         If 未審核_rb.Checked = True Then : Set_清單2() : ElseIf 已作廢_rb.Checked = True Then : Set_清單3() : ElseIf 已審核_rb.Checked = True Then : Set_清單4() : End If

  991.     End Sub

  992.     Private Sub 開立建築物料請購單_bt_Click(sender As Object, e As EventArgs) Handles 開立建築物料請購單_bt.Click

  993.         Dim 合約編號條件 As Boolean = True

  994.         If 合約編號_cb.Text = "" Then : 合約編號條件 = False : Else

  995.             If 合約編號1_tb.Text = "" Then : MGB(對話框(19), 1) : 合約編號條件 = False : Else

  996.                 Dim d As Int32

  997.                 For index = 0 To 合約編號1_tb.Text.Length - 1

  998.                     d = Asc(合約編號1_tb.Text(index))

  999.                     Dim 可能不行 As Boolean = False

  1000.                     If (d < 65 Or d > 90) Then : 可能不行 = True : End If   'c變數若在65~90是大寫的英文字母

  1001.                     If 可能不行 = True Then

  1002.                         If (d < 97 Or d > 122) Then : 可能不行 = True : Else : 可能不行 = False : End If       'c變數若在97~122是小寫的英文字母

  1003.                         If 可能不行 = True Then   '然後查表， c變數若在48~57， 表示它是數字，

  1004.                             If (d < 48 Or d > 57) Then : MGB(對話框(20), 1) : 合約編號條件 = False : Exit For : End If

  1005.                         End If

  1006.                     End If

  1007.                 Next

  1008.             End If

  1009.             If 合約編號2_tb.Text = "" Then : MGB(對話框(21), 1) : 合約編號條件 = False : End If

  1010.             Dim c As Int32   '然後查表， c變數若在48~57， 表示它是數字，

  1011.             For index = 0 To 合約編號2_tb.Text.Length - 1

  1012.                 c = Asc(合約編號2_tb.Text(index))

  1013.                 If c < 48 Or c > 57 Then : MGB(對話框(22), 1) : 合約編號條件 = False : Exit For : Else

  1014.                     If Len(合約編號2_tb.Text) <> 6 Then : MGB(對話框(23), 1) : 合約編號條件 = False : Exit For : End If

  1015.                 End If

  1016.             Next

  1017.             If 合約編號3_tb.Text = "" Then : MGB(對話框(24), 1) : 合約編號條件 = False

  1018.             ElseIf IsNumeric(合約編號3_tb.Text) = False Then : MGB(對話框(25), 1) : 合約編號條件 = False

  1019.             End If

  1020.         End If

  1021.         If 合約編號條件 = False Then : 合約號_tb.Text = "" : 合約編號_cb.Text = "" : 合約編號1_tb.Text = "" : 合約編號2_tb.Text = "" : 合約編號3_tb.Text = ""

  1022.         Else : Dim SSA As String = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text : 合約號_tb.Text = SSA.ToUpper : End If

  1023. 

  1024.         If 指定倉庫_cb.Text = "" Then : MGB(對話框(4), 1) : Else

  1025.             If 需求日期_dtp.Text = "" Or 需求日期_dtp.Text = " " Then : MGB(對話框(14), 1) : Else

  1026.                 If 合約號_tb.Text = "" Then : Dim SS As String = 對話框(29) : MGB(對話框(17), 2)

  1027.                     If 訊息回應 = "YES" Then

  1028.                         INB(SS) : PA20 = 訊息回應 : SQL_請購功能單次授權碼使用驗證()

  1029.                         If dr.Read() Then : MGB(對話框(18), 1) : 合約號_tb.Text = PA20 : Set_開立建築物料請購單() : 請購明細_dgv.DataSource = Nothing : SQL_授權使用()

  1030.                         Else : MGB(對話框(26), 1) : End If

  1031.                     End If

  1032.                 Else : PA = 合約號_tb.Text : SQL_合約號確認()

  1033.                     If dr.Read Then : Set_開立建築物料請購單() : 請購明細_dgv.DataSource = Nothing : Else : MGB(對話框(30), 1) : End If

  1034.                 End If

  1035.             End If

  1036.         End If

  1037.     End Sub

  1038.     Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click

  1039.         If 已作廢_rb.Checked = True Or 已審核_rb.Checked = True Then : MGB(對話框(13), 1) : Else

  1040.             MGB(對話框(12), 2)

  1041.             If 訊息回應 = "YES" Then

  1042.                 PA = 請購單號_tb.Text : SQL_請購單控制表_刪除() : SQL_請購單明細表_刪除() : conn.Close()

  1043.                 請購單號_tb.Text = "" : 申請人_tb.Text = "" : 項次_tb.Text = "" : 請購明細_dgv.DataSource = Nothing

  1044.                 If 未審核_rb.Checked = True Then : Set_清單2() : ElseIf 已作廢_rb.Checked = True Then : Set_清單3() : ElseIf 已審核_rb.Checked = True Then : Set_清單4() : End If

  1045.                 Timer1.Enabled = False

  1046.                 未核准_dgv.Enabled = True : 作廢清單_dgv.Enabled = True : 未審核_rb.Enabled = True : 已作廢_rb.Enabled = True : 已審核_rb.Enabled = True

  1047.                 未核准1_dgv.Enabled = True : 作廢清單1_dgv.Enabled = True : 未審核1_rb.Enabled = True : 已作廢1_rb.Enabled = True

  1048.             End If

  1049.         End If

  1050.     End Sub

  1051.     Private Sub 刪除請購單上點選資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除請購單上點選資料_bt.Click

  1052.         If 已作廢_rb.Checked = True Or 已審核_rb.Checked = True Then : MGB(對話框(13), 1) : Else

  1053.             If 請購單號_tb.Text = "" Then : MGB(對話框(10), 1) : Else

  1054.                 If 已作廢_rb.Checked = True Then : MGB(對話框(5), 1) : Else

  1055.                     If 項次_tb.Text = "" Then : MGB(對話框(11), 1) : Else

  1056.                         MGB(對話框(12), 2)

  1057.                         If 訊息回應 = "YES" Then

  1058.                             存檔() : PA1 = 請購單號_tb.Text : PA2 = 項次_tb.Text : SQL_請購單明細表_指定刪除() : conn.Close() : Set_請購單清單()

  1059.                             Dim NUM1 As Integer = 0

  1060.                             For i As Integer = 0 To 請購明細_dgv.Rows.Count - 1

  1061.                                 NUM1 += 1 : If NUM1 < 10 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If

  1062.                                 PA = 新項次 : PA1 = 請購單號_tb.Text : PA2 = 請購明細_dgv.Rows(i).Cells(表頭(11)).Value

  1063.                                 SQL_請購單明細表_項次修改() : conn.Close()

  1064.                             Next : Set_請購單清單()

  1065.                         End If

  1066.                     End If

  1067.                 End If

  1068.             End If

  1069.         End If

  1070.     End Sub

  1071.     Private Sub 縮放3_bt_Click(sender As Object, e As EventArgs) Handles 縮放3_bt.Click

  1072.         合約_P.BringToFront()

  1073.     End Sub

  1074.     Private Sub 重新整理_bt_Click(sender As Object, e As EventArgs) Handles 重新整理_bt.Click

  1075.         If 未審核_rb.Checked = True Then : Set_清單2() : ElseIf 已作廢_rb.Checked = True Then : Set_清單3() : ElseIf 已審核_rb.Checked = True Then : Set_清單4() : End If

  1076.     End Sub

  1077.     Private Sub 物料圖_pb_Click(sender As Object, e As EventArgs) Handles 物料圖_pb.Click

  1078.         If IsNothing(物料圖_pb.Image) = False Then : 圖片傳遞 = 物料圖_pb.Image : 圖片放大視窗.ShowDialog() : End If

  1079.     End Sub

  1080.     Private Sub 物料圖1_pb_Click(sender As Object, e As EventArgs) Handles 物料圖1_pb.Click

  1081.         If IsNothing(物料圖1_pb.Image) = False Then : 圖片傳遞 = 物料圖1_pb.Image : 圖片放大視窗.ShowDialog() : End If

  1082.     End Sub

  1083.     Private Sub 詳細資料2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 詳細資料2_ch.Click

  1084.         If 詳細資料2_ch.Checked = True Then : 詳細資料2_ch.Checked = True : Else : 詳細資料2_ch.Checked = False : End If : Set_請購單清單()

  1085.     End Sub

  1086.     Private Sub 合約編號1_tb_TextChanged(sender As Object, e As EventArgs) Handles 合約編號1_tb.TextChanged

  1087.         合約編號1_tb.Text = 合約編號1_tb.Text.ToUpper

  1088.     End Sub

  1089.     Private Sub 切換_ts_ValueChanged(sender As Object, e As EventArgs) Handles 切換_ts.ValueChanged

  1090.         If 首次開啟 = True Then : Else

  1091.             If 切換_ts.Value = True Then : 切換_ts.Value = True : Panel3.Visible = True : Panel2.Visible = False

  1092.             Else : 切換_ts.Value = False : Panel3.Visible = False : Panel2.Visible = True : End If

  1093.         End If

  1094.     End Sub

  1095.     Private Sub 回首頁_bt_Click(sender As Object, e As EventArgs) Handles 回首頁_bt.Click

  1096.         物料查詢 = False : 主頁_p.BringToFront()

  1097.     End Sub

  1098.     Private Sub 回次頁_bt_Click(sender As Object, e As EventArgs) Handles 回次頁_bt.Click

  1099.         If 頁面 = "1" Then : 主頁_p.BringToFront() : ElseIf 頁面 = "2" Then : 次頁_p.BringToFront() : Else : 主頁_p.BringToFront() : End If

  1100.     End Sub

  1101.     Private Sub 單據_bt_Click(sender As Object, e As EventArgs) Handles 單據_bt.Click

  1102.         單據_p.BringToFront()

  1103.     End Sub

  1104.     Private Sub 次項變形()

  1105.         For i As Integer = 1 To 21 : Dim 選擇 As Panel = CType(Me.Controls.Find("AP" & i, True)(0), Panel) : 選擇.Visible = False : Next

  1106.         Dim SS As Integer

  1107.         If 群組分類_dgv.Rows.Count > 21 Then : SS = 21 : Else : SS = 群組分類_dgv.Rows.Count : End If

  1108.         For i As Integer = 1 To SS : Dim 選擇 As Panel = CType(Me.Controls.Find("AP" & i, True)(0), Panel) : 選擇.Visible = True : Next

  1109.         Dim 轉檔 As Boolean

  1110.         For i As Integer = 0 To 群組分類_dgv.Rows.Count - 1

  1111.             Dim 選擇 As PictureBox = CType(Me.Controls.Find("PB_" & i + 1, True)(0), PictureBox)

  1112.             If IsDBNull(群組分類_dgv.Rows(i).Cells(2).Value) = True Then : 轉檔 = False : Else : 轉檔 = True : End If

  1113.             While 轉檔 = True

  1114.                 Dim unused As Byte() = New Byte(-1) {}

  1115.                 Dim bytes As Byte() = DirectCast(群組分類_dgv.Rows(i).Cells(2).Value, Byte())

  1116.                 Dim oStream As New MemoryStream(bytes)

  1117.                 選擇.Image = Bitmap.FromStream(oStream) : 轉檔 = False

  1118.             End While : conn.Close() : 選擇.SizeMode = 4

  1119.             Dim 選擇1 As TextBox = CType(Me.Controls.Find("TB_" & i + 1, True)(0), TextBox) : 選擇1.Text = 群組分類_dgv.Rows(i).Cells(1).Value.ToString

  1120.             '---------未做換頁計算---------------------------------------------

  1121.             群組碼(i + 1) = 群組分類_dgv.Rows(i).Cells(0).Value.ToString

  1122.         Next

  1123.     End Sub

  1124.     Private Sub 管材_bt_Click(sender As Object, e As EventArgs) Handles 管材_bt.Click

  1125.         頁面 = "1" : PA1 = "管材" : Set_群組清單() : 次頁_p.BringToFront()

  1126.     End Sub

  1127.     Private Sub 電線_bt_Click(sender As Object, e As EventArgs) Handles 電線_bt.Click

  1128.         頁面 = "1" : PA1 = "電線" : Set_群組清單() : 次頁_p.BringToFront()

  1129.     End Sub

  1130.     Private Sub 電料_bt_Click(sender As Object, e As EventArgs) Handles 電料_bt.Click

  1131.         頁面 = "1" : PA1 = "電料" : Set_群組清單() : 次頁_p.BringToFront()

  1132.     End Sub

  1133.     Private Sub 槽架_bt_Click(sender As Object, e As EventArgs) Handles 槽架_bt.Click

  1134.         頁面 = "1" : PA1 = "槽架" : Set_群組清單() : 次頁_p.BringToFront()

  1135.     End Sub

  1136.     Private Sub 建材_bt_Click(sender As Object, e As EventArgs) Handles 建材_bt.Click

  1137.         頁面 = "1" : PA1 = "建材" : Set_群組清單() : 次頁_p.BringToFront()

  1138.     End Sub

  1139.     Private Sub 五金_bt_Click(sender As Object, e As EventArgs) Handles 五金_bt.Click

  1140.         頁面 = "1" : PA1 = "五金" : Set_群組清單() : 次頁_p.BringToFront()

  1141.     End Sub

  1142.     Private Sub 設備_bt_Click(sender As Object, e As EventArgs) Handles 設備_bt.Click

  1143.         頁面 = "1" : PA1 = "設備" : Set_群組清單() : 次頁_p.BringToFront()

  1144.     End Sub

  1145.     Private Sub 工具_bt_Click(sender As Object, e As EventArgs) Handles 工具_bt.Click

  1146.         頁面 = "1" : PA1 = "工具" : Set_群組清單() : 次頁_p.BringToFront()

  1147.     End Sub

  1148.     Private Sub 日用_bt_Click(sender As Object, e As EventArgs) Handles 日用_bt.Click

  1149.         頁面 = "1" : PA1 = "日用" : Set_群組清單() : 次頁_p.BringToFront()

  1150.     End Sub

  1151.     Private Sub 其他_bt_Click(sender As Object, e As EventArgs) Handles 其他_bt.Click

  1152.         頁面 = "1" : PA1 = "其他" : Set_群組清單() : 次頁_p.BringToFront()

  1153.     End Sub

  1154.     Private Sub PB_1_Click(sender As Object, e As EventArgs) Handles PB_1.Click

  1155.         頁面 = "2" : PA1 = 群組碼(1) : Set_清單1_1() : 物料_p.BringToFront()

  1156.     End Sub

  1157.     Private Sub PB_2_Click(sender As Object, e As EventArgs) Handles PB_2.Click

  1158.         頁面 = "2" : PA1 = 群組碼(2) : Set_清單1_1() : 物料_p.BringToFront()

  1159.     End Sub

  1160.     Private Sub PB_3_Click(sender As Object, e As EventArgs) Handles PB_3.Click

  1161.         頁面 = "2" : PA1 = 群組碼(3) : Set_清單1_1() : 物料_p.BringToFront()

  1162.     End Sub

  1163.     Private Sub PB_4_Click(sender As Object, e As EventArgs) Handles PB_4.Click

  1164.         頁面 = "2" : PA1 = 群組碼(4) : Set_清單1_1() : 物料_p.BringToFront()

  1165.     End Sub

  1166.     Private Sub PB_5_Click(sender As Object, e As EventArgs) Handles PB_5.Click

  1167.         頁面 = "2" : PA1 = 群組碼(5) : Set_清單1_1() : 物料_p.BringToFront()

  1168.     End Sub

  1169.     Private Sub PB_6_Click(sender As Object, e As EventArgs) Handles PB_6.Click

  1170.         頁面 = "2" : PA1 = 群組碼(6) : Set_清單1_1() : 物料_p.BringToFront()

  1171.     End Sub

  1172.     Private Sub PB_7_Click(sender As Object, e As EventArgs) Handles PB_7.Click

  1173.         頁面 = "2" : PA1 = 群組碼(7) : Set_清單1_1() : 物料_p.BringToFront()

  1174.     End Sub

  1175.     Private Sub PB_8_Click(sender As Object, e As EventArgs) Handles PB_8.Click

  1176.         頁面 = "2" : PA1 = 群組碼(8) : Set_清單1_1() : 物料_p.BringToFront()

  1177.     End Sub

  1178.     Private Sub PB_9_Click(sender As Object, e As EventArgs) Handles PB_9.Click

  1179.         頁面 = "2" : PA1 = 群組碼(9) : Set_清單1_1() : 物料_p.BringToFront()

  1180.     End Sub

  1181.     Private Sub PB_10_Click(sender As Object, e As EventArgs) Handles PB_10.Click

  1182.         頁面 = "2" : PA1 = 群組碼(10) : Set_清單1_1() : 物料_p.BringToFront()

  1183.     End Sub

  1184.     Private Sub PB_11_Click(sender As Object, e As EventArgs) Handles PB_11.Click

  1185.         頁面 = "2" : PA1 = 群組碼(11) : Set_清單1_1() : 物料_p.BringToFront()

  1186.     End Sub

  1187.     Private Sub PB_12_Click(sender As Object, e As EventArgs) Handles PB_12.Click

  1188.         頁面 = "2" : PA1 = 群組碼(12) : Set_清單1_1() : 物料_p.BringToFront()

  1189.     End Sub

  1190.     Private Sub PB_13_Click(sender As Object, e As EventArgs) Handles PB_13.Click

  1191.         頁面 = "2" : PA1 = 群組碼(13) : Set_清單1_1() : 物料_p.BringToFront()

  1192.     End Sub

  1193.     Private Sub PB_14_Click(sender As Object, e As EventArgs) Handles PB_14.Click

  1194.         頁面 = "2" : PA1 = 群組碼(14) : Set_清單1_1() : 物料_p.BringToFront()

  1195.     End Sub

  1196.     Private Sub PB_15_Click(sender As Object, e As EventArgs) Handles PB_15.Click

  1197.         頁面 = "2" : PA1 = 群組碼(15) : Set_清單1_1() : 物料_p.BringToFront()

  1198.     End Sub

  1199.     Private Sub PB_16_Click(sender As Object, e As EventArgs) Handles PB_16.Click

  1200.         頁面 = "2" : PA1 = 群組碼(16) : Set_清單1_1() : 物料_p.BringToFront()

  1201.     End Sub

  1202.     Private Sub PB_17_Click(sender As Object, e As EventArgs) Handles PB_17.Click

  1203.         頁面 = "2" : PA1 = 群組碼(17) : Set_清單1_1() : 物料_p.BringToFront()

  1204.     End Sub

  1205.     Private Sub PB_18_Click(sender As Object, e As EventArgs) Handles PB_18.Click

  1206.         頁面 = "2" : PA1 = 群組碼(18) : Set_清單1_1() : 物料_p.BringToFront()

  1207.     End Sub

  1208.     Private Sub PB_19_Click(sender As Object, e As EventArgs) Handles PB_19.Click

  1209.         頁面 = "2" : PA1 = 群組碼(19) : Set_清單1_1() : 物料_p.BringToFront()

  1210.     End Sub

  1211.     Private Sub PB_20_Click(sender As Object, e As EventArgs) Handles PB_20.Click

  1212.         頁面 = "2" : PA1 = 群組碼(20) : Set_清單1_1() : 物料_p.BringToFront()

  1213.     End Sub

  1214.     Private Sub PB_21_Click(sender As Object, e As EventArgs) Handles PB_21.Click

  1215.         頁面 = "2" : PA1 = 群組碼(21) : Set_清單1_1() : 物料_p.BringToFront()

  1216.     End Sub

  1217.     Private Sub TB_1_TextChanged(sender As Object, e As EventArgs) Handles TB_1.Click

  1218.         頁面 = "2" : PA1 = 群組碼(1) : Set_清單1_1() : 物料_p.BringToFront()

  1219.     End Sub

  1220.     Private Sub TB_2_TextChanged(sender As Object, e As EventArgs) Handles TB_2.Click

  1221.         頁面 = "2" : PA1 = 群組碼(2) : Set_清單1_1() : 物料_p.BringToFront()

  1222.     End Sub

  1223.     Private Sub TB_3_TextChanged(sender As Object, e As EventArgs) Handles TB_3.Click

  1224.         頁面 = "2" : PA1 = 群組碼(3) : Set_清單1_1() : 物料_p.BringToFront()

  1225.     End Sub

  1226.     Private Sub TB_4_TextChanged(sender As Object, e As EventArgs) Handles TB_4.Click

  1227.         頁面 = "2" : PA1 = 群組碼(4) : Set_清單1_1() : 物料_p.BringToFront()

  1228.     End Sub

  1229.     Private Sub TB_5_TextChanged(sender As Object, e As EventArgs) Handles TB_5.Click

  1230.         頁面 = "2" : PA1 = 群組碼(5) : Set_清單1_1() : 物料_p.BringToFront()

  1231.     End Sub

  1232.     Private Sub TB_6_TextChanged(sender As Object, e As EventArgs) Handles TB_6.Click

  1233.         頁面 = "2" : PA1 = 群組碼(6) : Set_清單1_1() : 物料_p.BringToFront()

  1234.     End Sub

  1235.     Private Sub TB_7_TextChanged(sender As Object, e As EventArgs) Handles TB_7.Click

  1236.         頁面 = "2" : PA1 = 群組碼(7) : Set_清單1_1() : 物料_p.BringToFront()

  1237.     End Sub

  1238.     Private Sub TB_8_TextChanged(sender As Object, e As EventArgs) Handles TB_8.Click

  1239.         頁面 = "2" : PA1 = 群組碼(8) : Set_清單1_1() : 物料_p.BringToFront()

  1240.     End Sub

  1241.     Private Sub TB_9_TextChanged(sender As Object, e As EventArgs) Handles TB_9.Click

  1242.         頁面 = "2" : PA1 = 群組碼(9) : Set_清單1_1() : 物料_p.BringToFront()

  1243.     End Sub

  1244.     Private Sub TB_10_TextChanged(sender As Object, e As EventArgs) Handles TB_10.Click

  1245.         頁面 = "2" : PA1 = 群組碼(10) : Set_清單1_1() : 物料_p.BringToFront()

  1246.     End Sub

  1247.     Private Sub TB_11_TextChanged(sender As Object, e As EventArgs) Handles TB_11.Click

  1248.         頁面 = "2" : PA1 = 群組碼(11) : Set_清單1_1() : 物料_p.BringToFront()

  1249.     End Sub

  1250.     Private Sub TB_12_TextChanged(sender As Object, e As EventArgs) Handles TB_12.Click

  1251.         頁面 = "2" : PA1 = 群組碼(12) : Set_清單1_1() : 物料_p.BringToFront()

  1252.     End Sub

  1253.     Private Sub TB_13_TextChanged(sender As Object, e As EventArgs) Handles TB_13.Click

  1254.         頁面 = "2" : PA1 = 群組碼(13) : Set_清單1_1() : 物料_p.BringToFront()

  1255.     End Sub

  1256.     Private Sub TB_14_TextChanged(sender As Object, e As EventArgs) Handles TB_14.Click

  1257.         頁面 = "2" : PA1 = 群組碼(14) : Set_清單1_1() : 物料_p.BringToFront()

  1258.     End Sub

  1259.     Private Sub TB_15_TextChanged(sender As Object, e As EventArgs) Handles TB_15.Click

  1260.         頁面 = "2" : PA1 = 群組碼(15) : Set_清單1_1() : 物料_p.BringToFront()

  1261.     End Sub

  1262.     Private Sub TB_16_TextChanged(sender As Object, e As EventArgs) Handles TB_16.Click

  1263.         頁面 = "2" : PA1 = 群組碼(16) : Set_清單1_1() : 物料_p.BringToFront()

  1264.     End Sub

  1265.     Private Sub TB_17_TextChanged(sender As Object, e As EventArgs) Handles TB_17.Click

  1266.         頁面 = "2" : PA1 = 群組碼(17) : Set_清單1_1() : 物料_p.BringToFront()

  1267.     End Sub

  1268.     Private Sub TB_18_TextChanged(sender As Object, e As EventArgs) Handles TB_18.Click

  1269.         頁面 = "2" : PA1 = 群組碼(18) : Set_清單1_1() : 物料_p.BringToFront()

  1270.     End Sub

  1271.     Private Sub TB_19_TextChanged(sender As Object, e As EventArgs) Handles TB_19.Click

  1272.         頁面 = "2" : PA1 = 群組碼(19) : Set_清單1_1() : 物料_p.BringToFront()

  1273.     End Sub

  1274.     Private Sub TB_20_TextChanged(sender As Object, e As EventArgs) Handles TB_20.Click

  1275.         頁面 = "2" : PA1 = 群組碼(20) : Set_清單1_1() : 物料_p.BringToFront()

  1276.     End Sub

  1277.     Private Sub TB_21_TextChanged(sender As Object, e As EventArgs) Handles TB_21.Click

  1278.         頁面 = "2" : PA1 = 群組碼(21) : Set_清單1_1() : 物料_p.BringToFront()

  1279.     End Sub

  1280. 

  1281.     Private Sub 風格()

  1282.         If 深色風格 = False Then

  1283.             Me.BackColor = SystemColors.Control

  1284. 

  1285.             切換_lb.ForeColor = Color.Black : Label7.ForeColor = Color.Black : 料號_lb.ForeColor = Color.Black : 庫存量_lb.ForeColor = Color.Black

  1286.             最大庫存量_lb.ForeColor = Color.Black : 可申請_lb.ForeColor = Color.Black : 詳細資料2_ch.ForeColor = Color.Black : Label1.ForeColor = Color.Black

  1287.             小間距_ch.ForeColor = Color.Black : 中間距_ch.ForeColor = Color.Black : 大間距_ch.ForeColor = Color.Black : 小間距1_ch.ForeColor = Color.Black

  1288.             中間距1_ch.ForeColor = Color.Black : 大間距1_ch.ForeColor = Color.Black : 已審核_lb.ForeColor = Color.Black : 未審核_lb.ForeColor = Color.Black

  1289.             已作廢_lb.ForeColor = Color.Black : 未審核1_lb.ForeColor = Color.Black : 料號1_lb.ForeColor = Color.Black : 庫存量1_lb.ForeColor = Color.Black

  1290.             最大庫存量1_lb.ForeColor = Color.Black : 可申請1_lb.ForeColor = Color.Black : 已審核1_lb.ForeColor = Color.Black : 已作廢1_lb.ForeColor = Color.Black

  1291.             Label4.ForeColor = Color.Black : 合約號_lb.ForeColor = Color.Black : Label35.ForeColor = Color.Black : 請購單號_lb.ForeColor = Color.Black

  1292.             申請日期_lb.ForeColor = Color.Black : Label7.ForeColor = Color.Black : 選擇_lb.ForeColor = Color.Black : 項次_lb.ForeColor = Color.Black

  1293.             申請人_lb.ForeColor = Color.Black

  1294. 

  1295.             指定倉庫_lb.ForeColor = Color.MediumVioletRed : 操作_lb.ForeColor = Color.Blue : 群組編碼_lb.ForeColor = Color.MediumVioletRed : 未審核_rb.ForeColor = Color.Blue

  1296.             已作廢_rb.ForeColor = Color.Red : 已審核_rb.ForeColor = Color.Green : 申請數_lb.ForeColor = Color.MediumVioletRed : 甲方_lb.ForeColor = Color.Blue

  1297.             已作廢1_rb.ForeColor = Color.Red : 已審核1_rb.ForeColor = Color.Green : 申請數1_lb.ForeColor = Color.MediumVioletRed : 未審核1_rb.ForeColor = Color.Blue

  1298.             需求日期_lb.ForeColor = Color.MediumVioletRed

  1299. 

  1300.             料號_tb.BackColor = Color.White : 料號_tb.ForeColor = Color.Black : 申請數_nud.BackColor = Color.White : 申請數_nud.ForeColor = Color.Black

  1301.             庫存量_tb.BackColor = Color.White : 庫存量_tb.ForeColor = Color.Black : 語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black

  1302.             最大庫存量_tb.BackColor = Color.White : 最大庫存量_tb.ForeColor = Color.Black : 請購單號_tb.BackColor = Color.White : 請購單號_tb.ForeColor = Color.Black

  1303.             可申請_tb.BackColor = Color.White : 可申請_tb.ForeColor = Color.Black : 複製_bt.BackColor = Color.White : 複製_bt.ForeColor = Color.Green

  1304.             新增_bt.BackColor = Color.White : 新增_bt.ForeColor = Color.MediumVioletRed : 料號1_tb.BackColor = Color.White : 料號1_tb.ForeColor = Color.Black

  1305.             庫存量1_tb.BackColor = Color.White : 庫存量1_tb.ForeColor = Color.Black : 最大庫存量1_tb.BackColor = Color.White : 最大庫存量1_tb.ForeColor = Color.Black

  1306.             可申請1_tb.BackColor = Color.White : 可申請1_tb.ForeColor = Color.Black : 申請數1_nud.BackColor = Color.White : 申請數1_nud.ForeColor = Color.Black

  1307.             申請人_tb.BackColor = Color.White : 申請人_tb.ForeColor = Color.Black : 備註_tb.BackColor = Color.White : 備註_tb.ForeColor = Color.Black

  1308.             合約編號1_tb.BackColor = Color.White : 合約編號1_tb.ForeColor = Color.Black : 合約編號2_tb.BackColor = Color.White : 合約編號2_tb.ForeColor = Color.Black

  1309.             合約編號3_tb.BackColor = Color.White : 合約編號3_tb.ForeColor = Color.Black : 項次_tb.BackColor = Color.White : 項次_tb.ForeColor = Color.Black

  1310.             重新整理_bt.BackColor = Color.White : 重新整理_bt.ForeColor = Color.Black : 等待_lb.BackColor = Color.White : 等待_lb.ForeColor = Color.Black

  1311.             TB_1.BackColor = Color.White : TB_1.ForeColor = Color.Black : TB_2.BackColor = Color.White : TB_2.ForeColor = Color.Black

  1312.             TB_3.BackColor = Color.White : TB_3.ForeColor = Color.Black : TB_4.BackColor = Color.White : TB_4.ForeColor = Color.Black

  1313.             TB_5.BackColor = Color.White : TB_5.ForeColor = Color.Black : TB_6.BackColor = Color.White : TB_6.ForeColor = Color.Black

  1314.             TB_7.BackColor = Color.White : TB_7.ForeColor = Color.Black : TB_8.BackColor = Color.White : TB_8.ForeColor = Color.Black

  1315.             TB_9.BackColor = Color.White : TB_9.ForeColor = Color.Black : TB_10.BackColor = Color.White : TB_10.ForeColor = Color.Black

  1316.             TB_11.BackColor = Color.White : TB_11.ForeColor = Color.Black : TB_12.BackColor = Color.White : TB_12.ForeColor = Color.Black

  1317.             TB_13.BackColor = Color.White : TB_13.ForeColor = Color.Black : TB_14.BackColor = Color.White : TB_14.ForeColor = Color.Black

  1318.             TB_15.BackColor = Color.White : TB_15.ForeColor = Color.Black : TB_16.BackColor = Color.White : TB_16.ForeColor = Color.Black

  1319.             TB_17.BackColor = Color.White : TB_17.ForeColor = Color.Black : TB_18.BackColor = Color.White : TB_18.ForeColor = Color.Black

  1320.             TB_19.BackColor = Color.White : TB_19.ForeColor = Color.Black : TB_20.BackColor = Color.White : TB_20.ForeColor = Color.Black

  1321.             TB_21.BackColor = Color.White : TB_21.ForeColor = Color.Black : 刪除請購單上點選資料_bt.BackColor = Color.White : 刪除請購單上點選資料_bt.ForeColor = Color.Red

  1322.             開立建築物料請購單_bt.BackColor = Color.White : 開立建築物料請購單_bt.ForeColor = Color.MediumVioletRed

  1323.             申請完成_bt.BackColor = Color.White : 申請完成_bt.ForeColor = Color.MediumVioletRed : 刪除_bt.BackColor = Color.White : 刪除_bt.ForeColor = Color.Red

  1324. 

  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. 

  1333.             指定倉庫_cb.BackColor = Color.White : 指定倉庫_cb.ForeColor = Color.Black : 合約編號_cb.BackColor = Color.White : 合約編號_cb.ForeColor = Color.Black

  1334.             合約編號1_cb.BackColor = Color.White : 合約編號1_cb.ForeColor = Color.Black : 新群組1_cb.BackColor = Color.White : 新群組1_cb.ForeColor = Color.Black

  1335.             物料清單_dgv.EnableHeadersVisualStyles = True : 物料清單_dgv.BackgroundColor = Color.White : 物料清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1336.             物料清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightPink

  1337.             物料清單_dgv.DefaultCellStyle.BackColor = Color.White : 物料清單_dgv.DefaultCellStyle.ForeColor = Color.Black

  1338.             物料規格_dgv.EnableHeadersVisualStyles = True : 物料規格_dgv.BackgroundColor = Color.White : 物料規格_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1339.             物料規格_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue

  1340.             物料規格_dgv.DefaultCellStyle.BackColor = Color.White : 物料規格_dgv.DefaultCellStyle.ForeColor = Color.Black

  1341.             未核准_dgv.EnableHeadersVisualStyles = True : 未核准_dgv.BackgroundColor = Color.White : 未核准_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1342.             未核准_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGray

  1343.             未核准_dgv.DefaultCellStyle.BackColor = Color.White : 未核准_dgv.DefaultCellStyle.ForeColor = Color.Black

  1344.             已核准_dgv.EnableHeadersVisualStyles = True : 已核准_dgv.BackgroundColor = Color.White : 已核准_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1345.             已核准_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGray

  1346.             已核准_dgv.DefaultCellStyle.BackColor = Color.White : 已核准_dgv.DefaultCellStyle.ForeColor = Color.Black

  1347.             作廢清單_dgv.EnableHeadersVisualStyles = True : 作廢清單_dgv.BackgroundColor = Color.White : 作廢清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1348.             作廢清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGray

  1349.             作廢清單_dgv.DefaultCellStyle.BackColor = Color.White : 作廢清單_dgv.DefaultCellStyle.ForeColor = Color.Black

  1350.             物料清單1_dgv.EnableHeadersVisualStyles = True : 物料清單1_dgv.BackgroundColor = Color.White : 物料清單1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1351.             物料清單1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightPink

  1352.             物料清單1_dgv.DefaultCellStyle.BackColor = Color.White : 物料清單1_dgv.DefaultCellStyle.ForeColor = Color.Black

  1353.             作廢清單1_dgv.EnableHeadersVisualStyles = True : 作廢清單1_dgv.BackgroundColor = Color.White : 作廢清單1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1354.             作廢清單1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue

  1355.             作廢清單1_dgv.DefaultCellStyle.BackColor = Color.White : 作廢清單1_dgv.DefaultCellStyle.ForeColor = Color.Black

  1356.             未核准1_dgv.EnableHeadersVisualStyles = True : 未核准1_dgv.BackgroundColor = Color.White : 未核准1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1357.             未核准1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue

  1358.             未核准1_dgv.DefaultCellStyle.BackColor = Color.White : 未核准1_dgv.DefaultCellStyle.ForeColor = Color.Black

  1359.             已核准1_dgv.EnableHeadersVisualStyles = True : 已核准1_dgv.BackgroundColor = Color.White : 已核准1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1360.             已核准1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue

  1361.             已核准1_dgv.DefaultCellStyle.BackColor = Color.White : 已核准1_dgv.DefaultCellStyle.ForeColor = Color.Black

  1362.             合約1_dgv.EnableHeadersVisualStyles = True : 合約1_dgv.BackgroundColor = Color.White : 合約1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1363.             合約1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue

  1364.             合約1_dgv.DefaultCellStyle.BackColor = Color.White : 合約1_dgv.DefaultCellStyle.ForeColor = Color.Black

  1365.             物料規格1_dgv.EnableHeadersVisualStyles = True : 物料規格1_dgv.BackgroundColor = Color.White : 物料規格1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1366.             物料規格1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGray

  1367.             物料規格1_dgv.DefaultCellStyle.BackColor = Color.White : 物料規格1_dgv.DefaultCellStyle.ForeColor = Color.Black

  1368.             請購明細_dgv.EnableHeadersVisualStyles = True : 請購明細_dgv.BackgroundColor = Color.White : 請購明細_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1369.             物料規格1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGray

  1370.             請購明細_dgv.DefaultCellStyle.BackColor = Color.White : 請購明細_dgv.DefaultCellStyle.ForeColor = Color.Black

  1371.         Else

  1372.             Me.BackColor = Color.Black

  1373. 

  1374.             切換_lb.ForeColor = Color.White : Label7.ForeColor = Color.White : 料號_lb.ForeColor = Color.White : 庫存量_lb.ForeColor = Color.White

  1375.             最大庫存量_lb.ForeColor = Color.White : 可申請_lb.ForeColor = Color.White : 詳細資料2_ch.ForeColor = Color.White : Label1.ForeColor = Color.White

  1376.             小間距_ch.ForeColor = Color.White : 中間距_ch.ForeColor = Color.White : 大間距_ch.ForeColor = Color.White : 小間距1_ch.ForeColor = Color.White

  1377.             中間距1_ch.ForeColor = Color.White : 大間距1_ch.ForeColor = Color.White : 已審核_lb.ForeColor = Color.White : 未審核_lb.ForeColor = Color.White

  1378.             已作廢_lb.ForeColor = Color.White : 未審核1_lb.ForeColor = Color.White : 料號1_lb.ForeColor = Color.White : 庫存量1_lb.ForeColor = Color.White

  1379.             最大庫存量1_lb.ForeColor = Color.White : 可申請1_lb.ForeColor = Color.White : 已審核1_lb.ForeColor = Color.White : 已作廢1_lb.ForeColor = Color.White

  1380.             Label4.ForeColor = Color.White : 合約號_lb.ForeColor = Color.White : Label35.ForeColor = Color.White : 請購單號_lb.ForeColor = Color.White

  1381.             申請日期_lb.ForeColor = Color.White : Label7.ForeColor = Color.White : 選擇_lb.ForeColor = Color.White : 項次_lb.ForeColor = Color.White

  1382.             申請人_lb.ForeColor = Color.White

  1383. 

  1384.             指定倉庫_lb.ForeColor = Color.Fuchsia : 操作_lb.ForeColor = Color.LightBlue : 群組編碼_lb.ForeColor = Color.Fuchsia : 未審核_rb.ForeColor = Color.LightBlue

  1385.             已作廢_rb.ForeColor = Color.LightPink : 已審核_rb.ForeColor = Color.LightGreen : 申請數_lb.ForeColor = Color.Fuchsia : 甲方_lb.ForeColor = Color.LightBlue

  1386.             已作廢1_rb.ForeColor = Color.LightPink : 已審核1_rb.ForeColor = Color.LightGreen : 申請數1_lb.ForeColor = Color.Fuchsia : 未審核1_rb.ForeColor = Color.LightBlue

  1387.             需求日期_lb.ForeColor = Color.Fuchsia

  1388. 

  1389.             指定倉庫_cb.BackColor = Color.DimGray : 指定倉庫_cb.ForeColor = Color.White : 合約編號_cb.BackColor = Color.DimGray : 合約編號_cb.ForeColor = Color.White

  1390.             合約編號1_cb.BackColor = Color.DimGray : 合約編號1_cb.ForeColor = Color.White : 新群組1_cb.BackColor = Color.DimGray : 新群組1_cb.ForeColor = Color.White

  1391.             料號_tb.BackColor = Color.DimGray : 料號_tb.ForeColor = Color.White : 申請數_nud.BackColor = Color.DimGray : 申請數_nud.ForeColor = Color.White

  1392.             庫存量_tb.BackColor = Color.DimGray : 庫存量_tb.ForeColor = Color.White : 語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White

  1393.             最大庫存量_tb.BackColor = Color.DimGray : 最大庫存量_tb.ForeColor = Color.White : 請購單號_tb.BackColor = Color.DimGray : 請購單號_tb.ForeColor = Color.White

  1394.             可申請_tb.BackColor = Color.DimGray : 可申請_tb.ForeColor = Color.White : 複製_bt.BackColor = Color.DimGray : 複製_bt.ForeColor = Color.LightGreen

  1395.             新增_bt.BackColor = Color.DimGray : 新增_bt.ForeColor = Color.Fuchsia : 料號1_tb.BackColor = Color.DimGray : 料號1_tb.ForeColor = Color.White

  1396.             庫存量1_tb.BackColor = Color.DimGray : 庫存量1_tb.ForeColor = Color.White : 最大庫存量1_tb.BackColor = Color.DimGray : 最大庫存量1_tb.ForeColor = Color.White

  1397.             可申請1_tb.BackColor = Color.DimGray : 可申請1_tb.ForeColor = Color.White : 申請數1_nud.BackColor = Color.DimGray : 申請數1_nud.ForeColor = Color.White

  1398.             申請人_tb.BackColor = Color.DimGray : 申請人_tb.ForeColor = Color.White : 備註_tb.BackColor = Color.DimGray : 備註_tb.ForeColor = Color.White

  1399.             合約編號1_tb.BackColor = Color.DimGray : 合約編號1_tb.ForeColor = Color.White : 合約編號2_tb.BackColor = Color.DimGray : 合約編號2_tb.ForeColor = Color.White

  1400.             合約編號3_tb.BackColor = Color.DimGray : 合約編號3_tb.ForeColor = Color.White : 項次_tb.BackColor = Color.DimGray : 項次_tb.ForeColor = Color.White

  1401.             重新整理_bt.BackColor = Color.DimGray : 重新整理_bt.ForeColor = Color.White : 等待_lb.BackColor = Color.DimGray : 等待_lb.ForeColor = Color.White

  1402.             TB_1.BackColor = Color.Black : TB_1.ForeColor = Color.White : TB_2.BackColor = Color.Black : TB_2.ForeColor = Color.White

  1403.             TB_3.BackColor = Color.Black : TB_3.ForeColor = Color.White : TB_4.BackColor = Color.Black : TB_4.ForeColor = Color.White

  1404.             TB_5.BackColor = Color.Black : TB_5.ForeColor = Color.White : TB_6.BackColor = Color.Black : TB_6.ForeColor = Color.White

  1405.             TB_7.BackColor = Color.Black : TB_7.ForeColor = Color.White : TB_8.BackColor = Color.Black : TB_8.ForeColor = Color.White

  1406.             TB_9.BackColor = Color.Black : TB_9.ForeColor = Color.White : TB_10.BackColor = Color.Black : TB_10.ForeColor = Color.White

  1407.             TB_11.BackColor = Color.Black : TB_11.ForeColor = Color.White : TB_12.BackColor = Color.Black : TB_12.ForeColor = Color.White

  1408.             TB_13.BackColor = Color.Black : TB_13.ForeColor = Color.White : TB_14.BackColor = Color.Black : TB_14.ForeColor = Color.White

  1409.             TB_15.BackColor = Color.Black : TB_15.ForeColor = Color.White : TB_16.BackColor = Color.Black : TB_16.ForeColor = Color.White

  1410.             TB_17.BackColor = Color.Black : TB_17.ForeColor = Color.White : TB_18.BackColor = Color.Black : TB_18.ForeColor = Color.White

  1411.             TB_19.BackColor = Color.Black : TB_19.ForeColor = Color.White : TB_20.BackColor = Color.Black : TB_20.ForeColor = Color.White

  1412.             TB_21.BackColor = Color.Black : TB_21.ForeColor = Color.White : 刪除請購單上點選資料_bt.BackColor = Color.DimGray : 刪除請購單上點選資料_bt.ForeColor = Color.LightPink

  1413.             開立建築物料請購單_bt.BackColor = Color.DimGray : 開立建築物料請購單_bt.ForeColor = Color.Fuchsia

  1414.             申請完成_bt.BackColor = Color.DimGray : 申請完成_bt.ForeColor = Color.Fuchsia : 刪除_bt.BackColor = Color.DimGray : 刪除_bt.ForeColor = Color.LightPink

  1415. 

  1416.             搜尋_bt.BackColor = Color.DimGray : 回首頁_bt.BackColor = Color.DimGray : 回次頁_bt.BackColor = Color.DimGray : 新增1_bt.BackColor = Color.DimGray

  1417.             搜尋1_bt.BackColor = Color.DimGray : 單據_bt.BackColor = Color.DimGray : 縮放3_bt.BackColor = Color.DimGray

  1418.             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

  1419.             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

  1420.             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

  1421.             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

  1422.             PB_21.BackColor = Color.DimGray

  1423. 

  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.             已核准_dgv.EnableHeadersVisualStyles = False : 已核准_dgv.BackgroundColor = Color.DimGray : 已核准_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  1434.             已核准_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 已核准_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray

  1435.             已核准_dgv.DefaultCellStyle.BackColor = Color.Black : 已核准_dgv.DefaultCellStyle.ForeColor = Color.White

  1436.             作廢清單_dgv.EnableHeadersVisualStyles = False : 作廢清單_dgv.BackgroundColor = Color.DimGray : 作廢清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  1437.             作廢清單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 作廢清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray

  1438.             作廢清單_dgv.DefaultCellStyle.BackColor = Color.Black : 作廢清單_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.             合約1_dgv.EnableHeadersVisualStyles = False : 合約1_dgv.BackgroundColor = Color.DimGray : 合約1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  1452.             合約1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合約1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray

  1453.             合約1_dgv.DefaultCellStyle.BackColor = Color.Black : 合約1_dgv.DefaultCellStyle.ForeColor = Color.White

  1454.             物料規格1_dgv.EnableHeadersVisualStyles = False : 物料規格1_dgv.BackgroundColor = Color.DimGray : 物料規格1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  1455.             物料規格1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 物料規格1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray

  1456.             物料規格1_dgv.DefaultCellStyle.BackColor = Color.Black : 物料規格1_dgv.DefaultCellStyle.ForeColor = Color.White

  1457.             請購明細_dgv.EnableHeadersVisualStyles = False : 請購明細_dgv.BackgroundColor = Color.DimGray : 請購明細_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  1458.             請購明細_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 請購明細_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray

  1459.             請購明細_dgv.DefaultCellStyle.BackColor = Color.Black : 請購明細_dgv.DefaultCellStyle.ForeColor = Color.White

  1460.         End If

  1461.     End Sub

  1462. End Class