HX-PGS-ERP-SYS
/
HX-PGS-ERP-SYS-LEEHSIEHJUI
Suivre 4
Favoriser 0
Bifurcation 0
Code Tickets 0 Demandes d'ajout 0 Versions 0 Wiki Activité
Aucune description
Vous ne pouvez pas sélectionner plus de 25 sujets Les noms de sujets doivent commencer par une lettre ou un nombre, peuvent contenir des tirets ('-') et peuvent comporter jusqu'à 35 caractères.
7 Révisions
1 Branche
Aborescence: ffdb5b9c73
Branches Tags
${ item.name }
Créer la branche ${ searchTerm }
de 'ffdb5b9c73'
${ noResults }
HX-PGS-ERP-SYS-LEEHSIEHJUI/03、倉儲管理系統/倉儲入庫申請.vb

倉儲入庫申請.vb 96KB
Historique Brut

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099 
  1. Option Strict Off

  2. Imports System.IO

  3. Public Class 倉儲入庫申請

  4.     Dim NUM1, EDR As Integer

  5.     Dim KKK1, KKK2, KKK3, KKK4, ESTR, 頁面, 物料規格 As String

  6.     ReadOnly 對話框(21), 群組碼(21) As String

  7.     Private Sub Set_群組清單()

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

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

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

  11.         SQL_物料群組()

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

  13.     End Sub

  14.     Private Sub Set_清單1()

  15.         PA10 = 群組碼_tb.Text

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

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

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

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

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

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

  22. 

  23.         SQL_物料退回倉儲作業_清單一()

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

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

  26.         物料清單_dgv.Columns(3).Visible = False : 物料清單_dgv.Columns(4).Visible = False

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

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

  29.         If 低網速模式 = False Then

  30.             物料清單_dgv.Columns(5).FillWeight = 80 : 物料清單_dgv.Columns(5).Visible = True

  31.             Dim mycol As DataGridViewImageColumn = 物料清單_dgv.Columns("Image")

  32.             mycol.ImageLayout = DataGridViewImageCellLayout.Zoom

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

  34.     End Sub

  35.     Private Sub Set_清單1_1()

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

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

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

  39. 

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

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

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

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

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

  45.         For i As Integer = 0 To 物料清單1_dgv.Rows.Count - 1

  46.             物料清單1_dgv(0, i).Value = i + 1

  47.         Next

  48.         If 低網速模式 = False Then

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

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

  51.             mycol.ImageLayout = DataGridViewImageCellLayout.Zoom

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

  53.     End Sub

  54.     Private Sub Set_清單2()

  55.         Dim ds1 As New DataSet : 明細_dgv.DataSource = Nothing : ds1.Clear()

  56.         明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  57.         明細_dgv.ColumnHeadersHeight = 40 : 明細_dgv.AllowUserToAddRows = False

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

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

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

  61. 

  62.         SQL_物料退回倉儲作業_明細()

  63.         da.Fill(ds1) : 明細_dgv.DataSource = ds1.Tables(0) : conn.Close()

  64. 

  65.         If 低網速模式 = False Then

  66.             明細_dgv.Columns(11).FillWeight = 80 : 明細_dgv.Columns(11).Visible = True

  67.             Dim mycol As DataGridViewImageColumn = 明細_dgv.Columns("Image")

  68.             mycol.ImageLayout = DataGridViewImageCellLayout.Zoom

  69.         Else : If 明細_dgv.Columns.Count = 12 Then : 明細_dgv.Columns(11).Visible = False : End If : End If

  70.         明細_dgv.Columns(0).Visible = False : 明細_dgv.Columns(1).FillWeight = 170 : 明細_dgv.Columns(2).FillWeight = 200 : 明細_dgv.Columns(3).FillWeight = 60

  71.         明細_dgv.Columns(4).Visible = False : 明細_dgv.Columns(5).FillWeight = 90 : 明細_dgv.Columns(6).FillWeight = 140 : 明細_dgv.Columns(7).Visible = False

  72.         明細_dgv.Columns(8).Visible = False : 明細_dgv.Columns(9).FillWeight = 150 : 明細_dgv.Columns(10).Visible = False

  73.         If 顯示料號1_ch.Checked = True Then : 明細_dgv.Columns(表頭(77)).Visible = True : Else : 明細_dgv.Columns(表頭(77)).Visible = False : End If

  74. 

  75.         明細_dgv.Columns(3).DefaultCellStyle.Format = "#,##0" : 明細_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"

  76.         明細_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

  77.         明細_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  78.         明細_dgv.Columns(1).ReadOnly = True : 明細_dgv.Columns(2).ReadOnly = True : 明細_dgv.Columns(3).ReadOnly = True : 明細_dgv.Columns(4).ReadOnly = True

  79.         明細_dgv.Columns(5).ReadOnly = True

  80.         明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter

  81.         '------------------------------------------------------------------------------------------------------------------------------------------

  82.         For i As Integer = 0 To 明細_dgv.Rows.Count - 1

  83.             PA3 = 明細_dgv.Rows(i).Cells(表頭(13)).Value : SQL_規格庫抬頭讀取()

  84.             If dr.Read() Then

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

  86.             End If : conn.Close()

  87. 

  88.             Dim ds3 As New DataSet : 規格合併_dgv.DataSource = Nothing : ds3.Clear()

  89.             PA4 = 明細_dgv.Rows(i).Cells("" & 表頭(77) & "").Value : SQL_規格庫抬頭讀取二()

  90.             da.Fill(ds3) : 規格合併_dgv.DataSource = ds3.Tables(0) : conn.Close()

  91. 

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

  93.             If 詳細資料1_ch.Checked = True Then

  94.                 If 規格合併_dgv.Rows(0).Cells("A1").Value.ToString <> "" Then

  95.                     ZA1 = AAA1 & "=" & 規格合併_dgv.Rows(0).Cells("A1").Value.ToString : 物料規格 = ZA1 : End If

  96.                 If 規格合併_dgv.Rows(0).Cells("A2").Value.ToString <> "" Then : ZA2 = AAA2 & "=" & 規格合併_dgv.Rows(0).Cells("A2").Value

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

  98.                 If 規格合併_dgv.Rows(0).Cells("A3").Value.ToString <> "" Then : ZA3 = AAA3 & "=" & 規格合併_dgv.Rows(0).Cells("A3").Value

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

  100.                 If 規格合併_dgv.Rows(0).Cells("A4").Value.ToString <> "" Then : ZA4 = AAA4 & "=" & 規格合併_dgv.Rows(0).Cells("A4").Value

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

  102.                 If 規格合併_dgv.Rows(0).Cells("A5").Value.ToString <> "" Then : ZA5 = AAA5 & "=" & 規格合併_dgv.Rows(0).Cells("A5").Value

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

  104.                 If 規格合併_dgv.Rows(0).Cells("A6").Value.ToString <> "" Then : ZA6 = AAA6 & "=" & 規格合併_dgv.Rows(0).Cells("A6").Value

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

  106.                 If 規格合併_dgv.Rows(0).Cells("A7").Value.ToString <> "" Then : ZA7 = AAA7 & "=" & 規格合併_dgv.Rows(0).Cells("A7").Value

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

  108.                 If 規格合併_dgv.Rows(0).Cells("A8").Value.ToString <> "" Then : ZA8 = AAA8 & "=" & 規格合併_dgv.Rows(0).Cells("A8").Value

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

  110.             Else

  111.                 If 規格合併_dgv.Rows(0).Cells("A1").Value.ToString <> "" Then : ZA1 = 規格合併_dgv.Rows(0).Cells("A1").Value.ToString : 物料規格 = ZA1 : End If

  112.                 If 規格合併_dgv.Rows(0).Cells("A2").Value.ToString <> "" Then

  113.                     ZA2 = 規格合併_dgv.Rows(0).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If

  114.                 If 規格合併_dgv.Rows(0).Cells("A3").Value.ToString <> "" Then

  115.                     ZA3 = 規格合併_dgv.Rows(0).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If

  116.                 If 規格合併_dgv.Rows(0).Cells("A4").Value.ToString <> "" Then

  117.                     ZA4 = 規格合併_dgv.Rows(0).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If

  118.                 If 規格合併_dgv.Rows(0).Cells("A5").Value.ToString <> "" Then

  119.                     ZA5 = 規格合併_dgv.Rows(0).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If

  120.                 If 規格合併_dgv.Rows(0).Cells("A6").Value.ToString <> "" Then

  121.                     ZA6 = 規格合併_dgv.Rows(0).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If

  122.                 If 規格合併_dgv.Rows(0).Cells("A7").Value.ToString <> "" Then

  123.                     ZA7 = 規格合併_dgv.Rows(0).Cells("A7").Value : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If

  124.                 If 規格合併_dgv.Rows(0).Cells("A8").Value.ToString <> "" Then

  125.                     ZA8 = 規格合併_dgv.Rows(0).Cells("A8").Value : If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If

  126.             End If

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

  128.         Next

  129.     End Sub

  130.     Private Sub Set_清單()

  131.         Dim ds2 As New DataSet : ds2.Clear()

  132.         單據_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  133.         單據_dgv.ColumnHeadersHeight = 25 : 單據_dgv.AllowUserToAddRows = False : 單據_dgv.RowTemplate.Height = 21

  134.         單據_dgv.DataSource = Nothing : 已核准1_dgv.DataSource = Nothing

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

  136.         已核准1_dgv.ColumnHeadersHeight = 25 : 已核准1_dgv.AllowUserToAddRows = False : 已核准1_dgv.RowTemplate.Height = 25

  137. 

  138.         SQL_物料退回倉儲作業_單據()

  139.         da.Fill(ds2) : 單據_dgv.DataSource = ds2.Tables(0) : 已核准1_dgv.DataSource = ds2.Tables(0) : conn.Close()

  140.         單據_dgv.Columns(0).FillWeight = 100 : 單據_dgv.Columns(1).FillWeight = 60 : 單據_dgv.Columns(2).FillWeight = 100

  141.         單據_dgv.Columns(3).Visible = False : 單據_dgv.Columns(4).Visible = False : 單據_dgv.Columns(5).Visible = False : 單據_dgv.Columns(6).Visible = False

  142. 

  143.         已核准1_dgv.Columns(0).FillWeight = 100 : 已核准1_dgv.Columns(1).FillWeight = 60 : 已核准1_dgv.Columns(2).FillWeight = 100

  144.         已核准1_dgv.Columns(3).Visible = False : 已核准1_dgv.Columns(4).Visible = False : 已核准1_dgv.Columns(5).Visible = False : 已核准1_dgv.Columns(6).Visible = False

  145.     End Sub

  146.     Private Sub Set_合約清單()

  147.         Dim ds5 As New DataSet : 物料_dgv.DataSource = Nothing : ds5.Clear()

  148.         物料_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  149.         物料_dgv.ColumnHeadersHeight = 25 : 物料_dgv.AllowUserToAddRows = False

  150.         SQL_合約倉儲物料()

  151.         da.Fill(ds5) : 物料_dgv.DataSource = ds5.Tables(0) : conn.Close()

  152. 

  153.         Dim ds6 As New DataSet : 合約1_dgv.DataSource = Nothing : ds6.Clear()

  154.         合約1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  155.         合約1_dgv.ColumnHeadersHeight = 25 : 合約1_dgv.AllowUserToAddRows = False

  156.         PA = "" : PA46 = 合約編號1_cb.Text : PA47 = "%%"

  157.         SQL_合約清單_倉儲用()

  158.         da.Fill(ds6) : 合約1_dgv.DataSource = ds6.Tables(0) : conn.Close()

  159.         合約1_dgv.Columns(0).FillWeight = 130 : 合約1_dgv.Columns("MAT").FillWeight = 40 : 合約1_dgv.Columns("審核通過").FillWeight = 40

  160.         合約1_dgv.Columns("工程名稱").FillWeight = 280 : 合約1_dgv.Columns("Nama Proyek").FillWeight = 280 : 合約1_dgv.Columns("停止").Visible = True

  161.         合約1_dgv.Columns("停止").FillWeight = 40 : 合約1_dgv.Columns("審核通過").Visible = True

  162. 

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

  164.         For i As Integer = 0 To 合約1_dgv.Rows.Count - 1

  165.             If IsDBNull(合約1_dgv("停止", i).Value) = True Then : 合約1_dgv("停止", i).Value = False : End If

  166.             合約1_dgv("MAT", i).Value = False

  167.             For ii As Integer = 0 To 物料_dgv.Rows.Count - 1

  168.                 If 合約1_dgv("Kontrak", i).Value.ToString.ToUpper = 物料_dgv("合約編號", ii).Value.ToString.ToUpper Then

  169.                     合約1_dgv("MAT", i).Value = True : Exit For

  170.                 End If

  171.             Next

  172.         Next

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

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

  175.     End Sub

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

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

  178.     End Sub

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

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

  181.     End Sub

  182.     Private Sub 退回倉庫_cb_下拉表單資料載入()

  183.         SQL_倉儲領料申請_倉級指定倉名() : 退回倉庫_cb.Items.Clear() : While (dr.Read()) : 退回倉庫_cb.Items.Add(dr("倉名")) : End While : conn.Close()

  184.     End Sub

  185.     Private Sub 退料工地_cb_下拉表單資料載入()

  186.         SQL_倉儲領料申請_使用工地() : 退料工地_cb.Items.Clear() : While (dr.Read()) : 退料工地_cb.Items.Add(dr("約號甲方")) : End While : conn.Close()

  187.     End Sub

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

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

  190.     End Sub

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

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

  193.     End Sub

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

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

  196.     End Sub

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

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

  199.         Me.Text = 系統語言字典("H001-159-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言) : 切換_lb.Text = 系統語言字典("G000-176-" & 語言)

  200.         申請數_lb.Text = 系統語言字典("H509-100-" & 語言) : 申請數1_lb.Text = 系統語言字典("H509-100-" & 語言) : 重新整理_tsm.Text = 系統語言字典("H509-101-" & 語言)

  201.         料號_lb.Text = 系統語言字典("H509-102-" & 語言) : 退回倉庫_lb.Text = 系統語言字典("H509-103-" & 語言) : 退料工地_lb.Text = 系統語言字典("H509-104-" & 語言)

  202.         退料單號_lb.Text = 系統語言字典("H509-105-" & 語言) : 表頭(45) = 系統語言字典("H509-106-" & 語言) : 表頭(46) = 系統語言字典("H509-107-" & 語言)

  203.         表頭(86) = 系統語言字典("H509-108-" & 語言) : 表頭(12) = 系統語言字典("H509-109-" & 語言) : 表頭(48) = 系統語言字典("H509-110-" & 語言)

  204.         表頭(47) = 系統語言字典("H509-111-" & 語言) : 表頭(77) = 系統語言字典("H509-112-" & 語言) : 表頭(13) = 系統語言字典("H509-113-" & 語言)

  205.         表頭(14) = 系統語言字典("H509-114-" & 語言) : 表頭(16) = 系統語言字典("H509-115-" & 語言) : 表頭(11) = 系統語言字典("H509-116-" & 語言)

  206.         群組編碼_lb.Text = 系統語言字典("H509-117-" & 語言) : 對話框(0) = 系統語言字典("H509-118-" & 語言) : 對話框(9) = 系統語言字典("H509-119-" & 語言)

  207.         對話框(1) = 系統語言字典("H509-120-" & 語言) : 對話框(2) = 系統語言字典("H509-121-" & 語言) : 對話框(3) = 系統語言字典("H509-122-" & 語言)

  208.         對話框(4) = 系統語言字典("H509-123-" & 語言) : 對話框(5) = 系統語言字典("H509-124-" & 語言) : 對話框(6) = 系統語言字典("H509-125-" & 語言)

  209.         對話框(7) = 系統語言字典("H509-126-" & 語言) : 對話框(8) = 系統語言字典("H509-127-" & 語言) : 選定內容加入退料單_tsm.Text = 系統語言字典("H509-128-" & 語言)

  210.         選擇_lb.Text = 系統語言字典("H509-129-" & 語言) : 新增_bt.Text = 系統語言字典("H509-130-" & 語言) : 詳細資料1_ch.Text = 系統語言字典("H509-131-" & 語言)

  211.         顯示料號1_ch.Text = 系統語言字典("H509-132-" & 語言) : 對話框(10) = 系統語言字典("G000-180-" & 語言) : 對話框(11) = 系統語言字典("H509-133-" & 語言)

  212.         對話框(12) = 系統語言字典("H509-135-" & 語言) : 對話框(13) = 系統語言字典("H509-134-" & 語言) : 對話框(14) = 系統語言字典("G000-225-" & 語言)

  213.         對話框(15) = 系統語言字典("H201-148-" & 語言) : 對話框(16) = 系統語言字典("H201-149-" & 語言) : 對話框(17) = 系統語言字典("G000-203-" & 語言)

  214.         對話框(18) = 系統語言字典("G000-205-" & 語言) : 對話框(19) = 系統語言字典("G000-206-" & 語言) : 對話框(20) = 系統語言字典("G000-207-" & 語言)

  215.         對話框(21) = 系統語言字典("H402-123-" & 語言)

  216.     End Sub

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

  218.         ToolTip1.SetToolTip(Me.搜尋1_bt, "--" & 系統語言字典("H110-117-" & 語言) & "--")

  219.     End Sub

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

  221.         ToolTip1.SetToolTip(Me.縮放3_bt, 系統語言字典("G000-151-" & 語言))

  222.     End Sub

  223.     Private Sub 開立退料單_bt_MouseEnter(sender As Object, e As EventArgs) Handles 開立退料單_bt.MouseEnter

  224.         ToolTip1.SetToolTip(Me.開立退料單_bt, 系統語言字典("H509-136-" & 語言))

  225.     End Sub

  226.     Private Sub 備註修改存檔_bt_MouseEnter(sender As Object, e As EventArgs) Handles 備註修改存檔_bt.MouseEnter

  227.         ToolTip1.SetToolTip(Me.備註修改存檔_bt, 系統語言字典("G000-110-" & 語言))

  228.     End Sub

  229.     Private Sub 刪除選中的明細_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除選中的明細_bt.MouseEnter

  230.         ToolTip1.SetToolTip(Me.刪除選中的明細_bt, 系統語言字典("G000-233-" & 語言))

  231.     End Sub

  232.     Private Sub 退料單建立完成_bt_MouseEnter(sender As Object, e As EventArgs) Handles 退料單建立完成_bt.MouseEnter

  233.         ToolTip1.SetToolTip(Me.退料單建立完成_bt, 系統語言字典("G000-234-" & 語言))

  234.     End Sub

  235.     Private Sub 刪除退料申請單_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除退料申請單_bt.MouseEnter

  236.         ToolTip1.SetToolTip(Me.刪除退料申請單_bt, 系統語言字典("G000-218-" & 語言))

  237.     End Sub

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

  239.         ToolTip1.SetToolTip(Me.回首頁_bt, 系統語言字典("G000-183-" & 語言))

  240.     End Sub

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

  242.         ToolTip1.SetToolTip(Me.回次頁_bt, 系統語言字典("G000-184-" & 語言))

  243.     End Sub

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

  245.         ToolTip1.SetToolTip(Me.管材_bt, 系統語言字典("G000-185-" & 語言))

  246.     End Sub

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

  248.         ToolTip1.SetToolTip(Me.電線_bt, 系統語言字典("G000-186-" & 語言))

  249.     End Sub

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

  251.         ToolTip1.SetToolTip(Me.電料_bt, 系統語言字典("G000-187-" & 語言))

  252.     End Sub

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

  254.         ToolTip1.SetToolTip(Me.槽架_bt, 系統語言字典("G000-188-" & 語言))

  255.     End Sub

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

  257.         ToolTip1.SetToolTip(Me.建材_bt, 系統語言字典("G000-189-" & 語言))

  258.     End Sub

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

  260.         ToolTip1.SetToolTip(Me.五金_bt, 系統語言字典("G000-190-" & 語言))

  261.     End Sub

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

  263.         ToolTip1.SetToolTip(Me.設備_bt, 系統語言字典("G000-191-" & 語言))

  264.     End Sub

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

  266.         ToolTip1.SetToolTip(Me.工具_bt, 系統語言字典("G000-192-" & 語言))

  267.     End Sub

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

  269.         ToolTip1.SetToolTip(Me.日用_bt, 系統語言字典("G000-193-" & 語言))

  270.     End Sub

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

  272.         ToolTip1.SetToolTip(Me.其他_bt, 系統語言字典("G000-194-" & 語言))

  273.     End Sub

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

  275.         ToolTip1.SetToolTip(Me.單據_bt, "--" & 系統語言字典("H301-137-" & 語言) & "--")

  276.     End Sub

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

  278.         ToolTip1.SetToolTip(Me.新增1_bt, 系統語言字典("H509-137-" & 語言))

  279.     End Sub

  280. 

  281.     Private Sub 物料退回倉儲作業_Load(sender As Object, e As EventArgs) Handles MyBase.Load

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

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

  284. 

  285.         SQL_清單欄位查詢()

  286.         If Acdr.Read() Then

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

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

  289.         End If : Access1.Close()

  290. 

  291.         切換_ts.Value = True : 首次開啟 = False : 開立退料單_bt.Enabled = True : 單據_p.BringToFront()

  292.         新式_P.Visible = True : 舊式_P.Visible = False : 新增1_bt.Enabled = False : 新增_bt.Enabled = False : Panel1.SendToBack()

  293.         退回倉庫_cb_下拉表單資料載入() : 退料工地_cb_下拉表單資料載入() : 群組編碼_cb_下拉表單資料載入() : 物料原則一_cb_下拉表單資料載入()

  294.         群組碼_cb_語轉_下拉表單資料載入() : 甲方條件下拉清單讀取() : Set_清單() : Set_合約清單() : 新群組1_cb.SelectedIndex = 0

  295.         物料退回倉儲作業_Size()

  296.     End Sub

  297.     Private Sub 物料退回倉儲作業_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged

  298.         物料退回倉儲作業_Size()

  299.     End Sub

  300.     Private Sub 物料退回倉儲作業_Size()

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

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

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

  304.         單據_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

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

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

  307.         合約1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  308.     End Sub

  309.     Private Sub 物料退回倉儲作業_Unload(sender As Object, e As EventArgs) Handles MyBase.Closed

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

  311.     End Sub

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

  313.         介面 = "H509" : 語言轉換讀取() : Set_清單1() : Set_清單2() : Set_清單() : 群組碼_cb_語轉_下拉表單資料載入() : 新群組1_cb.SelectedIndex = 0

  314.     End Sub

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

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

  317.     End Sub

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

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

  320.     End Sub

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

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

  323.             PA = 物料清單1_dgv(1, e.RowIndex).Value.ToString

  324.             PA1 = 物料清單1_dgv.Rows(e.RowIndex).Cells("群組碼").Value : PA2 = 物料清單1_dgv.Rows(e.RowIndex).Cells("料號原則").Value : 物料圖1_pb.Image = Nothing

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

  326.             While dr.Read() = True

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

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

  329.                 Dim oStream As New MemoryStream(bytes)

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

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

  332.             '------------------------------------------------------------------------------------------------------------------------------------------

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

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

  335.             '------------------------------------------------------------------------------------------------------------------------------------------

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

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

  338.             conn.Close()

  339.             '------------------------------------------------------------------------------------------------------------------------------------------

  340.             Dim ds3 As New DataSet

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

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

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

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

  345.             ElseIf KKK2 = "SQLB05" Then : SQL_物料規格_SQLB05() : ElseIf KKK2 = "SQLB06" Then : SQL_物料規格_SQLB06()

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

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

  348. 

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

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

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

  352.             If KKK2 = "SQLB03" Then

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

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

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

  356.             ElseIf KKK2 = "SQLB04" Then

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

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

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

  360.             ElseIf KKK2 = "SQLB05" Then

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

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

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

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

  365.             ElseIf KKK2 = "SQLB06" Then

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

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

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

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

  370.             ElseIf KKK2 = "SQLB07" Then

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

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

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

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

  375.             ElseIf KKK2 = "SQLB08" Then

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

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

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

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

  380.             End If

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

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

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

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

  385. 

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

  387.                 物料規格1_dgv.Rows(i).Cells("No").Value = i + 1

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

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

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

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

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

  393.                 End If

  394.             Next i

  395.         End If

  396.     End Sub

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

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

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

  400.         End If

  401.     End Sub

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

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

  404.     End Sub

  405.     Private Sub 新群組1_cb_Click(sender As Object, e As EventArgs) Handles 新群組1_cb.Click

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

  407.     End Sub

  408.     Private Sub 開立退料單_bt_Click(sender As Object, e As EventArgs) Handles 開立退料單_bt.Click

  409.         Dim 合約編號條件 As Boolean = False

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

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

  412.         開立退料單() : Set_清單2() : 回首頁_bt.PerformClick()

  413.     End Sub

  414.     Private Sub 開立退料單()

  415.         If 退回倉庫_cb.Text = "" Then : MGB(對話框(0), 1) : Else : Set_日期格式轉換()

  416.             For i As Integer = 1 To 999 : NUM1 = 0 + i

  417.                 If NUM1 < 10 Then : 退料單號_tb.Text = "WH-" & DTP1 & "-00" & NUM1

  418.                 ElseIf NUM1 > 9 And NUM1 < 100 Then : 退料單號_tb.Text = "WH-" & DTP1 & "-0" & NUM1

  419.                 ElseIf NUM1 > 99 Then : 退料單號_tb.Text = "WH-" & DTP1 & "-" & NUM1

  420.                 End If : conn.Close()

  421.                 PA1 = 退料單號_tb.Text : SQL_倉儲明細執行單號_執行單號驗證() : If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()

  422.             Next

  423.             退料單號1_tb.Text = 退料單號_tb.Text : PA1 = 退料單號_tb.Text : SQL_倉儲明細執行單號_新增() : conn.Close()

  424.             退回倉庫_cb.Enabled = False : 開立退料單_bt.Enabled = False : 單據_dgv.Enabled = False : 新增1_bt.Enabled = True : 新增_bt.Enabled = True

  425.             Set_清單() : 明細_dgv.DataSource = Nothing

  426.             'If 退料工地_cb.Text = "" Then : MGB(對話框(11), 1) : Else

  427.             'End If

  428.         End If

  429.     End Sub

  430.     Private Sub 備註修改存檔_bt_Click(sender As Object, e As EventArgs) Handles 備註修改存檔_bt.Click

  431.         存檔() : MGB(對話框(7), 1)

  432.     End Sub

  433.     Private Sub 刪除退料申請單_bt_Click(sender As Object, e As EventArgs) Handles 刪除退料申請單_bt.Click

  434.         MGB(對話框(4), 2)

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

  436.             PA1 = 退料單號_tb.Text : SQL_倉儲明細表_刪除() : conn.Close() : MGB(對話框(5), 1)

  437.             退回倉庫_cb_下拉表單資料載入() : 退料工地_cb_下拉表單資料載入()

  438.             退回倉庫_cb.Enabled = True : 退料工地_cb.Enabled = True : 開立退料單_bt.Enabled = True : 物料清單_dgv.Enabled = True

  439.             Set_清單2() : Set_清單()

  440.         End If

  441.     End Sub

  442.     Private Sub 刪除選中的明細_bt_Click(sender As Object, e As EventArgs) Handles 刪除選中的明細_bt.Click

  443.         If 明細_dgv.Rows.Count = 1 Then : MGB(對話框(6), 1) : Else

  444.             MGB(對話框(4), 2)

  445.             If 訊息回應 = "YES" Then : PA1 = 選擇_tb.Text : SQL_倉儲明細表_刪除二() : conn.Close() : MGB(對話框(5), 1) : Set_清單2() : End If

  446.         End If

  447.     End Sub

  448.     Private Sub 退料單建立完成_bt_Click(sender As Object, e As EventArgs) Handles 退料單建立完成_bt.Click

  449.         If 退回倉庫_cb.Text = "" Then : MGB(對話框(2), 1) : Else

  450.             存檔() : 退回倉庫_cb_下拉表單資料載入()

  451.             退回倉庫_cb.Enabled = True : 開立退料單_bt.Enabled = True : 單據_dgv.Enabled = True : 新增1_bt.Enabled = False : 新增_bt.Enabled = False

  452.             If CC(40) = True Then

  453.                 Set_日期格式轉換()

  454.                 For i As Integer = 0 To 明細_dgv.Rows.Count - 1

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

  456.                     PA8 = 明細_dgv.Rows(i).Cells("資料流水號").Value : SQL_倉儲明細表_倉庫作業() : conn.Close()

  457.                 Next : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0

  458.                 MGB(系統語言字典("H509-138-" & 語言), 1)

  459.             Else : MGB(對話框(3), 1) : End If : 退回倉庫_cb.Text = "" : 退料單號_tb.Text = "" : Set_清單2() : Set_清單()

  460.         End If

  461.     End Sub

  462.     Private Sub 單據_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 單據_dgv.CellClick

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

  464.             If 開立退料單_bt.Enabled = True Then

  465.                 退料單號_tb.Text = 單據_dgv.Rows(e.RowIndex).Cells("" & 表頭(47) & "").Value.ToString : 退料單號1_tb.Text = 單據_dgv.Rows(e.RowIndex).Cells("" & 表頭(47) & "").Value.ToString

  466.                 退料工地_cb.Text = 單據_dgv.Rows(e.RowIndex).Cells("" & 表頭(86) & "").Value.ToString

  467.                 退料工地_cb.Text = 單據_dgv.Rows(e.RowIndex).Cells(表頭(86)).Value.ToString : 合約編號_cb.Text = 單據_dgv.Rows(e.RowIndex).Cells("乙方").Value.ToString

  468.                 合約編號1_tb.Text = 單據_dgv.Rows(e.RowIndex).Cells("甲方").Value.ToString : 合約編號2_tb.Text = 單據_dgv.Rows(e.RowIndex).Cells("序號").Value.ToString

  469.                 合約編號3_tb.Text = 單據_dgv.Rows(e.RowIndex).Cells("尾號").Value.ToString : 合約號_tb.Text = 單據_dgv.Rows(e.RowIndex).Cells("No").Value.ToString

  470.                 選擇_tb.Text = "" : Set_清單2()

  471.             End If

  472.         End If

  473.     End Sub

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

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

  476.             If 開立退料單_bt.Enabled = True Then

  477.                 退料單號_tb.Text = 已核准1_dgv.Rows(e.RowIndex).Cells("" & 表頭(47) & "").Value.ToString : 退料單號1_tb.Text = 已核准1_dgv.Rows(e.RowIndex).Cells("" & 表頭(47) & "").Value.ToString

  478.                 退料工地_cb.Text = 已核准1_dgv.Rows(e.RowIndex).Cells("" & 表頭(86) & "").Value.ToString : 退回倉庫_cb.Text = 已核准1_dgv.Rows(e.RowIndex).Cells("Depot").Value.ToString

  479.                 退料工地_cb.Text = 已核准1_dgv.Rows(e.RowIndex).Cells(表頭(86)).Value.ToString : 合約編號_cb.Text = 已核准1_dgv.Rows(e.RowIndex).Cells("乙方").Value.ToString

  480.                 合約編號1_tb.Text = 已核准1_dgv.Rows(e.RowIndex).Cells("甲方").Value.ToString : 合約編號2_tb.Text = 已核准1_dgv.Rows(e.RowIndex).Cells("序號").Value.ToString

  481.                 合約編號3_tb.Text = 已核准1_dgv.Rows(e.RowIndex).Cells("尾號").Value.ToString : 合約號_tb.Text = 已核准1_dgv.Rows(e.RowIndex).Cells("No").Value.ToString

  482.                 選擇_tb.Text = "" : Set_清單2()

  483.             End If

  484.         End If

  485.     End Sub

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

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

  488.             選擇_tb.Text = 明細_dgv.Rows(e.RowIndex).Cells("資料流水號").Value : 品名_tb.Text = 明細_dgv.Rows(e.RowIndex).Cells(表頭(12)).Value

  489.             物料圖1_pb.Image = Nothing : PA2 = 明細_dgv.Rows(e.RowIndex).Cells("料號原則").Value : SQL_物料圖庫_圖檔讀取一()

  490.             While dr.Read() = True

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

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

  493.                 Dim oStream As New MemoryStream(bytes)

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

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

  496.         End If

  497.     End Sub

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

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

  500.             KKK1 = 物料清單_dgv(1, e.RowIndex).Value.ToString : 物料圖1_pb.Image = Nothing : PA2 = KKK1 : SQL_物料圖庫_圖檔讀取一()

  501.             While dr.Read() = True

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

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

  504.                 Dim oStream As New MemoryStream(bytes)

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

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

  507.             '------------------------------------------------------------------------------------------------------------------------------------------

  508.             PA2 = KKK1 : SQL_物料資訊控制表_原則查詢()

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

  510.             '------------------------------------------------------------------------------------------------------------------------------------------

  511.             PA3 = KKK3 : SQL_規格庫抬頭讀取()

  512.             If dr.Read() Then

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

  514.             End If : conn.Close()

  515.             '------------------------------------------------------------------------------------------------------------------------------------------

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

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

  518.             物料規格_dgv.ColumnHeadersHeight = 25 : 物料規格_dgv.AllowUserToAddRows = False

  519. 

  520.             If KKK2 = "SQLB03" Then : SQL_物料退回倉儲作業_SQLB03() : ElseIf KKK2 = "SQLB04" Then : SQL_物料退回倉儲作業_SQLB04()

  521.             ElseIf KKK2 = "SQLB05" Then : SQL_物料退回倉儲作業_SQLB05() : ElseIf KKK2 = "SQLB06" Then : SQL_物料退回倉儲作業_SQLB06()

  522.             ElseIf KKK2 = "SQLB07" Then : SQL_物料退回倉儲作業_SQLB07() : ElseIf KKK2 = "SQLB08" Then : SQL_物料退回倉儲作業_SQLB08() : End If

  523.             da.Fill(ds3) : 物料規格_dgv.DataSource = ds3.Tables(0) : conn.Close()

  524. 

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

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

  527.             If KKK2 = "SQLB03" Then

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

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

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

  531.             ElseIf KKK2 = "SQLB04" Then

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

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

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

  535.             ElseIf KKK2 = "SQLB05" Then

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

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

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

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

  540.             ElseIf KKK2 = "SQLB06" Then

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

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

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

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

  545.             ElseIf KKK2 = "SQLB07" Then

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

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

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

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

  550.             ElseIf KKK2 = "SQLB08" Then

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

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

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

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

  555.             End If

  556. 

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

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

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

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

  561. 

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

  563.                 物料規格_dgv.Rows(i).Cells("Pilih").Value = False : 物料規格_dgv.Rows(i).Cells("Quantity").Value = "0"

  564.             Next i

  565.         End If

  566.     End Sub

  567.     Private Sub 物料規格_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 物料規格_dgv.CellEndEdit

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

  569.             If CInt(物料規格_dgv.Rows(i).Cells("Quantity").Value.ToString) > 0 Then : 物料規格_dgv.Rows(i).Cells("Pilih").Value = True : End If

  570.         Next i

  571.     End Sub

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

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

  574.             料號_tb.Text = 物料規格_dgv.Rows(e.RowIndex).Cells("Nomor_Bagian").Value : 圖片流水號_tb.Text = 物料規格_dgv(3, e.RowIndex).Value.ToString

  575.         End If

  576.     End Sub

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

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

  579.             If 開立退料單_bt.Enabled = True Then

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

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

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

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

  584.                 退料工地_cb.Text = 合約1_dgv.Rows(e.RowIndex).Cells("約號甲方").Value.ToString.ToUpper

  585.             End If

  586.         End If

  587.     End Sub

  588.     Private Sub 退回倉庫_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 退回倉庫_cb.SelectedIndexChanged

  589.         PA6 = 退回倉庫_cb.Text : SQL_指定倉儲_資料讀取()

  590.         If dr.Read() Then : 倉庫級別_tb.Text = dr("倉級") : 倉庫編號_tb.Text = dr("倉名編號") : End If : conn.Close()

  591.     End Sub

  592.     Private Sub 退回倉庫_cb_Click(sender As Object, e As EventArgs) Handles 退回倉庫_cb.Click

  593.         CB選擇清單(退回倉庫_cb, 退回倉庫_cb.Text)

  594.     End Sub

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

  596.         DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")

  597.     End Sub

  598.     Private Sub 存檔()

  599.         資料數 = 明細_dgv.Rows.Count

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

  601.             PA10 = 明細_dgv.Rows(i).Cells(表頭(14)).Value : PA11 = 退料工地_cb.Text : PA12 = 明細_dgv.Rows(i).Cells("資料流水號").Value

  602.             SQL_倉儲明細表_備註修改_使用位置() : conn.Close()

  603.         Next : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0

  604.     End Sub

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

  606.         Set_合約清單()

  607.     End Sub

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

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

  610.     End Sub

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

  612.         群組碼_tb.Text = 群組編碼_cb.Text : Set_清單1()

  613.     End Sub

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

  615.         PA10 = 物料原則一_cb.Text

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

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

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

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

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

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

  622.         SQL_物料退回倉儲作業_清單二() : da.Fill(ds4) : 物料清單_dgv.DataSource = ds4.Tables(0) : conn.Close()

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

  624.         物料清單_dgv.Columns(3).Visible = False : 物料清單_dgv.Columns(4).Visible = False

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

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

  627.         If 低網速模式 = False Then

  628.             物料清單_dgv.Columns(5).FillWeight = 80 : 物料清單_dgv.Columns(5).Visible = True

  629.             Dim mycol As DataGridViewImageColumn = 物料清單_dgv.Columns("Image")

  630.             mycol.ImageLayout = DataGridViewImageCellLayout.Zoom

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

  632.         物料原則二_cb_下拉表單資料載入() : 料號_tb.Text = ""

  633.     End Sub

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

  635.         PA10 = 物料原則一_cb.Text & "-" & 物料原則二_cb.Text

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

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

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

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

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

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

  642.         SQL_物料退回倉儲作業_清單二()

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

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

  645.         物料清單_dgv.Columns(3).Visible = False : 物料清單_dgv.Columns(4).Visible = False

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

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

  648.         If 低網速模式 = False Then

  649.             物料清單_dgv.Columns(5).FillWeight = 80 : 物料清單_dgv.Columns(5).Visible = True

  650.             Dim mycol As DataGridViewImageColumn = 物料清單_dgv.Columns("Image")

  651.             mycol.ImageLayout = DataGridViewImageCellLayout.Zoom

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

  653.         料號_tb.Text = ""

  654.     End Sub

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

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

  657.         If 物料關鍵字 = "" Then : Else

  658.             物料查詢 = True : Set_群組清單() : 次頁_p.BringToFront()

  659.         End If

  660.     End Sub

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

  662.         If 退回倉庫_cb.Text = "" Then : MGB(對話框(8), 1) : Else

  663.             If 申請數_nud.Value = 0 Then : MGB(對話框(13), 1) : Else : 選定內容加入退料單() : Set_清單() : End If

  664.         End If

  665.     End Sub

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

  667.         If 退回倉庫_cb.Text = "" Then : MGB(對話框(8), 1) : Else

  668.             If 申請數1_nud.Value = 0 Then : MGB(對話框(13), 1) : Else : 選定內容加入退料單() : Set_清單() : End If

  669.         End If

  670.     End Sub

  671.     Private Sub 選定內容加入退料單()

  672.         If 退料單號_tb.Text = "" Then : MGB(對話框(1), 1) : Else : 存檔() : Set_日期格式轉換()

  673.             PA1 = 退料單號_tb.Text : PA2 = 料號_tb.Text : SQL_倉儲明細表_確認單據是否申請()

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

  675.                 SQL_倉儲明細表_最後一筆資料()

  676.                 If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 9)) : Else : EDR = 0 : End If : conn.Close() : EDR += 1

  677.                 If EDR < 10 Then : ESTR = "WH" & "00000000" & EDR : ElseIf EDR > 9 And EDR < 100 Then : ESTR = "WH" & "0000000" & EDR

  678.                 ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "WH" & "000000" & EDR : ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "WH" & "00000" & EDR

  679.                 ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "WH" & "0000" & EDR : ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "WH" & "000" & EDR

  680.                 ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "WH" & "00" & EDR : ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "WH" & "0" & EDR

  681.                 ElseIf EDR > 99999999 Then : ESTR = "WH" & EDR : End If

  682. 

  683.                 PA3 = ESTR : PA4 = 退料單號_tb.Text : PA5 = 倉庫級別_tb.Text : PA6 = 倉庫編號_tb.Text : PA2 = 料號_tb.Text : PA7 = 申請數_nud.Value : PA9 = 退料工地_cb.Text

  684.                 PA10 = 合約編號_cb.Text : PA11 = 合約編號1_tb.Text : PA12 = 合約編號2_tb.Text : PA13 = 合約編號3_tb.Text

  685.                 If Strings.Left(合約號_tb.Text, 1) = "H" Or Strings.Left(合約號_tb.Text, 1) = "P" Then : PA8 = 合約號_tb.Text : Else : PA8 = "" : End If

  686.                 If 退料工地_cb.Text = "" Then : SQL2 = "指定入庫" : Else : SQL2 = "退料入庫" : End If : SQL_物料退回倉儲作業_倉儲明細表_新增() : conn.Close()

  687.             End If

  688.         End If : Set_清單2() : 申請數_nud.Value = 0

  689.     End Sub

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

  691.         INB(對話框(9)) : PA = 訊息回應

  692.         If PA = "" Then : Else

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

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

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

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

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

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

  699.             ConnOpen() : SQL_物料退回倉儲作業_清單三() : CmdSet_For_DGV()

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

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

  702.             物料清單_dgv.Columns(3).Visible = False : 物料清單_dgv.Columns(4).Visible = False

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

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

  705.             If 低網速模式 = False Then

  706.                 物料清單_dgv.Columns(5).FillWeight = 80 : 物料清單_dgv.Columns(5).Visible = True

  707.                 Dim mycol As DataGridViewImageColumn = 物料清單_dgv.Columns("Image")

  708.                 mycol.ImageLayout = DataGridViewImageCellLayout.Zoom

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

  710.         End If

  711.     End Sub

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

  713.         小間距_ch.Checked = True : 中間距_ch.Checked = False : 大間距_ch.Checked = False : MyMod.間距設定存檔_1() : Set_清單1()

  714.     End Sub

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

  716.         小間距_ch.Checked = False : 中間距_ch.Checked = True : 大間距_ch.Checked = False : MyMod.間距設定存檔_2() : Set_清單1()

  717.     End Sub

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

  719.         小間距_ch.Checked = False : 中間距_ch.Checked = False : 大間距_ch.Checked = True : MyMod.間距設定存檔_3() : Set_清單1()

  720.     End Sub

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

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

  723.     End Sub

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

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

  726.     End Sub

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

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

  729.     End Sub

  730.     Private Sub 顯示料號1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 顯示料號1_ch.Click

  731.         If 顯示料號1_ch.Checked = True Then : 顯示料號1_ch.Checked = True : 明細_dgv.Columns(表頭(77)).Visible = True

  732.         Else : 顯示料號1_ch.Checked = False : 明細_dgv.Columns(表頭(77)).Visible = False : End If

  733.     End Sub

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

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

  736.     End Sub

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

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

  739.     End Sub

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

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

  742.     End Sub

  743.     Private Sub 料號1_tb_TextChanged(sender As Object, e As EventArgs) Handles 料號1_tb.TextChanged

  744.         料號_tb.Text = 料號1_tb.Text.ToUpper

  745.     End Sub

  746.     Private Sub 料號_tb_TextChanged(sender As Object, e As EventArgs) Handles 料號_tb.TextChanged

  747.         料號1_tb.Text = 料號_tb.Text.ToUpper

  748.     End Sub

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

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

  751.             If 切換_ts.Value = True Then : 切換_ts.Value = True : 新式_P.Visible = True : 舊式_P.Visible = False

  752.             Else : 切換_ts.Value = False : 新式_P.Visible = False : 舊式_P.Visible = True : Set_清單1() : End If

  753.         End If

  754.     End Sub

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

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

  757.     End Sub

  758.     Private Sub 退料工地_cb_Click(sender As Object, e As EventArgs) Handles 退料工地_cb.Click

  759.         CB選擇清單(退料工地_cb, 退料工地_cb.Text)

  760.     End Sub

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

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

  763.     End Sub

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

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

  766.     End Sub

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

  768.         合約_P.BringToFront()

  769.     End Sub

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

  771.         單據_p.BringToFront()

  772.     End Sub

  773.     Private Sub 次項變形()

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

  775.         Dim SS As Integer

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

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

  778.         Dim 轉檔 As Boolean

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

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

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

  782.             While 轉檔 = True

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

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

  785.                 Dim oStream As New MemoryStream(bytes)

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

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

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

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

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

  791.         Next

  792.     End Sub

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

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

  795.     End Sub

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

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

  798.     End Sub

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

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

  801.     End Sub

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

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

  804.     End Sub

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

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

  807.     End Sub

  808.     Private Sub 五金_bt_Click(sender As Object, e As EventArgs) Handles 五金_bt.Click

  809.         頁面 = "1" : PA1 = "五金" : Set_群組清單() : 次頁_p.BringToFront()

  810.     End Sub

  811.     Private Sub 設備_bt_Click(sender As Object, e As EventArgs) Handles 設備_bt.Click

  812.         頁面 = "1" : PA1 = "設備" : Set_群組清單() : 次頁_p.BringToFront()

  813.     End Sub

  814.     Private Sub 工具_bt_Click(sender As Object, e As EventArgs) Handles 工具_bt.Click

  815.         頁面 = "1" : PA1 = "工具" : Set_群組清單() : 次頁_p.BringToFront()

  816.     End Sub

  817.     Private Sub 日用_bt_Click(sender As Object, e As EventArgs) Handles 日用_bt.Click

  818.         頁面 = "1" : PA1 = "日用" : Set_群組清單() : 次頁_p.BringToFront()

  819.     End Sub

  820.     Private Sub 其他_bt_Click(sender As Object, e As EventArgs) Handles 其他_bt.Click

  821.         頁面 = "1" : PA1 = "其他" : Set_群組清單() : 次頁_p.BringToFront()

  822.     End Sub

  823.     Private Sub PB_1_Click(sender As Object, e As EventArgs) Handles PB_1.Click

  824.         頁面 = "2" : PA1 = 群組碼(1) : Set_清單1_1() : 物料_p.BringToFront()

  825.     End Sub

  826.     Private Sub PB_2_Click(sender As Object, e As EventArgs) Handles PB_2.Click

  827.         頁面 = "2" : PA1 = 群組碼(2) : Set_清單1_1() : 物料_p.BringToFront()

  828.     End Sub

  829.     Private Sub PB_3_Click(sender As Object, e As EventArgs) Handles PB_3.Click

  830.         頁面 = "2" : PA1 = 群組碼(3) : Set_清單1_1() : 物料_p.BringToFront()

  831.     End Sub

  832.     Private Sub PB_4_Click(sender As Object, e As EventArgs) Handles PB_4.Click

  833.         頁面 = "2" : PA1 = 群組碼(4) : Set_清單1_1() : 物料_p.BringToFront()

  834.     End Sub

  835.     Private Sub PB_5_Click(sender As Object, e As EventArgs) Handles PB_5.Click

  836.         頁面 = "2" : PA1 = 群組碼(5) : Set_清單1_1() : 物料_p.BringToFront()

  837.     End Sub

  838.     Private Sub PB_6_Click(sender As Object, e As EventArgs) Handles PB_6.Click

  839.         頁面 = "2" : PA1 = 群組碼(6) : Set_清單1_1() : 物料_p.BringToFront()

  840.     End Sub

  841.     Private Sub PB_7_Click(sender As Object, e As EventArgs) Handles PB_7.Click

  842.         頁面 = "2" : PA1 = 群組碼(7) : Set_清單1_1() : 物料_p.BringToFront()

  843.     End Sub

  844.     Private Sub PB_8_Click(sender As Object, e As EventArgs) Handles PB_8.Click

  845.         頁面 = "2" : PA1 = 群組碼(8) : Set_清單1_1() : 物料_p.BringToFront()

  846.     End Sub

  847.     Private Sub PB_9_Click(sender As Object, e As EventArgs) Handles PB_9.Click

  848.         頁面 = "2" : PA1 = 群組碼(9) : Set_清單1_1() : 物料_p.BringToFront()

  849.     End Sub

  850.     Private Sub PB_10_Click(sender As Object, e As EventArgs) Handles PB_10.Click

  851.         頁面 = "2" : PA1 = 群組碼(10) : Set_清單1_1() : 物料_p.BringToFront()

  852.     End Sub

  853.     Private Sub PB_11_Click(sender As Object, e As EventArgs) Handles PB_11.Click

  854.         頁面 = "2" : PA1 = 群組碼(11) : Set_清單1_1() : 物料_p.BringToFront()

  855.     End Sub

  856.     Private Sub PB_12_Click(sender As Object, e As EventArgs) Handles PB_12.Click

  857.         頁面 = "2" : PA1 = 群組碼(12) : Set_清單1_1() : 物料_p.BringToFront()

  858.     End Sub

  859.     Private Sub PB_13_Click(sender As Object, e As EventArgs) Handles PB_13.Click

  860.         頁面 = "2" : PA1 = 群組碼(13) : Set_清單1_1() : 物料_p.BringToFront()

  861.     End Sub

  862.     Private Sub PB_14_Click(sender As Object, e As EventArgs) Handles PB_14.Click

  863.         頁面 = "2" : PA1 = 群組碼(14) : Set_清單1_1() : 物料_p.BringToFront()

  864.     End Sub

  865.     Private Sub PB_15_Click(sender As Object, e As EventArgs) Handles PB_15.Click

  866.         頁面 = "2" : PA1 = 群組碼(15) : Set_清單1_1() : 物料_p.BringToFront()

  867.     End Sub

  868.     Private Sub PB_16_Click(sender As Object, e As EventArgs) Handles PB_16.Click

  869.         頁面 = "2" : PA1 = 群組碼(16) : Set_清單1_1() : 物料_p.BringToFront()

  870.     End Sub

  871.     Private Sub PB_17_Click(sender As Object, e As EventArgs) Handles PB_17.Click

  872.         頁面 = "2" : PA1 = 群組碼(17) : Set_清單1_1() : 物料_p.BringToFront()

  873.     End Sub

  874.     Private Sub PB_18_Click(sender As Object, e As EventArgs) Handles PB_18.Click

  875.         頁面 = "2" : PA1 = 群組碼(18) : Set_清單1_1() : 物料_p.BringToFront()

  876.     End Sub

  877.     Private Sub PB_19_Click(sender As Object, e As EventArgs) Handles PB_19.Click

  878.         頁面 = "2" : PA1 = 群組碼(19) : Set_清單1_1() : 物料_p.BringToFront()

  879.     End Sub

  880.     Private Sub PB_20_Click(sender As Object, e As EventArgs) Handles PB_20.Click

  881.         頁面 = "2" : PA1 = 群組碼(20) : Set_清單1_1() : 物料_p.BringToFront()

  882.     End Sub

  883.     Private Sub PB_21_Click(sender As Object, e As EventArgs) Handles PB_21.Click

  884.         頁面 = "2" : PA1 = 群組碼(21) : Set_清單1_1() : 物料_p.BringToFront()

  885.     End Sub

  886.     Private Sub TB_1_TextChanged(sender As Object, e As EventArgs) Handles TB_1.Click

  887.         頁面 = "2" : PA1 = 群組碼(1) : Set_清單1_1() : 物料_p.BringToFront()

  888.     End Sub

  889.     Private Sub TB_2_TextChanged(sender As Object, e As EventArgs) Handles TB_2.Click

  890.         頁面 = "2" : PA1 = 群組碼(2) : Set_清單1_1() : 物料_p.BringToFront()

  891.     End Sub

  892.     Private Sub TB_3_TextChanged(sender As Object, e As EventArgs) Handles TB_3.Click

  893.         頁面 = "2" : PA1 = 群組碼(3) : Set_清單1_1() : 物料_p.BringToFront()

  894.     End Sub

  895.     Private Sub TB_4_TextChanged(sender As Object, e As EventArgs) Handles TB_4.Click

  896.         頁面 = "2" : PA1 = 群組碼(4) : Set_清單1_1() : 物料_p.BringToFront()

  897.     End Sub

  898.     Private Sub TB_5_TextChanged(sender As Object, e As EventArgs) Handles TB_5.Click

  899.         頁面 = "2" : PA1 = 群組碼(5) : Set_清單1_1() : 物料_p.BringToFront()

  900.     End Sub

  901.     Private Sub TB_6_TextChanged(sender As Object, e As EventArgs) Handles TB_6.Click

  902.         頁面 = "2" : PA1 = 群組碼(6) : Set_清單1_1() : 物料_p.BringToFront()

  903.     End Sub

  904.     Private Sub TB_7_TextChanged(sender As Object, e As EventArgs) Handles TB_7.Click

  905.         頁面 = "2" : PA1 = 群組碼(7) : Set_清單1_1() : 物料_p.BringToFront()

  906.     End Sub

  907.     Private Sub TB_8_TextChanged(sender As Object, e As EventArgs) Handles TB_8.Click

  908.         頁面 = "2" : PA1 = 群組碼(8) : Set_清單1_1() : 物料_p.BringToFront()

  909.     End Sub

  910.     Private Sub TB_9_TextChanged(sender As Object, e As EventArgs) Handles TB_9.Click

  911.         頁面 = "2" : PA1 = 群組碼(9) : Set_清單1_1() : 物料_p.BringToFront()

  912.     End Sub

  913.     Private Sub TB_10_TextChanged(sender As Object, e As EventArgs) Handles TB_10.Click

  914.         頁面 = "2" : PA1 = 群組碼(10) : Set_清單1_1() : 物料_p.BringToFront()

  915.     End Sub

  916.     Private Sub TB_11_TextChanged(sender As Object, e As EventArgs) Handles TB_11.Click

  917.         頁面 = "2" : PA1 = 群組碼(11) : Set_清單1_1() : 物料_p.BringToFront()

  918.     End Sub

  919.     Private Sub TB_12_TextChanged(sender As Object, e As EventArgs) Handles TB_12.Click

  920.         頁面 = "2" : PA1 = 群組碼(12) : Set_清單1_1() : 物料_p.BringToFront()

  921.     End Sub

  922.     Private Sub TB_13_TextChanged(sender As Object, e As EventArgs) Handles TB_13.Click

  923.         頁面 = "2" : PA1 = 群組碼(13) : Set_清單1_1() : 物料_p.BringToFront()

  924.     End Sub

  925.     Private Sub TB_14_TextChanged(sender As Object, e As EventArgs) Handles TB_14.Click

  926.         頁面 = "2" : PA1 = 群組碼(14) : Set_清單1_1() : 物料_p.BringToFront()

  927.     End Sub

  928.     Private Sub TB_15_TextChanged(sender As Object, e As EventArgs) Handles TB_15.Click

  929.         頁面 = "2" : PA1 = 群組碼(15) : Set_清單1_1() : 物料_p.BringToFront()

  930.     End Sub

  931.     Private Sub TB_16_TextChanged(sender As Object, e As EventArgs) Handles TB_16.Click

  932.         頁面 = "2" : PA1 = 群組碼(16) : Set_清單1_1() : 物料_p.BringToFront()

  933.     End Sub

  934.     Private Sub TB_17_TextChanged(sender As Object, e As EventArgs) Handles TB_17.Click

  935.         頁面 = "2" : PA1 = 群組碼(17) : Set_清單1_1() : 物料_p.BringToFront()

  936.     End Sub

  937.     Private Sub TB_18_TextChanged(sender As Object, e As EventArgs) Handles TB_18.Click

  938.         頁面 = "2" : PA1 = 群組碼(18) : Set_清單1_1() : 物料_p.BringToFront()

  939.     End Sub

  940.     Private Sub TB_19_TextChanged(sender As Object, e As EventArgs) Handles TB_19.Click

  941.         頁面 = "2" : PA1 = 群組碼(19) : Set_清單1_1() : 物料_p.BringToFront()

  942.     End Sub

  943.     Private Sub TB_20_TextChanged(sender As Object, e As EventArgs) Handles TB_20.Click

  944.         頁面 = "2" : PA1 = 群組碼(20) : Set_清單1_1() : 物料_p.BringToFront()

  945.     End Sub

  946.     Private Sub TB_21_TextChanged(sender As Object, e As EventArgs) Handles TB_21.Click

  947.         頁面 = "2" : PA1 = 群組碼(21) : Set_清單1_1() : 物料_p.BringToFront()

  948.     End Sub

  949. 

  950.     '-----------------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------

  951.     Private Sub 重新整理SegarkanToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理_tsm.Click

  952.         Set_清單()

  953.     End Sub

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

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

  956.     End Sub

  957. 

  958.     Private Sub 風格()

  959.         If 深色風格 = False Then

  960.             Me.BackColor = SystemColors.Control

  961. 

  962.             甲方_lb.ForeColor = Color.Blue : 申請數1_lb.ForeColor = Color.FromArgb(192, 0, 192) : 甲方_lb.BackColor = SystemColors.Control

  963.             合約編號_lb.BackColor = SystemColors.Control

  964.             切換_lb.ForeColor = Color.Black : 退料單號_lb.ForeColor = Color.Black : 合約編號_lb.ForeColor = Color.Black : 退料工地_lb.ForeColor = Color.Black

  965.             退回倉庫_lb.ForeColor = Color.Black : Label35.ForeColor = Color.Black : 合約號_lb.ForeColor = Color.Black : 選擇_lb.ForeColor = Color.Black

  966.             詳細資料1_ch.ForeColor = Color.Black : 顯示料號1_ch.ForeColor = Color.Black : 小間距1_ch.ForeColor = Color.Black : 中間距1_ch.ForeColor = Color.Black

  967.             大間距1_ch.ForeColor = Color.Black : 群組編碼_lb.ForeColor = Color.Black : 小間距_ch.ForeColor = Color.Black : 中間距_ch.ForeColor = Color.Black

  968.             大間距_ch.ForeColor = Color.Black : 料號_lb.ForeColor = Color.Black : 申請數_lb.ForeColor = Color.Black

  969. 

  970.             新群組1_cb.BackColor = Color.White : 新群組1_cb.ForeColor = Color.Black : 退料單號_tb.BackColor = Color.White : 退料單號_tb.ForeColor = Color.Black

  971.             合約號_tb.BackColor = Color.White : 合約號_tb.ForeColor = Color.Black : 退回倉庫_cb.BackColor = Color.White : 退回倉庫_cb.ForeColor = Color.Black

  972.             合約編號_cb.BackColor = Color.White : 合約編號_cb.ForeColor = Color.Blue : 合約編號1_tb.BackColor = Color.White : 合約編號1_tb.ForeColor = Color.Black

  973.             合約編號2_tb.BackColor = Color.White : 合約編號2_tb.ForeColor = Color.Black : 合約編號3_tb.BackColor = Color.White : 合約編號3_tb.ForeColor = Color.Black

  974.             退料工地_cb.BackColor = Color.White : 退料工地_cb.ForeColor = Color.Black : 品名_tb.BackColor = Color.White : 品名_tb.ForeColor = Color.Black

  975.             料號_tb.BackColor = Color.White : 料號_tb.ForeColor = Color.Black : 料號1_tb.BackColor = Color.White : 料號1_tb.ForeColor = Color.Black

  976.             合約編號1_cb.BackColor = Color.White : 合約編號1_cb.ForeColor = Color.Blue

  977. 

  978.             語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black : 縮放3_bt.BackColor = Color.White : 縮放3_bt.ForeColor = Color.Black

  979.             單據_bt.BackColor = Color.White : 單據_bt.ForeColor = Color.Black : 回首頁_bt.BackColor = Color.White : 回首頁_bt.ForeColor = Color.Black

  980.             回次頁_bt.BackColor = Color.White : 回次頁_bt.ForeColor = Color.Black : 搜尋1_bt.BackColor = Color.White : 搜尋1_bt.ForeColor = Color.Black

  981.             新增1_bt.BackColor = Color.White : 新增1_bt.ForeColor = Color.Black : 開立退料單_bt.BackColor = Color.White : 開立退料單_bt.ForeColor = Color.Black

  982.             備註修改存檔_bt.BackColor = Color.White : 備註修改存檔_bt.ForeColor = Color.Black

  983.             刪除選中的明細_bt.BackColor = Color.White : 刪除選中的明細_bt.ForeColor = Color.Black : 退料單建立完成_bt.BackColor = Color.White : 退料單建立完成_bt.ForeColor = Color.Black

  984.             刪除退料申請單_bt.BackColor = Color.White : 刪除退料申請單_bt.ForeColor = Color.Black : 搜尋_bt.BackColor = Color.White : 搜尋_bt.ForeColor = Color.Black

  985.             新增_bt.BackColor = Color.White : 新增_bt.ForeColor = Color.Blue

  986. 

  987.             TB_1.BackColor = Color.White : TB_1.ForeColor = Color.Black : TB_2.BackColor = Color.White : TB_2.ForeColor = Color.Black

  988.             TB_3.BackColor = Color.White : TB_3.ForeColor = Color.Black : TB_4.BackColor = Color.White : TB_4.ForeColor = Color.Black

  989.             TB_5.BackColor = Color.White : TB_5.ForeColor = Color.Black : TB_6.BackColor = Color.White : TB_6.ForeColor = Color.Black

  990.             TB_7.BackColor = Color.White : TB_7.ForeColor = Color.Black : TB_8.BackColor = Color.White : TB_8.ForeColor = Color.Black

  991.             TB_9.BackColor = Color.White : TB_9.ForeColor = Color.Black : TB_10.BackColor = Color.White : TB_10.ForeColor = Color.Black

  992.             TB_11.BackColor = Color.White : TB_11.ForeColor = Color.Black : TB_12.BackColor = Color.White : TB_12.ForeColor = Color.Black

  993.             TB_13.BackColor = Color.White : TB_13.ForeColor = Color.Black : TB_14.BackColor = Color.White : TB_14.ForeColor = Color.Black

  994.             TB_15.BackColor = Color.White : TB_15.ForeColor = Color.Black : TB_16.BackColor = Color.White : TB_16.ForeColor = Color.Black

  995.             TB_17.BackColor = Color.White : TB_17.ForeColor = Color.Black : TB_18.BackColor = Color.White : TB_18.ForeColor = Color.Black

  996.             TB_19.BackColor = Color.White : TB_19.ForeColor = Color.Black : TB_20.BackColor = Color.White : TB_20.ForeColor = Color.Black

  997.             TB_21.BackColor = Color.White : TB_21.ForeColor = Color.Black

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

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

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

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

  1002.             PB_21.BackColor = Color.White

  1003. 

  1004.             物料清單_dgv.EnableHeadersVisualStyles = True : 物料清單_dgv.BackgroundColor = Color.White : 物料清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1005.             物料清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightPink

  1006.             物料清單_dgv.DefaultCellStyle.BackColor = Color.White : 物料清單_dgv.DefaultCellStyle.ForeColor = Color.Black

  1007.             明細_dgv.EnableHeadersVisualStyles = True : 明細_dgv.BackgroundColor = Color.White : 明細_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1008.             明細_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue

  1009.             明細_dgv.DefaultCellStyle.BackColor = Color.White : 明細_dgv.DefaultCellStyle.ForeColor = Color.Black

  1010.             物料規格_dgv.EnableHeadersVisualStyles = True : 物料規格_dgv.BackgroundColor = Color.White : 物料規格_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1011.             物料規格_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightPink

  1012.             物料規格_dgv.DefaultCellStyle.BackColor = Color.White : 物料規格_dgv.DefaultCellStyle.ForeColor = Color.Black

  1013.             單據_dgv.EnableHeadersVisualStyles = True : 單據_dgv.BackgroundColor = Color.White : 單據_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1014.             單據_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightPink

  1015.             單據_dgv.DefaultCellStyle.BackColor = Color.White : 單據_dgv.DefaultCellStyle.ForeColor = Color.Black

  1016.             物料清單1_dgv.EnableHeadersVisualStyles = True : 物料清單1_dgv.BackgroundColor = Color.White : 物料清單1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1017.             物料清單1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightPink

  1018.             物料清單1_dgv.DefaultCellStyle.BackColor = Color.White : 物料清單1_dgv.DefaultCellStyle.ForeColor = Color.Black

  1019.             物料規格1_dgv.EnableHeadersVisualStyles = True : 物料規格1_dgv.BackgroundColor = Color.White : 物料規格1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1020.             物料規格1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightPink

  1021.             物料規格1_dgv.DefaultCellStyle.BackColor = Color.White : 物料規格1_dgv.DefaultCellStyle.ForeColor = Color.Black

  1022.             合約1_dgv.EnableHeadersVisualStyles = True : 合約1_dgv.BackgroundColor = Color.White : 合約1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1023.             合約1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightPink

  1024.             合約1_dgv.DefaultCellStyle.BackColor = Color.White : 合約1_dgv.DefaultCellStyle.ForeColor = Color.Black

  1025.             已核准1_dgv.EnableHeadersVisualStyles = True : 已核准1_dgv.BackgroundColor = Color.White : 已核准1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1026.             已核准1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightPink

  1027.             已核准1_dgv.DefaultCellStyle.BackColor = Color.White : 已核准1_dgv.DefaultCellStyle.ForeColor = Color.Black

  1028.         Else

  1029.             Me.BackColor = Color.Black

  1030. 

  1031.             甲方_lb.ForeColor = Color.LightBlue : 申請數1_lb.ForeColor = Color.Violet : 甲方_lb.BackColor = Color.Black

  1032.             合約編號_lb.BackColor = Color.Black

  1033.             切換_lb.ForeColor = Color.White : 退料單號_lb.ForeColor = Color.White : 合約編號_lb.ForeColor = Color.White : 退料工地_lb.ForeColor = Color.White

  1034.             退回倉庫_lb.ForeColor = Color.White : Label35.ForeColor = Color.White : 合約號_lb.ForeColor = Color.White : 選擇_lb.ForeColor = Color.White

  1035.             詳細資料1_ch.ForeColor = Color.White : 顯示料號1_ch.ForeColor = Color.White : 小間距1_ch.ForeColor = Color.White : 中間距1_ch.ForeColor = Color.White

  1036.             大間距1_ch.ForeColor = Color.White : 群組編碼_lb.ForeColor = Color.White : 小間距_ch.ForeColor = Color.White : 中間距_ch.ForeColor = Color.White

  1037.             大間距_ch.ForeColor = Color.White : 料號_lb.ForeColor = Color.White : 申請數_lb.ForeColor = Color.White

  1038. 

  1039.             新群組1_cb.BackColor = Color.DimGray : 新群組1_cb.ForeColor = Color.White : 退料單號_tb.BackColor = Color.DimGray : 退料單號_tb.ForeColor = Color.White

  1040.             合約號_tb.BackColor = Color.DimGray : 合約號_tb.ForeColor = Color.White : 退回倉庫_cb.BackColor = Color.DimGray : 退回倉庫_cb.ForeColor = Color.White

  1041.             合約編號_cb.BackColor = Color.DimGray : 合約編號_cb.ForeColor = Color.LightBlue : 合約編號1_tb.BackColor = Color.DimGray : 合約編號1_tb.ForeColor = Color.White

  1042.             合約編號2_tb.BackColor = Color.DimGray : 合約編號2_tb.ForeColor = Color.White : 合約編號3_tb.BackColor = Color.DimGray : 合約編號3_tb.ForeColor = Color.White

  1043.             退料工地_cb.BackColor = Color.DimGray : 退料工地_cb.ForeColor = Color.White : 品名_tb.BackColor = Color.DimGray : 品名_tb.ForeColor = Color.White

  1044.             料號_tb.BackColor = Color.DimGray : 料號_tb.ForeColor = Color.White : 料號1_tb.BackColor = Color.DimGray : 料號1_tb.ForeColor = Color.White

  1045.             合約編號1_cb.BackColor = Color.DimGray : 合約編號1_cb.ForeColor = Color.LightBlue

  1046. 

  1047.             語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White : 縮放3_bt.BackColor = Color.DimGray : 縮放3_bt.ForeColor = Color.White

  1048.             單據_bt.BackColor = Color.DimGray : 單據_bt.ForeColor = Color.White : 回首頁_bt.BackColor = Color.DimGray : 回首頁_bt.ForeColor = Color.White

  1049.             回次頁_bt.BackColor = Color.DimGray : 回次頁_bt.ForeColor = Color.White : 搜尋1_bt.BackColor = Color.DimGray : 搜尋1_bt.ForeColor = Color.White

  1050.             新增1_bt.BackColor = Color.DimGray : 新增1_bt.ForeColor = Color.White : 開立退料單_bt.BackColor = Color.DimGray : 開立退料單_bt.ForeColor = Color.White

  1051.             備註修改存檔_bt.BackColor = Color.DimGray : 備註修改存檔_bt.ForeColor = Color.White

  1052.             刪除選中的明細_bt.BackColor = Color.DimGray : 刪除選中的明細_bt.ForeColor = Color.White : 退料單建立完成_bt.BackColor = Color.DimGray : 退料單建立完成_bt.ForeColor = Color.White

  1053.             刪除退料申請單_bt.BackColor = Color.DimGray : 刪除退料申請單_bt.ForeColor = Color.White : 搜尋_bt.BackColor = Color.DimGray : 搜尋_bt.ForeColor = Color.White

  1054.             新增_bt.BackColor = Color.DimGray : 新增_bt.ForeColor = Color.LightBlue

  1055. 

  1056.             TB_1.BackColor = Color.Black : TB_1.ForeColor = Color.White : TB_2.BackColor = Color.Black : TB_2.ForeColor = Color.White

  1057.             TB_3.BackColor = Color.Black : TB_3.ForeColor = Color.White : TB_4.BackColor = Color.Black : TB_4.ForeColor = Color.White

  1058.             TB_5.BackColor = Color.Black : TB_5.ForeColor = Color.White : TB_6.BackColor = Color.Black : TB_6.ForeColor = Color.White

  1059.             TB_7.BackColor = Color.Black : TB_7.ForeColor = Color.White : TB_8.BackColor = Color.Black : TB_8.ForeColor = Color.White

  1060.             TB_9.BackColor = Color.Black : TB_9.ForeColor = Color.White : TB_10.BackColor = Color.Black : TB_10.ForeColor = Color.White

  1061.             TB_11.BackColor = Color.Black : TB_11.ForeColor = Color.White : TB_12.BackColor = Color.Black : TB_12.ForeColor = Color.White

  1062.             TB_13.BackColor = Color.Black : TB_13.ForeColor = Color.White : TB_14.BackColor = Color.Black : TB_14.ForeColor = Color.White

  1063.             TB_15.BackColor = Color.Black : TB_15.ForeColor = Color.White : TB_16.BackColor = Color.Black : TB_16.ForeColor = Color.White

  1064.             TB_17.BackColor = Color.Black : TB_17.ForeColor = Color.White : TB_18.BackColor = Color.Black : TB_18.ForeColor = Color.White

  1065.             TB_19.BackColor = Color.Black : TB_19.ForeColor = Color.White : TB_20.BackColor = Color.Black : TB_20.ForeColor = Color.White

  1066.             TB_21.BackColor = Color.Black : TB_21.ForeColor = Color.White

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

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

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

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

  1071.             PB_21.BackColor = Color.DimGray

  1072. 

  1073.             物料清單_dgv.EnableHeadersVisualStyles = False : 物料清單_dgv.BackgroundColor = Color.DimGray : 物料清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  1074.             物料清單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 物料清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray

  1075.             物料清單_dgv.DefaultCellStyle.BackColor = Color.Black : 物料清單_dgv.DefaultCellStyle.ForeColor = Color.White

  1076.             明細_dgv.EnableHeadersVisualStyles = False : 明細_dgv.BackgroundColor = Color.DimGray : 明細_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  1077.             明細_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 明細_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray

  1078.             明細_dgv.DefaultCellStyle.BackColor = Color.Black : 明細_dgv.DefaultCellStyle.ForeColor = Color.White

  1079.             物料規格_dgv.EnableHeadersVisualStyles = False : 物料規格_dgv.BackgroundColor = Color.DimGray : 物料規格_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  1080.             物料規格_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 物料規格_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray

  1081.             物料規格_dgv.DefaultCellStyle.BackColor = Color.Black : 物料規格_dgv.DefaultCellStyle.ForeColor = Color.White

  1082.             單據_dgv.EnableHeadersVisualStyles = False : 單據_dgv.BackgroundColor = Color.DimGray : 單據_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  1083.             單據_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 單據_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray

  1084.             單據_dgv.DefaultCellStyle.BackColor = Color.Black : 單據_dgv.DefaultCellStyle.ForeColor = Color.White

  1085.             物料清單1_dgv.EnableHeadersVisualStyles = False : 物料清單1_dgv.BackgroundColor = Color.DimGray : 物料清單1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  1086.             物料清單1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 物料清單1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray

  1087.             物料清單1_dgv.DefaultCellStyle.BackColor = Color.Black : 物料清單1_dgv.DefaultCellStyle.ForeColor = Color.White

  1088.             物料規格1_dgv.EnableHeadersVisualStyles = False : 物料規格1_dgv.BackgroundColor = Color.DimGray : 物料規格1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  1089.             物料規格1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 物料規格1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray

  1090.             物料規格1_dgv.DefaultCellStyle.BackColor = Color.Black : 物料規格1_dgv.DefaultCellStyle.ForeColor = Color.White

  1091.             合約1_dgv.EnableHeadersVisualStyles = False : 合約1_dgv.BackgroundColor = Color.DimGray : 合約1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  1092.             合約1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合約1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray

  1093.             合約1_dgv.DefaultCellStyle.BackColor = Color.Black : 合約1_dgv.DefaultCellStyle.ForeColor = Color.White

  1094.             已核准1_dgv.EnableHeadersVisualStyles = False : 已核准1_dgv.BackgroundColor = Color.DimGray : 已核准1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  1095.             已核准1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 已核准1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray

  1096.             已核准1_dgv.DefaultCellStyle.BackColor = Color.Black : 已核准1_dgv.DefaultCellStyle.ForeColor = Color.White

  1097.         End If

  1098.     End Sub

  1099. End Class