GCM-OTHER
/
GCM-ERP-SYS-LEEHSIEHJUI
Obserwuj 4
Gwiazdka 0
Forkuj 0
Kod Problemy 0 Pull Requests 0 Wydania 0 Wiki Aktywność
Brak opisu
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 Commity
1 Gałąź
Drzewo: a1dbb4b61b
Gałęzie Tagi
${ item.name }
Utwórz gałąź ${ searchTerm }
z 'a1dbb4b61b'
${ noResults }
GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/00-MyModule/倉儲系統管理/SQL_倉儲系統管理.vb

SQL_倉儲系統管理.vb 138KB
Historia Czysty

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261 
  1. Module SQL_倉儲系統管理

  2.     '---------------------物料資料庫-----------------------------------------------------------------------------------------------------------------

  3.     Friend Sub SQL_物料資料庫_群組碼清單_含語言()

  4.         ConnOpen_ERP() : SQL1 = "SELECT  群組碼, 群組 AS [" & 表頭(62) & "] FROM 物料群組轉語言 WHERE 語言 LIKE N'" & 系統語言 & "' ORDER BY 群組碼" : CmdSet_For_DGV()

  5.     End Sub

  6.     Friend Sub SQL_物料資料庫語言選定()

  7.         ConnOpen_ERP() : SQL1 = "SELECT 語言, 群組 FROM 物料群組轉語言 WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "' ORDER BY 語言" : CmdSet_For_dr()

  8.     End Sub

  9.     Friend Sub SQL_物料資料庫_新增群組碼_語轉1()

  10.         SQL1 = "INSERT INTO 物料群組轉語言 (群組碼, 語言, 群組) VALUES (N'" & 物料資料庫.群組碼_tb.Text & "', '繁體中文', N'" & 物料資料庫.類別1_tb.Text & "')"

  11.     End Sub

  12.     Friend Sub SQL_物料資料庫_新增群組碼_語轉2()

  13.         SQL1 = "INSERT INTO 物料群組轉語言 (群組碼, 語言, 群組) VALUES (N'" & 物料資料庫.群組碼_tb.Text & "', 'Indonesian', N'" & 物料資料庫.類別3_tb.Text & "')"

  14.     End Sub

  15.     Friend Sub SQL_物料資料庫_新增群組碼_語轉3()

  16.         SQL1 = "INSERT INTO 物料群組轉語言 (群組碼, 語言, 群組) VALUES (N'" & 物料資料庫.群組碼_tb.Text & "', 'English', N'" & 物料資料庫.類別2_tb.Text & "')"

  17.     End Sub

  18.     Friend Sub SQL_物料資料庫_群組碼刪除_語轉()

  19.         SQL1 = "DELETE FROM 物料群組轉語言 WHERE (群組碼 = N'" & 物料資料庫.群組碼_tb.Text & "')"

  20.     End Sub

  21.     Friend Sub SQL_物料資料庫_群組碼修改0_1()

  22.         SQL1 = "UPDATE 物料群組轉語言 SET 群組碼 = N'" & PA & "', 群組 = N'" & 物料資料庫.類別1_tb.Text & "' WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "' AND 語言 LIKE N'繁體中文'"

  23.     End Sub

  24.     Friend Sub SQL_物料資料庫_群組碼修改0_2()

  25.         SQL1 = "UPDATE 物料群組轉語言 SET 群組碼 = N'" & PA & "', 群組 = N'" & 物料資料庫.類別3_tb.Text & "' WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "' AND 語言 LIKE N'Indonesian'"

  26.     End Sub

  27.     Friend Sub SQL_物料資料庫_群組碼修改0_3()

  28.         SQL1 = "UPDATE 物料群組轉語言 SET 群組碼 = N'" & PA & "', 群組 = N'" & 物料資料庫.類別2_tb.Text & "' WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "' AND 語言 LIKE N'English'"

  29.     End Sub

  30.     Friend Sub SQL_物料資料庫_群組碼重複查詢_語轉1()

  31.         SQL1 = "SELECT 群組 FROM 物料群組轉語言 WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "' AND 語言 LIKE N'繁體中文' AND 群組 = N'" & 物料資料庫.類別1_tb.Text & "'"

  32.     End Sub

  33.     Friend Sub SQL_物料資料庫_群組碼重複查詢_語轉2()

  34.         SQL1 = "SELECT 群組 FROM 物料群組轉語言 WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "' AND 語言 LIKE N'Indonesian' AND 群組 = N'" & 物料資料庫.類別3_tb.Text & "'"

  35.     End Sub

  36.     Friend Sub SQL_物料資料庫_群組碼重複查詢_語轉3()

  37.         SQL1 = "SELECT 群組 FROM 物料群組轉語言 WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "' AND 語言 LIKE N'English' AND 群組 = N'" & 物料資料庫.類別2_tb.Text & "'"

  38.     End Sub

  39.     Friend Sub SQL_物料資料庫_群組碼重複查詢_語轉反1()

  40.         SQL1 = "SELECT 群組 FROM 物料群組轉語言 WHERE 群組碼 NOT LIKE N'" & 物料資料庫.群組碼_tb.Text & "' AND 語言 LIKE N'繁體中文' AND 群組 = N'" & 物料資料庫.類別1_tb.Text & "'"

  41.     End Sub

  42.     Friend Sub SQL_物料資料庫_群組碼重複查詢_語轉反2()

  43.         SQL1 = "SELECT 群組 FROM 物料群組轉語言 WHERE 群組碼 NOT LIKE N'" & 物料資料庫.群組碼_tb.Text & "' AND 語言 LIKE N'Indonesian' AND 群組 = N'" & 物料資料庫.類別3_tb.Text & "'"

  44.     End Sub

  45.     Friend Sub SQL_物料資料庫_群組碼重複查詢_語轉反3()

  46.         SQL1 = "SELECT 群組 FROM 物料群組轉語言 WHERE 群組碼 NOT LIKE N'" & 物料資料庫.群組碼_tb.Text & "' AND 語言 LIKE N'English' AND 群組 = N'" & 物料資料庫.類別2_tb.Text & "'"

  47.     End Sub

  48.     Friend Sub SQL_群組碼_語轉_下拉清單()

  49.         ConnOpen_ERP() : SQL1 = "SELECT  群組 FROM 物料群組轉語言 WHERE 語言 LIKE N'" & 系統語言 & "' ORDER BY 群組碼" : CmdSet_For_dr()

  50.     End Sub

  51.     Friend Sub SQL_群組碼_語轉_選擇()

  52.         ConnOpen_ERP() : SQL1 = "SELECT  群組碼 FROM 物料群組轉語言 WHERE 語言 LIKE N'" & 系統語言 & "' AND 群組 = N'" & PA & "'" : CmdSet_For_dr()

  53.     End Sub

  54.     Friend Sub SQL_物料資料庫_物料編碼庫_語轉()

  55.         ConnOpen_ERP()

  56.         SQL1 = "SELECT 群組碼, 料號原則, 語言, 品名 FROM 物料編碼庫轉語言 WHERE  (群組碼 LIKE N'" & PA & "') ORDER BY 料號原則"

  57.         CmdSet_For_DGV()

  58.     End Sub

  59.     Friend Sub SQL_物料資料庫_物料編碼庫新增_語轉1()

  60.         ConnOpen_ERP() : SQL1 = "INSERT INTO 物料編碼庫轉語言 (群組碼, 料號原則, 語言, 品名) VALUES (N'" & PA1 & "', N'" & PA2 & "', N'繁體中文', N'" & 物料資料庫.品名1_tb.Text & "')" : CmdSet_For_dr()

  61.     End Sub

  62.     Friend Sub SQL_物料資料庫_物料編碼庫新增_語轉2()

  63.         ConnOpen_ERP() : SQL1 = "INSERT INTO 物料編碼庫轉語言 (群組碼, 料號原則, 語言, 品名) VALUES (N'" & PA1 & "', N'" & PA2 & "', N'English', N'" & 物料資料庫.品名2_tb.Text & "')" : CmdSet_For_dr()

  64.     End Sub

  65.     Friend Sub SQL_物料資料庫_物料編碼庫新增_語轉3()

  66.         ConnOpen_ERP() : SQL1 = "INSERT INTO 物料編碼庫轉語言 (群組碼, 料號原則, 語言, 品名) VALUES (N'" & PA1 & "', N'" & PA2 & "', N'Indonesian', N'" & 物料資料庫.品名3_tb.Text & "')" : CmdSet_For_dr()

  67.     End Sub

  68.     Friend Sub SQL_物料資料庫_物料規格表刪除_語轉()

  69.         ConnOpen_ERP() : SQL1 = "DELETE FROM 物料編碼庫轉語言 WHERE 群組碼 LIKE N'" & PA1 & "' AND 料號原則 LIKE N'" & PA2 & "'" : CmdSet_For_dr()

  70.     End Sub

  71.     Friend Sub SQL_物料資料庫_修改品名後存檔_語轉1()

  72.         ConnOpen_ERP()

  73.         SQL1 = "UPDATE 物料編碼庫轉語言 SET 料號原則 = N'" & PA2 & "',品名 = N'" & 物料資料庫.品名1_tb.Text & "' 

  74.                 WHERE 群組碼 LIKE N'" & PA3 & "' AND 料號原則 LIKE N'" & PA4 & "' AND 語言 LIKE N'繁體中文'"

  75.         CmdSet_For_dr()

  76.     End Sub

  77.     Friend Sub SQL_物料資料庫_修改品名後存檔_語轉2()

  78.         ConnOpen_ERP()

  79.         SQL1 = "UPDATE 物料編碼庫轉語言 SET 料號原則 = N'" & PA2 & "',品名 = N'" & 物料資料庫.品名2_tb.Text & "' 

  80.                 WHERE 群組碼 LIKE N'" & PA3 & "' AND 料號原則 LIKE N'" & PA4 & "' AND 語言 LIKE N'English'"

  81.         CmdSet_For_dr()

  82.     End Sub

  83.     Friend Sub SQL_物料資料庫_修改品名後存檔_語轉3()

  84.         ConnOpen_ERP()

  85.         SQL1 = "UPDATE 物料編碼庫轉語言 SET 料號原則 = N'" & PA2 & "',品名 = N'" & 物料資料庫.品名3_tb.Text & "' 

  86.                 WHERE 群組碼 LIKE N'" & PA3 & "' AND 料號原則 LIKE N'" & PA4 & "' AND 語言 LIKE N'Indonesian'"

  87.         CmdSet_For_dr()

  88.     End Sub

  89.     Friend Sub SQL_物料資料庫_群組碼批量修改_語轉1()

  90.         ConnOpen_ERP() : SQL1 = "UPDATE 物料編碼庫轉語言 SET 群組碼 = N'" & PA1 & "' WHERE 群組碼 LIKE N'" & PA2 & "' AND 料號原則 LIKE N'" & PA3 & "'" : CmdSet_For_dr()

  91.     End Sub

  92.     Friend Sub SQL_物料資料庫_物料資訊控制表刪除1()

  93.         ConnOpen_ERP() : SQL1 = "DELETE FROM 物料規格表 WHERE 料號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  94.     End Sub

  95.     Friend Sub SQL_物料資料庫_修正1()

  96.         ConnOpen_ERP() : SQL1 = "UPDATE 物料規格表 SET 最高庫存量 = 999 WHERE (最高庫存量 = 0)" : CmdSet_For_dr()

  97.     End Sub

  98.     Friend Sub SQL_物料資料庫_物料資訊控制表刪除()

  99.         SQL1 = "DELETE FROM 物料資訊控制表 WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼2_tb.Text & "', 料號原則 LIKE N'" & 物料資料庫.物料原則2_tb.Text & "', 品名  LIKE N'" & 物料資料庫.原則說明_tb.Text & "'"

  100.     End Sub

  101.     Friend Sub SQL_物料資料庫_物料資訊控制表新增()

  102.         SQL1 = "INSERT INTO 物料資訊控制表 (品名, 群組碼, 料號原則, 規格庫編號, 規格庫抬頭指定) VALUES (N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "', N'" & PA9 & "', N'" & PA10 & "')"

  103.     End Sub

  104.     Friend Sub SQL_物料資料庫_物料資訊控制表重複查詢()

  105.         SQL1 = "SELECT 群組碼 FROM 物料資訊控制表 

  106.                 WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼2_tb.Text & "' AND 料號原則 LIKE N'" & 物料資料庫.物料原則2_tb.Text & "'"

  107.     End Sub

  108.     Friend Sub SQL_物料資料庫_規格庫抬頭指定刪除()

  109.         ConnOpen_ERP() : SQL1 = "DELETE FROM 規格庫抬頭 WHERE 規格庫抬頭指定 LIKE N'" & 物料資料庫.規格庫抬頭指定_tb.Text & "'" : CmdSet_For_dr()

  110.     End Sub

  111.     Friend Sub SQL_物料資料庫_規格庫抬頭指定修改()

  112.         ConnOpen_ERP()

  113.         SQL1 = "UPDATE 規格庫抬頭 SET A1 = N'" & 物料資料庫.A1_tb.Text & "', A2 = N'" & 物料資料庫.A2_tb.Text & "', A3 = N'" & 物料資料庫.A3_tb.Text & "', A4 = N'" & 物料資料庫.A4_tb.Text &

  114.                "', A5 = N'" & 物料資料庫.A5_tb.Text & "', A6 = N'" & 物料資料庫.A6_tb.Text & "', A7 = N'" & 物料資料庫.A7_tb.Text & "', A8 = N'" & 物料資料庫.A8_tb.Text & "' 

  115.                WHERE 規格庫抬頭指定 LIKE N'" & 物料資料庫.規格庫抬頭指定_tb.Text & "' AND 語言 LIKE N'" & 物料資料庫.系統語言_cb.Text & "'"

  116.         CmdSet_For_dr()

  117.     End Sub

  118.     Friend Sub SQL_物料資料庫_規格庫抬頭指定新增()

  119.         ConnOpen_ERP()

  120.         SQL1 = "INSERT INTO 規格庫抬頭 (規格庫抬頭指定, A1, A2, A3, A4, A5, A6, A7, A8, 語言) VALUES (N'" & 物料資料庫.規格庫抬頭指定_tb.Text & "', N'" & 物料資料庫.A1_tb.Text &

  121.                "', N'" & 物料資料庫.A2_tb.Text & "', N'" & 物料資料庫.A3_tb.Text & "', N'" & 物料資料庫.A4_tb.Text & "', N'" & 物料資料庫.A5_tb.Text & "', N'" & 物料資料庫.A6_tb.Text &

  122.                "', N'" & 物料資料庫.A7_tb.Text & "', N'" & 物料資料庫.A8_tb.Text & "' , '" & PA & "')"

  123.         CmdSet_For_dr()

  124.     End Sub

  125.     Friend Sub SQL_物料資料庫_規格庫抬頭指定重複查詢()

  126.         ConnOpen_ERP() : SQL1 = "SELECT 規格庫抬頭指定, A1, A2, A3, A4, A5, A6, A7, A8 FROM 規格庫抬頭 WHERE 規格庫抬頭指定 LIKE N'" & 物料資料庫.規格庫抬頭指定_tb.Text & "'" : CmdSet_For_dr()

  127.     End Sub

  128.     Friend Sub SQL_物料資料庫_物料圖庫()

  129.         ConnOpen_ERP() : SQL1 = "DELETE FROM 物料圖庫 WHERE (圖片流水號 = N'" & 物料資料庫.圖檔編號_tb.Text & "')" : CmdSet_For_dr()

  130.     End Sub

  131.     Friend Sub SQL_物料資料庫_圖檔入系統()

  132.         ConnOpen_ERP()

  133.         SQL1 = "INSERT INTO 物料圖庫 (圖片流水號, 群組碼, 料號原則, 圖檔) 

  134.                 SELECT '" & 物料資料庫.圖檔編號_tb.Text & "', '" & 物料資料庫.群組碼1_tb.Text & "', '" & 物料資料庫.物料原則_tb.Text & "', 

  135.                 BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP物理位置 & AA(1) & "\" & 物料資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"

  136.         CmdSet_For_dr()

  137.     End Sub

  138.     Friend Sub SQL_物料資料庫_複製圖檔()

  139.         ConnOpen_ERP()

  140.         SQL1 = "INSERT INTO 物料圖庫 (圖片流水號, 圖檔, 群組碼, 料號原則) SELECT '" & PA5 & "' AS 圖片流水號, 圖檔, 群組碼, '" & PA2 & "' AS 料號原則

  141.                 FROM        物料圖庫 AS 物料圖庫_1

  142.                 WHERE      (圖片流水號 LIKE N'" & PA4 & "')"

  143.         CmdSet_For_dr()

  144.     End Sub

  145.     Friend Sub SQL_物料資料庫_物料編碼庫刪除()

  146.         ConnOpen_ERP() : SQL1 = "DELETE FROM 物料編碼庫 WHERE 群組碼 LIKE N'" & PA1 & "' AND 料號原則 LIKE N'" & PA2 & "'" : CmdSet_For_dr()

  147.     End Sub

  148.     Friend Sub SQL_物料資料庫_物料資訊控制表刪除3()

  149.         ConnOpen_ERP() : SQL1 = "DELETE FROM 物料資訊控制表 WHERE 群組碼 LIKE N'" & PA1 & "' AND 料號原則 LIKE N'" & PA2 & "'" : CmdSet_For_dr()

  150.     End Sub

  151.     Friend Sub SQL_物料資料庫_物料規格表刪除()

  152.         ConnOpen_ERP() : SQL1 = "DELETE FROM 物料規格表 WHERE 群組碼 LIKE N'" & PA1 & "' AND 料號原則 LIKE N'" & PA2 & "'" : CmdSet_For_dr()

  153.     End Sub

  154.     Friend Sub SQL_物料資料庫_物料圖庫刪除()

  155.         ConnOpen_ERP() : SQL1 = "DELETE FROM 物料圖庫 WHERE 群組碼 LIKE N'" & PA1 & "' AND 料號原則 LIKE N'" & PA2 & "'" : CmdSet_For_dr()

  156.     End Sub

  157.     Friend Sub SQL_物料資料庫_修改品名後存檔1()

  158.         ConnOpen_ERP() : SQL1 = "UPDATE 物料編碼庫 SET 料號原則 = N'" & PA1 & "',原則說明 = N'" & PA2 & "' WHERE 群組碼 LIKE N'" & PA3 & "' AND 料號原則 LIKE N'" & PA4 & "'" : CmdSet_For_dr()

  159.     End Sub

  160.     Friend Sub SQL_物料資料庫_修改品名後存檔2()

  161.         ConnOpen_ERP() : SQL1 = "UPDATE 物料資訊控制表 SET 料號原則 = N'" & PA1 & "',品名 = N'" & PA2 & "' WHERE 群組碼 LIKE N'" & PA3 & "' AND 料號原則 LIKE N'" & PA4 & "'" : CmdSet_For_dr()

  162.     End Sub

  163.     Friend Sub SQL_物料資料庫_修改品名後存檔3()

  164.         ConnOpen_ERP() : SQL1 = "UPDATE 物料圖庫 SET 料號原則 = N'" & PA1 & "' WHERE 群組碼 LIKE N'" & PA3 & "' AND 料號原則 LIKE N'" & PA4 & "'" : CmdSet_For_dr()

  165.     End Sub

  166.     Friend Sub SQL_物料資料庫_修改品名後存檔4()

  167.         ConnOpen_ERP() : SQL1 = "UPDATE 物料規格表 SET 料號原則 = N'" & PA1 & "' WHERE 群組碼 LIKE N'" & PA3 & "' AND 料號原則 LIKE N'" & PA4 & "'" : CmdSet_For_dr()

  168.     End Sub

  169.     Friend Sub SQL_物料資料庫_修改品名後存檔5()

  170.         ConnOpen_ERP() : SQL1 = "UPDATE 採購單明細表 SET 料號原則 = N'" & PA1 & "' WHERE 群組碼 LIKE N'" & PA3 & "' AND 料號原則 LIKE N'" & PA4 & "'" : CmdSet_For_dr()

  171.     End Sub

  172.     Friend Sub SQL_物料資料庫_修改品名後存檔6()

  173.         ConnOpen_ERP() : SQL1 = "UPDATE 請購單明細表 SET 群組原則 = N'" & PA1 & "' WHERE 群組碼 LIKE N'" & PA3 & "' AND 群組原則 LIKE N'" & PA4 & "'" : CmdSet_For_dr()

  174.     End Sub

  175.     Friend Sub SQL_物料資料庫_物料編碼庫新增()

  176.         ConnOpen_ERP() : SQL1 = "INSERT INTO 物料編碼庫 (群組碼, 料號原則, 原則說明) VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "')" : CmdSet_For_dr()

  177.     End Sub

  178.     Friend Sub SQL_物料資料庫_物料編碼庫重複確認()

  179.         ConnOpen_ERP() : SQL1 = "SELECT 群組碼, 料號原則, 原則說明 FROM 物料編碼庫 WHERE 料號原則 LIKE N'" & PA & "'" : CmdSet_For_dr()

  180.     End Sub

  181.     Friend Sub SQL_物料資料庫_物料編碼庫語轉重複確認()

  182.         ConnOpen_ERP() : SQL1 = "SELECT 群組碼 FROM 物料編碼庫轉語言 WHERE 料號原則 LIKE N'" & PA & "'" : CmdSet_For_dr()

  183.     End Sub

  184.     Friend Sub SQL_物料資料庫_群組碼清單()

  185.         ConnOpen_ERP() : SQL1 = "SELECT  群組碼 AS [" & 表頭(62) & "] FROM 物料群組 ORDER BY 群組碼" : CmdSet_For_DGV()

  186.     End Sub

  187.     Friend Sub SQL_物料資料庫_群組碼刪除()

  188.         SQL1 = "DELETE FROM 物料群組 WHERE (群組碼 = N'" & 物料資料庫.群組碼_tb.Text & "')"

  189.     End Sub

  190.     Friend Sub SQL_物料資料庫_群組碼修改1()

  191.         SQL1 = "UPDATE 物料群組 SET 群組碼 = N'" & PA & "' WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "'"

  192.     End Sub

  193.     Friend Sub SQL_物料資料庫_群組碼修改2()

  194.         SQL1 = "UPDATE 請購單明細表 SET 群組碼 = N'" & PA & "' WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "'"

  195.     End Sub

  196.     Friend Sub SQL_物料資料庫_群組碼修改3()

  197.         SQL1 = "UPDATE 物料編碼庫 SET 群組碼 = N'" & PA & "' WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "'"

  198.     End Sub

  199.     Friend Sub SQL_物料資料庫_群組碼修改4()

  200.         SQL1 = "UPDATE 物料圖庫 SET 群組碼 = N'" & PA & "' WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "'"

  201.     End Sub

  202.     Friend Sub SQL_物料資料庫_群組碼修改5()

  203.         SQL1 = "UPDATE 物料資訊控制表 SET 群組碼 = N'" & PA & "' WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "'"

  204.     End Sub

  205.     Friend Sub SQL_物料資料庫_群組碼修改6()

  206.         SQL1 = "UPDATE 物料規格表 SET 群組碼 = N'" & PA & "' WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "'"

  207.     End Sub

  208.     Friend Sub SQL_物料資料庫_群組碼修改7()

  209.         SQL1 = "UPDATE 採購單明細表 SET 群組碼 = N'" & PA & "' WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "'"

  210.     End Sub

  211.     Friend Sub SQL_物料資料庫_群組碼批量修改1()

  212.         ConnOpen_ERP() : SQL1 = "UPDATE 物料編碼庫 SET 群組碼 = N'" & PA1 & "' WHERE 群組碼 LIKE N'" & PA2 & "' AND 料號原則 LIKE N'" & PA3 & "'" : CmdSet_For_dr()

  213.     End Sub

  214.     Friend Sub SQL_物料資料庫_群組碼批量修改2()

  215.         ConnOpen_ERP() : SQL1 = "UPDATE 物料資訊控制表 SET 群組碼 = N'" & PA1 & "' WHERE 群組碼 LIKE N'" & PA2 & "' AND 料號原則 LIKE N'" & PA3 & "'" : CmdSet_For_dr()

  216.     End Sub

  217.     Friend Sub SQL_物料資料庫_群組碼批量修改3()

  218.         ConnOpen_ERP() : SQL1 = "UPDATE 物料圖庫 SET 群組碼 = N'" & PA1 & "' WHERE 群組碼 LIKE N'" & PA2 & "' AND 料號原則 LIKE N'" & PA3 & "'" : CmdSet_For_dr()

  219.     End Sub

  220.     Friend Sub SQL_物料資料庫_群組碼批量修改4()

  221.         ConnOpen_ERP() : SQL1 = "UPDATE 物料規格表 SET 群組碼 = N'" & PA1 & "' WHERE 群組碼 LIKE N'" & PA2 & "' AND 料號原則 LIKE N'" & PA3 & "'" : CmdSet_For_dr()

  222.     End Sub

  223.     Friend Sub SQL_物料資料庫_群組碼批量修改5()

  224.         ConnOpen_ERP() : SQL1 = "UPDATE 採購單明細表 SET 群組碼 = N'" & PA1 & "' WHERE 群組碼 LIKE N'" & PA2 & "' AND 料號原則 LIKE N'" & PA3 & "'" : CmdSet_For_dr()

  225.     End Sub

  226.     Friend Sub SQL_物料資料庫_群組碼批量修改6()

  227.         ConnOpen_ERP() : SQL1 = "UPDATE 請購單明細表 SET 群組碼 = N'" & PA1 & "' WHERE 群組碼 LIKE N'" & PA2 & "' AND 群組原則 LIKE N'" & PA3 & "'" : CmdSet_For_dr()

  228.     End Sub

  229.     Friend Sub SQL_物料資料庫_群組碼重複查詢()

  230.         SQL1 = "SELECT 群組碼 FROM 物料群組 WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "'"

  231.     End Sub

  232.     Friend Sub SQL_物料資料庫_新增群組碼()

  233.         SQL1 = "INSERT INTO 物料群組 (群組碼) VALUES (N'" & 物料資料庫.群組碼_tb.Text & "')"

  234.     End Sub

  235.     Friend Sub SQL_物料資料庫_物料資訊控制表()

  236.         If BL1 = False Then

  237.             SQL2 = " WHERE       物料資訊控制表.規格庫抬頭指定 LIKE N'" & PA & "'  AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') "

  238.         ElseIf BL1 = True Then

  239.             SQL2 = " WHERE       物料資訊控制表.群組碼 LIKE N'" & PA1 & "'  AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') "

  240.         End If

  241.         ConnOpen_ERP()

  242.         SQL1 = "SELECT      物料資訊控制表.群組碼 AS [" & 表頭(62) & "], 物料資訊控制表.料號原則 AS [" & 表頭(63) & "], 物料編碼庫轉語言.品名 AS [" & 表頭(64) & "], 

  243.                             物料資訊控制表.規格庫編號 AS Keyword, 物料資訊控制表.規格庫抬頭指定 AS [" & 表頭(67) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], 

  244.                             物料圖庫.圖片流水號 AS [Image No], 物料圖庫.圖檔 AS Image

  245.                 FROM        物料資訊控制表 INNER JOIN 物料編碼庫 ON 物料資訊控制表.群組碼 = 物料編碼庫.群組碼 AND 物料資訊控制表.料號原則 = 物料編碼庫.料號原則 INNER JOIN

  246.                             物料圖庫 ON 物料資訊控制表.群組碼 = 物料圖庫.群組碼 AND 物料資訊控制表.料號原則 = 物料圖庫.料號原則 INNER JOIN

  247.                             物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 " & SQL2 & "

  248.                 ORDER BY    物料資訊控制表.群組碼, 物料編碼庫轉語言.品名"

  249.         CmdSet_For_DGV()

  250.     End Sub

  251.     Friend Sub SQL_物料資料庫_物料資訊控制表未新增()

  252.         ConnOpen_ERP()

  253.         SQL1 = "SELECT     物料編碼庫.群組碼 AS [" & 表頭(62) & "], 物料編碼庫.料號原則 AS [" & 表頭(63) & "], 物料編碼庫.原則說明 AS [" & 表頭(64) & "], 

  254.                            物料資訊控制表.群組碼, 物料資訊控制表.料號原則

  255.                 FROM       物料編碼庫 FULL OUTER JOIN 物料資訊控制表 ON 物料編碼庫.群組碼 = 物料資訊控制表.群組碼 AND 物料編碼庫.料號原則 = 

  256.                            物料資訊控制表.料號原則

  257.                 GROUP BY   物料編碼庫.群組碼, 物料編碼庫.料號原則, 物料編碼庫.原則說明, 物料資訊控制表.群組碼, 物料資訊控制表.料號原則

  258.                 HAVING    (物料資訊控制表.群組碼 IS NULL) OR (物料資訊控制表.料號原則 IS NULL)"

  259.         CmdSet_For_DGV()

  260.     End Sub

  261.     Friend Sub SQL_物料資料庫_物料編碼庫()

  262.         ConnOpen_ERP()

  263.         If BL1 = False Then

  264.             SQL1 = "SELECT 物料編碼庫.群組碼 AS [" & 表頭(11) & "], 物料編碼庫.料號原則 AS [" & 表頭(63) & "], 物料編碼庫.原則說明 AS [" & 表頭(64) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], 

  265.                            HX選擇按鈕.選擇 AS Pick, 物料圖庫.圖片流水號 AS [Image No], 物料圖庫.圖檔 AS Image, 物料編碼庫.群組碼

  266.                     FROM    物料編碼庫 LEFT OUTER JOIN HX選擇按鈕 ON 物料編碼庫.群組碼 = HX選擇按鈕.對應 LEFT OUTER JOIN 物料圖庫 ON 物料編碼庫.群組碼 = 物料圖庫.群組碼 AND 

  267.                             物料編碼庫.料號原則 = 物料圖庫.料號原則

  268.                     WHERE  (物料編碼庫.群組碼 LIKE N'" & PA & "') ORDER BY 物料編碼庫.料號原則"

  269.         Else

  270.             SQL1 = "SELECT 物料編碼庫.群組碼 AS [" & 表頭(11) & "], 物料編碼庫.料號原則 AS [" & 表頭(63) & "], 物料編碼庫.原則說明 AS [" & 表頭(64) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], 

  271.                            HX選擇按鈕.選擇, 物料圖庫.圖片流水號 AS [Image No], 物料圖庫.圖檔 AS Image, 物料編碼庫.群組碼

  272.                     FROM    物料編碼庫 LEFT OUTER JOIN HX選擇按鈕 ON 物料編碼庫.群組碼 = HX選擇按鈕.對應 LEFT OUTER JOIN 物料圖庫 ON 物料編碼庫.群組碼 = 物料圖庫.群組碼 AND 

  273.                             物料編碼庫.料號原則 = 物料圖庫.料號原則

  274.                     WHERE  (物料圖庫.圖片流水號 LIKE N'' OR 物料圖庫.圖片流水號 IS NULL) ORDER BY 物料編碼庫.料號原則"

  275.         End If

  276.         CmdSet_For_DGV()

  277.     End Sub

  278.     Friend Sub SQL_物料資訊控制表_規格庫抬頭指定()

  279.         ConnOpen_ERP() : SQL1 = "SELECT 規格庫抬頭指定 FROM 規格庫抬頭 GROUP BY 規格庫抬頭指定 ORDER BY 規格庫抬頭指定" : CmdSet_For_dr()

  280.     End Sub

  281.     Friend Sub SQL_物料資料庫_物料圖片流水號最後一筆()

  282.         ConnOpen_ERP() : SQL1 = "SELECT TOP (1) 圖片流水號 FROM 物料圖庫 ORDER BY 圖片流水號 DESC" : CmdSet_For_dr()

  283.     End Sub

  284.     Friend Sub SQL_物料規格表_物料清單()

  285.         ConnOpen_ERP()

  286.         If PA = "SQLB03" Then

  287.             SQL1 = "SELECT 群組碼, 料號原則, 料號 AS Nomor_Bagian, 圖檔編號, A1 AS [" & PA4 & "], A2 AS [" & PA5 & "], A3 AS [" & PA6 & "], 

  288.                            A4, A5, A6, A7, A8, 最低庫存量 AS [" & 表頭(65) & "], 料號 AS 原始料號, 最高庫存量 AS [" & 表頭(66) & "], 群組碼 AS No, S1, S2, S3, S4, 

  289.                            S5, S6, S7, S8

  290.                     FROM 物料規格表 

  291.                     WHERE (料號原則 LIKE N'" & PA2 & "') AND (群組碼 LIKE N'" & PA1 & "') ORDER BY 料號"

  292.         ElseIf PA = "SQLB04" Then

  293.             SQL1 = "SELECT 群組碼, 料號原則, 料號 AS Nomor_Bagian, 圖檔編號, A1 AS [" & PA4 & "], A2 AS [" & PA5 & "], A3 AS [" & PA6 & "], 

  294.                            A4 AS [" & PA7 & "], A5, A6, A7, A8, 最低庫存量 AS [" & 表頭(65) & "], 料號 AS 原始料號, 最高庫存量 AS [" & 表頭(66) & "], 

  295.                            群組碼 AS No, S1, S2, S3, S4, S5, S6, S7, S8

  296.                     FROM 物料規格表 

  297.                     WHERE (料號原則 LIKE N'" & PA2 & "') AND (群組碼 LIKE N'" & PA1 & "') ORDER BY 料號"

  298.         ElseIf PA = "SQLB05" Then

  299.             SQL1 = "SELECT 群組碼, 料號原則, 料號 AS Nomor_Bagian, 圖檔編號, A1 AS [" & PA4 & "], A2 AS [" & PA5 & "], A3 AS [" & PA6 & "], 

  300.                            A4 AS [" & PA7 & "], A5 AS [" & PA8 & "], A6, A7, A8, 最低庫存量 AS [" & 表頭(65) & "], 料號 AS 原始料號, 最高庫存量 AS [" & 表頭(66) & "], 

  301.                            群組碼 AS No, S1, S2, S3, S4, S5, S6, S7, S8

  302.                     FROM 物料規格表 

  303.                     WHERE (料號原則 LIKE N'" & PA2 & "') AND (群組碼 LIKE N'" & PA1 & "') ORDER BY 料號"

  304.         ElseIf PA = "SQLB06" Then

  305.             SQL1 = "SELECT 群組碼, 料號原則, 料號 AS Nomor_Bagian, 圖檔編號, A1 AS [" & PA4 & "], A2 AS [" & PA5 & "], A3 AS [" & PA6 & "], 

  306.                            A4 AS [" & PA7 & "], A5 AS [" & PA8 & "], A6 AS [" & PA9 & "], A7, A8, 最低庫存量 AS [" & 表頭(65) & "], 料號 AS 原始料號, 

  307.                            最高庫存量 AS [" & 表頭(66) & "], 群組碼 AS No, S1, S2, S3, S4, S5, S6, S7, S8

  308.                     FROM 物料規格表 

  309.                     WHERE (料號原則 LIKE N'" & PA2 & "') AND (群組碼 LIKE N'" & PA1 & "') ORDER BY 料號"

  310.         ElseIf PA = "SQLB07" Then

  311.             SQL1 = "SELECT 群組碼, 料號原則, 料號 AS Nomor_Bagian, 圖檔編號, A1 AS [" & PA4 & "], A2 AS [" & PA5 & "], A3 AS [" & PA6 & "], 

  312.                            A4 AS [" & PA7 & "], A5 AS [" & PA8 & "], A6 AS [" & PA9 & "], A7 AS [" & PA10 & "], 

  313.                            A8, 最低庫存量 AS [" & 表頭(65) & "], 料號 AS 原始料號, 最高庫存量 AS [" & 表頭(66) & "], 群組碼 AS No, S1, S2, S3, S4, S5, S6, S7, S8

  314.                     FROM 物料規格表 

  315.                     WHERE (料號原則 LIKE N'" & PA2 & "') AND (群組碼 LIKE N'" & PA1 & "') ORDER BY 料號"

  316.         ElseIf PA = "SQLB08" Then

  317.             SQL1 = "SELECT 群組碼, 料號原則, 料號 AS Nomor_Bagian, 圖檔編號, A1 AS [" & PA4 & "], A2 AS [" & PA5 & "], A3 AS [" & PA6 & "], 

  318.                            A4 AS [" & PA7 & "], A5 AS [" & PA8 & "], A6 AS [" & PA9 & "], A7 AS [" & PA10 & "], 

  319.                            A8 AS [" & PA11 & "], 最低庫存量 AS [" & 表頭(65) & "], 料號 AS 原始料號, 最高庫存量 AS [" & 表頭(66) & "], 群組碼 AS No, S1, S2, S3, S4, S5, S6, S7, S8

  320.                     FROM 物料規格表 

  321.                     WHERE (料號原則 LIKE N'" & PA2 & "') AND (群組碼 LIKE N'" & PA1 & "') ORDER BY 料號"

  322.         End If

  323.         CmdSet_For_DGV()

  324.     End Sub

  325.     Friend Sub SQL_物料編碼庫_單位修改()

  326.         ConnOpen_ERP() : SQL1 = "UPDATE 物料編碼庫 SET  單位 = N'" & PA1 & "' WHERE (群組碼  LIKE N'" & PA2 & "' AND 料號原則 LIKE N'" & PA3 & "')" : CmdSet_For_dr()

  327.     End Sub

  328.     Friend Sub SQL_物料規格表_修改()

  329.         ConnOpen_ERP()

  330.         SQL1 = "UPDATE 物料規格表 SET A1 = N'" & PA1 & "', A2 = N'" & PA2 & "', A3 = N'" & PA3 & "', A4 = N'" & PA4 & "', A5 = N'" & PA5 & "', A6 = N'" & PA6 & "', A7 = N'" & PA7 & "', 

  331.                                           A8 = N'" & PA8 & "', 最低庫存量 = N'" & PA9 & "' , 最高庫存量 = N'" & PA10 & "'

  332.                 WHERE (料號  LIKE N'" & PA11 & "')"

  333.         CmdSet_For_dr()

  334.     End Sub

  335.     Friend Sub SQL_物料規格表_修改1()

  336.         ConnOpen_ERP()

  337.         SQL1 = "UPDATE 物料規格表 SET S1 = N'" & PA1 & "', S2 = N'" & PA2 & "', S3 = N'" & PA3 & "', S4 = N'" & PA4 & "', S5 = N'" & PA5 & "', S6 = N'" & PA6 & "', S7 = N'" & PA7 & "', 

  338.                                           S8 = N'" & PA8 & "' WHERE (料號  LIKE N'" & PA11 & "')"

  339.         CmdSet_For_dr()

  340.     End Sub

  341.     Friend Sub SQL_物料編碼庫_品名修改()

  342.         ConnOpen_ERP()

  343.         SQL1 = "UPDATE 物料編碼庫 SET 原則說明 = N'" & PA2 & "' WHERE 群組碼 LIKE N'" & PA3 & "' AND 料號原則 LIKE N'" & PA4 & "'"

  344.         CmdSet_For_dr()

  345.     End Sub

  346.     Friend Sub SQL_物料資訊控制表_品名修改()

  347.         ConnOpen_ERP()

  348.         SQL1 = "UPDATE 物料資訊控制表 SET 品名 = N'" & PA2 & "' WHERE 群組碼 LIKE N'" & PA3 & "' AND 料號原則 LIKE N'" & PA4 & "'"

  349.         CmdSet_For_dr()

  350.     End Sub

  351.     Friend Sub SQL_物料圖庫_圖片修改()

  352.         ConnOpen_ERP()

  353.         SQL1 = "UPDATE 物料圖庫 SET 圖檔 = BULKCOLUMN FROM OPENROWSET (BULK '" & FTP物理位置 & AA(1) & "\" & 物料資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE 

  354.                 WHERE (圖片流水號 = '" & 物料資料庫.圖檔編號_tb.Text & "')"

  355.         CmdSet_For_dr()

  356.     End Sub

  357.     Friend Sub SQL_物料資訊控制表_資訊修改()

  358.         ConnOpen_ERP()

  359.         SQL1 = "UPDATE 物料資訊控制表 SET 規格庫編號 = N'" & 物料資料庫.規格庫編號1_cb.Text & "', 規格庫抬頭指定 = N'" & 物料資料庫.規格庫抬頭指定1_cb.Text & "' 

  360.                 WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼2_tb.Text & "' AND 料號原則 LIKE N'" & 物料資料庫.物料原則2_tb.Text & "'"

  361.         CmdSet_For_dr()

  362.         ConnOpen_ERP()

  363.         SQL1 = "UPDATE 物料規格表 SET S1 = 1, S2 = 1, S3 = 1, S4 = 1, S5 = 1, S6 = 1, S7 = 1, S8 = 1 WHERE ( 料號原則 LIKE N'" & 物料資料庫.物料原則2_tb.Text & "')"

  364.         CmdSet_For_dr()

  365.     End Sub

  366.     Friend Sub SQL_物料規格表_料號修改()

  367.         ConnOpen_ERP() : SQL1 = "UPDATE 物料規格表 SET 料號 = N'" & PA10 & "' WHERE (料號  LIKE N'" & PA11 & "')" : CmdSet_For_dr()

  368.     End Sub

  369.     Friend Sub SQL_倉儲明細表_料號修改()

  370.         ConnOpen_ERP() : SQL1 = "UPDATE 倉儲明細表 SET 料號 = N'" & PA10 & "' WHERE (料號  LIKE N'" & PA11 & "')" : CmdSet_For_dr()

  371.     End Sub

  372.     Friend Sub SQL_請購單明細表_料號修改()

  373.         ConnOpen_ERP() : SQL1 = "UPDATE 請購單明細表 SET 料號 = N'" & PA10 & "' WHERE (料號  LIKE N'" & PA11 & "')" : CmdSet_For_dr()

  374.     End Sub

  375.     Friend Sub SQL_採購單明細表_料號修改()

  376.         ConnOpen_ERP() : SQL1 = "UPDATE 採購單明細表 SET 料號 = N'" & PA10 & "' WHERE (料號  LIKE N'" & PA11 & "')" : CmdSet_For_dr()

  377.     End Sub

  378.     Friend Sub SQL_合約試算明細表_料號修改()

  379.         ConnOpen_ERP() : SQL1 = "UPDATE 合約試算明細表 SET 料號 = N'" & PA10 & "' WHERE (料號  LIKE N'" & PA11 & "')" : CmdSet_For_dr()

  380.     End Sub

  381.     Friend Sub SQL_物料規格表_後四碼()

  382.         ConnOpen_ERP() : SQL1 = "SELECT TOP (1) RIGHT(料號, 4) AS 後四碼 FROM 物料規格表 WHERE (料號原則 LIKE N'" & PA & "') ORDER BY 料號 DESC" : CmdSet_For_dr()

  383.     End Sub

  384.     Friend Sub SQL_物料規格表_料號查詢()

  385.         ConnOpen_ERP() : SQL1 = "SELECT 料號 FROM 物料規格表 WHERE (料號 LIKE N'" & PA1 & "-" & PA2 & "')" : CmdSet_For_dr()

  386.     End Sub

  387.     Friend Sub SQL_物料規格表_新增()

  388.         ConnOpen_ERP()

  389.         SQL1 = "INSERT INTO 物料規格表 (群組碼, 料號原則, 料號, 圖檔編號, A1, A2, A3, A4, A5, A6, A7, A8, 最低庫存量, 最高庫存量, S1, S2, S3, S4, S5, S6, S7, S8) 

  390.                 VALUES (N'" & PA3 & "', N'" & PA4 & "', N'" & PA1 & "-" & PA2 & "', N'', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "', N'" & PA9 & "', N'" & PA10 & "', 

  391.                         N'" & PA11 & "', N'" & PA12 & "', N'0', N'0', N'1', N'1', N'1', N'1', N'1', N'1', N'1', N'1')"

  392.         CmdSet_For_dr()

  393.     End Sub

  394.     Friend Sub SQL_物料規格表_刪除()

  395.         ConnOpen_ERP() : SQL1 = "DELETE FROM 物料規格表 WHERE (料號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()

  396.     End Sub

  397.     Friend Sub SQL_比對1()

  398.         ConnOpen_ERP()

  399.         SQL1 = "SELECT          QQQ.圖片流水號, QQQ.圖片群組, QQQ.圖片料號, QQQ.編碼群組, QQQ.編碼料號

  400.                 FROM            HX空白圖片 FULL OUTER JOIN

  401.                                 (SELECT          物料圖庫.圖片流水號, 物料圖庫.群組碼 AS 圖片群組, 物料圖庫.料號原則 AS 圖片料號, 

  402.                                                  物料編碼庫.群組碼 AS 編碼群組, 物料編碼庫.料號原則 AS 編碼料號

  403.                                   FROM           物料編碼庫 FULL OUTER JOIN 物料圖庫 ON 物料編碼庫.料號原則 = 物料圖庫.料號原則

  404.                                   WHERE           (物料圖庫.料號原則 NOT LIKE N'')) AS QQQ ON HX空白圖片.選擇 = QQQ.圖片流水號

  405.                 WHERE          (QQQ.圖片群組 IS NULL) OR (QQQ.編碼群組 IS NULL)"

  406.         CmdSet_For_DGV()

  407.     End Sub

  408.     Friend Sub SQL_比對2()

  409.         ConnOpen_ERP()

  410.         SQL1 = "SELECT          QQQ.編碼群組, QQQ.編碼料號, QQQ.編碼品名, QQQ.資訊群組, QQQ.資訊料號, QQQ.資訊品名

  411.                 FROM            HX空白圖片 FULL OUTER JOIN

  412.                                 (SELECT          物料編碼庫.群組碼 AS 編碼群組, 物料編碼庫.料號原則 AS 編碼料號, 

  413.                                                  物料編碼庫.原則說明 AS 編碼品名, 物料資訊控制表.群組碼 AS 資訊群組, 

  414.                                                  物料資訊控制表.料號原則 AS 資訊料號, 物料資訊控制表.品名 AS 資訊品名

  415.                                   FROM           物料編碼庫 FULL OUTER JOIN 物料資訊控制表 ON 物料編碼庫.料號原則 = 物料資訊控制表.料號原則) AS QQQ ON 

  416.                                 HX空白圖片.選擇 = QQQ.編碼群組

  417.                 WHERE          (QQQ.資訊群組 IS NULL) OR (QQQ.編碼群組 IS NULL) OR (QQQ.編碼品名 <> QQQ.資訊品名)"

  418.         CmdSet_For_DGV()

  419.     End Sub

  420.     Friend Sub SQL_比對3()

  421.         ConnOpen_ERP()

  422.         SQL1 = "SELECT     物料編碼庫.群組碼, 物料編碼庫.料號原則, 物料編碼庫.原則說明, 

  423.                            物料編碼庫轉語言.群組碼 AS 語轉群組碼, 物料編碼庫轉語言.料號原則 AS 語轉料號原則, 

  424.                            物料編碼庫轉語言.語言, 物料編碼庫轉語言.品名, 物料規格表.群組碼 AS 規格群組碼, 

  425.                            物料規格表.料號原則 AS 規格料號原則

  426.                 FROM       物料規格表 FULL OUTER JOIN

  427.                            物料編碼庫轉語言 ON 物料規格表.料號原則 = 物料編碼庫轉語言.料號原則 FULL OUTER JOIN

  428.                            物料編碼庫 ON 物料編碼庫轉語言.料號原則 = 物料編碼庫.料號原則

  429.                 GROUP BY   物料編碼庫.群組碼, 物料編碼庫.料號原則, 物料編碼庫.原則說明, 物料編碼庫轉語言.群組碼, 

  430.                            物料編碼庫轉語言.料號原則, 物料編碼庫轉語言.語言, 物料編碼庫轉語言.品名, 物料規格表.群組碼, 

  431.                            物料規格表.料號原則

  432.                 HAVING     (物料編碼庫.群組碼 + 物料編碼庫.料號原則 <> 物料編碼庫轉語言.群組碼 + 物料編碼庫轉語言.料號原則) OR

  433.                            (物料編碼庫.群組碼 + 物料編碼庫.料號原則 <> 物料規格表.群組碼 + 物料規格表.料號原則) OR

  434.                            (物料編碼庫轉語言.群組碼 + 物料編碼庫轉語言.料號原則 <> 物料規格表.群組碼 + 物料規格表.料號原則)"

  435.         CmdSet_For_DGV()

  436.     End Sub

  437.     Friend Sub SQL_比對4()

  438.         ConnOpen_ERP()

  439.         SQL1 = "SELECT  合約試算明細表.合約編號, 合約試算明細表.料號, 物料規格表.料號 AS 物料庫料號

  440.                 FROM    合約試算明細表 LEFT OUTER JOIN 物料規格表 ON 合約試算明細表.料號 = 物料規格表.料號

  441.                 WHERE  (物料規格表.料號 IS NULL)"

  442.         CmdSet_For_DGV()

  443.     End Sub

  444.     Friend Sub SQL_比對5()

  445.         ConnOpen_ERP()

  446.         SQL1 = "SELECT      物料編碼庫轉語言.群組碼 AS 語轉群組, 物料編碼庫轉語言.料號原則 AS 語轉編碼, 物料編碼庫轉語言.語言, 

  447.                             物料編碼庫轉語言.品名, 物料編碼庫.原則說明, 物料編碼庫.料號原則, 物料編碼庫.群組碼

  448.                 FROM        物料編碼庫轉語言 FULL OUTER JOIN

  449.                             物料編碼庫 ON 物料編碼庫轉語言.料號原則 = 物料編碼庫.料號原則 AND 

  450.                             物料編碼庫轉語言.群組碼 = 物料編碼庫.群組碼

  451.                 WHERE      (物料編碼庫.原則說明 IS NULL) OR

  452.                            (物料編碼庫轉語言.料號原則 IS NULL)"

  453.         CmdSet_For_DGV()

  454.     End Sub

  455.     '---------------------倉儲分區控制表-----------------------------------------------------------------------------------------------------------------

  456.     Friend Sub SQL_倉儲分區控制表_清單()

  457.         ConnOpen_ERP() : SQL1 = "SELECT 倉級 AS [" & 表頭(68) & "], 倉名編號 AS [" & 表頭(69) & "], 倉名 AS [" & 表頭(70) & "], CXL FROM 倉儲分區控制表 ORDER BY 倉級, 倉名編號" : CmdSet_For_DGV()

  458.     End Sub

  459.     Friend Sub SQL_倉儲分區控制表_最後一筆()

  460.         ConnOpen_ERP() : SQL1 = "SELECT TOP(1) 倉名編號 FROM 倉儲分區控制表 ORDER BY 倉名編號 DESC" : CmdSet_For_dr()

  461.     End Sub

  462.     Friend Sub SQL_倉儲分區控制表_倉名查詢()

  463.         ConnOpen_ERP() : SQL1 = "SELECT 倉名編號 FROM 倉儲分區控制表 WHERE 倉名 LIKE N'" & 倉儲分區控制表.倉名_tb.Text & "' AND CXL =  N'" & 倉儲分區控制表.CXL_ch.Checked & "'" : CmdSet_For_dr()

  464.     End Sub

  465.     Friend Sub SQL_倉儲分區控制表_不重複查詢()

  466.         ConnOpen_ERP()

  467.         SQL1 = "SELECT 倉名編號 FROM 倉儲分區控制表 

  468.                 WHERE 倉級 LIKE N'" & 倉儲分區控制表.倉級_tb.Text & "' AND 倉名編號 LIKE N'" & 倉儲分區控制表.倉名編號_tb.Text & "' AND 

  469.                       倉名 LIKE N'" & 倉儲分區控制表.倉名_tb.Text & "' AND CXL =  N'" & 倉儲分區控制表.CXL_ch.Checked & "'"

  470.         CmdSet_For_dr()

  471.     End Sub

  472.     Friend Sub SQL_倉儲分區控制表_新增()

  473.         ConnOpen_ERP()

  474.         SQL1 = "INSERT INTO 倉儲分區控制表 (倉級, 倉名編號, 倉名, CXL) 

  475.                 VALUES (N'" & 倉儲分區控制表.倉級_tb.Text & "',N'" & 倉儲分區控制表.倉名編號_tb.Text & "',N'" & 倉儲分區控制表.倉名_tb.Text & "', '0')"

  476.         CmdSet_For_dr()

  477.     End Sub

  478.     Friend Sub SQL_倉儲分區控制表_修改()

  479.         ConnOpen_ERP()

  480.         SQL1 = "UPDATE 倉儲分區控制表 SET 倉名 = N'" & 倉儲分區控制表.倉名_tb.Text & "', CXL =  N'" & 倉儲分區控制表.CXL_ch.Checked & "'

  481.                 WHERE (倉級 LIKE N'" & 倉儲分區控制表.倉級_tb.Text & "' AND 倉名編號 LIKE N'" & 倉儲分區控制表.倉名編號_tb.Text & "')"

  482.         CmdSet_For_dr()

  483.     End Sub

  484.     Friend Sub SQL_倉儲分區控制表_刪除()

  485.         ConnOpen_ERP()

  486.         SQL1 = "DELETE FROM 倉儲分區控制表 

  487.                 WHERE 倉級 LIKE N'" & 倉儲分區控制表.倉級_tb.Text & "' AND 倉名編號 LIKE N'" & 倉儲分區控制表.倉名編號_tb.Text & "' AND 倉名 LIKE N'" & 倉儲分區控制表.倉名_tb.Text & "'"

  488.         CmdSet_For_dr()

  489.     End Sub

  490.     ''---------------------倉儲單據狀態看板-----------------------------------------------------------------------------------------------------------------

  491.     'Friend Sub SQL_倉儲單據狀態看板_清單()

  492.     '    ConnOpen()

  493.     '    SQL1 = "SELECT 倉儲明細表.資料流水號, 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 

  494.     '                   物料資訊控制表.品名 AS [" & 表頭(12) & "], 倉儲明細表.入庫 AS [" & 表頭(45) & "], 倉儲明細表.出庫 AS [" & 表頭(46) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 

  495.     '                   倉儲明細表.狀態 AS [" & 表頭(71) & "], 倉儲明細表.採購單號 AS [" & 表頭(24) & "], 倉儲明細表.申請人 AS [" & 表頭(19) & "], 

  496.     '                   倉儲明細表.申請日期 AS [" & 表頭(20) & "], 倉儲明細表.審核人 AS [" & 表頭(21) & "], 倉儲明細表.審核日期 AS [" & 表頭(22) & "], 

  497.     '                   倉儲明細表.倉庫作業 AS [" & 表頭(72) & "], 倉儲明細表.作業日期 AS [" & 表頭(73) & "], 倉儲分區控制表_1.倉名 AS [" & 表頭(74) & "], 

  498.     '                   倉儲明細表.使用位置 AS [" & 表頭(75) & "], 物料規格表.料號原則, 物料規格表.圖檔編號

  499.     '            FROM        倉儲分區控制表 RIGHT OUTER JOIN

  500.     '                        倉儲明細表 LEFT OUTER JOIN

  501.     '                        倉儲分區控制表 AS 倉儲分區控制表_1 ON 倉儲明細表.備註 = 倉儲分區控制表_1.倉名編號 ON 

  502.     '                        倉儲分區控制表.倉名編號 = 倉儲明細表.倉名編號 LEFT OUTER JOIN

  503.     '                        物料資訊控制表 INNER JOIN

  504.     '                        物料規格表 ON 物料資訊控制表.群組碼 = 物料規格表.群組碼 AND 

  505.     '                        物料資訊控制表.料號原則 = 物料規格表.料號原則 ON 倉儲明細表.料號 = 物料規格表.料號

  506.     '            WHERE " & PA1 & "

  507.     '            ORDER BY [" & 表頭(47) & "] DESC"

  508.     '    CmdSet_For_DGV()

  509.     'End Sub

  510.     ''---------------------倉儲控制表-----------------------------------------------------------------------------------------------------------------

  511.     'Friend Sub SQL_倉儲控制表_控制表()

  512.     '    ConnOpen()

  513.     '    If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If

  514.     '    If 倉儲控制表.同級別全資料_ch.Checked = False Then

  515.     '        SQL1 = "SELECT  QQWW.[" & 表頭(48) & "], 物料群組轉語言.群組 AS [" & 表頭(76) & "], 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], QQWW.[" & 表頭(13) & "], 

  516.     '                        QQWW.A1, QQWW.A2, QQWW.A3, QQWW.A4, QQWW.A5, 

  517.     '                        QQWW.A6, QQWW.A7, QQWW.A8, QQWW.料號 AS [" & 表頭(77) & "], QQWW.[" & 表頭(78) & "], QQWW.規格庫抬頭指定, QQWW.料號原則, QQWW.圖檔編號, QQWW.[" & 表頭(79) & "], 

  518.     '                        QQWW.[" & 表頭(80) & "], QQWW.[" & 表頭(81) & "], QQWW.[" & 表頭(44) & "], QQWW.[" & 表頭(16) & "], QQWW.[" & 表頭(65) & "], QQWW.規格庫編號, 

  519.     '                        QQWW.群組碼 " & 低網 & "

  520.     '                FROM   物料圖庫 INNER JOIN

  521.     '                       (SELECT  倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 物料規格表.群組碼 AS [" & 表頭(76) & "], 物料資訊控制表.品名 AS [" & 表頭(12) & "], 

  522.     '                                物料規格表.A1 AS [" & 表頭(13) & "], 物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 

  523.     '                                物料規格表.A8, SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) AS [" & 表頭(78) & "], 物料資訊控制表.規格庫抬頭指定, 倉儲明細表.料號, 物料資訊控制表.料號原則, 

  524.     '                                物料規格表.圖檔編號, QQ.未入庫 AS [" & 表頭(79) & "], WW.未出庫 AS [" & 表頭(80) & "], WW.未出庫 AS [" & 表頭(81) & "], 

  525.     '                                HX選擇按鈕.選擇 AS [" & 表頭(44) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], 物料規格表.最低庫存量 AS [" & 表頭(65) & "], 物料資訊控制表.規格庫編號, 

  526.     '                                物料規格表.群組碼, 物料資訊控制表.進度條

  527.     '                        FROM    物料編碼庫 INNER JOIN 物料資訊控制表 INNER JOIN 物料規格表 ON 物料資訊控制表.群組碼 = 物料規格表.群組碼 AND 物料資訊控制表.料號原則 = 物料規格表.料號原則 ON 

  528.     '                                物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 RIGHT OUTER JOIN

  529.     '                                   (SELECT  SUM(倉儲明細表_2.出庫) AS 未出庫, 倉儲明細表_2.料號, 倉儲分區控制表_2.倉名編號

  530.     '                                    FROM    倉儲明細表 AS 倉儲明細表_2 LEFT OUTER JOIN 倉儲分區控制表 AS 倉儲分區控制表_2 ON 倉儲明細表_2.倉名編號 = 倉儲分區控制表_2.倉名編號

  531.     '                                    WHERE  (倉儲明細表_2.倉庫作業 LIKE N'') AND (倉儲明細表_2.審核人 NOT LIKE N'作廢%') AND (倉儲明細表_2.倉級 LIKE N'" & 倉儲倉級2 & "') AND 

  532.     '                                           (倉儲分區控制表_2.倉名 LIKE N'" & 倉儲控制表.指定倉庫_cb.Text & "')

  533.     '                                    GROUP BY    倉儲明細表_2.料號, 倉儲分區控制表_2.倉名編號) AS WW 

  534.     '                                RIGHT OUTER JOIN 倉儲明細表 LEFT OUTER JOIN

  535.     '                                   (SELECT  SUM(倉儲明細表_1.入庫) AS 未入庫, 倉儲明細表_1.料號, 倉儲分區控制表_1.倉名編號

  536.     '                                    FROM    倉儲明細表 AS 倉儲明細表_1 LEFT OUTER JOIN 倉儲分區控制表 AS 倉儲分區控制表_1 ON 倉儲明細表_1.倉名編號 = 倉儲分區控制表_1.倉名編號

  537.     '                                    WHERE  (倉儲明細表_1.倉庫作業 LIKE N'') AND (倉儲明細表_1.審核人 NOT LIKE N'作廢%') AND  (倉儲明細表_1.倉級 LIKE N'" & 倉儲倉級2 & "') AND 

  538.     '                                           (倉儲分區控制表_1.倉名 LIKE N'" & 倉儲控制表.指定倉庫_cb.Text & "')

  539.     '                                    GROUP BY    倉儲明細表_1.料號, 倉儲分區控制表_1.倉名編號) AS QQ ON 

  540.     '                                倉儲明細表.倉名編號 = QQ.倉名編號 AND 倉儲明細表.料號 = QQ.料號 ON WW.倉名編號 = 倉儲明細表.倉名編號 AND WW.料號 = 倉儲明細表.料號 LEFT OUTER JOIN HX選擇按鈕 ON 

  541.     '                                倉儲明細表.料號 = HX選擇按鈕.對應 LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 ON 物料規格表.料號 = 倉儲明細表.料號

  542.     '                        WHERE  (倉儲明細表.倉庫作業 NOT LIKE N'') AND (倉儲明細表.審核人 NOT LIKE N'作廢%') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級2 & "') AND 

  543.     '                               (倉儲分區控制表.倉名 LIKE N'" & 倉儲控制表.指定倉庫_cb.Text & "')

  544.     '                        GROUP BY    倉儲分區控制表.倉名, 物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 物料規格表.群組碼, 

  545.     '                                    物料資訊控制表.品名, 物料資訊控制表.規格庫抬頭指定, 倉儲明細表.料號, 物料資訊控制表.料號原則, 物料規格表.圖檔編號, QQ.未入庫, WW.未出庫, HX選擇按鈕.選擇, 

  546.     '                                    物料編碼庫.單位, 物料規格表.最低庫存量, 物料資訊控制表.規格庫抬頭指定, 物料資訊控制表.規格庫編號, 物料規格表.群組碼, 物料規格表.料號原則, 物料資訊控制表.進度條

  547.     '                               " & PA10 & " ) AS QQWW ON 

  548.     '                        物料圖庫.群組碼 = QQWW.群組碼 AND 物料圖庫.料號原則 = QQWW.料號原則 INNER JOIN

  549.     '                        物料群組轉語言 ON QQWW.[" & 表頭(76) & "] = 物料群組轉語言.群組碼 INNER JOIN

  550.     '                        物料編碼庫轉語言 ON QQWW.料號原則 = 物料編碼庫轉語言.料號原則 AND 

  551.     '                        QQWW.[" & 表頭(76) & "] = 物料編碼庫轉語言.群組碼

  552.     '                WHERE     (物料群組轉語言.語言 LIKE N'" & 系統語言 & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')

  553.     '                ORDER BY   QQWW.[" & 表頭(76) & "], QQWW.料號"

  554.     '    Else

  555.     '        SQL1 = "SELECT  QQWW.[" & 表頭(48) & "], 物料群組轉語言.群組 AS [" & 表頭(76) & "], 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], QQWW.[" & 表頭(13) & "], 

  556.     '                        QQWW.A1, QQWW.A2, QQWW.A3, QQWW.A4, QQWW.A5, 

  557.     '                        QQWW.A6, QQWW.A7, QQWW.A8, QQWW.料號 AS [" & 表頭(77) & "], QQWW.[" & 表頭(78) & "], QQWW.規格庫抬頭指定, QQWW.料號原則, QQWW.圖檔編號, QQWW.[" & 表頭(79) & "], 

  558.     '                        QQWW.[" & 表頭(80) & "], QQWW.[" & 表頭(81) & "], QQWW.[" & 表頭(44) & "], QQWW.[" & 表頭(16) & "], QQWW.[" & 表頭(65) & "], QQWW.規格庫編號, 

  559.     '                        QQWW.群組碼 " & 低網 & "

  560.     '                FROM    物料圖庫 INNER JOIN

  561.     '                       (SELECT  倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 物料規格表.群組碼 AS [" & 表頭(76) & "], 物料資訊控制表.品名 AS [" & 表頭(12) & "], 

  562.     '                                物料規格表.A1 AS [" & 表頭(13) & "], 物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 

  563.     '                                物料規格表.A8, SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) AS [" & 表頭(78) & "], 物料資訊控制表.規格庫抬頭指定, 倉儲明細表.料號, 物料資訊控制表.料號原則, 

  564.     '                                物料規格表.圖檔編號, QQ.未入庫 AS [" & 表頭(79) & "], WW.未出庫 AS [" & 表頭(80) & "], WW.未出庫 AS [" & 表頭(81) & "], 

  565.     '                                HX選擇按鈕.選擇 AS [" & 表頭(44) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], 物料規格表.最低庫存量 AS [" & 表頭(65) & "], 物料資訊控制表.規格庫編號, 

  566.     '                                物料規格表.群組碼, 物料資訊控制表.進度條

  567.     '                        FROM    物料編碼庫 INNER JOIN 物料資訊控制表 INNER JOIN 物料規格表 ON 物料資訊控制表.群組碼 = 物料規格表.群組碼 AND 物料資訊控制表.料號原則 = 物料規格表.料號原則 ON 

  568.     '                                物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 RIGHT OUTER JOIN

  569.     '                                   (SELECT  SUM(倉儲明細表_2.出庫) AS 未出庫, 倉儲明細表_2.料號, 倉儲分區控制表_2.倉名編號

  570.     '                                    FROM    倉儲明細表 AS 倉儲明細表_2 LEFT OUTER JOIN 倉儲分區控制表 AS 倉儲分區控制表_2 ON 倉儲明細表_2.倉名編號 = 倉儲分區控制表_2.倉名編號

  571.     '                                    WHERE  (倉儲明細表_2.倉庫作業 LIKE N'') AND (倉儲明細表_2.審核人 NOT LIKE N'作廢%') AND (倉儲明細表_2.倉級 LIKE N'" & 倉儲倉級2 & "') 

  572.     '                                    GROUP BY    倉儲明細表_2.料號, 倉儲分區控制表_2.倉名編號) AS WW 

  573.     '                                RIGHT OUTER JOIN 倉儲明細表 LEFT OUTER JOIN

  574.     '                                   (SELECT  SUM(倉儲明細表_1.入庫) AS 未入庫, 倉儲明細表_1.料號, 倉儲分區控制表_1.倉名編號

  575.     '                                    FROM    倉儲明細表 AS 倉儲明細表_1 LEFT OUTER JOIN 倉儲分區控制表 AS 倉儲分區控制表_1 ON 倉儲明細表_1.倉名編號 = 倉儲分區控制表_1.倉名編號

  576.     '                                    WHERE  (倉儲明細表_1.倉庫作業 LIKE N'') AND (倉儲明細表_1.審核人 NOT LIKE N'作廢%') AND  (倉儲明細表_1.倉級 LIKE N'" & 倉儲倉級2 & "') 

  577.     '                                    GROUP BY    倉儲明細表_1.料號, 倉儲分區控制表_1.倉名編號) AS QQ ON 

  578.     '                                倉儲明細表.倉名編號 = QQ.倉名編號 AND 倉儲明細表.料號 = QQ.料號 ON WW.倉名編號 = 倉儲明細表.倉名編號 AND WW.料號 = 倉儲明細表.料號 LEFT OUTER JOIN HX選擇按鈕 ON 

  579.     '                                倉儲明細表.料號 = HX選擇按鈕.對應 LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 ON 物料規格表.料號 = 倉儲明細表.料號

  580.     '                        WHERE  (倉儲明細表.倉庫作業 NOT LIKE N'') AND (倉儲明細表.審核人 NOT LIKE N'作廢%') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級2 & "') 

  581.     '                        GROUP BY    倉儲分區控制表.倉名, 物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 物料規格表.群組碼, 

  582.     '                                    物料資訊控制表.品名, 物料資訊控制表.規格庫抬頭指定, 倉儲明細表.料號, 物料資訊控制表.料號原則, 物料規格表.圖檔編號, QQ.未入庫, WW.未出庫, HX選擇按鈕.選擇, 

  583.     '                                    物料編碼庫.單位, 物料規格表.最低庫存量, 物料資訊控制表.規格庫抬頭指定, 物料資訊控制表.規格庫編號, 物料規格表.群組碼, 物料規格表.料號原則, 物料資訊控制表.進度條

  584.     '                                " & PA10 & " ) AS QQWW ON 

  585.     '                        物料圖庫.群組碼 = QQWW.群組碼 AND 物料圖庫.料號原則 = QQWW.料號原則 INNER JOIN

  586.     '                        物料群組轉語言 ON QQWW.[" & 表頭(76) & "] = 物料群組轉語言.群組碼 INNER JOIN

  587.     '                        物料編碼庫轉語言 ON QQWW.料號原則 = 物料編碼庫轉語言.料號原則 AND 

  588.     '                        QQWW.[" & 表頭(76) & "] = 物料編碼庫轉語言.群組碼

  589.     '                WHERE     (物料群組轉語言.語言 LIKE N'" & 系統語言 & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')

  590.     '                ORDER BY   QQWW.[" & 表頭(76) & "], QQWW.料號"

  591.     '    End If

  592.     '    CmdSet_For_DGV()

  593.     'End Sub

  594.     'Friend Sub SQL_倉儲控制表_明細()

  595.     '    ConnOpen()

  596.     '    If 倉儲控制表.同級別全資料_ch.Checked = False Then

  597.     '        SQL1 = "SELECT  倉儲明細表.資料流水號, 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 物料資訊控制表.品名, 

  598.     '                            倉儲明細表.入庫 AS [" & 表頭(45) & "], 倉儲明細表.出庫 AS [" & 表頭(46) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 倉儲明細表.狀態 AS [" & 表頭(71) & "], 

  599.     '                            倉儲明細表.採購單號 AS [" & 表頭(24) & "], 倉儲明細表.申請人 AS [" & 表頭(19) & "], 倉儲明細表.申請日期 AS [" & 表頭(20) & "], 

  600.     '                            倉儲明細表.審核人 AS [" & 表頭(21) & "], 倉儲明細表.審核日期 AS [" & 表頭(22) & "], 倉儲明細表.倉庫作業 AS [" & 表頭(72) & "], 

  601.     '                            倉儲明細表.作業日期 AS [" & 表頭(73) & "]

  602.     '                    FROM    物料資訊控制表 INNER JOIN

  603.     '                            物料規格表 ON 物料資訊控制表.群組碼 = 物料規格表.群組碼 AND 

  604.     '                            物料資訊控制表.料號原則 = 物料規格表.料號原則 RIGHT OUTER JOIN

  605.     '                            倉儲明細表 LEFT OUTER JOIN

  606.     '                            倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 ON 

  607.     '                            物料規格表.料號 = 倉儲明細表.料號

  608.     '                    WHERE   (倉儲明細表.倉級 LIKE N'" & 倉儲倉級2 & "') AND (倉儲明細表.料號 LIKE N'" & PA11 & "') AND 

  609.     '                            (倉儲分區控制表.倉名 LIKE N'" & 倉儲控制表.指定倉庫_cb.Text & "')

  610.     '                    ORDER BY   [" & 表頭(73) & "]"

  611.     '    Else

  612.     '        SQL1 = "SELECT  倉儲明細表.資料流水號, 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 物料資訊控制表.品名, 

  613.     '                            倉儲明細表.入庫 AS [" & 表頭(45) & "], 倉儲明細表.出庫 AS [" & 表頭(46) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 倉儲明細表.狀態 AS [" & 表頭(71) & "], 

  614.     '                            倉儲明細表.採購單號 AS [" & 表頭(24) & "], 倉儲明細表.申請人 AS [" & 表頭(19) & "], 倉儲明細表.申請日期 AS [" & 表頭(20) & "], 

  615.     '                            倉儲明細表.審核人 AS [" & 表頭(21) & "], 倉儲明細表.審核日期 AS [" & 表頭(22) & "], 倉儲明細表.倉庫作業 AS [" & 表頭(72) & "], 

  616.     '                            倉儲明細表.作業日期 AS [" & 表頭(73) & "]

  617.     '                    FROM    物料資訊控制表 INNER JOIN

  618.     '                            物料規格表 ON 物料資訊控制表.群組碼 = 物料規格表.群組碼 AND 

  619.     '                            物料資訊控制表.料號原則 = 物料規格表.料號原則 RIGHT OUTER JOIN

  620.     '                            倉儲明細表 LEFT OUTER JOIN

  621.     '                            倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 ON 

  622.     '                            物料規格表.料號 = 倉儲明細表.料號

  623.     '                    WHERE   (倉儲明細表.倉級 LIKE N'" & 倉儲倉級2 & "') AND (倉儲明細表.料號 LIKE N'" & PA11 & "')

  624.     '                    ORDER BY   [" & 表頭(73) & "]"

  625.     '    End If

  626.     '    CmdSet_For_DGV()

  627.     'End Sub

  628.     ''---------------------倉儲入庫驗收-----------------------------------------------------------------------------------------------------------------

  629.     'Friend Sub SQL_倉儲入庫驗收_清單()

  630.     '    ConnOpen()

  631.     '    If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If

  632.     '    If 倉儲入庫驗收.同級別全資料_ch.Checked = False Then

  633.     '        SQL1 = "SELECT  WWEE.資料流水號, WWEE.[" & 表頭(47) & "], WWEE.倉級, WWEE.[" & 表頭(48) & "], WWEE.料號, WWEE.[" & 表頭(12) & "], WWEE.[" & 表頭(13) & "], 

  634.     '                        WWEE.[" & 表頭(45) & "], WWEE.出庫, WWEE.[" & 表頭(16) & "], WWEE.[" & 表頭(14) & "], WWEE.狀態 AS [" & 表頭(71) & "], WWEE.採購單號 AS [" & 表頭(24) & "], 

  635.     '                        WWEE.申請人, WWEE.申請日期, WWEE.審核人, WWEE.審核日期, WWEE.倉庫作業, WWEE.作業日期, WWEE.[" & 表頭(44) & "], WWEE.圖檔編號, WWEE.料號原則, 

  636.     '                        WWEE.規格庫編號, WWEE.規格庫抬頭指定 " & 低網 & "

  637.     '                 FROM   物料圖庫 INNER JOIN

  638.     '                       (SELECT      倉儲明細表.資料流水號, 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲明細表.倉級, 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 

  639.     '                                    倉儲明細表.料號, 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 採購單明細表.規格 AS [" & 表頭(13) & "], 倉儲明細表.入庫 AS [" & 表頭(45) & "], 

  640.     '                                    倉儲明細表.出庫, 物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 倉儲明細表.狀態, 

  641.     '                                    倉儲明細表.採購單號, 倉儲明細表.申請人, 倉儲明細表.申請日期, 倉儲明細表.審核人, 倉儲明細表.審核日期, 倉儲明細表.倉庫作業, 

  642.     '                                    倉儲明細表.作業日期, HX選擇按鈕.選擇 AS [" & 表頭(44) & "], 物料規格表.圖檔編號, 物料規格表.料號原則, 物料資訊控制表.規格庫編號, 

  643.     '                                    物料資訊控制表.規格庫抬頭指定, 物料規格表.群組碼

  644.     '                        FROM        物料編碼庫 INNER JOIN 物料規格表 ON 物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 INNER JOIN 物料資訊控制表 ON 

  645.     '                                    物料規格表.群組碼 = 物料資訊控制表.群組碼 AND 物料規格表.料號原則 = 物料資訊控制表.料號原則 RIGHT OUTER JOIN 倉儲明細表 ON 物料規格表.料號 = 倉儲明細表.料號 

  646.     '                                    LEFT OUTER JOIN 採購單明細表 ON 倉儲明細表.料號 = 採購單明細表.料號 LEFT OUTER JOIN HX選擇按鈕 ON 倉儲明細表.資料流水號 = HX選擇按鈕.對應 

  647.     '                                    LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉級 = 倉儲分區控制表.倉級 AND 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 INNER JOIN

  648.     '                                    物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 

  649.     '                                    物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼

  650.     '                        WHERE      (倉儲明細表.倉庫作業 LIKE N'') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級1 & "') AND (倉儲分區控制表.倉名 LIKE N'" & 倉儲入庫驗收.指定倉庫_cb.Text & "') AND 

  651.     '                                   (倉儲明細表.狀態 LIKE N'指定入庫' OR 倉儲明細表.狀態 LIKE N'退料入庫') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')

  652.     '                        GROUP BY    倉儲明細表.資料流水號, 倉儲明細表.執行單號, 倉儲明細表.倉級, 倉儲分區控制表.倉名, 倉儲明細表.料號, 物料資訊控制表.品名, 採購單明細表.規格, 

  653.     '                                    倉儲明細表.入庫, 倉儲明細表.出庫, 倉儲明細表.備註, 倉儲明細表.狀態, 倉儲明細表.採購單號, 倉儲明細表.申請人, 倉儲明細表.申請日期, 倉儲明細表.審核人, 

  654.     '                                    倉儲明細表.審核日期, 倉儲明細表.倉庫作業, 倉儲明細表.作業日期, HX選擇按鈕.選擇, 物料規格表.圖檔編號, 物料規格表.料號原則, 物料編碼庫.單位, 

  655.     '                                    物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定, 物料規格表.群組碼, 物料編碼庫轉語言.品名) AS WWEE ON 

  656.     '                            物料圖庫.群組碼 = WWEE.群組碼 AND 物料圖庫.料號原則 = WWEE.料號原則

  657.     '                ORDER BY    WWEE.[" & 表頭(48) & "], WWEE.資料流水號"

  658.     '    Else

  659.     '        SQL1 = "SELECT      WWEE.資料流水號, WWEE.[" & 表頭(47) & "], WWEE.倉級, WWEE.[" & 表頭(48) & "], WWEE.料號, WWEE.[" & 表頭(12) & "], WWEE.[" & 表頭(13) & "], WWEE.[" & 表頭(45) & "], 

  660.     '                            WWEE.出庫, WWEE.[" & 表頭(16) & "], WWEE.[" & 表頭(14) & "], WWEE.狀態 AS [" & 表頭(71) & "], WWEE.採購單號 AS [" & 表頭(24) & "], WWEE.申請人, WWEE.申請日期, 

  661.     '                            WWEE.審核人, WWEE.審核日期, WWEE.倉庫作業, WWEE.作業日期, WWEE.[" & 表頭(44) & "], WWEE.圖檔編號, WWEE.料號原則, WWEE.規格庫編號, WWEE.規格庫抬頭指定 " & 低網 & "

  662.     '                 FROM       物料圖庫 INNER JOIN

  663.     '                           (SELECT      倉儲明細表.資料流水號, 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲明細表.倉級, 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 

  664.     '                                        倉儲明細表.料號, 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 採購單明細表.規格 AS [" & 表頭(13) & "], 倉儲明細表.入庫 AS [" & 表頭(45) & "], 

  665.     '                                        倉儲明細表.出庫, 物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 倉儲明細表.狀態, 

  666.     '                                        倉儲明細表.採購單號, 倉儲明細表.申請人, 倉儲明細表.申請日期, 倉儲明細表.審核人, 倉儲明細表.審核日期, 倉儲明細表.倉庫作業, 

  667.     '                                        倉儲明細表.作業日期, HX選擇按鈕.選擇 AS [" & 表頭(44) & "], 物料規格表.圖檔編號, 物料規格表.料號原則, 物料資訊控制表.規格庫編號, 

  668.     '                                        物料資訊控制表.規格庫抬頭指定, 物料規格表.群組碼

  669.     '                            FROM        物料編碼庫 INNER JOIN 物料規格表 ON 物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 INNER JOIN 物料資訊控制表 ON 

  670.     '                                        物料規格表.群組碼 = 物料資訊控制表.群組碼 AND 物料規格表.料號原則 = 物料資訊控制表.料號原則 RIGHT OUTER JOIN 倉儲明細表 ON 物料規格表.料號 = 倉儲明細表.料號 

  671.     '                                        LEFT OUTER JOIN 採購單明細表 ON 倉儲明細表.料號 = 採購單明細表.料號 LEFT OUTER JOIN HX選擇按鈕 ON 倉儲明細表.資料流水號 = HX選擇按鈕.對應 

  672.     '                                        LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉級 = 倉儲分區控制表.倉級 AND 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 INNER JOIN

  673.     '                                        物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 

  674.     '                                        物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼

  675.     '                            WHERE      (倉儲明細表.倉庫作業 LIKE N'') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級1 & "') AND 

  676.     '                                       (倉儲明細表.狀態 LIKE N'指定入庫' OR 倉儲明細表.狀態 LIKE N'退料入庫') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')

  677.     '                            GROUP BY    倉儲明細表.資料流水號, 倉儲明細表.執行單號, 倉儲明細表.倉級, 倉儲分區控制表.倉名, 倉儲明細表.料號, 物料資訊控制表.品名, 採購單明細表.規格, 

  678.     '                                        倉儲明細表.入庫, 倉儲明細表.出庫, 倉儲明細表.備註, 倉儲明細表.狀態, 倉儲明細表.採購單號, 倉儲明細表.申請人, 倉儲明細表.申請日期, 倉儲明細表.審核人, 

  679.     '                                        倉儲明細表.審核日期, 倉儲明細表.倉庫作業, 倉儲明細表.作業日期, HX選擇按鈕.選擇, 物料規格表.圖檔編號, 物料規格表.料號原則, 物料編碼庫.單位, 

  680.     '                                        物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定, 物料規格表.群組碼, 物料編碼庫轉語言.品名) AS WWEE ON 

  681.     '                            物料圖庫.群組碼 = WWEE.群組碼 AND 物料圖庫.料號原則 = WWEE.料號原則

  682.     '                ORDER BY    WWEE.[" & 表頭(48) & "], WWEE.資料流水號"

  683.     '    End If

  684.     '    CmdSet_For_DGV()

  685.     'End Sub

  686.     'Friend Sub SQL_倉儲分區控制表_倉級指定倉名()

  687.     '    ConnOpen() : SQL1 = "SELECT 倉名 FROM 倉儲分區控制表 WHERE (倉級 LIKE N'" & 倉儲倉級1 & "') AND CXL = '0' ORDER BY 倉級, 倉名編號" : CmdSet_For_dr()

  688.     'End Sub

  689.     'Friend Sub SQL_採購單明細表_已入庫()

  690.     '    ConnOpen() : SQL1 = "UPDATE 採購單明細表 SET 已入庫 = N'1' WHERE (採購單號 LIKE N'" & PA8 & "' AND 料號 LIKE N'" & PA9 & "')" : CmdSet_For_dr()

  691.     'End Sub

  692.     'Friend Sub SQL_倉儲明細表_倉庫作業()

  693.     '    ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 倉庫作業 = N'" & gUserName & "', 作業日期 = N'" & DTP & "' WHERE (資料流水號 LIKE N'" & PA8 & "')" : CmdSet_For_dr()

  694.     'End Sub

  695.     ''---------------------倉儲指定出庫申請-----------------------------------------------------------------------------------------------------------------

  696.     'Friend Sub SQL_倉儲指定出庫申請_動態倉儲()

  697.     '    ConnOpen()

  698.     '    If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If

  699.     '    SQL1 = "SELECT      QQWW.[" & 表頭(48) & "], 物料群組轉語言.群組 AS [" & 表頭(76) & "], 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], QQWW.[" & 表頭(13) & "], 

  700.     '                        QQWW.A1, QQWW.A2, QQWW.A3, QQWW.A4, QQWW.A5, 

  701.     '                        QQWW.A6, QQWW.A7, QQWW.A8, QQWW.[" & 表頭(77) & "], QQWW.[" & 表頭(78) & "], 

  702.     '                        QQWW.規格庫抬頭指定, QQWW.料號原則, QQWW.圖檔編號, QQWW.[" & 表頭(79) & "], QQWW.[" & 表頭(80) & "], QQWW.[" & 表頭(81) & "], 

  703.     '                        QQWW.[" & 表頭(83) & "], QQWW.[" & 表頭(16) & "], QQWW.[" & 表頭(44) & "], QQWW.規格庫編號, QQWW.進度條, 

  704.     '                        QQWW.[" & 表頭(65) & "] " & 低網 & "

  705.     '            FROM        物料圖庫 RIGHT OUTER JOIN

  706.     '                       (SELECT  倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 物料規格表.群組碼 AS [" & 表頭(76) & "], 

  707.     '                                物料資訊控制表.品名 AS [" & 表頭(12) & "], 物料規格表.A1 AS [" & 表頭(13) & "], 物料規格表.A1, 

  708.     '                                物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 

  709.     '                                物料規格表.A8, 倉儲明細表.料號 AS [" & 表頭(77) & "], SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) AS [" & 表頭(78) & "], 物料資訊控制表.規格庫抬頭指定, 

  710.     '                                物料資訊控制表.料號原則, 物料規格表.圖檔編號, QQ.未入庫 AS [" & 表頭(79) & "], 

  711.     '                                WW.未出庫 AS [" & 表頭(80) & "], WW.未出庫 AS [" & 表頭(81) & "], 

  712.     '                                WW.未出庫 AS [" & 表頭(83) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], HX選擇按鈕.選擇 AS [" & 表頭(44) & "], 

  713.     '                                物料資訊控制表.規格庫編號, 物料資訊控制表.進度條, 物料規格表.最低庫存量 AS [" & 表頭(65) & "]

  714.     '                        FROM    物料編碼庫 INNER JOIN 物料資訊控制表 INNER JOIN 物料規格表 ON 物料資訊控制表.群組碼 = 物料規格表.群組碼 AND 

  715.     '                                物料資訊控制表.料號原則 = 物料規格表.料號原則 ON 物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 RIGHT OUTER JOIN

  716.     '                               (SELECT   SUM(倉儲明細表_2.出庫) AS 未出庫, 倉儲明細表_2.料號

  717.     '                                FROM     倉儲明細表 AS 倉儲明細表_2 LEFT OUTER JOIN 倉儲分區控制表 AS 倉儲分區控制表_2 ON 倉儲明細表_2.倉名編號 = 倉儲分區控制表_2.倉名編號

  718.     '                                WHERE (倉儲明細表_2.倉庫作業 LIKE N'') AND (倉儲明細表_2.審核人 NOT LIKE N'作廢%') AND (倉儲明細表_2.倉級 LIKE N'" & 倉儲倉級3 & "') AND 

  719.     '                                      (倉儲分區控制表_2.倉名 LIKE N'" & 物料轉倉申請.當前倉庫_cb.Text & "')

  720.     '                                GROUP BY    倉儲明細表_2.料號) AS WW 

  721.     '                           RIGHT OUTER JOIN 倉儲明細表 LEFT OUTER JOIN HX選擇按鈕 ON 倉儲明細表.料號 = HX選擇按鈕.對應 ON WW.料號 = 倉儲明細表.料號 LEFT OUTER JOIN

  722.     '                               (SELECT  SUM(倉儲明細表_1.入庫) AS 未入庫, 倉儲明細表_1.料號

  723.     '                                FROM    倉儲明細表 AS 倉儲明細表_1 LEFT OUTER JOIN 倉儲分區控制表 AS 倉儲分區控制表_1 ON 倉儲明細表_1.倉名編號 = 倉儲分區控制表_1.倉名編號

  724.     '                                WHERE  (倉儲明細表_1.倉庫作業 LIKE N'') AND (倉儲明細表_1.審核人 NOT LIKE N'作廢%') AND (倉儲明細表_1.倉級 LIKE N'" & 倉儲倉級3 & "') AND 

  725.     '                                       (倉儲分區控制表_1.倉名 LIKE N'" & 物料轉倉申請.當前倉庫_cb.Text & "')

  726.     '                                GROUP BY    倉儲明細表_1.料號) AS QQ 

  727.     '                           ON 倉儲明細表.料號 = QQ.料號 LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 ON 物料規格表.料號 = 倉儲明細表.料號

  728.     '                        WHERE  (倉儲明細表.倉庫作業 NOT LIKE N'') AND (倉儲明細表.審核人 NOT LIKE N'作廢%') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級3 & "') AND 

  729.     '                               (倉儲分區控制表.倉名 LIKE N'" & 物料轉倉申請.當前倉庫_cb.Text & "') " & PA10 & "

  730.     '                        GROUP BY    倉儲分區控制表.倉名, 物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 

  731.     '                                    物料規格表.群組碼, 物料資訊控制表.品名, 物料資訊控制表.規格庫抬頭指定, 倉儲明細表.料號, 物料資訊控制表.料號原則, 物料規格表.圖檔編號, 

  732.     '                                    QQ.未入庫, WW.未出庫, HX選擇按鈕.選擇, 物料編碼庫.單位, 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條, 物料規格表.最低庫存量

  733.     '                        HAVING     (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) > 0)) AS QQWW 

  734.     '                        ON 物料圖庫.料號原則 = QQWW.料號原則 INNER JOIN

  735.     '                        物料群組轉語言 ON QQWW.[" & 表頭(76) & "] = 物料群組轉語言.群組碼 INNER JOIN

  736.     '                        物料編碼庫轉語言 ON QQWW.料號原則 = 物料編碼庫轉語言.料號原則 AND 

  737.     '                        QQWW.[" & 表頭(76) & "] = 物料編碼庫轉語言.群組碼

  738.     '            WHERE      (物料群組轉語言.語言 LIKE N'" & 系統語言 & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')

  739.     '            ORDER BY    QQWW.[" & 表頭(76) & "], QQWW.[" & 表頭(77) & "]"

  740.     '    CmdSet_For_DGV()

  741.     'End Sub

  742.     'Friend Sub SQL_倉儲指定出庫申請_出庫明細()

  743.     '    ConnOpen()

  744.     '    If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If

  745.     '    SQL1 = "SELECT     QQWW.資料流水號, QQWW.[" & 表頭(12) & "], QQWW.[" & 表頭(13) & "], QQWW.[" & 表頭(45) & "], QQWW.[" & 表頭(46) & "], QQWW.[" & 表頭(16) & "],  

  746.     '                       倉儲分區控制表.倉名 AS [" & 表頭(14) & "], 

  747.     '                       QQWW.料號原則, QQWW.圖檔編號, QQWW.[" & 表頭(77) & "], QQWW.規格庫編號 " & 低網 & "

  748.     '            FROM       倉儲分區控制表 RIGHT OUTER JOIN

  749.     '                      (SELECT  倉儲明細表.資料流水號, 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 規格庫抬頭.規格庫抬頭指定 AS [" & 表頭(13) & "], 倉儲明細表.入庫 AS [" & 表頭(45) & "], 

  750.     '                               倉儲明細表.出庫 AS [" & 表頭(46) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 物料規格表.料號原則, 物料規格表.圖檔編號, 

  751.     '                               物料規格表.料號 AS [" & 表頭(77) & "], 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條

  752.     '                       FROM    物料編碼庫 INNER JOIN 物料規格表 ON 物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 INNER JOIN

  753.     '                               物料資訊控制表 ON 物料規格表.料號原則 = 物料資訊控制表.料號原則 AND 物料規格表.群組碼 = 物料資訊控制表.群組碼 INNER JOIN

  754.     '                               規格庫抬頭 ON 物料資訊控制表.規格庫抬頭指定 = 規格庫抬頭.規格庫抬頭指定 RIGHT OUTER JOIN 倉儲明細表 ON 物料規格表.料號 = 倉儲明細表.料號 INNER JOIN

  755.     '                               物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 

  756.     '                               物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼

  757.     '                       WHERE  (倉儲明細表.執行單號 LIKE N'" & 物料轉倉申請.倉儲單號_tb.Text & "') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級3 & "') AND 

  758.     '                              (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')

  759.     '                       GROUP BY    倉儲明細表.資料流水號, 物料編碼庫.原則說明, 倉儲明細表.入庫, 倉儲明細表.出庫, 倉儲明細表.備註, 物料規格表.料號原則, 物料規格表.圖檔編號, 物料編碼庫.單位, 

  760.     '                                   規格庫抬頭.規格庫抬頭指定, 物料規格表.料號, 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條, 物料編碼庫轉語言.品名) AS QQWW 

  761.     '                       ON 倉儲分區控制表.倉名編號 = QQWW.[" & 表頭(14) & "] LEFT OUTER JOIN 物料圖庫 ON QQWW.料號原則 = 物料圖庫.料號原則 

  762.     '                       LEFT OUTER JOIN HX空白圖片 ON QQWW.進度條 = HX空白圖片.選擇

  763.     '            ORDER BY   QQWW.資料流水號"

  764.     '    CmdSet_For_DGV()

  765.     'End Sub

  766.     'Friend Sub SQL_倉儲指定出庫申請_出庫單據()

  767.     '    ConnOpen()

  768.     '    SQL1 = "SELECT 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲分區控制表.倉名 AS [" & 表頭(84) & "], 倉儲分區控制表_1.倉名 AS [" & 表頭(85) & "]

  769.     '            FROM   倉儲明細表 INNER JOIN 倉儲分區控制表 AS 倉儲分區控制表_1 ON 倉儲明細表.備註 = 倉儲分區控制表_1.倉名編號 LEFT OUTER JOIN 倉儲分區控制表 ON 

  770.     '                   倉儲明細表.倉級 = 倉儲分區控制表.倉級 AND 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號

  771.     '            WHERE (倉儲明細表.狀態 LIKE N'指定出庫') AND (倉儲明細表.審核人 LIKE N'') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級3 & "')

  772.     '            GROUP BY 倉儲明細表.執行單號, 倉儲分區控制表.倉名, 倉儲分區控制表_1.倉名

  773.     '            ORDER BY 倉儲明細表.執行單號 DESC"

  774.     '    CmdSet_For_DGV()

  775.     'End Sub

  776.     'Friend Sub SQL_倉儲指定出庫申請_當前倉庫_指定倉名()

  777.     '    ConnOpen() : SQL1 = "SELECT 倉名 FROM 倉儲分區控制表 WHERE (倉級 LIKE N'" & 倉儲倉級3 & "') AND CXL = '0' ORDER BY 倉級, 倉名編號" : CmdSet_For_dr()

  778.     'End Sub

  779.     'Friend Sub SQL_倉儲指定出庫申請_指定倉庫_指定倉名()

  780.     '    ConnOpen() : SQL1 = "SELECT 倉名 FROM 倉儲分區控制表 WHERE (倉級 NOT LIKE N'1') AND CXL = '0' ORDER BY 倉級, 倉名編號" : CmdSet_For_dr()

  781.     'End Sub

  782.     'Friend Sub SQL_倉儲指定出庫申請_倉儲明細表_新增()

  783.     '    ConnOpen()

  784.     '    SQL1 = "INSERT INTO 倉儲明細表 (資料流水號, 執行單號, 倉級, 倉名編號, 料號, 入庫, 出庫, 備註, 狀態, 採購單號, 申請人, 申請日期, 審核人, 審核日期, 倉庫作業, 作業日期, 使用位置) 

  785.     '            VALUES (N'" & PA3 & "',N'" & PA4 & "',N'" & PA5 & "',N'" & PA6 & "',N'" & PA2 & "', N'0',N'" & PA7 & "', N'" & PA8 & "', N'指定出庫', N'', N'" & gUserName & "', 

  786.     '                    N'" & DTP & "', N'', N'', N'', N'', N'')"

  787.     '    CmdSet_For_dr()

  788.     'End Sub

  789.     ''---------------------倉儲指定出庫審核-----------------------------------------------------------------------------------------------------------------

  790.     'Friend Sub SQL_倉儲指定出庫審核_明細()

  791.     '    ConnOpen()

  792.     '    If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If

  793.     '    SQL1 = "SELECT   QQWW.資料流水號, QQWW.[" & 表頭(12) & "], QQWW.[" & 表頭(13) & "], QQWW.[" & 表頭(45) & "], QQWW.[" & 表頭(46) & "], QQWW.[" & 表頭(16) & "],  

  794.     '                     倉儲分區控制表.倉名 AS [" & 表頭(14) & "], QQWW.料號原則, QQWW.圖檔編號, QQWW.[" & 表頭(77) & "], QQWW.規格庫編號 " & 低網 & "

  795.     '            FROM     倉儲分區控制表 RIGHT OUTER JOIN

  796.     '                    (SELECT      倉儲明細表.資料流水號, 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 規格庫抬頭.規格庫抬頭指定 AS [" & 表頭(13) & "], 倉儲明細表.入庫 AS [" & 表頭(45) & "], 

  797.     '                                 倉儲明細表.出庫 AS [" & 表頭(46) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 物料規格表.料號原則, 物料規格表.圖檔編號, 

  798.     '                                 物料規格表.料號 AS [" & 表頭(77) & "], 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條

  799.     '                     FROM        物料編碼庫 INNER JOIN 物料規格表 ON 物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 INNER JOIN

  800.     '                                 物料資訊控制表 ON 物料規格表.料號原則 = 物料資訊控制表.料號原則 AND 物料規格表.群組碼 = 物料資訊控制表.群組碼 INNER JOIN

  801.     '                                 規格庫抬頭 ON 物料資訊控制表.規格庫抬頭指定 = 規格庫抬頭.規格庫抬頭指定 RIGHT OUTER JOIN 倉儲明細表 ON 物料規格表.料號 = 倉儲明細表.料號 INNER JOIN

  802.     '                                 物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼

  803.     '                     WHERE      (倉儲明細表.執行單號 LIKE N'" & 物料轉倉審核.指定出庫單號_tb.Text & "') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級4 & "') AND 

  804.     '                                (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')

  805.     '                     GROUP BY    倉儲明細表.資料流水號, 物料編碼庫.原則說明, 倉儲明細表.入庫, 倉儲明細表.出庫, 倉儲明細表.備註, 物料規格表.料號原則, 物料規格表.圖檔編號, 物料編碼庫.單位, 

  806.     '                                 規格庫抬頭.規格庫抬頭指定, 物料規格表.料號, 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條, 物料編碼庫轉語言.品名) AS QQWW 

  807.     '                     ON 倉儲分區控制表.倉名編號 = QQWW.[" & 表頭(14) & "] LEFT OUTER JOIN 物料圖庫 ON QQWW.料號原則 = 物料圖庫.料號原則 LEFT OUTER JOIN HX空白圖片 ON QQWW.進度條 = HX空白圖片.選擇

  808.     '            ORDER BY   QQWW.資料流水號"

  809.     '    CmdSet_For_DGV()

  810.     'End Sub

  811.     'Friend Sub SQL_倉儲指定出庫審核_單據()

  812.     '    ConnOpen()

  813.     '    SQL1 = "SELECT   倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 倉儲明細表.備註

  814.     '            FROM     倉儲明細表 INNER JOIN 使用者權限管理表 ON 倉儲明細表.申請人 = 使用者權限管理表.姓名 INNER JOIN

  815.     '                            (SELECT          姓名, 帳號, 職稱, 時效, 授權

  816.     '                              FROM               系統跨部門權限表

  817.     '                              WHERE           (姓名 LIKE N'" & gUserName & "') AND (授權 = 1)) AS QQQ ON 

  818.     '                     使用者權限管理表.職稱 = QQQ.職稱 LEFT OUTER JOIN

  819.     '                     倉儲分區控制表 ON 倉儲明細表.倉級 = 倉儲分區控制表.倉級 AND 

  820.     '                     倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號

  821.     '            WHERE   (倉儲明細表.狀態 LIKE N'指定出庫') AND (倉儲明細表.審核人 LIKE N'') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級4 & "')

  822.     '            GROUP BY 倉儲明細表.執行單號, 倉儲分區控制表.倉名, 倉儲明細表.備註"

  823.     '    CmdSet_For_DGV()

  824.     'End Sub

  825.     ''---------------------倉儲指定出庫作業-----------------------------------------------------------------------------------------------------------------

  826.     'Friend Sub SQL_倉儲指定出庫作業_明細()

  827.     '    ConnOpen()

  828.     '    If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If

  829.     '    SQL1 = "SELECT   QQWW.資料流水號, QQWW.[" & 表頭(12) & "], QQWW.[" & 表頭(13) & "], QQWW.[" & 表頭(45) & "], QQWW.[" & 表頭(46) & "], QQWW.[" & 表頭(16) & "],  

  830.     '                     倉儲分區控制表.倉名 AS [" & 表頭(14) & "], 

  831.     '                     QQWW.料號原則, QQWW.圖檔編號, QQWW.[" & 表頭(77) & "], QQWW.規格庫編號 " & 低網 & "

  832.     '            FROM     倉儲分區控制表 RIGHT OUTER JOIN

  833.     '                    (SELECT      倉儲明細表.資料流水號, 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 規格庫抬頭.規格庫抬頭指定 AS [" & 表頭(13) & "], 倉儲明細表.入庫 AS [" & 表頭(45) & "], 

  834.     '                                 倉儲明細表.出庫 AS [" & 表頭(46) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 物料規格表.料號原則, 物料規格表.圖檔編號, 

  835.     '                                 物料規格表.料號 AS [" & 表頭(77) & "], 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條

  836.     '                     FROM        物料編碼庫 INNER JOIN 物料規格表 ON 物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 INNER JOIN

  837.     '                                 物料資訊控制表 ON 物料規格表.料號原則 = 物料資訊控制表.料號原則 AND 物料規格表.群組碼 = 物料資訊控制表.群組碼 INNER JOIN

  838.     '                                 規格庫抬頭 ON 物料資訊控制表.規格庫抬頭指定 = 規格庫抬頭.規格庫抬頭指定 RIGHT OUTER JOIN 倉儲明細表 ON 物料規格表.料號 = 倉儲明細表.料號 INNER JOIN

  839.     '                                 物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼

  840.     '                     WHERE      (倉儲明細表.執行單號 LIKE N'" & 物料轉倉出庫.指定出庫單號_tb.Text & "') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級5 & "') AND 

  841.     '                                (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')

  842.     '                     GROUP BY    倉儲明細表.資料流水號, 物料編碼庫.原則說明, 倉儲明細表.入庫, 倉儲明細表.出庫, 倉儲明細表.備註, 物料規格表.料號原則, 物料規格表.圖檔編號, 物料編碼庫.單位, 

  843.     '                                 規格庫抬頭.規格庫抬頭指定, 物料規格表.料號, 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條, 物料編碼庫轉語言.品名) AS QQWW 

  844.     '                     ON 倉儲分區控制表.倉名編號 = QQWW.[" & 表頭(14) & "] LEFT OUTER JOIN 物料圖庫 ON QQWW.料號原則 = 物料圖庫.料號原則 LEFT OUTER JOIN HX空白圖片 ON QQWW.進度條 = HX空白圖片.選擇

  845.     '            ORDER BY   QQWW.資料流水號"

  846.     '    CmdSet_For_DGV()

  847.     'End Sub

  848.     'Friend Sub SQL_倉儲指定出庫作業_單據()

  849.     '    ConnOpen()

  850.     '    SQL1 = "SELECT 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 倉儲明細表.備註

  851.     '            FROM 倉儲明細表 LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉級 = 倉儲分區控制表.倉級 AND 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號

  852.     '            WHERE (倉儲明細表.狀態 LIKE N'指定出庫') AND (倉儲明細表.審核人 NOT LIKE N'') AND (倉儲明細表.審核人 NOT LIKE N'作廢%') AND (倉儲明細表.倉庫作業 LIKE N'')  AND 

  853.     '                  (倉儲明細表.倉級 LIKE N'" & 倉儲倉級5 & "')

  854.     '            GROUP BY 倉儲明細表.執行單號, 倉儲分區控制表.倉名, 倉儲明細表.備註"

  855.     '    CmdSet_For_DGV()

  856.     'End Sub

  857.     'Friend Sub SQL_倉儲明細表_倉庫指定出庫()

  858.     '    ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 倉庫作業 = N'" & gUserName & "', 作業日期 = N'" & DTP & "' WHERE (執行單號 = N'" & 物料轉倉出庫.指定出庫單號_tb.Text & "')" : CmdSet_For_dr()

  859.     'End Sub

  860.     'Friend Sub SQL_倉儲指定出庫作業_倉儲明細表_新增()

  861.     '    ConnOpen()

  862.     '    SQL1 = "INSERT INTO 倉儲明細表 (資料流水號, 執行單號, 倉級, 倉名編號, 料號, 入庫, 出庫, 備註, 狀態, 採購單號, 申請人, 申請日期, 審核人, 審核日期, 倉庫作業, 作業日期, 使用位置) 

  863.     '            VALUES (N'" & PA3 & "',N'" & PA4 & "',N'" & PA5 & "',N'" & PA6 & "',N'" & PA2 & "',N'" & PA7 & "', N'0', N'" & PA8 & "', N'指定入庫', N'', N'" & gUserName & "', 

  864.     '                    N'" & DTP & "', N'', N'', N'', N'', N'')"

  865.     '    CmdSet_For_dr()

  866.     'End Sub

  867.     ''---------------------倉儲領料申請-----------------------------------------------------------------------------------------------------------------

  868.     'Friend Sub SQL_倉儲領料申請_動態庫存()

  869.     '    ConnOpen()

  870.     '    If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If

  871.     '    SQL1 = "SELECT      QQWW.[" & 表頭(48) & "], 物料群組轉語言.群組 AS [" & 表頭(76) & "], 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], QQWW.[" & 表頭(13) & "], 

  872.     '                        QQWW.A1, QQWW.A2, QQWW.A3, QQWW.A4, QQWW.A5, QQWW.A6, QQWW.A7, QQWW.A8, QQWW.[" & 表頭(77) & "], QQWW.[" & 表頭(78) & "], 

  873.     '                        QQWW.規格庫抬頭指定, QQWW.料號原則, QQWW.圖檔編號, QQWW.[" & 表頭(79) & "], QQWW.[" & 表頭(80) & "], QQWW.[" & 表頭(81) & "], 

  874.     '                        QQWW.[" & 表頭(83) & "], QQWW.[" & 表頭(16) & "], QQWW.[" & 表頭(44) & "], QQWW.規格庫編號, QQWW.進度條, 

  875.     '                        QQWW.[" & 表頭(65) & "] " & 低網 & "

  876.     '            FROM        物料圖庫 RIGHT OUTER JOIN

  877.     '                       (SELECT  倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 物料規格表.群組碼 AS [" & 表頭(76) & "], 

  878.     '                                物料資訊控制表.品名 AS [" & 表頭(12) & "], 物料規格表.A1 AS [" & 表頭(13) & "], 物料規格表.A1, 

  879.     '                                物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 

  880.     '                                物料規格表.A8, 倉儲明細表.料號 AS [" & 表頭(77) & "], SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) AS [" & 表頭(78) & "], 物料資訊控制表.規格庫抬頭指定, 

  881.     '                                物料資訊控制表.料號原則, 物料規格表.圖檔編號, QQ.未入庫 AS [" & 表頭(79) & "], 

  882.     '                                WW.未出庫 AS [" & 表頭(80) & "], WW.未出庫 AS [" & 表頭(81) & "], 

  883.     '                                WW.未出庫 AS [" & 表頭(83) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], HX選擇按鈕.選擇 AS [" & 表頭(44) & "], 

  884.     '                                物料資訊控制表.規格庫編號, 物料資訊控制表.進度條, 物料規格表.最低庫存量 AS [" & 表頭(65) & "]

  885.     '                        FROM    物料編碼庫 INNER JOIN 物料資訊控制表 INNER JOIN 物料規格表 ON 物料資訊控制表.群組碼 = 物料規格表.群組碼 AND 

  886.     '                                物料資訊控制表.料號原則 = 物料規格表.料號原則 ON 物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 RIGHT OUTER JOIN

  887.     '                               (SELECT   SUM(倉儲明細表_2.出庫) AS 未出庫, 倉儲明細表_2.料號

  888.     '                                FROM     倉儲明細表 AS 倉儲明細表_2 LEFT OUTER JOIN 倉儲分區控制表 AS 倉儲分區控制表_2 ON 倉儲明細表_2.倉名編號 = 倉儲分區控制表_2.倉名編號

  889.     '                                WHERE (倉儲明細表_2.倉庫作業 LIKE N'') AND (倉儲明細表_2.審核人 NOT LIKE N'作廢%') AND (倉儲明細表_2.倉級 LIKE N'" & 倉儲倉級6 & "') AND 

  890.     '                                      (倉儲分區控制表_2.倉名 LIKE N'" & 倉儲領料申請.當前倉庫_cb.Text & "')

  891.     '                                GROUP BY    倉儲明細表_2.料號) AS WW 

  892.     '                           RIGHT OUTER JOIN 倉儲明細表 LEFT OUTER JOIN HX選擇按鈕 ON 倉儲明細表.料號 = HX選擇按鈕.對應 ON WW.料號 = 倉儲明細表.料號 LEFT OUTER JOIN

  893.     '                               (SELECT  SUM(倉儲明細表_1.入庫) AS 未入庫, 倉儲明細表_1.料號

  894.     '                                FROM    倉儲明細表 AS 倉儲明細表_1 LEFT OUTER JOIN 倉儲分區控制表 AS 倉儲分區控制表_1 ON 倉儲明細表_1.倉名編號 = 倉儲分區控制表_1.倉名編號

  895.     '                                WHERE  (倉儲明細表_1.倉庫作業 LIKE N'') AND (倉儲明細表_1.審核人 NOT LIKE N'作廢%') AND (倉儲明細表_1.倉級 LIKE N'" & 倉儲倉級6 & "') AND 

  896.     '                                       (倉儲分區控制表_1.倉名 LIKE N'" & 倉儲領料申請.當前倉庫_cb.Text & "')

  897.     '                                GROUP BY    倉儲明細表_1.料號) AS QQ 

  898.     '                           ON 倉儲明細表.料號 = QQ.料號 LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 ON 物料規格表.料號 = 倉儲明細表.料號

  899.     '                        WHERE  (倉儲明細表.倉庫作業 NOT LIKE N'') AND (倉儲明細表.審核人 NOT LIKE N'作廢%') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級6 & "') AND 

  900.     '                               (倉儲分區控制表.倉名 LIKE N'" & 倉儲領料申請.當前倉庫_cb.Text & "') " & PA10 & "

  901.     '                        GROUP BY    倉儲分區控制表.倉名, 物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 

  902.     '                                    物料規格表.群組碼, 物料資訊控制表.品名, 物料資訊控制表.規格庫抬頭指定, 倉儲明細表.料號, 物料資訊控制表.料號原則, 物料規格表.圖檔編號, 

  903.     '                                    QQ.未入庫, WW.未出庫, HX選擇按鈕.選擇, 物料編碼庫.單位, 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條, 物料規格表.最低庫存量

  904.     '                        HAVING     (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) > 0)) AS QQWW 

  905.     '                        ON 物料圖庫.料號原則 = QQWW.料號原則 INNER JOIN

  906.     '                        物料群組轉語言 ON QQWW.[" & 表頭(76) & "] = 物料群組轉語言.群組碼 INNER JOIN

  907.     '                        物料編碼庫轉語言 ON QQWW.料號原則 = 物料編碼庫轉語言.料號原則 AND 

  908.     '                        QQWW.[" & 表頭(76) & "] = 物料編碼庫轉語言.群組碼

  909.     '            WHERE      (物料群組轉語言.語言 LIKE N'" & 系統語言 & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')

  910.     '            ORDER BY   QQWW.[" & 表頭(76) & "], QQWW.[" & 表頭(77) & "]"

  911.     '    CmdSet_For_DGV()

  912.     'End Sub

  913.     'Friend Sub SQL_倉儲領料申請_明細()

  914.     '    ConnOpen()

  915.     '    If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If

  916.     '    SQL1 = "SELECT   QQWW.資料流水號, QQWW.[" & 表頭(12) & "], QQWW.[" & 表頭(13) & "], QQWW.[" & 表頭(45) & "], QQWW.[" & 表頭(46) & "], QQWW.[" & 表頭(16) & "],  QQWW.[" & 表頭(14) & "], 

  917.     '                     QQWW.料號原則, QQWW.圖檔編號, QQWW.[" & 表頭(77) & "], QQWW.規格庫編號 " & 低網 & "

  918.     '            FROM     倉儲分區控制表 RIGHT OUTER JOIN

  919.     '                    (SELECT    倉儲明細表.資料流水號, 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 規格庫抬頭.規格庫抬頭指定 AS [" & 表頭(13) & "], 倉儲明細表.入庫 AS [" & 表頭(45) & "], 

  920.     '                               倉儲明細表.出庫 AS [" & 表頭(46) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 物料規格表.料號原則, 物料規格表.圖檔編號, 

  921.     '                               物料規格表.料號 AS [" & 表頭(77) & "], 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條

  922.     '                     FROM      物料編碼庫 INNER JOIN 物料規格表 ON 物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 INNER JOIN

  923.     '                               物料資訊控制表 ON 物料規格表.料號原則 = 物料資訊控制表.料號原則 AND 物料規格表.群組碼 = 物料資訊控制表.群組碼 INNER JOIN

  924.     '                               規格庫抬頭 ON 物料資訊控制表.規格庫抬頭指定 = 規格庫抬頭.規格庫抬頭指定 RIGHT OUTER JOIN 倉儲明細表 ON 物料規格表.料號 = 倉儲明細表.料號 INNER JOIN

  925.     '                               物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼

  926.     '                     WHERE    (倉儲明細表.執行單號 LIKE N'" & 倉儲領料申請.領料單號_tb.Text & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')

  927.     '                     GROUP BY  倉儲明細表.資料流水號, 物料編碼庫.原則說明, 倉儲明細表.入庫, 倉儲明細表.出庫, 倉儲明細表.備註, 物料規格表.料號原則, 物料規格表.圖檔編號, 物料編碼庫.單位, 

  928.     '                               規格庫抬頭.規格庫抬頭指定, 物料規格表.料號, 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條, 物料編碼庫轉語言.品名) AS QQWW 

  929.     '                     ON 倉儲分區控制表.倉名編號 = QQWW.[" & 表頭(14) & "] LEFT OUTER JOIN 物料圖庫 ON QQWW.料號原則 = 物料圖庫.料號原則 LEFT OUTER JOIN HX空白圖片 ON QQWW.進度條 = HX空白圖片.選擇

  930.     '            ORDER BY   QQWW.資料流水號"

  931.     '    CmdSet_For_DGV()

  932.     'End Sub

  933.     'Friend Sub SQL_倉儲領料申請_單據()

  934.     '    ConnOpen()

  935.     '    SQL1 = "SELECT 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 倉儲明細表.使用位置 AS [" & 表頭(86) & "]

  936.     '            FROM 倉儲明細表 LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉級 = 倉儲分區控制表.倉級 AND 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號

  937.     '            WHERE (倉儲明細表.狀態 LIKE N'領料出庫') AND (倉儲明細表.審核人 LIKE N'') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級6 & "')

  938.     '            GROUP BY   倉儲明細表.執行單號, 倉儲分區控制表.倉名, 倉儲明細表.使用位置

  939.     '            ORDER BY 倉儲明細表.執行單號 DESC"

  940.     '    CmdSet_For_DGV()

  941.     'End Sub

  942.     'Friend Sub SQL_倉儲領料申請_倉級指定倉名()

  943.     '    ConnOpen() : SQL1 = "SELECT 倉名 FROM 倉儲分區控制表 WHERE (倉級 LIKE N'" & 倉儲倉級6 & "') AND CXL = '0' ORDER BY 倉級, 倉名編號" : CmdSet_For_dr()

  944.     'End Sub

  945.     'Friend Sub SQL_倉儲領料申請_倉儲明細表_新增()

  946.     '    ConnOpen()

  947.     '    SQL1 = "INSERT INTO 倉儲明細表 (資料流水號, 執行單號, 倉級, 倉名編號, 料號, 入庫, 出庫, 備註, 狀態, 採購單號, 申請人, 申請日期, 審核人, 審核日期, 倉庫作業, 作業日期, 使用位置) 

  948.     '             VALUES (N'" & PA3 & "',N'" & PA4 & "',N'" & PA5 & "',N'" & PA6 & "',N'" & PA2 & "', N'0',N'" & PA7 & "', N'" & PA8 & "', N'領料出庫', N'', N'" & gUserName & "', 

  949.     '                     N'" & DTP & "', N'', N'', N'', N'', N'" & PA9 & "')"

  950.     '    CmdSet_For_dr()

  951.     'End Sub

  952.     ''---------------------倉儲領料審核-----------------------------------------------------------------------------------------------------------------

  953.     'Friend Sub SQL_倉儲領料審核_明細()

  954.     '    ConnOpen()

  955.     '    If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If

  956.     '    SQL1 = "SELECT   QQWW.資料流水號, QQWW.[" & 表頭(12) & "], QQWW.[" & 表頭(13) & "], QQWW.[" & 表頭(45) & "], QQWW.[" & 表頭(46) & "], QQWW.[" & 表頭(16) & "],  QQWW.[" & 表頭(14) & "], 

  957.     '                     QQWW.料號原則, QQWW.圖檔編號, QQWW.[" & 表頭(77) & "], QQWW.規格庫編號 " & 低網 & "

  958.     '            FROM     倉儲分區控制表 RIGHT OUTER JOIN

  959.     '                    (SELECT    倉儲明細表.資料流水號, 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 規格庫抬頭.規格庫抬頭指定 AS [" & 表頭(13) & "], 倉儲明細表.入庫 AS [" & 表頭(45) & "], 

  960.     '                               倉儲明細表.出庫 AS [" & 表頭(46) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 物料規格表.料號原則, 物料規格表.圖檔編號, 

  961.     '                               物料規格表.料號 AS [" & 表頭(77) & "], 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條

  962.     '                     FROM      物料編碼庫 INNER JOIN 物料規格表 ON 物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 INNER JOIN

  963.     '                               物料資訊控制表 ON 物料規格表.料號原則 = 物料資訊控制表.料號原則 AND 物料規格表.群組碼 = 物料資訊控制表.群組碼 INNER JOIN

  964.     '                               規格庫抬頭 ON 物料資訊控制表.規格庫抬頭指定 = 規格庫抬頭.規格庫抬頭指定 RIGHT OUTER JOIN 倉儲明細表 ON 物料規格表.料號 = 倉儲明細表.料號 INNER JOIN

  965.     '                               物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼

  966.     '                     WHERE    (倉儲明細表.執行單號 LIKE N'" & 倉儲領料審核.執行單號_tb.Text & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')

  967.     '                     GROUP BY  倉儲明細表.資料流水號, 物料編碼庫.原則說明, 倉儲明細表.入庫, 倉儲明細表.出庫, 倉儲明細表.備註, 物料規格表.料號原則, 物料規格表.圖檔編號, 物料編碼庫.單位, 

  968.     '                               規格庫抬頭.規格庫抬頭指定, 物料規格表.料號, 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條, 物料編碼庫轉語言.品名) AS QQWW 

  969.     '                     ON 倉儲分區控制表.倉名編號 = QQWW.[" & 表頭(14) & "] LEFT OUTER JOIN 物料圖庫 ON QQWW.料號原則 = 物料圖庫.料號原則 LEFT OUTER JOIN HX空白圖片 ON QQWW.進度條 = HX空白圖片.選擇

  970.     '            ORDER BY   QQWW.資料流水號"

  971.     '    CmdSet_For_DGV()

  972.     'End Sub

  973.     'Friend Sub SQL_倉儲領料審核_單據()

  974.     '    ConnOpen()

  975.     '    SQL1 = "SELECT   倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 倉儲明細表.使用位置 AS [" & 表頭(86) & "]

  976.     '            FROM     倉儲明細表 INNER JOIN 使用者權限管理表 ON 倉儲明細表.申請人 = 使用者權限管理表.姓名 INNER JOIN

  977.     '                            (SELECT   姓名, 帳號, 職稱, 時效, 授權

  978.     '                              FROM    系統跨部門權限表

  979.     '                              WHERE  (姓名 LIKE N'" & gUserName & "') AND (授權 = 1)) AS QQQ ON 

  980.     '                     使用者權限管理表.職稱 = QQQ.職稱 LEFT OUTER JOIN

  981.     '                     倉儲分區控制表 ON 倉儲明細表.倉級 = 倉儲分區控制表.倉級 AND 

  982.     '                     倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號

  983.     '            WHERE   (倉儲明細表.狀態 LIKE N'領料出庫') AND (倉儲明細表.審核人 LIKE N'')  AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級7 & "')

  984.     '            GROUP BY 倉儲明細表.執行單號, 倉儲分區控制表.倉名, 倉儲明細表.使用位置

  985.     '            ORDER BY 倉儲明細表.執行單號 DESC"

  986.     '    CmdSet_For_DGV()

  987.     'End Sub

  988.     ''---------------------倉儲領料出庫-----------------------------------------------------------------------------------------------------------------

  989.     'Friend Sub SQL_倉儲領料出庫_明細()

  990.     '    ConnOpen()

  991.     '    If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If

  992.     '    SQL1 = "SELECT   QQWW.資料流水號, QQWW.[" & 表頭(12) & "], QQWW.[" & 表頭(13) & "], QQWW.[" & 表頭(45) & "], QQWW.[" & 表頭(46) & "], QQWW.[" & 表頭(16) & "],  QQWW.[" & 表頭(14) & "], 

  993.     '                     QQWW.料號原則, QQWW.圖檔編號, QQWW.[" & 表頭(77) & "], QQWW.規格庫編號 " & 低網 & "

  994.     '            FROM     倉儲分區控制表 RIGHT OUTER JOIN

  995.     '                    (SELECT    倉儲明細表.資料流水號, 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 規格庫抬頭.規格庫抬頭指定 AS [" & 表頭(13) & "], 倉儲明細表.入庫 AS [" & 表頭(45) & "], 

  996.     '                               倉儲明細表.出庫 AS [" & 表頭(46) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 物料規格表.料號原則, 物料規格表.圖檔編號, 

  997.     '                               物料規格表.料號 AS [" & 表頭(77) & "], 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條

  998.     '                     FROM      物料編碼庫 INNER JOIN 物料規格表 ON 物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 INNER JOIN

  999.     '                               物料資訊控制表 ON 物料規格表.料號原則 = 物料資訊控制表.料號原則 AND 物料規格表.群組碼 = 物料資訊控制表.群組碼 INNER JOIN

  1000.     '                               規格庫抬頭 ON 物料資訊控制表.規格庫抬頭指定 = 規格庫抬頭.規格庫抬頭指定 RIGHT OUTER JOIN 倉儲明細表 ON 物料規格表.料號 = 倉儲明細表.料號 INNER JOIN

  1001.     '                               物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼

  1002.     '                     WHERE    (倉儲明細表.執行單號 LIKE N'" & 倉儲領料出庫.執行單號_tb.Text & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')

  1003.     '                     GROUP BY  倉儲明細表.資料流水號, 物料編碼庫.原則說明, 倉儲明細表.入庫, 倉儲明細表.出庫, 倉儲明細表.備註, 物料規格表.料號原則, 物料規格表.圖檔編號, 物料編碼庫.單位, 

  1004.     '                               規格庫抬頭.規格庫抬頭指定, 物料規格表.料號, 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條, 物料編碼庫轉語言.品名) AS QQWW 

  1005.     '                     ON 倉儲分區控制表.倉名編號 = QQWW.[" & 表頭(14) & "] LEFT OUTER JOIN 物料圖庫 ON QQWW.料號原則 = 物料圖庫.料號原則 LEFT OUTER JOIN HX空白圖片 ON QQWW.進度條 = HX空白圖片.選擇

  1006.     '            ORDER BY   QQWW.資料流水號"

  1007.     '    CmdSet_For_DGV()

  1008.     'End Sub

  1009.     'Friend Sub SQL_倉儲領料出庫_單據()

  1010.     '    ConnOpen()

  1011.     '    SQL1 = "SELECT 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 倉儲明細表.使用位置 AS [" & 表頭(86) & "]

  1012.     '            FROM 倉儲明細表 LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉級 = 倉儲分區控制表.倉級 AND 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號

  1013.     '            WHERE (倉儲明細表.狀態 LIKE N'領料出庫') AND (倉儲明細表.審核人 NOT LIKE N'') AND (倉儲明細表.審核人 NOT LIKE N'作廢%') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級8 & "')

  1014.     '            GROUP BY 倉儲明細表.執行單號, 倉儲分區控制表.倉名, 倉儲明細表.使用位置

  1015.     '            ORDER BY 倉儲明細表.執行單號 DESC"

  1016.     '    CmdSet_For_DGV()

  1017.     'End Sub

  1018.     'Friend Sub SQL_倉儲領料出庫_倉庫指定出庫()

  1019.     '    ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 倉庫作業 = N'" & gUserName & "', 作業日期 = N'" & DTP & "' WHERE (執行單號 = N'" & 倉儲領料出庫.執行單號_tb.Text & "')" : CmdSet_For_dr()

  1020.     'End Sub

  1021.     ''---------------------物料退回倉儲作業-----------------------------------------------------------------------------------------------------------------

  1022.     'Friend Sub SQL_物料退回倉儲作業_清單一()

  1023.     '    ConnOpen()

  1024.     '    If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If

  1025.     '    SQL1 = "SELECT 物料編碼庫.群組碼 AS [" & 表頭(11) & "], 物料編碼庫.料號原則 AS [" & 表頭(77) & "], 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 

  1026.     '                   物料編碼庫.群組碼, 物料編碼庫.料號原則 " & 低網 & "

  1027.     '            FROM   物料編碼庫 INNER JOIN 物料圖庫 ON 物料編碼庫.群組碼 = 物料圖庫.群組碼 AND 物料編碼庫.料號原則 = 物料圖庫.料號原則 INNER JOIN

  1028.     '                       物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼

  1029.     '            WHERE  (物料編碼庫.群組碼 LIKE N'" & PA10 & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')

  1030.     '            ORDER BY   [" & 表頭(12) & "], [" & 表頭(77) & "]"

  1031.     '    CmdSet_For_DGV()

  1032.     'End Sub

  1033.     'Friend Sub SQL_物料退回倉儲作業_清單二()

  1034.     '    ConnOpen()

  1035.     '    If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If

  1036.     '    SQL1 = "SELECT 物料編碼庫.群組碼 AS [" & 表頭(11) & "], 物料編碼庫.料號原則 AS [" & 表頭(77) & "], 物料編碼庫.原則說明 AS [" & 表頭(12) & "], 

  1037.     '                   物料編碼庫.群組碼, 物料編碼庫.料號原則 " & 低網 & "

  1038.     '            FROM   物料編碼庫 INNER JOIN 物料圖庫 ON 物料編碼庫.群組碼 = 物料圖庫.群組碼 AND 物料編碼庫.料號原則 = 物料圖庫.料號原則

  1039.     '            WHERE  (物料編碼庫.料號原則 LIKE N'" & PA10 & "%')

  1040.     '            ORDER BY   [" & 表頭(12) & "], [" & 表頭(77) & "]"

  1041.     '    CmdSet_For_DGV()

  1042.     'End Sub

  1043.     'Friend Sub SQL_物料退回倉儲作業_清單三()

  1044.     '    ConnOpen()

  1045.     '    If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If

  1046.     '    SQL1 = "SELECT 物料編碼庫.群組碼 AS [" & 表頭(11) & "], 物料編碼庫.料號原則 AS [" & 表頭(77) & "], 物料編碼庫.原則說明 AS [" & 表頭(12) & "], 

  1047.     '                   物料編碼庫.群組碼, 物料編碼庫.料號原則 " & 低網 & "

  1048.     '            FROM   物料編碼庫 INNER JOIN 物料圖庫 ON 物料編碼庫.群組碼 = 物料圖庫.群組碼 AND 物料編碼庫.料號原則 = 物料圖庫.料號原則

  1049.     '             WHERE  物料編碼庫.群組碼 LIKE N'%" & PA & "%' OR 物料編碼庫.料號原則 LIKE N'%" & PA & "%' OR 物料編碼庫.原則說明 LIKE N'%" & PA & "%'

  1050.     '            ORDER BY   [" & 表頭(12) & "], [" & 表頭(77) & "]"

  1051.     '    CmdSet_For_DGV()

  1052.     'End Sub

  1053.     'Friend Sub SQL_物料退回倉儲作業_明細()

  1054.     '    ConnOpen()

  1055.     '    If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If

  1056.     '    SQL1 = "SELECT   QQWW.資料流水號, QQWW.[" & 表頭(12) & "], QQWW.[" & 表頭(13) & "], QQWW.[" & 表頭(45) & "], QQWW.[" & 表頭(46) & "], QQWW.[" & 表頭(16) & "],  QQWW.[" & 表頭(14) & "], 

  1057.     '                     QQWW.料號原則, QQWW.圖檔編號, QQWW.[" & 表頭(77) & "], QQWW.規格庫編號 " & 低網 & "

  1058.     '            FROM     倉儲分區控制表 RIGHT OUTER JOIN

  1059.     '                    (SELECT    倉儲明細表.資料流水號, 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 規格庫抬頭.規格庫抬頭指定 AS [" & 表頭(13) & "], 倉儲明細表.入庫 AS [" & 表頭(45) & "], 

  1060.     '                               倉儲明細表.出庫 AS [" & 表頭(46) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 物料規格表.料號原則, 物料規格表.圖檔編號, 

  1061.     '                               物料規格表.料號 AS [" & 表頭(77) & "], 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條

  1062.     '                     FROM      物料編碼庫 INNER JOIN 物料規格表 ON 物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 INNER JOIN

  1063.     '                               物料資訊控制表 ON 物料規格表.料號原則 = 物料資訊控制表.料號原則 AND 物料規格表.群組碼 = 物料資訊控制表.群組碼 INNER JOIN

  1064.     '                               規格庫抬頭 ON 物料資訊控制表.規格庫抬頭指定 = 規格庫抬頭.規格庫抬頭指定 RIGHT OUTER JOIN 倉儲明細表 ON 物料規格表.料號 = 倉儲明細表.料號 INNER JOIN

  1065.     '                               物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼

  1066.     '                     WHERE    (倉儲明細表.執行單號 LIKE N'" & 物料退庫.退料單號_tb.Text & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')

  1067.     '                     GROUP BY  倉儲明細表.資料流水號, 物料編碼庫.原則說明, 倉儲明細表.入庫, 倉儲明細表.出庫, 倉儲明細表.備註, 物料規格表.料號原則, 物料規格表.圖檔編號, 物料編碼庫.單位, 

  1068.     '                               規格庫抬頭.規格庫抬頭指定, 物料規格表.料號, 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條, 物料編碼庫轉語言.品名) AS QQWW 

  1069.     '                     ON 倉儲分區控制表.倉名編號 = QQWW.[" & 表頭(14) & "] LEFT OUTER JOIN 物料圖庫 ON QQWW.料號原則 = 物料圖庫.料號原則 LEFT OUTER JOIN HX空白圖片 ON QQWW.進度條 = HX空白圖片.選擇

  1070.     '            ORDER BY   QQWW.資料流水號"

  1071.     '    CmdSet_For_DGV()

  1072.     'End Sub

  1073.     'Friend Sub SQL_物料退回倉儲作業_單據()

  1074.     '    ConnOpen()

  1075.     '    SQL1 = "SELECT 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 倉儲明細表.使用位置 AS [" & 表頭(86) & "]

  1076.     '            FROM 倉儲明細表 LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉級 = 倉儲分區控制表.倉級 AND 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號

  1077.     '            WHERE (倉儲明細表.狀態 LIKE N'退料入庫') AND (倉儲明細表.倉庫作業 LIKE N'') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級9 & "')

  1078.     '            GROUP BY   倉儲明細表.執行單號, 倉儲分區控制表.倉名, 倉儲明細表.使用位置

  1079.     '            ORDER BY 倉儲明細表.執行單號 DESC"

  1080.     '    CmdSet_For_DGV()

  1081.     'End Sub

  1082.     'Friend Sub SQL_物料退回倉儲作業_倉級指定倉名()

  1083.     '    ConnOpen() : SQL1 = "SELECT 倉名 FROM 倉儲分區控制表 WHERE (倉級 LIKE N'" & 倉儲倉級9 & "') AND CXL = '0' ORDER BY 倉級, 倉名編號" : CmdSet_For_dr()

  1084.     'End Sub

  1085.     'Friend Sub SQL_物料退回倉儲作業_SQLB03()

  1086.     '    ConnOpen()

  1087.     '    SQL1 = "SELECT 物料規格表.群組碼, 物料規格表.料號原則, 物料規格表.料號 AS Nomor_Bagian, 物料規格表.圖檔編號, 物料規格表.A1 AS [" & AAA1 & "], 物料規格表.A2 AS [" & AAA2 & "], 

  1088.     '                           物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, HX選擇按鈕.選擇 AS Pilih, 物料編碼庫.原則說明, 

  1089.     '                           物料規格表.群組碼 AS Quantity

  1090.     '                    FROM 物料規格表 LEFT OUTER JOIN 物料編碼庫 ON 物料規格表.群組碼 = 物料編碼庫.群組碼 AND 物料規格表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN

  1091.     '                         HX選擇按鈕 ON 物料規格表.群組碼 = HX選擇按鈕.對應

  1092.     '                    WHERE (物料規格表.料號原則 LIKE N'" & PA2 & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "') ORDER BY 物料規格表.群組碼, 物料規格表.料號原則"

  1093.     '    CmdSet_For_DGV()

  1094.     'End Sub

  1095.     'Friend Sub SQL_物料退回倉儲作業_SQLB04()

  1096.     '    ConnOpen()

  1097.     '    SQL1 = "SELECT 物料規格表.群組碼, 物料規格表.料號原則, 物料規格表.料號 AS Nomor_Bagian, 物料規格表.圖檔編號, 物料規格表.A1 AS [" & AAA1 & "], 物料規格表.A2 AS [" & AAA2 & "], 

  1098.     '                           物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4 AS [" & AAA4 & "], 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, HX選擇按鈕.選擇 AS Pilih, 

  1099.     '                           物料編碼庫.原則說明, 物料規格表.群組碼 AS Quantity

  1100.     '                    FROM 物料規格表 LEFT OUTER JOIN 物料編碼庫 ON 物料規格表.群組碼 = 物料編碼庫.群組碼 AND 物料規格表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN

  1101.     '                         HX選擇按鈕 ON 物料規格表.群組碼 = HX選擇按鈕.對應

  1102.     '                    WHERE (物料規格表.料號原則 LIKE N'" & PA2 & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "') ORDER BY 物料規格表.群組碼, 物料規格表.料號原則"

  1103.     '    CmdSet_For_DGV()

  1104.     'End Sub

  1105.     'Friend Sub SQL_物料退回倉儲作業_SQLB05()

  1106.     '    ConnOpen()

  1107.     '    SQL1 = "SELECT 物料規格表.群組碼, 物料規格表.料號原則, 物料規格表.料號 AS Nomor_Bagian, 物料規格表.圖檔編號, 物料規格表.A1 AS [" & AAA1 & "], 物料規格表.A2 AS [" & AAA2 & "], 

  1108.     '                           物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4 AS [" & AAA4 & "], 物料規格表.A5 AS [" & AAA5 & "], 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 

  1109.     '                           HX選擇按鈕.選擇 AS Pilih, 物料編碼庫.原則說明, 物料規格表.群組碼 AS Quantity

  1110.     '                    FROM 物料規格表 LEFT OUTER JOIN 物料編碼庫 ON 物料規格表.群組碼 = 物料編碼庫.群組碼 AND 物料規格表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN

  1111.     '                         HX選擇按鈕 ON 物料規格表.群組碼 = HX選擇按鈕.對應

  1112.     '                    WHERE (物料規格表.料號原則 LIKE N'" & PA2 & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "') ORDER BY 物料規格表.群組碼, 物料規格表.料號原則"

  1113.     '    CmdSet_For_DGV()

  1114.     'End Sub

  1115.     'Friend Sub SQL_物料退回倉儲作業_SQLB06()

  1116.     '    ConnOpen()

  1117.     '    SQL1 = "SELECT 物料規格表.群組碼, 物料規格表.料號原則, 物料規格表.料號 AS Nomor_Bagian, 物料規格表.圖檔編號, 物料規格表.A1 AS [" & AAA1 & "], 物料規格表.A2 AS [" & AAA2 & "], 

  1118.     '                           物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4 AS [" & AAA4 & "], 物料規格表.A5 AS [" & AAA5 & "], 物料規格表.A6 AS [" & AAA6 & "], 物料規格表.A7, 物料規格表.A8, 

  1119.     '                           HX選擇按鈕.選擇 AS Pilih, 物料編碼庫.原則說明, 物料規格表.群組碼 AS Quantity

  1120.     '                    FROM 物料規格表 LEFT OUTER JOIN 物料編碼庫 ON 物料規格表.群組碼 = 物料編碼庫.群組碼 AND 物料規格表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN

  1121.     '                         HX選擇按鈕 ON 物料規格表.群組碼 = HX選擇按鈕.對應

  1122.     '                    WHERE (物料規格表.料號原則 LIKE N'" & PA2 & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "') ORDER BY 物料規格表.群組碼, 物料規格表.料號原則"

  1123.     '    CmdSet_For_DGV()

  1124.     'End Sub

  1125.     'Friend Sub SQL_物料退回倉儲作業_SQLB07()

  1126.     '    ConnOpen()

  1127.     '    SQL1 = "SELECT 物料規格表.群組碼, 物料規格表.料號原則, 物料規格表.料號 AS Nomor_Bagian, 物料規格表.圖檔編號, 物料規格表.A1 AS [" & AAA1 & "], 物料規格表.A2 AS [" & AAA2 & "], 

  1128.     '                           物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4 AS [" & AAA4 & "], 物料規格表.A5 AS [" & AAA5 & "], 物料規格表.A6 AS [" & AAA6 & "], 物料規格表.A7 AS [" & AAA7 & "], 

  1129.     '                           物料規格表.A8, HX選擇按鈕.選擇 AS Pilih, 物料編碼庫.原則說明, 物料規格表.群組碼 AS Quantity

  1130.     '                    FROM 物料規格表 LEFT OUTER JOIN 物料編碼庫 ON 物料規格表.群組碼 = 物料編碼庫.群組碼 AND 物料規格表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN

  1131.     '                         HX選擇按鈕 ON 物料規格表.群組碼 = HX選擇按鈕.對應

  1132.     '                    WHERE (物料規格表.料號原則 LIKE N'" & PA2 & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "') ORDER BY 物料規格表.群組碼, 物料規格表.料號原則"

  1133.     '    CmdSet_For_DGV()

  1134.     'End Sub

  1135.     'Friend Sub SQL_物料退回倉儲作業_SQLB08()

  1136.     '    ConnOpen()

  1137.     '    SQL1 = "SELECT 物料規格表.群組碼, 物料規格表.料號原則, 物料規格表.料號 AS Nomor_Bagian, 物料規格表.圖檔編號, 物料規格表.A1 AS [" & AAA1 & "], 物料規格表.A2 AS [" & AAA2 & "], 

  1138.     '                           物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4 AS [" & AAA4 & "], 物料規格表.A5 AS [" & AAA5 & "], 物料規格表.A6 AS [" & AAA6 & "], 物料規格表.A7 AS [" & AAA7 & "], 

  1139.     '                           物料規格表.A8 AS [" & AAA8 & "], HX選擇按鈕.選擇 AS Pilih, 物料編碼庫.原則說明, 物料規格表.群組碼 AS Quantity

  1140.     '                    FROM 物料規格表 LEFT OUTER JOIN 物料編碼庫 ON 物料規格表.群組碼 = 物料編碼庫.群組碼 AND 物料規格表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN

  1141.     '                         HX選擇按鈕 ON 物料規格表.群組碼 = HX選擇按鈕.對應

  1142.     '                    WHERE (物料規格表.料號原則 LIKE N'" & PA2 & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "') ORDER BY 物料規格表.群組碼, 物料規格表.料號原則"

  1143.     '    CmdSet_For_DGV()

  1144.     'End Sub

  1145.     'Friend Sub SQL_物料退回倉儲作業_倉儲明細表_新增()

  1146.     '    ConnOpen()

  1147.     '    SQL1 = "INSERT INTO 倉儲明細表 (資料流水號, 執行單號, 倉級, 倉名編號, 料號, 入庫, 出庫, 備註, 狀態, 採購單號, 申請人, 申請日期, 審核人, 審核日期, 倉庫作業, 作業日期, 使用位置) 

  1148.     '            VALUES (N'" & PA3 & "',N'" & PA4 & "',N'" & PA5 & "',N'" & PA6 & "',N'" & PA2 & "',N'" & PA7 & "', N'0', N'" & PA8 & "', N'退料入庫', N'', N'" & gUserName & "', 

  1149.     '                    N'" & DTP & "', N'', N'', N'', N'', N'" & PA9 & "')"

  1150.     '    CmdSet_For_dr()

  1151.     'End Sub

  1152.     ''---------------------盤盈盤損申請-----------------------------------------------------------------------------------------------------------------

  1153.     'Friend Sub SQL_盤盈盤損申請_明細()

  1154.     '    ConnOpen()

  1155.     '    If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If

  1156.     '    SQL1 = "SELECT      倉儲明細表.資料流水號, 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 物料規格表.A1 AS [" & 表頭(13) & "], 

  1157.     '                        倉儲明細表.入庫 AS [" & 表頭(45) & "], 倉儲明細表.出庫 AS [" & 表頭(46) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 

  1158.     '                        物料規格表.群組碼, 物料規格表.料號原則, 物料規格表.圖檔編號, 物料資訊控制表.規格庫抬頭指定, 物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 

  1159.     '                        物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 物料資訊控制表.規格庫編號 " & 低網 & "

  1160.     '            FROM        物料編碼庫 INNER JOIN 物料圖庫 INNER JOIN 物料規格表 ON 物料圖庫.群組碼 = 物料規格表.群組碼 AND 物料圖庫.料號原則 = 物料規格表.料號原則 ON 

  1161.     '                        物料編碼庫.料號原則 = 物料規格表.料號原則 INNER JOIN 物料資訊控制表 ON 物料規格表.料號原則 = 物料資訊控制表.料號原則 RIGHT OUTER JOIN

  1162.     '                        倉儲明細表 ON 物料規格表.料號 = 倉儲明細表.料號 AND 物料規格表.料號 = 倉儲明細表.料號 INNER JOIN

  1163.     '                        物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼

  1164.     '            WHERE      (倉儲明細表.執行單號 LIKE N'" & PA20 & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')

  1165.     '            ORDER BY    倉儲明細表.資料流水號"

  1166.     '    CmdSet_For_DGV()

  1167.     'End Sub

  1168.     'Friend Sub SQL_盤盈盤損申請_單據()

  1169.     '    ConnOpen()

  1170.     '    SQL1 = "SELECT 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲分區控制表.倉名 AS [" & 表頭(48) & "]

  1171.     '            FROM 倉儲明細表 LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉級 = 倉儲分區控制表.倉級 AND 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號

  1172.     '            WHERE (倉儲明細表.狀態 LIKE N'盤%') AND (倉儲明細表.倉庫作業 LIKE N'')

  1173.     '            GROUP BY 倉儲明細表.執行單號, 倉儲分區控制表.倉名"

  1174.     '    CmdSet_For_DGV()

  1175.     'End Sub

  1176.     'Friend Sub SQL_盤盈盤損申請_倉儲明細表_盤盈入庫新增()

  1177.     '    ConnOpen()

  1178.     '    SQL1 = "INSERT INTO 倉儲明細表 (資料流水號, 執行單號, 倉級, 倉名編號, 料號, 入庫, 出庫, 備註, 狀態, 採購單號, 申請人, 申請日期, 審核人, 審核日期, 倉庫作業, 作業日期, 使用位置) 

  1179.     '            VALUES (N'" & PA3 & "',N'" & PA4 & "',N'" & PA5 & "',N'" & PA6 & "',N'" & PA2 & "',N'" & NU1 & "', N'0', N'', N'盤盈入庫', N'', N'" & gUserName & "', 

  1180.     '                    N'" & DTP & "', N'', N'', N'', N'', N'')"

  1181.     '    CmdSet_For_dr()

  1182.     'End Sub

  1183.     'Friend Sub SQL_盤盈盤損申請_倉儲明細表_盤損出庫新增()

  1184.     '    ConnOpen()

  1185.     '    SQL1 = "INSERT INTO 倉儲明細表 (資料流水號, 執行單號, 倉級, 倉名編號, 料號, 入庫, 出庫, 備註, 狀態, 採購單號, 申請人, 申請日期, 審核人, 審核日期, 倉庫作業, 作業日期, 使用位置) 

  1186.     '            VALUES (N'" & PA3 & "',N'" & PA4 & "',N'" & PA5 & "',N'" & PA6 & "',N'" & PA2 & "', N'0',N'" & NU2 & "', N'', N'盤損出庫', N'', N'" & gUserName & "', 

  1187.     '                    N'" & DTP & "', N'', N'', N'', N'', N'')"

  1188.     '    CmdSet_For_dr()

  1189.     'End Sub

  1190.     'Friend Sub SQL_盤盈盤損申請_倉儲明細表_刪除()

  1191.     '    ConnOpen()

  1192.     '    SQL1 = "DELETE 倉儲明細表 (資料流水號, 執行單號, 倉級, 倉名編號, 料號, 入庫, 出庫, 備註, 狀態, 採購單號, 申請人, 申請日期, 審核人, 審核日期, 倉庫作業, 作業日期, 使用位置) 

  1193.     '            VALUES (N'" & PA3 & "',N'" & PA4 & "',N'" & PA5 & "',N'" & PA6 & "',N'" & PA2 & "', N'0',N'" & NU2 & "', N'', N'盤損出庫', N'', N'" & gUserName & "', 

  1194.     '                    N'" & DTP & "', N'', N'', N'', N'', N'')"

  1195.     '    CmdSet_For_dr()

  1196.     'End Sub

  1197.     ''---------------------盤盈盤損審核-----------------------------------------------------------------------------------------------------------------

  1198.     'Friend Sub SQL_盤盈盤損審核_清單()

  1199.     '    ConnOpen()

  1200.     '    If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If

  1201.     '    If 盤盈盤損審核.同級別全資料_ch.Checked = False Then

  1202.     '        SQL1 = "SELECT  WWEE.資料流水號, WWEE.[" & 表頭(47) & "], WWEE.倉級, WWEE.[" & 表頭(48) & "], WWEE.料號, WWEE.[" & 表頭(12) & "], WWEE.[" & 表頭(13) & "], 

  1203.     '                        WWEE.[" & 表頭(45) & "], WWEE.出庫 AS [" & 表頭(46) & "], WWEE.[" & 表頭(16) & "], WWEE.[" & 表頭(14) & "], WWEE.狀態 AS [" & 表頭(71) & "], 

  1204.     '                        WWEE.採購單號 AS [" & 表頭(24) & "], 

  1205.     '                        WWEE.申請人, WWEE.申請日期, WWEE.審核人, WWEE.審核日期, WWEE.倉庫作業, WWEE.作業日期, WWEE.[" & 表頭(44) & "], WWEE.圖檔編號, WWEE.料號原則, 

  1206.     '                        WWEE.規格庫編號, WWEE.規格庫抬頭指定 " & 低網 & "

  1207.     '                 FROM   物料圖庫 INNER JOIN

  1208.     '                       (SELECT    倉儲明細表.資料流水號, 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲明細表.倉級, 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 

  1209.     '                                  倉儲明細表.料號, 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 採購單明細表.規格 AS [" & 表頭(13) & "], 倉儲明細表.入庫 AS [" & 表頭(45) & "], 

  1210.     '                                  倉儲明細表.出庫, 物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 倉儲明細表.狀態, 

  1211.     '                                  倉儲明細表.採購單號, 倉儲明細表.申請人, 倉儲明細表.申請日期, 倉儲明細表.審核人, 倉儲明細表.審核日期, 倉儲明細表.倉庫作業, 

  1212.     '                                  倉儲明細表.作業日期, HX選擇按鈕.選擇 AS [" & 表頭(44) & "], 物料規格表.圖檔編號, 物料規格表.料號原則, 物料資訊控制表.規格庫編號, 

  1213.     '                                  物料資訊控制表.規格庫抬頭指定, 物料規格表.群組碼

  1214.     '                        FROM      物料編碼庫 INNER JOIN 物料規格表 ON 物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 INNER JOIN 物料資訊控制表 ON 

  1215.     '                                  物料規格表.群組碼 = 物料資訊控制表.群組碼 AND 物料規格表.料號原則 = 物料資訊控制表.料號原則 RIGHT OUTER JOIN 倉儲明細表 ON 物料規格表.料號 = 倉儲明細表.料號 

  1216.     '                                  LEFT OUTER JOIN 採購單明細表 ON 倉儲明細表.料號 = 採購單明細表.料號 LEFT OUTER JOIN HX選擇按鈕 ON 倉儲明細表.資料流水號 = HX選擇按鈕.對應 

  1217.     '                                  LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉級 = 倉儲分區控制表.倉級 AND 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 INNER JOIN

  1218.     '                                  物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼

  1219.     '                        WHERE    (倉儲明細表.倉庫作業 LIKE N'') AND (倉儲明細表.倉級 LIKE N'" & 盤盈盤損審核.倉庫級別_tb.Text & "') AND 

  1220.     '                                 (倉儲分區控制表.倉名 LIKE N'" & 盤盈盤損審核.指定倉庫_cb.Text & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') AND 

  1221.     '                                 (倉儲明細表.狀態 LIKE N'盤%')

  1222.     '                        GROUP BY  倉儲明細表.資料流水號, 倉儲明細表.執行單號, 倉儲明細表.倉級, 倉儲分區控制表.倉名, 倉儲明細表.料號, 物料資訊控制表.品名, 採購單明細表.規格, 

  1223.     '                                  倉儲明細表.入庫, 倉儲明細表.出庫, 倉儲明細表.備註, 倉儲明細表.狀態, 倉儲明細表.採購單號, 倉儲明細表.申請人, 倉儲明細表.申請日期, 倉儲明細表.審核人, 

  1224.     '                                  倉儲明細表.審核日期, 倉儲明細表.倉庫作業, 倉儲明細表.作業日期, HX選擇按鈕.選擇, 物料規格表.圖檔編號, 物料規格表.料號原則, 物料編碼庫.單位, 

  1225.     '                                  物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定, 物料規格表.群組碼, 物料編碼庫轉語言.品名) AS WWEE ON 

  1226.     '                        物料圖庫.群組碼 = WWEE.群組碼 AND 物料圖庫.料號原則 = WWEE.料號原則

  1227.     '                ORDER BY   WWEE.[" & 表頭(48) & "], WWEE.資料流水號"

  1228.     '    Else

  1229.     '        SQL1 = "SELECT  WWEE.資料流水號, WWEE.[" & 表頭(47) & "], WWEE.倉級, WWEE.[" & 表頭(48) & "], WWEE.料號, WWEE.[" & 表頭(12) & "], WWEE.[" & 表頭(13) & "], WWEE.[" & 表頭(45) & "], 

  1230.     '                        WWEE.出庫 AS [" & 表頭(46) & "], WWEE.[" & 表頭(16) & "], WWEE.[" & 表頭(14) & "], WWEE.狀態 AS [" & 表頭(71) & "], WWEE.採購單號 AS [" & 表頭(24) & "], WWEE.申請人, 

  1231.     '                        WWEE.申請日期, WWEE.審核人, WWEE.審核日期, WWEE.倉庫作業, WWEE.作業日期, WWEE.[" & 表頭(44) & "], WWEE.圖檔編號, WWEE.料號原則, WWEE.規格庫編號, 

  1232.     '                        WWEE.規格庫抬頭指定 " & 低網 & "

  1233.     '                 FROM   物料圖庫 INNER JOIN

  1234.     '                       (SELECT    倉儲明細表.資料流水號, 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲明細表.倉級, 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 

  1235.     '                                  倉儲明細表.料號, 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 採購單明細表.規格 AS [" & 表頭(13) & "], 倉儲明細表.入庫 AS [" & 表頭(45) & "], 

  1236.     '                                  倉儲明細表.出庫, 物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 倉儲明細表.狀態, 

  1237.     '                                  倉儲明細表.採購單號, 倉儲明細表.申請人, 倉儲明細表.申請日期, 倉儲明細表.審核人, 倉儲明細表.審核日期, 倉儲明細表.倉庫作業, 

  1238.     '                                  倉儲明細表.作業日期, HX選擇按鈕.選擇 AS [" & 表頭(44) & "], 物料規格表.圖檔編號, 物料規格表.料號原則, 物料資訊控制表.規格庫編號, 

  1239.     '                                  物料資訊控制表.規格庫抬頭指定, 物料規格表.群組碼

  1240.     '                        FROM      物料編碼庫 INNER JOIN 物料規格表 ON 物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 INNER JOIN 物料資訊控制表 ON 

  1241.     '                                  物料規格表.群組碼 = 物料資訊控制表.群組碼 AND 物料規格表.料號原則 = 物料資訊控制表.料號原則 RIGHT OUTER JOIN 倉儲明細表 ON 物料規格表.料號 = 倉儲明細表.料號 

  1242.     '                                  LEFT OUTER JOIN 採購單明細表 ON 倉儲明細表.料號 = 採購單明細表.料號 LEFT OUTER JOIN HX選擇按鈕 ON 倉儲明細表.資料流水號 = HX選擇按鈕.對應 

  1243.     '                                  LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉級 = 倉儲分區控制表.倉級 AND 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 INNER JOIN

  1244.     '                                  物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼

  1245.     '                        WHERE    (倉儲明細表.倉庫作業 LIKE N'') AND (倉儲明細表.倉級 LIKE N'" & 盤盈盤損審核.倉庫級別_tb.Text & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') AND 

  1246.     '                                 (倉儲明細表.狀態 LIKE N'盤%')

  1247.     '                        GROUP BY  倉儲明細表.資料流水號, 倉儲明細表.執行單號, 倉儲明細表.倉級, 倉儲分區控制表.倉名, 倉儲明細表.料號, 物料資訊控制表.品名, 採購單明細表.規格, 

  1248.     '                                  倉儲明細表.入庫, 倉儲明細表.出庫, 倉儲明細表.備註, 倉儲明細表.狀態, 倉儲明細表.採購單號, 倉儲明細表.申請人, 倉儲明細表.申請日期, 倉儲明細表.審核人, 

  1249.     '                                  倉儲明細表.審核日期, 倉儲明細表.倉庫作業, 倉儲明細表.作業日期, HX選擇按鈕.選擇, 物料規格表.圖檔編號, 物料規格表.料號原則, 物料編碼庫.單位, 

  1250.     '                                  物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定, 物料規格表.群組碼, 物料編碼庫轉語言.品名) AS WWEE ON 

  1251.     '                        物料圖庫.群組碼 = WWEE.群組碼 AND 物料圖庫.料號原則 = WWEE.料號原則

  1252.     '                ORDER BY   WWEE.[" & 表頭(48) & "], WWEE.資料流水號"

  1253.     '    End If

  1254.     '    CmdSet_For_DGV()

  1255.     'End Sub

  1256.     'Friend Sub SQL_倉儲明細表_盤盈盤損審核作業()

  1257.     '    ConnOpen()

  1258.     '    SQL1 = "UPDATE 倉儲明細表 SET 審核人 =  N'" & gUserName & "',審核日期 = N'" & DTP & "', 倉庫作業 = N'" & gUserName & "', 作業日期 = N'" & DTP & "' WHERE (資料流水號 LIKE N'" & PA8 & "')"

  1259.     '    CmdSet_For_dr()

  1260.     'End Sub

  1261. End Module