GCM-OTHER
/
GCM-ERP-SYS-LEEHSIEHJUI
Vērot 4
Pievienot zvaigznīti 0
Atdalīts 0
Kods Problēmas 0 Izmaiņu pieprasījumi 0 Laidieni 0 Vikivietne Aktivitāte
Nav apraksta
Nevar pievienot vairāk kā 25 tēmas Tēmai ir jāsākas ar burtu vai ciparu, tā var saturēt domu zīmes ('-') un var būt līdz 35 simboliem gara.
23 Revīzijas
1 Atzars
Koks: fd0f2bf3e4
Atzari Tagi
${ item.name }
Izveidot atzaru ${ searchTerm }
no 'fd0f2bf3e4'
${ noResults }
GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/00-MyModule/倉儲系統管理/SQL_跨界面共用.vb

SQL_跨界面共用.vb 37KB
Vēsture Neapstrādāts

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462 
  1. Module SQL_跨介面共用

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

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

  4.     End Sub

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

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

  7.     End Sub

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

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

  10.     End Sub

  11.     Friend Sub SQL_加權平均()

  12.         ConnOpen_ERP() : SQL1 = "SELECT    料號, SUM(數量 * 單價) / SUM(數量) AS 單價

  13.                              FROM      採購單明細表

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

  15.                              GROUP BY  料號 "

  16.         CmdSet_For_DGV()

  17.     End Sub

  18.     Friend Sub SQL_最近日期()

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

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

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

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

  23.         CmdSet_For_DGV()

  24.     End Sub

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

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

  27.     End Sub

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

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

  30.     End Sub

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

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

  33.     End Sub

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

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

  36.     End Sub

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

  38.         ConnOpen_ERP()

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

  40.         CmdSet_For_DGV()

  41.     End Sub

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

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

  44.     End Sub

  45.     Friend Sub SQL_系統語言()

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

  47.     End Sub

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

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

  50.     End Sub

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

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

  53.     End Sub

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

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

  56.     End Sub

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

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

  59.     End Sub

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

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

  62.     End Sub

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

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

  65.     End Sub

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

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

  68.     End Sub

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

  70.         ConnOpen_ERP() : SQL1 = "SELECT 公司名 FROM 我的資料庫.dbo.供應商資料表 WHERE 供應商 LIKE N'%" & PA & "%' ORDER BY 公司名" : CmdSet_For_dr()

  71.     End Sub

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

  73.         ConnOpen_ERP() : SQL1 = "SELECT 簽名檔圖片 FROM 我的資料庫.dbo.GCM主管簽名檔管理 WHERE 圖片流水號 LIKE N'" & PA1 & "'" : CmdSet_For_dr()

  74.     End Sub

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

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

  77.     End Sub

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

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

  80.     End Sub

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

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

  83.     End Sub

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

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

  86.     End Sub

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

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

  89.     End Sub

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

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

  92.     End Sub

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

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

  95.     End Sub

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

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

  98.     End Sub

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

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

  101.     End Sub

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

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

  104.     End Sub

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

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

  107.     End Sub

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

  109.         ConnOpen_ERP() : SQL1 = " SELECT  料號

  110.                               FROM 物料規格表 

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

  112.         CmdSet_For_dr()

  113.     End Sub

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

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

  116.     End Sub

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

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

  119.     End Sub

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

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

  122.     End Sub

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

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

  125.     End Sub

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

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

  128.     End Sub

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

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

  131.     End Sub

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

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

  134.     End Sub

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

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

  137.     End Sub

  138.     Friend Sub SQL_料號原則_下拉清單()

  139.         ConnOpen_ERP() : SQL1 = "SELECT 料號原則 FROM 物料編碼庫 WHERE 群組碼 LIKE N'" & PA & "' ORDER BY 料號原則" : CmdSet_For_dr()

  140.     End Sub

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

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

  143.     End Sub

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

  145.         ConnOpen_ERP()

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

  147.                 FROM 物料編碼庫

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

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

  150.                 ORDER BY   原則中段"

  151.         CmdSet_For_dr()

  152.     End Sub

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

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

  155.     End Sub

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

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

  158.     End Sub

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

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

  161.     End Sub

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

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

  164.     End Sub

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

  166.         ConnOpen_ERP()

  167.         If Val(登入人級別) = 0 Then

  168.             SQL1 = "SELECT 圖片流水號 AS [" & 表頭(87) & "], 簽名檔人名 FROM 我的資料庫.dbo.GCM主管簽名檔管理 ORDER BY 圖片流水號 DESC"

  169.         Else

  170.             SQL1 = "SELECT 圖片流水號 AS [" & 表頭(87) & "], 簽名檔人名 FROM 我的資料庫.dbo.GCM主管簽名檔管理 WHERE 簽名檔人名 LIKE N'" & gUserName & "' ORDER BY 圖片流水號"

  171.         End If

  172.         CmdSet_For_DGV()

  173.     End Sub

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

  175.         ConnOpen_ERP()

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

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

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

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

  180.                 FROM        請購單控制表 INNER JOIN

  181.                             我的資料庫.dbo.使用者權限管理表 ON 請購單控制表.申請人 = 我的資料庫.dbo.使用者權限管理表.姓名 INNER JOIN

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

  183.                                   FROM            我的資料庫.dbo.系統跨部門權限表

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

  185.                             我的資料庫.dbo.使用者權限管理表.職稱 = QQQ.職稱

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

  187.         CmdSet_For_DGV()

  188.     End Sub

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

  190.         ConnOpen_ERP()

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

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

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

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

  195.                 FROM        請購單控制表 INNER JOIN

  196.                             我的資料庫.dbo.使用者權限管理表 ON 請購單控制表.申請人 = 我的資料庫.dbo.使用者權限管理表.姓名 INNER JOIN

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

  198.                                   FROM 我的資料庫.dbo.系統跨部門權限表

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

  200.                             我的資料庫.dbo.使用者權限管理表.職稱 = QQQ.職稱

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

  202.         CmdSet_For_DGV()

  203.     End Sub

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

  205.         ConnOpen_ERP()

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

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

  208.         CmdSet_For_dr()

  209.     End Sub

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

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

  212.     End Sub

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

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

  215.     End Sub

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

  217.         ConnOpen_ERP()

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

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

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

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

  222.                                   FROM   系統跨部門權限表

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

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

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

  226.         CmdSet_For_DGV()

  227.     End Sub

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

  229.         ConnOpen_ERP()

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

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

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

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

  234.                                   FROM   系統跨部門權限表

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

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

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

  238.         CmdSet_For_DGV()

  239.     End Sub

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

  241.         ConnOpen_ERP()

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

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

  244.         CmdSet_For_dr()

  245.     End Sub

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

  247.         ConnOpen_ERP()

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

  249.         CmdSet_For_dr()

  250.     End Sub

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

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

  253.     End Sub

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

  255.         ConnOpen_ERP() : SQL1 = "SELECT 公司名, 公司地址, 公司電話1 FROM 我的資料庫.dbo.供應商資料表 WHERE 供應商編碼 LIKE N'" & PA1 & "'" : CmdSet_For_dr()

  256.     End Sub

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

  258.         ConnOpen_ERP() : SQL1 = "SELECT 流水碼, 公司地址, 公司電話1, 公司傳真1 FROM 我的資料庫.dbo.供應商資料表 WHERE 公司名 LIKE N'" & PA1 & "'" : CmdSet_For_dr()

  259.     End Sub

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

  261.         ConnOpen_ERP() : SQL1 = "SELECT 公司名, 公司地址, 公司電話1 FROM 我的資料庫.dbo.供應商資料表 WHERE 流水碼 LIKE N'" & PA1 & "'" : CmdSet_For_dr()

  262.     End Sub

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

  264.         ConnOpen_ERP() : SQL1 = "SELECT 流水碼, 公司地址, 公司電話1, 公司傳真1,聯繫人1郵箱 FROM 我的資料庫.dbo.供應商資料表 WHERE 公司名 LIKE N'" & PA1 & "'" : CmdSet_For_dr()

  265.     End Sub

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

  267.         ConnOpen_ERP()

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

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

  270.         CmdSet_For_dr()

  271.     End Sub

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

  273.         ConnOpen_ERP()

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

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

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

  277.         CmdSet_For_DGV()

  278.     End Sub

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

  280.         ConnOpen_ERP()

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

  282.         CmdSet_For_dr()

  283.     End Sub

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

  285.         ConnOpen_ERP()

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

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

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

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

  290.         CmdSet_For_dr()

  291.     End Sub

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

  293.         ConnOpen_ERP()

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

  295.         CmdSet_For_dr()

  296.     End Sub

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

  298.         ConnOpen_ERP()

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

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

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

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

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

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

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

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

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

  308.                 FROM        採購單明細表 INNER JOIN

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

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

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

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

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

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

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

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

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

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

  319.         CmdSet_For_DGV()

  320.     End Sub

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

  322.         ConnOpen_ERP()

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

  324.                                          DISC = N'" & PA3 & "', 稅 = N'" & BL1 & "', PPN = N'" & PA4 & "'

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

  326.         CmdSet_For_dr()

  327.     End Sub

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

  329.         ConnOpen_ERP()

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

  331.                                          DISC = N'" & PA3 & "', 稅 = N'" & BL1 & "', PPN = N'" & PA4 & "', 核對員 = '" & gUserName & "'

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

  333.         CmdSet_For_dr()

  334.     End Sub

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

  336.         ConnOpen_ERP()

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

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

  339.         CmdSet_For_dr()

  340.     End Sub

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

  342.         ConnOpen_ERP()

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

  344.         CmdSet_For_dr()

  345.     End Sub

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

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

  348.     End Sub

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

  350.         ConnOpen_ERP()

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

  352.         CmdSet_For_dr()

  353.     End Sub

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

  355.         ConnOpen_ERP()

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

  357.         CmdSet_For_dr()

  358.     End Sub

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

  360.         ConnOpen_ERP()

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

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

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

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

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

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

  367.                 ORDER BY 物料規格表.料號"

  368.         CmdSet_For_DGV()

  369.     End Sub

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

  371.         ConnOpen_ERP()

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

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

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

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

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

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

  378.                 ORDER BY 物料規格表.料號"

  379.         CmdSet_For_DGV()

  380.     End Sub

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

  382.         ConnOpen_ERP()

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

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

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

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

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

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

  389.         CmdSet_For_DGV()

  390.     End Sub

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

  392.         ConnOpen_ERP()

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

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

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

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

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

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

  399.         CmdSet_For_DGV()

  400.     End Sub

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

  402.         ConnOpen_ERP()

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

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

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

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

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

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

  409.         CmdSet_For_DGV()

  410.     End Sub

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

  412.         ConnOpen_ERP()

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

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

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

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

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

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

  419.         CmdSet_For_DGV()

  420.     End Sub

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

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

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

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

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

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

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

  428.                 ORDER BY   Pernyataan_Prinsip, PN_Bagian"

  429.     End Sub

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

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

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

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

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

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

  436.                 ORDER BY  Pernyataan_Prinsip, PN_Bagian"

  437.     End Sub

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

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

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

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

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

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

  444.                 ORDER BY  Pernyataan_Prinsip, PN_Bagian"

  445.     End Sub

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

  447.         ConnOpen_ERP()

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

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

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

  451.         CmdSet_For_dr()

  452.     End Sub

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

  454.         ConnOpen_ERP()

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

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

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

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

  459.         CmdSet_For_dr()

  460.     End Sub

  461. End Module