HX-PGS-ERP-SYS
/
HX-PGS-ERP-SYS-SIU
關註 4
收藏 0
複製 0
程式碼 問題管理 0 合併請求 0 版本發佈 0 Wiki Activity
暫無描述
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.
1 Commit
1 分支
分支: master
分支列表 標籤列表
${ item.name }
Create branch ${ searchTerm }
from 'master'
${ noResults }
HX-PGS-ERP-SYS-SIU/0、MyModule/主資料庫/SQL_跨介面共用.vb

SQL_跨介面共用.vb 59KB
永久連結 文件歷史 原始文件

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693 
  1. Module SQL_跨介面共用

  2.     Friend Sub SQL_圖片資料庫查詢()

  3.         ConnOpen_工程SQL() : SQL1 = "SELECT TOP (1) 工程圖片資料庫, 是否可用 FROM 工程圖片資料庫管理 WHERE 是否可用 = 0 ORDER BY 工程圖片資料庫" : CmdSet_For_dr()

  4.     End Sub

  5.     Friend Sub SQL_文件資料庫查詢()

  6.         ConnOpen_工程SQL() : SQL1 = "SELECT TOP (1) 工程文件資料庫, 是否可用 FROM 工程文件資料庫管理 WHERE 是否可用 = 0 ORDER BY 工程文件資料庫" : CmdSet_For_dr()

  7.     End Sub

  8.     Friend Sub SQL_倉儲明細表_備註修改_使用位置1()

  9.         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 備註 = N'" & PA & "' WHERE (資料流水號 = N'" & PA1 & "')" : CmdSet_For_dr()

  10.     End Sub

  11.     Friend Sub SQL_加權平均()

  12.         ConnOpen() : SQL1 = "SELECT  料號, SUM(數量 * 單價) / SUM(數量) AS 單價  FROM  採購單明細表  WHERE (料號 LIKE  N'" & PA & "') AND  單價 > 0  GROUP BY  料號 " : CmdSet_For_DGV()

  13.     End Sub

  14.     Friend Sub SQL_採購資料()

  15.         ConnOpen()

  16.         SQL1 = "SELECT    採購單明細表.合約號, 合約控制表.工程名稱_英, 合約控制表.工程名稱_中, 採購單明細表.申請人

  17.                 FROM      採購單控制表 INNER JOIN 採購單明細表 ON 採購單控制表.採購單號 = 採購單明細表.採購單號 INNER JOIN 合約控制表 ON 採購單明細表.合約號 = 合約控制表.合約編號

  18.                 WHERE    (採購單控制表.採購單號 LIKE '" & PA38 & "')  GROUP BY   採購單明細表.合約號, 合約控制表.工程名稱_英, 合約控制表.工程名稱_中, 採購單明細表.申請人, 

  19.                           採購單控制表.採購單號

  20.                 ORDER BY  採購單控制表.採購單號 DESC"

  21.         CmdSet_For_DGV()

  22.     End Sub

  23.     Friend Sub SQL_最近日期()

  24.         ConnOpen() : SQL1 = "SELECT   TOP(1) 採購單明細表.料號, 採購單明細表.單價

  25.                              FROM     採購單明細表 RIGHT OUTER Join 採購單控制表 ON 採購單明細表.採購單號 = 採購單控制表.採購單號

  26.                              WHERE    (料號 LIKE  N'" & PA & "') AND  單價 > 0

  27.                              ORDER BY 採購單控制表.核准日期  DESC "

  28.         CmdSet_For_DGV()

  29.     End Sub

  30.     Friend Sub SQL_FTP資料夾路徑分配()

  31.         ConnOpen() : SQL1 = "SELECT 資料夾名稱, 指定頁面, 備註, 指定 FROM FTP資料夾管理 ORDER BY 指定" : CmdSet_For_DGV()

  32.     End Sub

  33.     Friend Sub SQL_系統使用者卡號讀取()

  34.         ConnOpen() : SQL1 = "SELECT 姓名, 級別, ID卡號, 部門 FROM 使用者權限管理表 ORDER BY 級別, ID卡號 DESC" : CmdSet_For_DGV()

  35.     End Sub

  36.     Friend Sub SQL_系統使用者名稱修改()

  37.         ConnOpen() : SQL1 = "UPDATE  使用者權限管理表  SET  姓名 = N'" & PA1 & "' WHERE ID卡號 LIKE N'" & PA2 & "'" : CmdSet_For_dr()

  38.     End Sub

  39.     Friend Sub SQL_系統版本號驗證()

  40.         ConnOpen() : SQL1 = "SELECT 系統認證版本號 FROM 版本號管理 " : CmdSet_For_dr()

  41.     End Sub

  42.     Friend Sub SQL_指定倉庫_下拉表單()

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

  44.     End Sub

  45.     Friend Sub SQL_系統語言導入()

  46.         ConnOpen()

  47.         SQL1 = "SELECT 控件, 內容 FROM 系統介面語言 WHERE (編碼 LIKE N'" & 介面 & "') AND (語言 LIKE N'" & 系統語言 & "') ORDER BY 控件"

  48.         CmdSet_For_DGV()

  49.     End Sub

  50.     Friend Sub SQL_系統預設值()

  51.         ConnOpen() : SQL1 = "SELECT 密碼重設天數, 行政採購二級, 建築採購二級, 比例1, 比例2, 比例3, 圖片伺服器上限 FROM 系統預設值" : CmdSet_For_dr()

  52.     End Sub

  53.     Friend Sub SQL_系統語言()

  54.         ConnOpen() : SQL1 = "SELECT 語言 FROM 系統介面語言 GROUP BY 語言 ORDER BY 語言 DESC" : CmdSet_For_dr()

  55.     End Sub

  56.     Friend Sub SQL_系統閒置時間設定讀取()

  57.         ConnOpen() : SQL1 = "SELECT timeExit, timeExit2 FROM 系統閒置時間設定" : CmdSet_For_dr()

  58.     End Sub

  59.     Friend Sub SQL_指定倉儲_資料讀取()

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

  61.     End Sub

  62.     Friend Sub SQL_倉名_下拉清單()

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

  64.     End Sub

  65.     Friend Sub SQL_物料圖庫_圖檔讀取()

  66.         ConnOpen() : SQL1 = "SELECT 圖檔 FROM 物料圖庫 WHERE 群組碼 LIKE N'" & PA1 & "' AND 料號原則  LIKE N'" & PA2 & "'" : CmdSet_For_dr()

  67.     End Sub

  68.     Friend Sub SQL_物料圖庫_群組圖檔()

  69.         ConnOpen() : SQL1 = "SELECT  圖片  FROM  物料群組  WHERE  (群組碼 LIKE '" & PA49 & "')" : CmdSet_For_dr()

  70.     End Sub

  71.     Friend Sub SQL_物料圖庫_圖檔讀取一()

  72.         ConnOpen() : SQL1 = "SELECT 圖檔 FROM 物料圖庫 WHERE 料號原則 LIKE N'" & PA2 & "'" : CmdSet_For_dr()

  73.     End Sub

  74.     Friend Sub SQL_物料圖庫_圖檔讀取二()

  75.         ConnOpen() : SQL1 = "SELECT 圖檔 FROM 物料圖庫 WHERE 圖片流水號 LIKE N'" & PA3 & "'" : CmdSet_For_dr()

  76.     End Sub

  77.     Friend Sub SQL_物料圖庫_圖檔讀取三()

  78.         ConnOpen() : SQL1 = "SELECT 圖檔 FROM 物料圖庫 WHERE 圖片流水號 LIKE N'" & PA3 & "'" : CmdSet_For_DGV()

  79.     End Sub

  80.     Friend Sub SQL_物料圖庫_圖檔讀取四()

  81.         ConnOpen() : SQL1 = "SELECT 圖片 FROM 物料群組 WHERE 群組碼 LIKE N'" & PA3 & "'" : CmdSet_For_DGV()

  82.     End Sub

  83.     Friend Sub SQL_供應商資料表_公司名_下拉用()

  84.         ConnOpen() : SQL1 = "SELECT 公司名 FROM 供應商資料表 WHERE 供應商簡稱 LIKE N'%" & PA & "%' " & SQL2 & "  ORDER BY 公司名" : CmdSet_For_dr()

  85.     End Sub

  86.     Friend Sub SQL_主管簽名檔管理_圖片流水號()

  87.         ConnOpen() : SQL1 = "SELECT 簽名檔圖片 FROM HX主管簽名檔管理 WHERE 圖片流水號 LIKE N'" & PA1 & "'" : CmdSet_For_dr()

  88.     End Sub

  89.     Friend Sub SQL_主管簽名檔讀取()

  90.         ConnOpen() : SQL1 = "SELECT 簽名檔圖片 FROM HX主管簽名檔管理 WHERE 簽名檔人名 LIKE N'" & PA1 & "'" : CmdSet_For_dr()

  91.     End Sub

  92.     Friend Sub SQL_規格庫抬頭讀取()

  93.         ConnOpen() : SQL1 = "SELECT 規格庫抬頭指定, A1, A2, A3, A4, A5, A6, A7, A8 FROM 規格庫抬頭 WHERE 規格庫抬頭指定 LIKE N'" & PA3 & "' AND 語言 LIKE N'" & 系統語言 & "'" : CmdSet_For_dr()

  94.     End Sub

  95.     Friend Sub SQL_規格庫抬頭讀取_列印用()

  96.         ConnOpen() : SQL1 = "SELECT 規格庫抬頭指定, A1, A2, A3, A4, A5, A6, A7, A8 FROM 規格庫抬頭 WHERE 規格庫抬頭指定 LIKE N'" & PA3 & "' AND 語言 LIKE N'" & PA20 & "'" : CmdSet_For_dr()

  97.     End Sub

  98.     Friend Sub SQL_規格庫抬頭讀取二()

  99.         ConnOpen() : SQL1 = "SELECT A1, A2, A3, A4, A5, A6, A7, A8 FROM 物料規格表 WHERE 料號 LIKE N'" & PA4 & "'" : CmdSet_For_DGV()

  100.     End Sub

  101.     Friend Sub SQL_規格庫抬頭讀取三()

  102.         ConnOpen() : SQL1 = "SELECT 規格庫抬頭指定 AS [" & 表頭(67) & "], A1, A2, A3, A4, A5, A6, A7, A8, 語言 AS LG FROM  規格庫抬頭 ORDER BY 規格庫抬頭指定, 語言 DESC" : CmdSet_For_DGV()

  103.     End Sub

  104.     Friend Sub SQL_年份清單_下拉清單()

  105.         ConnOpen() : SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC" : CmdSet_For_dr()

  106.     End Sub

  107.     Friend Sub SQL_倉儲明細執行單號_刪除()

  108.         ConnOpen() : SQL1 = "DELETE FROM 倉儲明細執行單號 WHERE (執行單號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()

  109.     End Sub

  110.     Friend Sub SQL_倉儲明細表_刪除()

  111.         ConnOpen() : SQL1 = "DELETE FROM 倉儲明細表 WHERE (執行單號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()

  112.     End Sub

  113.     Friend Sub SQL_倉儲明細表_刪除二()

  114.         ConnOpen() : SQL1 = "DELETE FROM 倉儲明細表 WHERE (資料流水號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()

  115.     End Sub

  116.     Friend Sub SQL_倉儲明細執行單號_執行單號驗證()

  117.         ConnOpen() : SQL1 = "SELECT 執行單號 FROM 倉儲明細執行單號 WHERE (執行單號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()

  118.     End Sub

  119.     Friend Sub SQL_倉儲明細執行單號_新增()

  120.         ConnOpen() : SQL1 = "INSERT INTO 倉儲明細執行單號 (執行單號) VALUES (N'" & PA1 & "')" : CmdSet_For_dr()

  121.     End Sub

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

  123.         ConnOpen() : SQL1 = "SELECT TOP (1) 資料流水號 FROM 倉儲明細表 ORDER BY 資料流水號 DESC" : CmdSet_For_dr()

  124.     End Sub

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

  126.         ConnOpen() : SQL1 = " SELECT  料號

  127.                               FROM 物料規格表 

  128.                               WHERE (料號 LIKE N'" & PA & "')"

  129.         CmdSet_For_dr()

  130.     End Sub

  131.     Friend Sub SQL_請購單明細表_刪除一筆資料()

  132.         ConnOpen() : SQL1 = "DELETE FROM 請購單明細表 WHERE (料號 LIKE N'" & PA & "')" : CmdSet_For_dr()

  133.     End Sub

  134.     Friend Sub SQL_倉儲明細表_備註修改()

  135.         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 備註 = N'" & PA10 & "' WHERE (資料流水號 LIKE N'" & PA11 & "')" : CmdSet_For_dr()

  136.     End Sub

  137.     Friend Sub SQL_倉儲明細表_確認單據是否申請()

  138.         ConnOpen() : SQL1 = "SELECT 料號 FROM 倉儲明細表 WHERE 執行單號 LIKE N'" & PA1 & "' AND 料號 LIKE N'" & PA2 & "'" : CmdSet_For_dr()

  139.     End Sub

  140.     Friend Sub SQL_倉儲明細表_審核確認()

  141.         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 審核人 = N'" & gUserName & "', 審核日期 = N'" & DTP & "' WHERE (執行單號 = N'" & PA10 & "')" : CmdSet_For_dr()

  142.         ConnOpen() : SQL1 = "UPDATE 倉儲明細執行單號 SET 車號 = N'" & PA12 & "', 司機 = N'" & PA13 & "' WHERE (執行單號 = N'" & PA10 & "')" : CmdSet_For_dr()

  143.     End Sub

  144.     Friend Sub SQL_倉儲明細表_審核作廢()

  145.         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 審核人 = N'作廢-" & gUserName & "', 審核日期 = N'" & DTP & "' WHERE (執行單號 = N'" & PA10 & "')" : CmdSet_For_dr()

  146.     End Sub

  147.     Friend Sub SQL_倉庫資料查詢一()

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

  149.     End Sub

  150.     Friend Sub SQL_倉儲領料申請_使用工地()

  151.         ConnOpen() : SQL1 = "SELECT  約號甲方  FROM  合約控制表  GROUP BY  約號甲方  ORDER BY  約號甲方" : CmdSet_For_dr()

  152.     End Sub

  153.     Friend Sub SQL_群組碼_下拉清單()

  154.         ConnOpen() : SQL1 = "SELECT  群組碼 FROM 物料群組 ORDER BY 群組碼" : CmdSet_For_dr()

  155.     End Sub

  156.     Friend Sub SQL_料號原則前二_下拉清單()

  157.         ConnOpen() : SQL1 = "SELECT LEFT(料號原則, 2) AS 原則前二 FROM 物料編碼庫 GROUP BY LEFT(料號原則, 2)" : CmdSet_For_dr()

  158.     End Sub

  159.     Friend Sub SQL_料號原則中段_下拉清單()

  160.         ConnOpen()

  161.         SQL1 = "SELECT REVERSE(SUBSTRING(REVERSE(SUBSTRING(料號原則, 4, 50)), 6, 50)) AS 原則中段

  162.                 FROM 物料編碼庫

  163.                 WHERE (LEFT(料號原則, 2) LIKE N'" & PA9 & "')

  164.                 GROUP BY   REVERSE(SUBSTRING(REVERSE(SUBSTRING(料號原則, 4, 50)), 6, 50))

  165.                 ORDER BY   原則中段"

  166.         CmdSet_For_dr()

  167.     End Sub

  168.     Friend Sub SQL_物料資訊控制表_原則查詢()

  169.         ConnOpen() : SQL1 = "SELECT 品名, 群組碼, 料號原則, 規格庫編號, 規格庫抬頭指定 FROM 物料資訊控制表 WHERE 料號原則 LIKE N'" & PA2 & "'" : CmdSet_For_dr()

  170.     End Sub

  171.     Friend Sub SQL_倉儲明細表_備註修改_使用位置()

  172.         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 備註 = N'" & PA10 & "', 使用位置 = N'" & PA11 & "' WHERE (資料流水號 = N'" & PA12 & "')" : CmdSet_For_dr()

  173.     End Sub

  174.     Friend Sub SQL_行政驗證碼()

  175.         ConnOpen() : SQL1 = "SELECT 驗證碼 FROM 樣品採購單控制表 WHERE 驗證碼 LIKE N'" & PA20 & "'" : CmdSet_For_dr()

  176.     End Sub

  177.     Friend Sub SQL_建築驗證碼()

  178.         ConnOpen() : SQL1 = "SELECT 驗證碼 FROM 樣品採購單控制表 WHERE 驗證碼 LIKE N'" & PA20 & "'" : CmdSet_For_dr()

  179.     End Sub

  180.     Friend Sub SQL_主管簽名檔管理1()

  181.         ConnOpen()

  182.         SQL1 = "SELECT 圖片流水號 AS [" & 表頭(87) & "], 簽名檔人名 FROM HX主管簽名檔管理 ORDER BY 圖片流水號 DESC"

  183.         CmdSet_For_DGV()

  184.     End Sub

  185.     Friend Sub SQL_主管簽名檔管理()

  186.         ConnOpen()

  187.         SQL1 = "SELECT 圖片流水號 AS [" & 表頭(87) & "], 簽名檔人名 FROM HX主管簽名檔管理 WHERE 簽名檔人名 LIKE N'" & gUserName & "' ORDER BY 圖片流水號"

  188.         CmdSet_For_DGV()

  189.     End Sub

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

  191.         ConnOpen()

  192.         SQL1 = "SELECT      TOP (100) 請購單控制表.請購單號 AS [" & 表頭(18) & "], 請購單控制表.申請人 AS [" & 表頭(19) & "], 

  193.                             LEFT(請購單控制表.申請日期, 10) AS [" & 表頭(20) & "], 請購單控制表.核准人 AS [" & 表頭(21) & "], 

  194.                             LEFT(請購單控制表.核准日期, 10) AS [" & 表頭(22) & "], 請購單控制表.需求日期,

  195.                             請購單控制表.合約號 AS [" & 表頭(134) & "], 備註, 乙方, 甲方, 立約日, 序號, 請購單控制表.退單 AS [" & 表頭(10) & "], 請購單控制表.退單備註

  196.                 FROM        請購單控制表 INNER JOIN

  197.                             使用者權限管理表 ON 請購單控制表.申請人 = 使用者權限管理表.姓名 INNER JOIN

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

  199.                                   FROM           系統跨部門權限表

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

  201.                             使用者權限管理表.職稱 = QQQ.職稱

  202.                 WHERE      (請購單控制表.核准人 LIKE N'') ORDER BY 請購單控制表.請購單號 DESC"

  203.         CmdSet_For_DGV()

  204.     End Sub

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

  206.         ConnOpen()

  207.         SQL1 = "SELECT      TOP (100) 請購單控制表.請購單號 AS [" & 表頭(18) & "], 請購單控制表.申請人 AS [" & 表頭(19) & "], 

  208.                             LEFT(請購單控制表.申請日期, 10) AS [" & 表頭(20) & "], 請購單控制表.核准人 AS [" & 表頭(21) & "], 

  209.                             LEFT(請購單控制表.核准日期, 10) AS [" & 表頭(22) & "], 請購單控制表.需求日期,

  210.                             請購單控制表.合約號 AS [" & 表頭(134) & "], 備註, 乙方, 甲方, 立約日, 序號, 請購單控制表.退單 AS [" & 表頭(10) & "], 請購單控制表.退單備註

  211.                 FROM        請購單控制表 INNER JOIN

  212.                             使用者權限管理表 ON 請購單控制表.申請人 = 使用者權限管理表.姓名 INNER JOIN

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

  214.                                   FROM           系統跨部門權限表

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

  216.                             使用者權限管理表.職稱 = QQQ.職稱

  217.                 WHERE      (請購單控制表.核准人 LIKE N'作廢%') ORDER BY 請購單控制表.請購單號 DESC"

  218.         CmdSet_For_DGV()

  219.     End Sub

  220.     Friend Sub SQL_建築物料請購單申請_存檔()

  221.         ConnOpen()

  222.         SQL1 = "UPDATE 請購單明細表 SET 備註 = N'" & PA1 & "', 數量 = N'" & NU1 & "', 單位 = N'" & PA2 & "', 用途 = N'" & PA3 & "'

  223.                    WHERE (請購單號 LIKE N'" & PA4 & "' AND 項次 LIKE N'" & PA5 & "')"

  224.         CmdSet_For_dr()

  225.     End Sub

  226.     Friend Sub SQL_請購單申請_加急存檔()

  227.         ConnOpen() : SQL1 = "UPDATE 請購單明細表 SET 加急 = 1 WHERE (請購單號 LIKE N'" & PA4 & "')" : CmdSet_For_dr()

  228.     End Sub

  229.     Friend Sub SQL_請購單明細表_指定刪除()

  230.         ConnOpen() : SQL1 = "DELETE FROM 請購單明細表 WHERE (請購單號 LIKE N'" & PA1 & "' AND 項次 LIKE N'" & PA2 & "')" : CmdSet_For_dr()

  231.     End Sub

  232.     Friend Sub SQL_請購單明細表_項次修改()

  233.         ConnOpen() : SQL1 = "UPDATE 請購單明細表 SET 項次 = N'" & PA & "' WHERE (請購單號 LIKE N'" & PA1 & "' AND 項次 LIKE N'" & PA2 & "')" : CmdSet_For_dr()

  234.     End Sub

  235.     Friend Sub SQL_行政物料請購單申請_未核准()

  236.         ConnOpen()

  237.         SQL1 = "SELECT   樣品請購單控制表.請購單號 AS [" & 表頭(18) & "], 樣品請購單控制表.申請人 AS [" & 表頭(19) & "], LEFT(樣品請購單控制表.申請日期, 10) AS [" & 表頭(20) & "], 

  238.                          樣品請購單控制表.核准人 AS [" & 表頭(21) & "], LEFT(樣品請購單控制表.核准日期, 10) AS [" & 表頭(22) & "] 

  239.                 FROM     樣品請購單控制表 INNER JOIN 使用者權限管理表 ON 樣品請購單控制表.申請人 = 使用者權限管理表.姓名 INNER JOIN

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

  241.                                   FROM   系統跨部門權限表

  242.                                   WHERE (姓名 LIKE N'" & gUserName & "') AND (授權 = 1)) AS QQQ ON 使用者權限管理表.職稱 = QQQ.職稱 

  243.                 WHERE   (樣品請購單控制表.核准人 LIKE N'') 

  244.                 ORDER BY 樣品請購單控制表.請購單號 DESC"

  245.         CmdSet_For_DGV()

  246.     End Sub

  247.     Friend Sub SQL_行政物料請購單申請_作廢清單()

  248.         ConnOpen()

  249.         SQL1 = "SELECT   樣品請購單控制表.請購單號 AS [" & 表頭(18) & "], 樣品請購單控制表.申請人 AS [" & 表頭(19) & "], LEFT(樣品請購單控制表.申請日期, 10) AS [" & 表頭(20) & "], 

  250.                          樣品請購單控制表.核准人 AS [" & 表頭(21) & "], LEFT(樣品請購單控制表.核准日期, 10) AS [" & 表頭(22) & "] 

  251.                 FROM     樣品請購單控制表 INNER JOIN 使用者權限管理表 ON 樣品請購單控制表.申請人 = 使用者權限管理表.姓名 INNER JOIN

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

  253.                                   FROM   系統跨部門權限表

  254.                                   WHERE (姓名 LIKE N'" & gUserName & "') AND (授權 = 1)) AS QQQ ON 使用者權限管理表.職稱 = QQQ.職稱 

  255.                 WHERE   (樣品請購單控制表.核准人 LIKE N'作廢%') 

  256.                 ORDER BY 樣品請購單控制表.請購單號 DESC"

  257.         CmdSet_For_DGV()

  258.     End Sub

  259.     Friend Sub SQL_樣品請購單明細表_修改()

  260.         ConnOpen()

  261.         SQL1 = "UPDATE 樣品請購單明細表 SET  品名 = N'" & PA1 & "', 規格 = N'" & PA2 & "', 備註 = N'" & PA3 & "', 數量 = N'" & NU1 & "', 單位 = N'" & PA4 & "', 用途 = N'" & PA5 & "' 

  262.                 WHERE (請購單號 LIKE N'" & PA6 & "' AND 項次 LIKE N'" & PA7 & "')"

  263.         CmdSet_For_dr()

  264.     End Sub

  265.     Friend Sub SQL_樣品請購單明細表_指定刪除()

  266.         ConnOpen()

  267.         SQL1 = "DELETE FROM 樣品請購單明細表 WHERE (請購單號 LIKE N'" & PA10 & "' AND 項次 LIKE N'" & PA11 & "')"

  268.         CmdSet_For_dr()

  269.     End Sub

  270.     Friend Sub SQL_樣品請購單明細表_項次修改()

  271.         ConnOpen() : SQL1 = "UPDATE 樣品請購單明細表 SET 項次 = N'" & PA & "' WHERE (請購單號 LIKE N'" & PA1 & "' AND 項次 LIKE N'" & PA2 & "')" : CmdSet_For_dr()

  272.     End Sub

  273.     Friend Sub SQL_行政物料採購單生成_供應商資料一()

  274.         ConnOpen() : SQL1 = "SELECT 公司名, 公司地址, 公司電話1, 聯繫人1郵箱 FROM 供應商資料表 WHERE 供應商編碼 LIKE N'" & PA1 & "'" : CmdSet_For_dr()

  275.     End Sub

  276.     Friend Sub SQL_行政物料採購單生成_供應商資料二()

  277.         ConnOpen() : SQL1 = "SELECT 供應商編碼, 公司地址, 公司電話1, 公司傳真1, 聯繫人1郵箱 FROM 供應商資料表 WHERE 公司名 LIKE N'" & PA1 & "'" : CmdSet_For_dr()

  278.     End Sub

  279.     Friend Sub SQL_建築物料採購單生成_供應商資料一()

  280.         ConnOpen() : SQL1 = "SELECT 公司名, 公司地址, 公司電話1, 聯繫人1郵箱 FROM 供應商資料表 WHERE 供應商編碼 LIKE N'" & PA1 & "'" : CmdSet_For_dr()

  281.     End Sub

  282.     Friend Sub SQL_建築物料採購單生成_供應商資料二()

  283.         ConnOpen() : SQL1 = "SELECT 供應商編碼, 公司地址, 公司電話1, 公司傳真1, 聯繫人1郵箱 FROM 供應商資料表 WHERE 公司名 LIKE N'" & PA1 & "'" : CmdSet_For_dr()

  284.     End Sub

  285.     Friend Sub SQL_樣品採購單明細表_修改()

  286.         ConnOpen()

  287.         SQL1 = "UPDATE 樣品採購單明細表 SET  品名 = N'" & PA11 & "', 規格 = N'" & PA12 & "', 備註 = N'" & PA6 & "', 單價 = N'" & PA7 & "', 數量 = N'" & PA8 & "', 單位 = N'" & PA9 & "' 

  288.                 WHERE (行政物料請購單號 LIKE N'" & PA5 & "') AND (項次 LIKE N'" & PA10 & "')"

  289.         CmdSet_For_dr()

  290.     End Sub

  291.     Friend Sub SQL_樣品採購單明細表()

  292.         ConnOpen()

  293.         SQL1 = "SELECT 行政物料請購單號 AS 請購單號, 項次 AS [" & 表頭(11) & "], 品名 AS [" & 表頭(12) & "], 規格 AS [" & 表頭(13) & "], 備註 AS [" & 表頭(14) & "], 數量 AS [" & 表頭(15) & "], 

  294.                        單位 AS [" & 表頭(16) & "], 單價 AS [" & 表頭(26) & "], 數量 * 單價 AS [" & 表頭(27) & "], 項次 AS 項次01 ,申請人 AS [" & 表頭(19) & "]  FROM  樣品採購單明細表 

  295.                        WHERE 行政物料請購單號 LIKE N'" & PA10 & "' ORDER BY [" & 表頭(11) & "]"

  296.         CmdSet_For_DGV()

  297.     End Sub

  298.     Friend Sub SQL_樣品採購單控制表_作廢()

  299.         ConnOpen()

  300.         SQL1 = "UPDATE 樣品採購單控制表 SET  核准 = N'作廢-" & gUserName & "' WHERE (行政物料請購單號 LIKE N'" & PA11 & "')"

  301.         CmdSet_For_dr()

  302.     End Sub

  303.     Friend Sub SQL_樣品採購單控制表_修改()

  304.         ConnOpen()

  305.         SQL1 = "UPDATE 樣品採購單控制表 SET  供應商編號 = N'" & PA1 & "', 需求日期 = N'" & DTP2 & "', 使用地點 = N'" & PA2 & "', 核對日期 = N'" & DTP &

  306.                                                   "' , DISC = N'" & PA3 & "', 

  307.                                                  稅 = N'" & BL1 & "', PPN = N'" & PA4 & "'

  308.                 WHERE (行政物料請購單號 LIKE N'" & PA5 & "')"

  309.         CmdSet_For_dr()

  310.     End Sub

  311.     Friend Sub SQL_採購單價查詢()

  312.         ConnOpen()

  313.         SQL1 = "SELECT  TOP (1) SUBSTRING(採購單號, 7, 8) AS 採購日, 單價  FROM  採購單明細表  WHERE  (料號 LIKE N'" & PA47 & "')  ORDER BY  採購日 DESC"

  314.         CmdSet_For_dr()

  315.     End Sub

  316.     Friend Sub SQL_採購單明細表()

  317.         ConnOpen()

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

  319.         SQL1 = "SELECT      採購單明細表.採購單號, 採購單明細表.項次 AS [" & 表頭(11) & "],採購單明細表.合約號 AS [" & 表頭(134) & "], 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 

  320.                             物料規格表.A1 AS [" & 表頭(13) & "], 採購單明細表.備註 AS [" & 表頭(14) & "], 採購單明細表.數量 AS [" & 表頭(15) & "], 

  321.                             採購單明細表.單位 AS [" & 表頭(16) & "], 採購單明細表.單價 AS [" & 表頭(26) & "], 

  322.                             採購單明細表.數量 * 採購單明細表.單價 AS [" & 表頭(27) & "], 採購單明細表.群組碼, 

  323.                             採購單明細表.料號原則, 採購單明細表.料號, 物料規格表.圖檔編號, 採購單明細表.項次 AS 項次01, 物料規格表.A2, 物料規格表.A3, 

  324.                             物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 

  325.                             物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定, 採購單明細表.請購單號 AS [KEY],

  326.                             採購單明細表.單價 AS OUP, 採購單明細表.申請人 AS [SP%] , 採購單明細表.申請人 AS [" & 表頭(19) & "]" & 低網 & "

  327.                 FROM        採購單明細表 INNER JOIN

  328.                             物料圖庫 ON 採購單明細表.群組碼 = 物料圖庫.群組碼 AND 

  329.                             採購單明細表.料號原則 = 物料圖庫.料號原則 INNER JOIN

  330.                             物料編碼庫 ON 採購單明細表.群組碼 = 物料編碼庫.群組碼 AND 

  331.                             採購單明細表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN

  332.                             物料資訊控制表 ON 採購單明細表.料號原則 = 物料資訊控制表.料號原則 LEFT OUTER JOIN

  333.                             物料規格表 ON 採購單明細表.料號 = 物料規格表.料號 INNER JOIN

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

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

  336.                 WHERE      (採購單明細表.採購單號 LIKE N'" & PA10 & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')

  337.                 ORDER BY   採購單明細表.項次"

  338.         CmdSet_For_DGV()

  339.     End Sub

  340.     Friend Sub SQL_採購單明細表1()

  341.         ConnOpen()

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

  343.         SQL1 = "SELECT      採購單明細表.採購單號, 採購單明細表.項次 AS [" & 表頭(11) & "],採購單明細表.合約號 AS [" & 表頭(134) & "], 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 

  344.                             物料規格表.A1 AS [" & 表頭(13) & "], 採購單明細表.備註 AS [" & 表頭(14) & "], 採購單明細表.數量 AS [" & 表頭(15) & "], 

  345.                             採購單明細表.單位 AS [" & 表頭(16) & "], 採購單明細表.單價 AS [" & 表頭(26) & "], 

  346.                             採購單明細表.數量 * 採購單明細表.單價 AS [" & 表頭(27) & "], 採購單明細表.群組碼, 

  347.                             採購單明細表.料號原則, 採購單明細表.料號, 物料規格表.圖檔編號, 採購單明細表.項次 AS 項次01, 物料規格表.A2, 物料規格表.A3, 

  348.                             物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 

  349.                             物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定, 採購單明細表.請購單號 AS [KEY],

  350.                             採購單明細表.單價 AS OUP, 採購單明細表.申請人 AS [SP%] , 採購單明細表.申請人 AS [" & 表頭(19) & "]" & 低網 & "

  351.                 FROM        採購單明細表 INNER JOIN

  352.                             物料圖庫 ON 採購單明細表.群組碼 = 物料圖庫.群組碼 AND 

  353.                             採購單明細表.料號原則 = 物料圖庫.料號原則 INNER JOIN

  354.                             物料編碼庫 ON 採購單明細表.群組碼 = 物料編碼庫.群組碼 AND 

  355.                             採購單明細表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN

  356.                             物料資訊控制表 ON 採購單明細表.料號原則 = 物料資訊控制表.料號原則 LEFT OUTER JOIN

  357.                             物料規格表 ON 採購單明細表.料號 = 物料規格表.料號 INNER JOIN

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

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

  360.                 WHERE      (採購單明細表.合約號 LIKE N'" & PA10 & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')

  361.                 ORDER BY   採購單明細表.項次"

  362.         CmdSet_For_DGV()

  363.     End Sub

  364.     Friend Sub SQL_採購單控制表_修改()

  365.         ConnOpen()

  366.         SQL1 = "UPDATE 採購單控制表 SET  供應商編號 = N'" & PA1 & "', 需求日期 = N'" & DTP2 & "', 使用地點 = N'" & PA2 & "', 核對日期 = N'" & DTP & "' , 

  367.                                          DISC = N'" & PA3 & "', 稅 = N'" & BL1 & "', PPN = N'" & PA4 & "', 手動號碼 = N'" & 採購單一級核准.手動號碼_tb.Text & "'

  368.                 WHERE (採購單號 LIKE N'" & PA5 & "')"

  369.         CmdSet_For_dr()

  370.     End Sub

  371.     Friend Sub SQL_採購單控制表_編輯()

  372.         ConnOpen()

  373.         SQL1 = "UPDATE 採購單控制表 SET  供應商編號 = N'" & PA1 & "', 需求日期 = N'" & DTP2 & "', 使用地點 = N'" & PA2 & "', 核對日期 = N'" & DTP & "' , 

  374.                                          DISC = N'" & PA3 & "', 稅 = N'" & BL1 & "', PPN = N'" & PA4 & "', 核對員 = '" & gUserName & "', 手動號碼 = '" & PA39 & "'

  375.                 WHERE (採購單號 LIKE N'" & PA5 & "')"

  376.         CmdSet_For_dr()

  377.     End Sub

  378.     Friend Sub SQL_採購單明細表_修改二()

  379.         ConnOpen()

  380.         SQL1 = "UPDATE 採購單明細表 SET  品名 = N'" & PA11 & "', 規格 = N'" & PA12 & "', 備註 = N'" & PA6 & "', 單價 = N'" & PA7 & "', 數量 = N'" & PA8 & "', 單位 = N'" & PA9 & "' 

  381.                 WHERE (採購單號 LIKE N'" & PA5 & "') AND (請購單號 LIKE N'" & PA4 & "') AND (項次 LIKE N'" & PA10 & "')"

  382.         CmdSet_For_dr()

  383.     End Sub

  384.     Friend Sub SQL_樣品採購單明細表_刪除()

  385.         ConnOpen()

  386.         SQL1 = "DELETE FROM 樣品採購單明細表 WHERE (行政物料請購單號 LIKE N'" & PA1 & "' AND 項次 LIKE N'" & PA2 & "')"

  387.         CmdSet_For_dr()

  388.     End Sub

  389.     Friend Sub SQL_行政物料採購單一級核准料_新項次()

  390.         ConnOpen() : SQL1 = "UPDATE 樣品採購單明細表 SET 項次 = N'" & PA18 & "' WHERE (行政物料請購單號 LIKE N'" & PA19 & "' AND 項次 LIKE N'" & PA20 & "')" : CmdSet_For_dr()

  391.     End Sub

  392.     Friend Sub SQL_採購單明細表_刪除()

  393.         ConnOpen()

  394.         SQL1 = "DELETE FROM 採購單明細表 WHERE (採購單號 LIKE N'" & PA1 & "' AND 項次 LIKE N'" & PA3 & "')"

  395.         CmdSet_For_dr()

  396.     End Sub

  397.     Friend Sub SQL_採購單控制表_作廢()

  398.         ConnOpen() : SQL1 = "UPDATE 採購單控制表 SET  核准 = N'作廢-" & gUserName & "' WHERE (採購單號 LIKE N'" & PA11 & "')" : CmdSet_For_dr()

  399.     End Sub

  400.     Friend Sub SQL_採購單控制表_出納()

  401.         ConnOpen() : SQL1 = "UPDATE 採購單控制表 SET  已出納 = N'" & PA20 & "' WHERE (採購單號 LIKE N'" & PA11 & "')" : CmdSet_For_dr()

  402.     End Sub

  403.     Friend Sub SQL_物料規格_SQLB03()

  404.         ConnOpen()

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

  406.                                物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, HX選擇按鈕.選擇 AS Pilih, 

  407.                                物料編碼庫.原則說明, 物料規格表.最低庫存量 AS [申請數 Terapkan], 物料規格表.料號 AS Nomor_Bagian

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

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

  410.                 WHERE (物料規格表.料號原則 LIKE N'" & PA & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "')

  411.                 ORDER BY 物料規格表.排序, 物料規格表.料號"

  412.         CmdSet_For_DGV()

  413.     End Sub

  414.     Friend Sub SQL_物料規格_SQLB04()

  415.         ConnOpen()

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

  417.                                物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4 AS [" & AAA4 & "], 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, HX選擇按鈕.選擇 AS Pilih, 

  418.                                物料編碼庫.原則說明, 物料規格表.最低庫存量 AS [申請數 Terapkan], 物料規格表.料號 AS Nomor_Bagian

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

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

  421.                 WHERE (物料規格表.料號原則 LIKE N'" & PA & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "')

  422.                 ORDER BY 物料規格表.排序, 物料規格表.料號"

  423.         CmdSet_For_DGV()

  424.     End Sub

  425.     Friend Sub SQL_物料規格_SQLB05()

  426.         ConnOpen()

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

  428.                                物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4 AS [" & AAA4 & "], 物料規格表.A5 AS [" & AAA5 & "], 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 

  429.                                HX選擇按鈕.選擇 AS Pilih, 物料編碼庫.原則說明, 物料規格表.最低庫存量 AS [申請數 Terapkan], 物料規格表.料號 AS Nomor_Bagian

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

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

  432.                         WHERE (物料規格表.料號原則 LIKE N'" & PA & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "') 

  433.                 ORDER BY 物料規格表.排序, 物料規格表.料號"

  434.         CmdSet_For_DGV()

  435.     End Sub

  436.     Friend Sub SQL_物料規格_SQLB06()

  437.         ConnOpen()

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

  439.                                物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4 AS [" & AAA4 & "], 物料規格表.A5 AS [" & AAA5 & "], 物料規格表.A6 AS [" & AAA6 & "], 物料規格表.A7, 物料規格表.A8, 

  440.                                HX選擇按鈕.選擇 AS Pilih, 物料編碼庫.原則說明, 物料規格表.最低庫存量 AS [申請數 Terapkan], 物料規格表.料號 AS Nomor_Bagian

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

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

  443.                         WHERE (物料規格表.料號原則 LIKE N'" & PA & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "') 

  444.                 ORDER BY 物料規格表.排序, 物料規格表.料號"

  445.         CmdSet_For_DGV()

  446.     End Sub

  447.     Friend Sub SQL_物料規格_SQLB07()

  448.         ConnOpen()

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

  450.                                物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4 AS [" & AAA4 & "], 物料規格表.A5 AS [" & AAA5 & "], 物料規格表.A6 AS [" & AAA6 & "], 物料規格表.A7 AS [" & AAA7 & "], 

  451.                                物料規格表.A8, HX選擇按鈕.選擇 AS Pilih, 物料編碼庫.原則說明, 物料規格表.最低庫存量 AS [申請數 Terapkan], 物料規格表.料號 AS Nomor_Bagian

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

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

  454.                         WHERE (物料規格表.料號原則 LIKE N'" & PA & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "') 

  455.                 ORDER BY 物料規格表.排序, 物料規格表.料號"

  456.         CmdSet_For_DGV()

  457.     End Sub

  458.     Friend Sub SQL_物料規格_SQLB08()

  459.         ConnOpen()

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

  461.                                物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4 AS [" & AAA4 & "], 物料規格表.A5 AS [" & AAA5 & "], 物料規格表.A6 AS [" & AAA6 & "], 物料規格表.A7 AS [" & AAA7 & "], 

  462.                                物料規格表.A8 AS [" & AAA8 & "], HX選擇按鈕.選擇 AS Pilih, 物料編碼庫.原則說明, 物料規格表.最低庫存量 AS [申請數 Terapkan], 物料規格表.料號 AS Nomor_Bagian

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

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

  465.                         WHERE (物料規格表.料號原則 LIKE N'" & PA & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "') 

  466.                 ORDER BY 物料規格表.排序, 物料規格表.料號"

  467.         CmdSet_For_DGV()

  468.     End Sub

  469.     Friend Sub SQL_歷史物料規格_SQLB03()

  470.         ConnOpen()

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

  472.                          物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, HX選擇按鈕.選擇 AS Pilih, 

  473.                          物料編碼庫.原則說明, 物料規格表.最低庫存量 AS [申請數 Terapkan], 物料規格表.料號 AS Nomor_Bagian, QQ.庫存 AS Persediaan

  474.                 FROM     物料規格表 INNER JOIN

  475.                         (SELECT    料號, SUM(入庫) - SUM(出庫) AS 庫存  FROM  倉儲明細表  WHERE  (倉庫作業 NOT LIKE '') AND (倉庫作業 NOT LIKE '作廢%')

  476.                          GROUP BY  料號 HAVING  (SUM(入庫) - SUM(出庫) <> 0)) AS QQ ON 

  477.                          物料規格表.料號 = QQ.料號 LEFT OUTER JOIN 物料編碼庫 ON 物料規格表.群組碼 = 物料編碼庫.群組碼 AND 

  478.                          物料規格表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN HX選擇按鈕 ON 物料規格表.群組碼 = HX選擇按鈕.對應

  479.                 WHERE   (物料規格表.料號原則 LIKE N'" & PA & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "')  

  480.                 ORDER BY 物料規格表.排序, 物料規格表.料號"

  481.         CmdSet_For_DGV()

  482.     End Sub

  483.     Friend Sub SQL_歷史物料規格_SQLB04()

  484.         ConnOpen()

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

  486.                          物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4 AS [" & AAA4 & "], 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, HX選擇按鈕.選擇 AS Pilih, 

  487.                          物料編碼庫.原則說明, 物料規格表.最低庫存量 AS [申請數 Terapkan], 物料規格表.料號 AS Nomor_Bagian, QQ.庫存 AS Persediaan

  488.                 FROM     物料規格表 INNER JOIN

  489.                         (SELECT    料號, SUM(入庫) - SUM(出庫) AS 庫存  FROM  倉儲明細表  WHERE  (倉庫作業 NOT LIKE '') AND (倉庫作業 NOT LIKE '作廢%')

  490.                          GROUP BY  料號 HAVING  (SUM(入庫) - SUM(出庫) <> 0)) AS QQ ON 

  491.                          物料規格表.料號 = QQ.料號 LEFT OUTER JOIN 物料編碼庫 ON 物料規格表.群組碼 = 物料編碼庫.群組碼 AND 

  492.                          物料規格表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN HX選擇按鈕 ON 物料規格表.群組碼 = HX選擇按鈕.對應

  493.                 WHERE   (物料規格表.料號原則 LIKE N'" & PA & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "')  

  494.                 ORDER BY 物料規格表.排序, 物料規格表.料號"

  495.         CmdSet_For_DGV()

  496.     End Sub

  497.     Friend Sub SQL_歷史物料規格_SQLB05()

  498.         ConnOpen()

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

  500.                          物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4 AS [" & AAA4 & "], 物料規格表.A5 AS [" & AAA5 & "], 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 

  501.                          HX選擇按鈕.選擇 AS Pilih, 物料編碼庫.原則說明, 物料規格表.最低庫存量 AS [申請數 Terapkan], 物料規格表.料號 AS Nomor_Bagian, QQ.庫存 AS Persediaan

  502.                 FROM     物料規格表 INNER JOIN

  503.                         (SELECT    料號, SUM(入庫) - SUM(出庫) AS 庫存  FROM  倉儲明細表  WHERE  (倉庫作業 NOT LIKE '') AND (倉庫作業 NOT LIKE '作廢%')

  504.                          GROUP BY  料號 HAVING  (SUM(入庫) - SUM(出庫) <> 0)) AS QQ ON 

  505.                          物料規格表.料號 = QQ.料號 LEFT OUTER JOIN 物料編碼庫 ON 物料規格表.群組碼 = 物料編碼庫.群組碼 AND 

  506.                          物料規格表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN HX選擇按鈕 ON 物料規格表.群組碼 = HX選擇按鈕.對應

  507.                 WHERE   (物料規格表.料號原則 LIKE N'" & PA & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "')  

  508.                 ORDER BY 物料規格表.排序, 物料規格表.料號"

  509.         CmdSet_For_DGV()

  510.     End Sub

  511.     Friend Sub SQL_歷史物料規格_SQLB06()

  512.         ConnOpen()

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

  514.                          物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4 AS [" & AAA4 & "], 物料規格表.A5 AS [" & AAA5 & "], 物料規格表.A6 AS [" & AAA6 & "], 物料規格表.A7, 物料規格表.A8, 

  515.                          HX選擇按鈕.選擇 AS Pilih, 物料編碼庫.原則說明, 物料規格表.最低庫存量 AS [申請數 Terapkan], 物料規格表.料號 AS Nomor_Bagian, QQ.庫存 AS Persediaan

  516.                 FROM     物料規格表 INNER JOIN

  517.                         (SELECT    料號, SUM(入庫) - SUM(出庫) AS 庫存  FROM  倉儲明細表  WHERE  (倉庫作業 NOT LIKE '') AND (倉庫作業 NOT LIKE '作廢%')

  518.                          GROUP BY  料號 HAVING  (SUM(入庫) - SUM(出庫) <> 0)) AS QQ ON 

  519.                          物料規格表.料號 = QQ.料號 LEFT OUTER JOIN 物料編碼庫 ON 物料規格表.群組碼 = 物料編碼庫.群組碼 AND 

  520.                          物料規格表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN HX選擇按鈕 ON 物料規格表.群組碼 = HX選擇按鈕.對應

  521.                 WHERE   (物料規格表.料號原則 LIKE N'" & PA & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "')  

  522.                 ORDER BY 物料規格表.排序, 物料規格表.料號"

  523.         CmdSet_For_DGV()

  524.     End Sub

  525.     Friend Sub SQL_歷史物料規格_SQLB07()

  526.         ConnOpen()

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

  528.                          物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4 AS [" & AAA4 & "], 物料規格表.A5 AS [" & AAA5 & "], 物料規格表.A6 AS [" & AAA6 & "], 物料規格表.A7 AS [" & AAA7 & "], 

  529.                          物料規格表.A8, HX選擇按鈕.選擇 AS Pilih, 物料編碼庫.原則說明, 物料規格表.最低庫存量 AS [申請數 Terapkan], 物料規格表.料號 AS Nomor_Bagian, QQ.庫存 AS Persediaan

  530.                 FROM     物料規格表 INNER JOIN

  531.                         (SELECT    料號, SUM(入庫) - SUM(出庫) AS 庫存  FROM  倉儲明細表  WHERE  (倉庫作業 NOT LIKE '') AND (倉庫作業 NOT LIKE '作廢%')

  532.                          GROUP BY  料號 HAVING  (SUM(入庫) - SUM(出庫) <> 0)) AS QQ ON 

  533.                          物料規格表.料號 = QQ.料號 LEFT OUTER JOIN 物料編碼庫 ON 物料規格表.群組碼 = 物料編碼庫.群組碼 AND 

  534.                          物料規格表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN HX選擇按鈕 ON 物料規格表.群組碼 = HX選擇按鈕.對應

  535.                 WHERE   (物料規格表.料號原則 LIKE N'" & PA & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "')  

  536.                 ORDER BY 物料規格表.排序, 物料規格表.料號"

  537.         CmdSet_For_DGV()

  538.     End Sub

  539.     Friend Sub SQL_歷史物料規格_SQLB08()

  540.         ConnOpen()

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

  542.                          物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4 AS [" & AAA4 & "], 物料規格表.A5 AS [" & AAA5 & "], 物料規格表.A6 AS [" & AAA6 & "], 物料規格表.A7 AS [" & AAA7 & "], 

  543.                          物料規格表.A8 AS [" & AAA8 & "], HX選擇按鈕.選擇 AS Pilih, 物料編碼庫.原則說明, 物料規格表.最低庫存量 AS [申請數 Terapkan], 物料規格表.料號 AS Nomor_Bagian, 

  544.                          QQ.庫存 AS Persediaan

  545.                 FROM     物料規格表 INNER JOIN

  546.                         (SELECT    料號, SUM(入庫) - SUM(出庫) AS 庫存  FROM  倉儲明細表  WHERE  (倉庫作業 NOT LIKE '') AND (倉庫作業 NOT LIKE '作廢%')

  547.                          GROUP BY  料號 HAVING  (SUM(入庫) - SUM(出庫) <> 0)) AS QQ ON 

  548.                          物料規格表.料號 = QQ.料號 LEFT OUTER JOIN 物料編碼庫 ON 物料規格表.群組碼 = 物料編碼庫.群組碼 AND 

  549.                          物料規格表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN HX選擇按鈕 ON 物料規格表.群組碼 = HX選擇按鈕.對應

  550.                 WHERE   (物料規格表.料號原則 LIKE N'" & PA & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "')  

  551.                 ORDER BY 物料規格表.排序, 物料規格表.料號"

  552.         CmdSet_For_DGV()

  553.     End Sub

  554.     Friend Sub SQL_建築物料請購單申請_物料清單零()

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

  556.         If 物料查詢 = False Then

  557.             SQL1 = "SELECT    物料編碼庫.群組碼 AS No, 物料編碼庫.料號原則 AS PN_Bagian, 物料編碼庫轉語言.品名 AS Pernyataan_Prinsip, 

  558.                               物料編碼庫.群組碼, 物料編碼庫.料號原則, 物料編碼庫.單位 AS [" & 表頭(16) & "] " & 低網 & "

  559.                     FROM      物料編碼庫 INNER JOIN

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

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

  562.                               物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼 INNER JOIN

  563.                              (SELECT    物料規格表.料號原則

  564.                               FROM      倉儲明細表 INNER JOIN  物料規格表 ON 倉儲明細表.料號 = 物料規格表.料號

  565.                               GROUP BY  物料規格表.料號原則

  566.                               HAVING   (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) <> 0)) AS AA ON 

  567.                               物料編碼庫.料號原則 = AA.料號原則

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

  569.                     ORDER BY  Pernyataan_Prinsip, PN_Bagian"

  570.         Else

  571.             SQL1 = "SELECT    物料編碼庫.群組碼 AS No, 物料編碼庫.料號原則 AS PN_Bagian, 物料編碼庫轉語言.品名 AS Pernyataan_Prinsip, 

  572.                               物料編碼庫.群組碼, 物料編碼庫.料號原則, 物料編碼庫.單位 AS [" & 表頭(16) & "] " & 低網 & "

  573.                     FROM      物料編碼庫 INNER JOIN

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

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

  576.                               物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼 INNER JOIN

  577.                              (SELECT    物料規格表.料號原則

  578.                               FROM      倉儲明細表 INNER JOIN  物料規格表 ON 倉儲明細表.料號 = 物料規格表.料號

  579.                               GROUP BY  物料規格表.料號原則

  580.                               HAVING   (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) <> 0)) AS AA ON 

  581.                               物料編碼庫.料號原則 = AA.料號原則 INNER JOIN

  582.                              (SELECT    群組碼, 料號原則

  583.                               FROM      物料編碼庫轉語言 AS 物料編碼庫轉語言_1

  584.                               WHERE    (品名 LIKE N'%" & 物料關鍵字 & "%') AND (群組碼 LIKE N'" & PA1 & "%')

  585.                               GROUP BY  群組碼, 料號原則) AS QQ ON 物料編碼庫轉語言.群組碼 = QQ.群組碼 AND 

  586.                               物料編碼庫轉語言.料號原則 = QQ.料號原則

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

  588.                     ORDER BY  Pernyataan_Prinsip, PN_Bagian"

  589.         End If

  590.     End Sub

  591.     Friend Sub SQL_建築物料請購單申請_物料清單一()

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

  593.         If 物料查詢 = False Then

  594.             SQL1 = "SELECT     物料編碼庫.群組碼 AS No, 物料編碼庫.料號原則 AS PN_Bagian, 物料編碼庫轉語言.品名 AS Pernyataan_Prinsip, 物料編碼庫.群組碼, 物料編碼庫.料號原則, 

  595.                                物料編碼庫.單位 AS [" & 表頭(16) & "] " & 低網 & "

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

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

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

  599.                     ORDER BY   Pernyataan_Prinsip, PN_Bagian"

  600.         Else

  601.             SQL1 = "SELECT    物料編碼庫.群組碼 AS No, 物料編碼庫.料號原則 AS PN_Bagian, 物料編碼庫轉語言.品名 AS Pernyataan_Prinsip, 

  602.                               物料編碼庫.群組碼, 物料編碼庫.料號原則, 物料編碼庫.單位 AS [" & 表頭(16) & "] " & 低網 & "

  603.                     FROM      物料編碼庫 INNER JOIN

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

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

  606.                               物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼 INNER JOIN

  607.                              (SELECT    群組碼, 料號原則

  608.                               FROM      物料編碼庫轉語言 AS 物料編碼庫轉語言_1

  609.                               WHERE    (品名 LIKE N'%" & 物料關鍵字 & "%') AND (群組碼 LIKE N'" & PA1 & "%')

  610.                               GROUP BY  群組碼, 料號原則) AS QQ ON 物料編碼庫轉語言.群組碼 = QQ.群組碼 AND 

  611.                               物料編碼庫轉語言.料號原則 = QQ.料號原則

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

  613.                     ORDER BY  Pernyataan_Prinsip, PN_Bagian"

  614.         End If

  615.     End Sub

  616.     Friend Sub SQL_建築物料請購單申請_物料清單二()

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

  618.         SQL1 = "SELECT    物料編碼庫.群組碼 AS No, 物料編碼庫.料號原則 AS PN_Bagian, 物料編碼庫.原則說明 AS Pernyataan_Prinsip, 物料編碼庫.群組碼, 

  619.                           物料編碼庫.料號原則, 物料編碼庫.單位 AS [" & 表頭(16) & "] " & 低網 & "

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

  621.                 WHERE     物料編碼庫.料號原則 LIKE N'" & PA1 & "%'

  622.                 ORDER BY  Pernyataan_Prinsip, PN_Bagian"

  623.     End Sub

  624.     Friend Sub SQL_建築物料請購單申請_物料清單三()

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

  626.         SQL1 = "SELECT    物料編碼庫.群組碼 AS No, 物料編碼庫.料號原則 AS PN_Bagian, 物料編碼庫轉語言.品名 AS Pernyataan_Prinsip, 

  627.                           物料編碼庫.群組碼, 物料編碼庫.料號原則, 物料編碼庫.單位 AS [" & 表頭(16) & "] " & 低網 & "

  628.                 FROM      物料編碼庫 INNER JOIN

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

  630.                           物料編碼庫轉語言 ON 物料圖庫.群組碼 = 物料編碼庫轉語言.群組碼 AND 

  631.                           物料圖庫.料號原則 = 物料編碼庫轉語言.料號原則 INNER JOIN

  632.                          (SELECT          群組碼, 料號原則

  633.                           FROM               物料編碼庫轉語言 AS 物料編碼庫轉語言_1

  634.                           WHERE    (品名 LIKE N'%" & PA & "%')

  635.                           GROUP BY  群組碼, 料號原則) AS QQ ON 物料編碼庫轉語言.群組碼 = QQ.群組碼 AND 

  636.                           物料編碼庫轉語言.料號原則 = QQ.料號原則

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

  638.                 ORDER BY  Pernyataan_Prinsip, PN_Bagian"

  639.     End Sub

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

  641.         ConnOpen()

  642.         SQL1 = "SELECT  物料編碼庫.原則說明 AS 品名, 物料資訊控制表.群組碼, 物料資訊控制表.料號原則, 物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定

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

  644.                 WHERE  (物料資訊控制表.料號原則 LIKE N'" & PA & "')"

  645.         CmdSet_For_dr()

  646.     End Sub

  647.     Friend Sub SQL_建築物料請購單申請_物料狀況查詢()

  648.         ConnOpen()

  649.         SQL1 = "SELECT    物料規格表.料號, 物料規格表.最高庫存量, SUM(倉儲明細表.入庫) AS 入庫, SUM(倉儲明細表.出庫) AS 出庫

  650.                 FROM      物料規格表 LEFT OUTER JOIN 倉儲明細表 ON 物料規格表.料號 = 倉儲明細表.料號

  651.                 WHERE    (物料規格表.料號 LIKE N'" & PA3 & "')

  652.                 GROUP BY  物料規格表.料號, 物料規格表.最高庫存量"

  653.         CmdSet_For_dr()

  654.     End Sub

  655.     Friend Sub SQL_合約物料狀況查詢()

  656.         ConnOpen()

  657.         SQL1 = "SELECT    倉儲分區控制表.倉名 AS [" & 表頭(23) & "], SUM(倉儲明細表.入庫 - 倉儲明細表.出庫) AS 庫存, QQ2.入庫 AS [" & 表頭(25) & "], 

  658.                           QQ1.出庫 AS [" & 表頭(28) & "], QQ1.出庫 AS [" & 表頭(27) & "]

  659.                 FROM      倉儲明細表 INNER JOIN

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

  661.                          (SELECT    料號, SUM(入庫) AS 入庫, 倉名編號

  662.                           FROM      倉儲明細表 AS 倉儲明細表_1

  663.                           WHERE    (倉庫作業 LIKE '') AND (倉庫作業 NOT LIKE '作廢%') AND (料號 LIKE N'" & PA & "')

  664.                           GROUP BY  料號, 倉名編號) AS QQ2 ON 倉儲明細表.倉名編號 = QQ2.倉名編號 LEFT OUTER JOIN

  665.                          (SELECT    料號, SUM(出庫) AS 出庫, 倉名編號

  666.                           FROM      倉儲明細表 AS 倉儲明細表_2

  667.                           WHERE    (倉庫作業 LIKE '') AND (倉庫作業 NOT LIKE '作廢%') AND (料號 LIKE N'" & PA & "')

  668.                           GROUP BY  料號, 倉名編號) AS QQ1 ON 倉儲明細表.倉名編號 = QQ1.倉名編號

  669.                 WHERE    (倉儲明細表.倉庫作業 NOT LIKE '') AND (倉儲明細表.倉庫作業 NOT LIKE '作廢%') AND 

  670.                          (倉儲明細表.料號 LIKE N'" & PA & "')

  671.                 GROUP BY  倉儲分區控制表.倉名, QQ1.出庫, QQ2.入庫

  672.                 ORDER BY  倉儲分區控制表.倉名 DESC"

  673.         CmdSet_For_DGV()

  674.     End Sub

  675.     Friend Sub SQL_倉庫料號比對價格()

  676.         ConnOpen()

  677.         SQL1 = "SELECT     採購單明細表.採購單號 AS [" & 表頭(24) & "], 採購單明細表.合約號 AS [" & 表頭(134) & "], 合約控制表.工程名稱_中 AS [" & 表頭(17) & "], 

  678.                            合約控制表.工程名稱_英 AS [" & 表頭(18) & "], 採購單明細表.申請人 AS [" & 表頭(19) & "], 採購單明細表.單價, 

  679.                            SUBSTRING(採購單明細表.採購單號, 7, 8) AS 排序, 採購單明細表.採購單號 AS [" & 表頭(26) & "]

  680.                 FROM       採購單明細表 INNER JOIN

  681.                           (SELECT  合約編號  FROM  倉儲明細表  GROUP BY  合約編號) AS QQ ON 採購單明細表.合約號 = QQ.合約編號 INNER JOIN

  682.                            合約控制表 ON 採購單明細表.合約號 = 合約控制表.合約編號

  683.                 WHERE     (採購單明細表.料號 LIKE N'" & PA & "') AND (採購單明細表.單價 > 0)

  684.                 ORDER BY  SUBSTRING(採購單號, 7, 8)"

  685.         CmdSet_For_DGV()

  686.     End Sub

  687.     Friend Sub SQL_倉儲臨時單號去除()

  688.         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 合約編號 = '' WHERE (合約編號 NOT LIKE 'H%') AND (合約編號 NOT LIKE 'P%') AND (合約編號 NOT LIKE '')" : CmdSet_For_dr()

  689.     End Sub

  690.     Friend Sub SQL_合約號碼參數查詢()

  691.         ConnOpen() : SQL1 = "SELECT  約號排序, 約號尾序, 約號甲方  FROM  合約控制表  WHERE  (合約編號 LIKE '%" & PA8 & "') GROUP BY 約號排序, 約號尾序, 約號甲方" : CmdSet_For_dr()

  692.     End Sub

  693. End Module