HX-PGS-ERP-SYS
/
Calculator-SYS-LEEHSIEHJUI
關註 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.
3 Commit
1 分支
目錄樹: 76895c0fe6
分支列表 標籤列表
${ item.name }
Create branch ${ searchTerm }
from '76895c0fe6'
${ noResults }
Calculator-SYS-LEEHSIEHJUI/Calculator-SYS/0、MyModule/資料庫/SQL_語法_2.vb

SQL_語法_2.vb 62KB
文件歷史 原始文件

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677 
  1. Module SQL_語法_2

  2.     Friend Sub SQL_建築物料請購單核准_請購單清單()

  3.         ConnOpen()

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

  5.         SQL1 = "SELECT      請購單明細表.請購單號, 請購單明細表.項次 AS [" & 表頭(11) & "], 

  6.                             物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 物料規格表.A1 AS [" & 表頭(13) & "], 

  7.                             請購單明細表.備註 AS [" & 表頭(14) & "], 請購單明細表.數量 AS [" & 表頭(15) & "], 

  8.                             物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲分區控制表.倉名 AS [" & 表頭(17) & "], 物料規格表.圖檔編號, 

  9.                             請購單明細表.群組碼, 請購單明細表.群組原則, 物料資訊控制表.規格庫編號, 

  10.                             物料資訊控制表.規格庫抬頭指定, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 

  11.                             物料規格表.A7, 物料規格表.A8 " & 低網 & "

  12.                 FROM        請購單明細表 INNER JOIN

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

  14.                             請購單明細表.群組原則 = 物料編碼庫.料號原則 INNER JOIN

  15.                             物料圖庫 ON 物料編碼庫.群組碼 = 物料圖庫.群組碼 AND 

  16.                             物料編碼庫.料號原則 = 物料圖庫.料號原則 LEFT OUTER JOIN

  17.                             物料資訊控制表 ON 請購單明細表.群組原則 = 物料資訊控制表.料號原則 LEFT OUTER JOIN

  18.                             物料規格表 ON 請購單明細表.料號 = 物料規格表.料號 LEFT OUTER JOIN

  19.                             倉儲分區控制表 ON 請購單明細表.用途 = 倉儲分區控制表.倉名編號 INNER JOIN

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

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

  22.                 WHERE      (請購單明細表.請購單號 LIKE N'" & 請購單核准.請購單號_tb.Text & "') AND (物料資訊控制表.規格庫編號 IS NOT NULL) AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')

  23.                 ORDER BY   [" & 表頭(11) & "]"

  24.         CmdSet_For_DGV()

  25.     End Sub

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

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

  28.     End Sub

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

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

  31.     End Sub

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

  33.         ConnOpen()

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

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

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

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

  38.                 FROM        請購單控制表 INNER JOIN

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

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

  41.                                   FROM           系統跨部門權限表

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

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

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

  45.         CmdSet_For_DGV()

  46.     End Sub

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

  48.         ConnOpen()

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

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

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

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

  53.                 FROM        請購單控制表 INNER JOIN

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

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

  56.                                   FROM           系統跨部門權限表

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

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

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

  60.         CmdSet_For_DGV()

  61.     End Sub

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

  63.         ConnOpen()

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

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

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

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

  68.                 FROM        請購單控制表 INNER JOIN

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

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

  71.                                   FROM           系統跨部門權限表

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

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

  74.                 WHERE      (請購單控制表.核准人 NOT LIKE N'作廢%') AND (請購單控制表.特殊 = 1) AND (請購單控制表.核准人 NOT LIKE N'') AND (使用者權限管理表.CC63 = 0)  

  75.                 ORDER BY    請購單控制表.請購單號 DESC"

  76.         CmdSet_For_DGV()

  77.     End Sub

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

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

  80.     End Sub

  81.     Friend Sub SQL_請購單審核_申請人資料()

  82.         ConnOpen() : SQL1 = "SELECT 部門, 課別, 組別, 級別 FROM 使用者權限管理表 WHERE (帳號 = '" & 請購單核准.申請人_tb.Text & "')" : CmdSet_For_dr()

  83.     End Sub

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

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

  86.     End Sub

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

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

  89.     End Sub

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

  91.         ConnOpen() : SQL1 = "UPDATE 請購單控制表 SET 核准人 = N'" & PA1 & "', 核准日期 = N'" & DTP & "' WHERE (請購單號 = N'" & PA & "')" : CmdSet_For_dr()

  92.     End Sub

  93.     Friend Sub SQL_請購單核准_加急核准()

  94.         ConnOpen() : SQL1 = "UPDATE 請購單控制表 SET 加急 = 1 WHERE (請購單號 = N'" & PA & "')" : CmdSet_For_dr()

  95.     End Sub

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

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

  98.     End Sub

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

  100.         ConnOpen()

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

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

  103.         CmdSet_For_dr()

  104.     End Sub

  105.     Friend Sub SQL_請購單需求日其修改()

  106.         ConnOpen() : SQL1 = "UPDATE 請購單控制表 SET 需求日期 = '" & DTP & "' WHERE 請購單號 LIKE N'" & PA1 & "'" : CmdSet_For_dr()

  107.     End Sub

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

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

  110.     End Sub

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

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

  113.     End Sub

  114.     '---------------------供應商管理-----------------------------------------------------------------------------------------------------------------

  115.     Friend Sub SQL_建築物料供應商資料管理_清單()

  116.         ConnOpen()

  117.         If PA = "" Then

  118.             SQL2 = ""

  119.         Else

  120.             SQL1 = " WHERE 供應商資料表.供應商編碼 LIKE N'%" & PA & "%' OR QQQ.類別 LIKE N'%" & PA & "%' OR 供應商資料表.公司名 LIKE N'%" & PA & "%' OR 供應商資料表.公司地址 LIKE N'%" & PA & "%' OR 

  121.                            供應商資料表.聯繫人1 LIKE N'%" & PA & "%' OR 供應商資料表.聯繫人2 LIKE N'%" & PA & "%' OR 供應商資料表.聯繫人3 LIKE N'%" & PA & "%' "

  122.         End If

  123.         SQL1 = "SELECT 供應商資料表.供應商編碼 AS [" & 表頭(49) & "], QQQ.類別 AS [" & 表頭(50) & "], 供應商資料表.公司名 AS [" & 表頭(51) & "], 供應商資料表.公司地址 AS [" & 表頭(52) & "], 

  124.                        供應商資料表.公司電話1 AS [" & 表頭(53) & "], 供應商資料表.公司電話2 AS [" & 表頭(54) & "], 供應商資料表.公司電話3 AS [" & 表頭(55) & "], 

  125.                        供應商資料表.公司傳真1 AS [" & 表頭(56) & "], 供應商資料表.公司傳真2 AS [" & 表頭(57) & "], 供應商資料表.公司傳真3 AS [" & 表頭(58) & "], 

  126.                        供應商資料表.聯繫人1 AS [" & 表頭(59) & "], 供應商資料表.聯繫人2 AS [" & 表頭(60) & "], 供應商資料表.聯繫人3 AS [" & 表頭(61) & "], 供應商資料表.聯繫人1職稱, 聯繫人2職稱, 

  127.                        供應商資料表.聯繫人3職稱, 供應商資料表.聯繫人1電話, 供應商資料表.聯繫人2電話, 供應商資料表.聯繫人3電話, 供應商資料表.聯繫人1郵箱, 供應商資料表.聯繫人2郵箱, 

  128.                        供應商資料表.聯繫人3郵箱, 供應商資料表.供應商簡稱 AS [key], 供應商資料表.特殊 AS [☆]

  129.                 FROM   供應商資料表 LEFT OUTER JOIN

  130.                                 (SELECT          編碼, 語言, 類別

  131.                                   FROM           供應商類別

  132.                                   WHERE         (供應商類別.語言 LIKE N'" & 系統語言 & "')) AS QQQ ON 供應商資料表.供應商簡稱 = QQQ.編碼

  133.                 " & SQL2 & " 

  134.                 ORDER BY 供應商資料表.供應商編碼"

  135.         CmdSet_For_DGV()

  136.     End Sub

  137.     Friend Sub SQL_供應商類別_下拉清單()

  138.         ConnOpen() : SQL1 = "SELECT 類別 FROM 供應商類別 WHERE 語言 LIKE N'" & 系統語言 & "' ORDER BY 編碼" : CmdSet_For_dr()

  139.     End Sub

  140.     Friend Sub SQL_建築物料供應商資料管理_最後一筆資料()

  141.         ConnOpen() : SQL1 = "SELECT TOP (1) 供應商編碼 FROM 供應商資料表 ORDER BY 供應商編碼 DESC" : CmdSet_For_dr()

  142.     End Sub

  143.     Friend Sub SQL_供應商資料表_新增()

  144.         ConnOpen()

  145.         SQL1 = "INSERT INTO 供應商資料表 (供應商編碼, 供應商簡稱, 公司名, 公司地址, 公司電話1, 公司電話2, 公司電話3, 公司傳真1, 公司傳真2, 公司傳真3, 聯繫人1, 聯繫人2, 聯繫人3, 聯繫人1職稱, 

  146.                                           聯繫人2職稱, 聯繫人3職稱, 聯繫人1電話, 聯繫人2電話, 聯繫人3電話, 聯繫人1郵箱, 聯繫人2郵箱, 聯繫人3郵箱, 特殊) 

  147.                 VALUES (N'" & 供應商管理.供應商編號_tb.Text & "',N'" & 供應商管理.供應商簡稱_tb.Text & "',N'" & 供應商管理.公司名_tb.Text & "',

  148.                         N'" & 供應商管理.地址_tb.Text & "',N'" & 供應商管理.電話1_tb.Text & "',N'" & 供應商管理.電話2_tb.Text & "',

  149.                         N'" & 供應商管理.電話3_tb.Text & "', N'" & 供應商管理.傳真1_tb.Text & "',N'" & 供應商管理.傳真2_tb.Text & "',

  150.                         N'" & 供應商管理.傳真3_tb.Text & "',N'" & 供應商管理.聯繫人1_tb.Text & "', N'" & 供應商管理.聯繫人2_tb.Text & "',

  151.                         N'" & 供應商管理.聯繫人3_tb.Text & "',N'" & 供應商管理.職稱1_tb.Text & "',N'" & 供應商管理.職稱2_tb.Text & "',

  152.                         N'" & 供應商管理.職稱3_tb.Text & "',N'" & 供應商管理.聯繫電話1_tb.Text & "',N'" & 供應商管理.聯繫電話2_tb.Text & "',

  153.                         N'" & 供應商管理.聯繫電話3_tb.Text & "',N'" & 供應商管理.信箱1_tb.Text & "',N'" & 供應商管理.信箱2_tb.Text & "',

  154.                         N'" & 供應商管理.信箱3_tb.Text & "', '" & 供應商管理.特殊_ch.Checked & "')"

  155.         CmdSet_For_dr()

  156.     End Sub

  157.     Friend Sub SQL_供應商資料表_修改()

  158.         ConnOpen()

  159.         SQL1 = "UPDATE 供應商資料表 SET 供應商簡稱 = N'" & 供應商管理.供應商簡稱_tb.Text & "', 公司名 = N'" & 供應商管理.公司名_tb.Text & "', 

  160.                                         公司地址 = N'" & 供應商管理.地址_tb.Text & "', 公司電話1 = N'" & 供應商管理.電話1_tb.Text & "', 

  161.                                         公司電話2 = N'" & 供應商管理.電話2_tb.Text & "', 公司電話3 = N'" & 供應商管理.電話3_tb.Text & "', 

  162.                                         公司傳真1 = N'" & 供應商管理.傳真1_tb.Text & "', 公司傳真2 = N'" & 供應商管理.傳真2_tb.Text & "', 

  163.                                         公司傳真3 = N'" & 供應商管理.傳真3_tb.Text & "', 聯繫人1 = N'" & 供應商管理.聯繫人1_tb.Text & "', 

  164.                                         聯繫人2 = N'" & 供應商管理.聯繫人2_tb.Text & "', 聯繫人3 = N'" & 供應商管理.聯繫人3_tb.Text & "', 

  165.                                         聯繫人1職稱 = N'" & 供應商管理.職稱1_tb.Text & "', 聯繫人2職稱 = N'" & 供應商管理.職稱2_tb.Text & "', 

  166.                                         聯繫人3職稱 = N'" & 供應商管理.職稱3_tb.Text & "', 聯繫人1電話 = N'" & 供應商管理.聯繫電話1_tb.Text & "', 

  167.                                         聯繫人2電話 = N'" & 供應商管理.聯繫電話2_tb.Text & "', 聯繫人3電話 = N'" & 供應商管理.聯繫電話3_tb.Text & "', 

  168.                                         聯繫人1郵箱 = N'" & 供應商管理.信箱1_tb.Text & "', 聯繫人2郵箱 = N'" & 供應商管理.信箱2_tb.Text & "', 

  169.                                         聯繫人3郵箱 = N'" & 供應商管理.信箱3_tb.Text & "', 特殊 = '" & 供應商管理.特殊_ch.Checked & "' 

  170.                  WHERE (供應商編碼 = '" & 供應商管理.供應商編號_tb.Text & "')"

  171.         CmdSet_For_dr()

  172.     End Sub

  173.     Friend Sub SQL_供應商資料表_刪除()

  174.         ConnOpen() : SQL1 = "DELETE FROM 供應商資料表 WHERE (供應商編碼 = '" & 供應商管理.供應商編號_tb.Text & "')" : CmdSet_For_dr()

  175.     End Sub

  176.     Friend Sub SQL_供應商類別管理_查詢()

  177.         ConnOpen() : SQL1 = "SELECT TOP (1) 編碼, 語言, 類別 FROM 供應商類別 WHERE 類別 LIKE N'" & PA20 & "' ORDER BY   編碼, 語言" : CmdSet_For_dr()

  178.     End Sub

  179.     '---------------------供應商類別管理-----------------------------------------------------------------------------------------------------------------

  180.     Friend Sub SQL_供應商類別()

  181.         ConnOpen() : SQL1 = "SELECT 編碼, 語言, 類別 FROM 供應商類別 ORDER BY   編碼, 語言" : CmdSet_For_DGV()

  182.     End Sub

  183.     Friend Sub SQL_供應商類別管理_最後一筆資料()

  184.         ConnOpen() : SQL1 = "SELECT TOP (1) 編碼 FROM 供應商類別 ORDER BY 編碼 DESC" : CmdSet_For_dr()

  185.     End Sub

  186.     Friend Sub SQL_供應商類別管理_新增()

  187.         ConnOpen() : SQL1 = "INSERT INTO 供應商類別 (編碼, 語言, 類別) VALUES (N'" & PA1 & "',N'" & PA2 & "',N'" & PA3 & "')" : CmdSet_For_dr()

  188.     End Sub

  189.     Friend Sub SQL_供應商類別管理_修改()

  190.         ConnOpen() : SQL1 = "UPDATE 供應商類別 SET 類別 = N'" & PA3 & "' WHERE 編碼 LIKE N'" & PA1 & "' AND 語言 LIKE N'" & PA2 & "'" : CmdSet_For_dr()

  191.     End Sub

  192.     Friend Sub SQL_供應商類別管理_刪除()

  193.         ConnOpen() : SQL1 = "DELETE 供應商類別 WHERE 編碼 LIKE N'" & PA1 & "'" : CmdSet_For_dr()

  194.     End Sub

  195.     '---------------------供應商商品單價設定-----------------------------------------------------------------------------------------------------------------

  196.     Friend Sub SQL_物料群組()

  197.         ConnOpen()

  198.         If 物料查詢 = False Then

  199.             SQL1 = "SELECT     物料群組轉語言.群組碼, 物料群組轉語言.群組, 物料群組.圖片

  200.                     FROM       物料群組轉語言 INNER JOIN 物料群組 ON 物料群組轉語言.群組碼 = 物料群組.群組碼

  201.                     WHERE     (物料群組轉語言.主項 LIKE '" & PA1 & "') AND (物料群組轉語言.語言 LIKE '" & 系統語言 & "')

  202.                     ORDER BY   物料群組轉語言.群組碼"

  203.         Else

  204.             SQL1 = "SELECT    物料群組轉語言.群組碼, 物料群組轉語言.群組, 物料群組.圖片

  205.                     FROM      物料群組轉語言 INNER JOIN

  206.                               物料群組 ON 物料群組轉語言.群組碼 = 物料群組.群組碼 INNER JOIN

  207.                              (SELECT    群組碼  FROM  物料編碼庫轉語言  WHERE  (品名 LIKE N'%" & 物料關鍵字 & "%')

  208.                               GROUP BY  群組碼) AS QQ ON 物料群組轉語言.群組碼 = QQ.群組碼

  209.                     WHERE    (物料群組轉語言.語言 LIKE '" & 系統語言 & "')

  210.                     ORDER BY  物料群組轉語言.群組碼"

  211.         End If

  212.         CmdSet_For_DGV()

  213.     End Sub

  214.     Friend Sub SQL_供應商商品_歷史採購清單()

  215.         ConnOpen()

  216.         SQL1 = "SELECT    採購單控制表.供應商編號 AS [" & 表頭(6) & "], 採購單明細表.料號 AS [" & 表頭(1) & "], 採購單明細表.單價 AS [" & 表頭(3) & "], 

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

  218.                 FROM      採購單明細表 FULL OUTER JOIN 採購單控制表 ON 採購單明細表.採購單號 = 採購單控制表.採購單號

  219.                 WHERE    (採購單控制表.供應商編號 LIKE '" & PA & "')

  220.                 ORDER BY  採購單明細表.料號, SUBSTRING(採購單明細表.採購單號, 7, 12) DESC"

  221.         CmdSet_For_DGV()

  222.     End Sub

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

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

  225.         If 物料查詢 = False Then

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

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

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

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

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

  231.                     ORDER BY   Pernyataan_Prinsip, PN_Bagian"

  232.         Else

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

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

  235.                     FROM      物料編碼庫 INNER JOIN

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

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

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

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

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

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

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

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

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

  245.                     ORDER BY  Pernyataan_Prinsip, PN_Bagian"

  246.         End If

  247.     End Sub

  248.     Friend Sub SQL_供應商商品_採購清單()

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

  250.         ConnOpen()

  251.         SQL1 = "SELECT    供應商產品清單.供應商編碼 AS [" & 表頭(0) & "], 供應商產品清單.料號 AS [" & 表頭(1) & "], 物料編碼庫轉語言.品名 AS [" & 表頭(2) & "], 

  252.                           供應商產品清單.單價 AS [" & 表頭(3) & "], 供應商產品清單.備註 AS [" & 表頭(4) & "], 物料資訊控制表.規格庫編號, 物料規格表.A1, 物料規格表.A2, 

  253.                           物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, QQ.A1 AS AA1, QQ.A2 AS AA2, QQ.A3 AS AA3, QQ.A4 AS AA4, 

  254.                           QQ.A5 AS AA5, QQ.A6 AS AA6, QQ.A7 AS AA7, QQ.A8 AS AA8, 供應商產品清單.日期 AS [" & 表頭(5) & "], 物料資訊控制表.群組碼, 物料資訊控制表.料號原則, 

  255.                           物料規格表.特殊 AS [☆] " & 低網 & "

  256.                 FROM      物料資訊控制表 INNER JOIN

  257.                           物料規格表 ON 物料資訊控制表.料號原則 = 物料規格表.料號原則 INNER JOIN

  258.                           物料圖庫 ON 物料規格表.料號原則 = 物料圖庫.料號原則 INNER JOIN

  259.                           (SELECT          規格庫抬頭指定, A1, A2, A3, A4, A5, A6, A7, A8, 語言

  260.                            FROM            規格庫抬頭

  261.                            WHERE          (語言 LIKE '" & 系統語言 & "')) AS QQ ON 

  262.                           物料資訊控制表.規格庫抬頭指定 = QQ.規格庫抬頭指定 INNER JOIN

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

  264.                           供應商產品清單 ON 物料規格表.料號 = 供應商產品清單.料號

  265.                 WHERE    (供應商產品清單.供應商編碼 LIKE '" & PA & "') AND (物料編碼庫轉語言.語言 LIKE '" & 系統語言 & "')

  266.                 ORDER BY  供應商產品清單.料號"

  267.         CmdSet_For_DGV()

  268.     End Sub

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

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

  271.     End Sub

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

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

  274.     End Sub

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

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

  277.     End Sub

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

  279.         ConnOpen()

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

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

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

  283.         CmdSet_For_dr()

  284.     End Sub

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

  286.         ConnOpen()

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

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

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

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

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

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

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

  294.         CmdSet_For_DGV()

  295.     End Sub

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

  297.         ConnOpen()

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

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

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

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

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

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

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

  305.         CmdSet_For_DGV()

  306.     End Sub

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

  308.         ConnOpen()

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

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

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

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

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

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

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

  316.         CmdSet_For_DGV()

  317.     End Sub

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

  319.         ConnOpen()

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

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

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

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

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

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

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

  327.         CmdSet_For_DGV()

  328.     End Sub

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

  330.         ConnOpen()

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

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

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

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

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

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

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

  338.         CmdSet_For_DGV()

  339.     End Sub

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

  341.         ConnOpen()

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

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

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

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

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

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

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

  349.         CmdSet_For_DGV()

  350.     End Sub

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

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

  353.     End Sub

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

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

  356.     End Sub

  357.     Friend Sub SQL_供應商商品_採購清單_新增()

  358.         ConnOpen()

  359.         SQL1 = "INSERT INTO 供應商產品清單 (供應商編碼, 料號, 單價, 備註, 日期) VALUES (N'" & PA1 & "',N'" & PA2 & "',N'" & PA3 & "',N'" & PA4 & "',N'" & PA5 & "')"

  360.         CmdSet_For_dr()

  361.     End Sub

  362.     Friend Sub SQL_供應商商品_採購清單_修改()

  363.         ConnOpen()

  364.         SQL1 = "UPDATE 供應商產品清單 SET 單價 = N'" & PA3 & "', 日期 = N'" & PA5 & "' WHERE 供應商編碼 LIKE N'" & PA1 & "' AND 料號 LIKE N'" & PA2 & "'"

  365.         CmdSet_For_dr()

  366.     End Sub

  367.     Friend Sub SQL_供應商商品_採購清單_查詢()

  368.         ConnOpen() : SQL1 = "SELECT 料號 FROM  供應商產品清單 WHERE 供應商編碼 LIKE N'" & PA1 & "' AND 料號 LIKE N'" & PA2 & "'" : CmdSet_For_dr()

  369.     End Sub

  370.     Friend Sub SQL_供應商商品_採購清單_修改1()

  371.         ConnOpen()

  372.         SQL1 = "UPDATE 供應商產品清單 SET 單價 = N'" & PA3 & "', 備註 = N'" & PA4 & "' WHERE 供應商編碼 LIKE N'" & PA1 & "' AND 料號 LIKE N'" & PA2 & "'"

  373.         CmdSet_For_dr()

  374.         ConnOpen()

  375.         SQL1 = "UPDATE 物料規格表 SET 特殊 = '" & PA45 & "' WHERE 料號 LIKE N'" & PA2 & "'"

  376.         CmdSet_For_dr()

  377.     End Sub

  378.     Friend Sub SQL_供應商商品_採購清單_刪除()

  379.         ConnOpen() : SQL1 = "DELETE 供應商產品清單 WHERE 供應商編碼 LIKE N'" & PA1 & "' AND 料號 LIKE N'" & PA2 & "'" : CmdSet_For_dr()

  380.     End Sub

  381.     Friend Sub SQL_零用金基本設定存檔()

  382.         ConnOpen()

  383.         SQL1 = "UPDATE  系統預設值 SET  內帳加班 = '" & 每月零用金設定.加班_nud.Value & "', 內帳折數 = '" & 每月零用金設定.折數_nud.Value & "', 

  384.                                         內帳單量 = '" & 每月零用金設定.每日單量_nud.Value & "', 內帳採購最高 = '" & 每月零用金設定.每單最高_nud.Value & "'"

  385.         CmdSet_For_dr()

  386.     End Sub

  387.     Friend Sub SQL_零用金基本設定()

  388.         ConnOpen() : SQL1 = "SELECT  內帳加班, 內帳折數, 內帳單量, 內帳採購最高  FROM  系統預設值" : CmdSet_For_dr()

  389.     End Sub

  390.     Friend Sub SQL_採購單控制表_單號最後一筆()

  391.         ConnOpen()

  392.         SQL1 = "SELECT TOP (1)  採購單號 FROM 採購單控制表 WHERE ( 採購單號 LIKE N'" & PA1 & "')"

  393.         CmdSet_For_dr()

  394.     End Sub

  395.     Friend Sub SQL_加權平均()

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

  397.     End Sub

  398.     Friend Sub SQL_最近日期()

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

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

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

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

  403.         CmdSet_For_DGV()

  404.     End Sub

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

  406.         ConnOpen()

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

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

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

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

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

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

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

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

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

  416.                 FROM        採購單明細表 INNER JOIN

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

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

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

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

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

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

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

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

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

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

  427.         CmdSet_For_DGV()

  428.     End Sub

  429.     Friend Sub SQL_建築物料採購單一級核准_清單()

  430.         ConnOpen()

  431.         SQL1 = "SELECT      採購單控制表.採購單號 AS [" & 表頭(18) & "], 採購單控制表.供應商編號, 採購單控制表.需求日期, 採購單控制表.使用地點, 

  432.                             採購單控制表.核對員, 採購單控制表.核對日期, 採購單控制表.詢價員, 採購單控制表.尋價日期, 採購單控制表.核准, 

  433.                             採購單控制表.核准日期, 採購單控制表.簽名檔編號, 採購單控制表.驗證碼, 採購單控制表.請購單號, 採購單控制表.DISC, 

  434.                             採購單控制表.稅, 採購單控制表.PPN, 採購單控制表.一級核准, 採購單控制表.一級核准核准日期, 採購單控制表.一級核准簽名檔編號, 

  435.                             SUM(採購單明細表.數量 * 採購單明細表.單價) AS 總價, 採購單明細表.合約號, 採購單控制表.採購單號 AS [NO.], 

  436.                             採購單控制表.已會計 AS [" & 表頭(0) & "], 採購單控制表.已出納 AS [" & 表頭(1) & "], 採購單控制表.備用金 AS 選擇

  437.                 FROM        採購單控制表 LEFT OUTER JOIN 採購單明細表 ON 採購單控制表.採購單號 = 採購單明細表.採購單號

  438.                 WHERE      (採購單控制表.核准 LIKE N'') AND (採購單控制表.供應商編號 NOT LIKE N'') AND 

  439.                            (採購單控制表.一級核准 LIKE N'' OR 採購單控制表.一級核准 IS NULL) AND (採購單控制表.特殊 = 1)

  440.                 GROUP BY    採購單控制表.採購單號, 採購單控制表.供應商編號, 採購單控制表.需求日期, 採購單控制表.使用地點, 採購單控制表.核對員, 

  441.                             採購單控制表.核對日期, 採購單控制表.詢價員, 採購單控制表.尋價日期, 採購單控制表.核准, 採購單控制表.核准日期, 

  442.                             採購單控制表.簽名檔編號, 採購單控制表.驗證碼, 採購單控制表.請購單號, 採購單控制表.DISC, 採購單控制表.稅, 採購單控制表.PPN, 

  443.                             採購單控制表.一級核准, 採購單控制表.一級核准核准日期, 採購單控制表.一級核准簽名檔編號, 採購單明細表.合約號, 

  444.                             採購單控制表.已會計, 採購單控制表.已出納, 採購單控制表.備用金

  445.                 ORDER BY    SUBSTRING(採購單控制表.採購單號, 7, 8) DESC"

  446.         CmdSet_For_DGV()

  447.     End Sub

  448.     Friend Sub SQL_物料最新單價查詢()

  449.         ConnOpen() : SQL1 = "SELECT 料號, 單價, 備註, 日期 FROM 供應商產品清單 WHERE (供應商編碼 LIKE '" & PA14 & "')" : CmdSet_For_DGV()

  450.     End Sub

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

  452.         ConnOpen()

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

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

  455.         Else

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

  457.         End If

  458.         CmdSet_For_DGV()

  459.     End Sub

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

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

  462.     End Sub

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

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

  465.     End Sub

  466.     Friend Sub SQL_料號比對價格()

  467.         ConnOpen() : SQL1 = "SELECT    採購單號 AS  [" & 表頭(24) & "] , 合約號 AS  [" & 表頭(134) & "], 申請人 AS  [" & 表頭(19) & "], 單價 AS  [" & 表頭(26) & "], 

  468.                                        SUBSTRING(採購單號, 7, 8) AS 排序

  469.                              FROM      採購單明細表

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

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

  472.         CmdSet_For_DGV()

  473.     End Sub

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

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

  476.     End Sub

  477.     Friend Sub SQL_建築物料採購單一級核准_不需二級()

  478.         ConnOpen()

  479.         SQL1 = "UPDATE 採購單控制表 SET  一級核准 = N'" & gUserName & "', 一級核准核准日期 = N'" & DTP & "',一級核准簽名檔編號 = N'" & 採購單一級核准.圖片編碼_tb.Text & "',

  480.                                          核准 = N'" & gUserName & "', 核准日期 = N'" & DTP & "', 簽名檔編號 = N'" & 採購單一級核准.圖片編碼_tb.Text & "', 

  481.                                          驗證碼 = N'" & 採購單一級核准.驗證碼_tb.Text & "', 手動號碼 = N'" & 採購單一級核准.手動號碼_tb.Text & "'

  482.                 WHERE (採購單號 LIKE N'" & 採購單一級核准.採購單號_tb.Text & "')"

  483.         CmdSet_For_dr()

  484.     End Sub

  485.     Friend Sub SQL_建築物料採購單一級核准_需二級()

  486.         ConnOpen()

  487.         SQL1 = "UPDATE 採購單控制表 SET  一級核准 = N'" & gUserName & "', 一級核准核准日期 = N'" & DTP & "',一級核准簽名檔編號 = N'" & 採購單一級核准.圖片編碼_tb.Text & "', 

  488.                                          手動號碼 = N'" & 採購單一級核准.手動號碼_tb.Text & "' 

  489.                 WHERE (採購單號 LIKE N'" & 採購單一級核准.採購單號_tb.Text & "')"

  490.         CmdSet_For_dr()

  491.     End Sub

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

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

  494.     End Sub

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

  496.         ConnOpen()

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

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

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

  500.         CmdSet_For_dr()

  501.     End Sub

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

  503.         ConnOpen()

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

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

  506.         CmdSet_For_dr()

  507.     End Sub

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

  509.         ConnOpen()

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

  511.         CmdSet_For_dr()

  512.     End Sub

  513.     Friend Sub SQL_建築物料採購單一級核准料_新項次()

  514.         ConnOpen() : SQL1 = "UPDATE 採購單明細表 SET 項次 = N'" & PA18 & "' WHERE (採購單號 LIKE N'" & PA19 & "' AND 項次 LIKE N'" & PA20 & "')" : CmdSet_For_dr()

  515.     End Sub

  516.     Friend Sub SQL_財務單會計科目3()

  517.         ConnOpen()

  518.         SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 

  519.                 WHERE (LEFT(編號, 7) LIKE N'" & PA26 & "') AND (停用 = 0) AND (統制科目 = 0) AND 英文名稱 LIKE N'" & 系統語言 & "' ORDER BY 會計科目"

  520.         CmdSet_For_dr()

  521.     End Sub

  522.     Friend Sub SQL_財務單會計科目1()

  523.         ConnOpen()

  524.         SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目  WHERE (停用 = 0) AND 英文名稱 LIKE N'" & 系統語言 & "' GROUP BY 第一階, LEFT(編號, 4) ORDER BY 編號"

  525.         CmdSet_For_dr()

  526.     End Sub

  527.     Friend Sub SQL_財務單會計科目2()

  528.         ConnOpen()

  529.         SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 

  530.                 WHERE (LEFT(編號, 4) LIKE N'" & PA25 & "') AND (層級 NOT LIKE N'3') AND (停用 = 0) AND LEFT(編號, 7) NOT LIKE '%00' AND 英文名稱 LIKE N'" & 系統語言 & "'

  531.                 GROUP BY   LEFT(編號, 7), 第二階, 層級 ORDER BY   第二階"

  532.         CmdSet_For_dr()

  533.     End Sub

  534.     Friend Sub SQL_營運成本收支單申請_查詢匯率()

  535.         ConnOpen()

  536.         SQL1 = "SELECT 中心匯率, 美金匯率, 印尼盾 FROM 歷史匯率表 

  537.                 WHERE (年 LIKE N'" & Strings.Left(Format(財物支付單申請_傳票.申請日期_dtp.Value, "yyyyMMdd"), 4) & "%') AND 

  538.                       (月 LIKE N'" & Strings.Mid(Format(財物支付單申請_傳票.申請日期_dtp.Value, "yyyyMMdd"), 5, 2) & "%')"

  539.         CmdSet_For_dr()

  540.     End Sub

  541.     Friend Sub SQL_營運成本收支單申請_查詢收支單公帳流水號()

  542.         ConnOpen() : SQL1 = "SELECT 流水號 FROM 財務收支明細表 WHERE (流水號 ='" & PA19 & "')" : CmdSet_For_dr()

  543.     End Sub

  544.     Friend Sub SQL_財物支付單修改()

  545.         ConnOpen()

  546.         SQL1 = "UPDATE 財務收支明細表 SET  明細 = N'" & PA1 & "', 支出 = N'" & PA2 & "', 類別 = N'" & PA4 & "', 大寫 = N'" & PA3 & "', 支付對象 = N'" & PA5 & "', 公司 = N'" & PA7 & "', 

  547.                                            付款銀行 = N'" & PA8 & "', 銀行支行 = N'" & PA10 & "'

  548.                 WHERE  (支付單號 LIKE N'" & PA6 & "' AND 項次 LIKE N'" & PA9 & "')"

  549.         CmdSet_For_dr()

  550.     End Sub

  551. 

  552.     Friend Sub SQL_建築物料採購單一覽表_明細()

  553.         ConnOpen()

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

  555.         SQL1 = "SELECT      採購單明細表.採購單號 AS 請購單號, 採購單明細表.項次 AS [" & 表頭(2) & "], 採購單明細表.合約號 AS [" & 表頭(134) & "],

  556.                             物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 物料規格表.A1 AS [" & 表頭(13) & "], 

  557.                             採購單明細表.備註 AS [" & 表頭(14) & "], 採購單明細表.數量 AS [" & 表頭(15) & "], 

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

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

  560.                             採購單明細表.料號原則, 採購單明細表.料號, 物料規格表.圖檔編號, 採購單明細表.項次, 採購單明細表.請購單號 AS [KEY], 物料資訊控制表.規格庫編號, 

  561.                             物料資訊控制表.規格庫抬頭指定, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 

  562.                             物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8,採購單明細表.申請人 AS [" & 表頭(19) & "]" & 低網 & "

  563.                  FROM       採購單明細表 INNER JOIN

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

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

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

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

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

  569.                             HX選擇按鈕 ON 採購單明細表.採購單號 = HX選擇按鈕.對應 LEFT OUTER JOIN

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

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

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

  573.                  WHERE     (採購單明細表.採購單號 LIKE N'" & 採購單歷史檔案.採購單號_tb.Text & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')

  574.                  ORDER BY   [" & 表頭(2) & "]"

  575.         CmdSet_For_DGV()

  576.     End Sub

  577.     Friend Sub SQL_建築物料採購單一覽表_已核准()

  578.         ConnOpen()

  579.         SQL1 = "SELECT     QQ.[" & 表頭(18) & "], QQ.供應商編號, QQ.需求日期, QQ.使用地點, QQ.核對員, QQ.核對日期, QQ.詢價員, QQ.尋價日期, QQ.核准, 

  580.                            QQ.核准日期, QQ.簽名檔編號, QQ.驗證碼, QQ.請購單號, QQ.DISC, QQ.稅, QQ.PPN, QQ.一級核准簽名檔編號, 

  581.                            QQ.一級核准核准日期, QQ.採購員, QQ.採購日期, QQ.手動號碼, QQ.公司名 AS [" & 表頭(6) & "], QQ.轉財務金額 AS [" & 表頭(8) & "], 

  582.                            QQ.轉財務金額 AS [" & 表頭(9) & "], QQ.總金額 AS [" & 表頭(7) & "], 

  583.                            HX空白圖片.圖片 AS [Select All], HX空白圖片.圖片 AS [To DK], HX空白圖片.圖片 AS [Save], QQ.[" & 表頭(0) & "], QQ.[" & 表頭(1) & "]

  584.                 FROM       HX空白圖片 RIGHT OUTER JOIN

  585.                           (SELECT    採購單控制表.採購單號 AS [" & 表頭(18) & "], 採購單控制表.供應商編號, 採購單控制表.需求日期, 

  586.                                      採購單控制表.使用地點, 採購單控制表.核對員, 採購單控制表.核對日期, 採購單控制表.詢價員, 

  587.                                      採購單控制表.尋價日期, 採購單控制表.核准, 採購單控制表.核准日期, 採購單控制表.簽名檔編號, 

  588.                                      採購單控制表.驗證碼, 採購單控制表.請購單號, 採購單控制表.DISC, 採購單控制表.稅, 

  589.                                      採購單控制表.PPN, 採購單控制表.一級核准簽名檔編號, 採購單控制表.一級核准核准日期, 

  590.                                      採購單控制表.採購員, 採購單控制表.採購日期, 採購單控制表.手動號碼, 供應商資料表.公司名, 

  591.                                      採購單控制表.轉財務金額, SUM(採購單明細表.數量 * 採購單明細表.單價) AS 總金額, 

  592.                                      採購單控制表.已會計 AS [" & 表頭(0) & "], 採購單控制表.已出納 AS [" & 表頭(1) & "]

  593.                            FROM      採購單控制表 LEFT OUTER JOIN

  594.                                      採購單明細表 ON 採購單控制表.採購單號 = 採購單明細表.採購單號 LEFT OUTER JOIN

  595.                                      供應商資料表 ON 採購單控制表.供應商編號 = 供應商資料表.供應商編碼

  596.                            WHERE    (採購單控制表.核准 NOT LIKE N'') AND (採購單控制表.核准 NOT LIKE N'作廢%') AND (採購單控制表.特殊 = 1)

  597.                            GROUP BY  採購單控制表.採購單號, 採購單控制表.供應商編號, 採購單控制表.需求日期, 採購單控制表.使用地點, 

  598.                                      採購單控制表.核對員, 採購單控制表.核對日期, 採購單控制表.詢價員, 採購單控制表.尋價日期, 

  599.                                      採購單控制表.核准, 採購單控制表.核准日期, 採購單控制表.簽名檔編號, 採購單控制表.驗證碼, 

  600.                                      採購單控制表.請購單號, 採購單控制表.DISC, 採購單控制表.稅, 採購單控制表.PPN, 

  601.                                      採購單控制表.一級核准簽名檔編號, 採購單控制表.一級核准核准日期, 採購單控制表.採購員, 

  602.                                      採購單控制表.採購日期, 採購單控制表.手動號碼, 供應商資料表.公司名, 採購單控制表.轉財務金額, 

  603.                                      採購單控制表.已會計, 採購單控制表.已出納) AS QQ ON 

  604.                            HX空白圖片.選擇 = QQ.供應商編號

  605.                 ORDER BY   QQ.公司名, SUBSTRING(QQ.[" & 表頭(18) & "], 7, 8) DESC"

  606.         CmdSet_For_DGV()

  607.     End Sub

  608.     Friend Sub SQL_建築物料採購單一覽表_已核准1()

  609.         ConnOpen()

  610.         SQL1 = "SELECT     QQ.[" & 表頭(18) & "], QQ.供應商編號, QQ.需求日期, QQ.使用地點, QQ.核對員, QQ.核對日期, QQ.詢價員, QQ.尋價日期, QQ.核准, 

  611.                            QQ.核准日期, QQ.簽名檔編號, QQ.驗證碼, QQ.請購單號, QQ.DISC, QQ.稅, QQ.PPN, QQ.一級核准簽名檔編號, 

  612.                            QQ.一級核准核准日期, QQ.採購員, QQ.採購日期, QQ.手動號碼, QQ.公司名 AS [" & 表頭(6) & "], QQ.轉財務金額 AS [" & 表頭(8) & "], 

  613.                            QQ.轉財務金額 AS [" & 表頭(9) & "], QQ.總金額 AS [" & 表頭(7) & "], 

  614.                            HX空白圖片.圖片 AS [Select All], HX空白圖片.圖片 AS [To DK], HX空白圖片.圖片 AS [Save], QQ.[" & 表頭(0) & "], QQ.[" & 表頭(1) & "]

  615.                 FROM       HX空白圖片 RIGHT OUTER JOIN

  616.                           (SELECT    採購單控制表.採購單號 AS [" & 表頭(18) & "], 採購單控制表.供應商編號, 採購單控制表.需求日期, 

  617.                                      採購單控制表.使用地點, 採購單控制表.核對員, 採購單控制表.核對日期, 採購單控制表.詢價員, 

  618.                                      採購單控制表.尋價日期, 採購單控制表.核准, 採購單控制表.核准日期, 採購單控制表.簽名檔編號, 

  619.                                      採購單控制表.驗證碼, 採購單控制表.請購單號, 採購單控制表.DISC, 採購單控制表.稅, 

  620.                                      採購單控制表.PPN, 採購單控制表.一級核准簽名檔編號, 採購單控制表.一級核准核准日期, 

  621.                                      採購單控制表.採購員, 採購單控制表.採購日期, 採購單控制表.手動號碼, 供應商資料表.公司名, 

  622.                                      採購單控制表.轉財務金額, SUM(採購單明細表.數量 * 採購單明細表.單價) AS 總金額, 

  623.                                      採購單控制表.已會計 AS [" & 表頭(0) & "], 採購單控制表.已出納 AS [" & 表頭(1) & "]

  624.                            FROM      採購單控制表 LEFT OUTER JOIN

  625.                                      採購單明細表 ON 採購單控制表.採購單號 = 採購單明細表.採購單號 LEFT OUTER JOIN

  626.                                      供應商資料表 ON 採購單控制表.供應商編號 = 供應商資料表.供應商編碼

  627.                            WHERE    (採購單控制表.核准 NOT LIKE N'') AND (採購單控制表.核准 NOT LIKE N'作廢%') AND (採購單控制表.特殊 = 1)

  628.                            GROUP BY  採購單控制表.採購單號, 採購單控制表.供應商編號, 採購單控制表.需求日期, 採購單控制表.使用地點, 

  629.                                      採購單控制表.核對員, 採購單控制表.核對日期, 採購單控制表.詢價員, 採購單控制表.尋價日期, 

  630.                                      採購單控制表.核准, 採購單控制表.核准日期, 採購單控制表.簽名檔編號, 採購單控制表.驗證碼, 

  631.                                      採購單控制表.請購單號, 採購單控制表.DISC, 採購單控制表.稅, 採購單控制表.PPN, 

  632.                                      採購單控制表.一級核准簽名檔編號, 採購單控制表.一級核准核准日期, 採購單控制表.採購員, 

  633.                                      採購單控制表.採購日期, 採購單控制表.手動號碼, 供應商資料表.公司名, 採購單控制表.轉財務金額, 

  634.                                      採購單控制表.已會計, 採購單控制表.已出納

  635.                            HAVING  ((SUM(採購單明細表.數量 * 採購單明細表.單價)) + (SUM(採購單明細表.數量 * 採購單明細表.單價) / 100 *  採購單控制表.PPN) - 

  636.                                     (SUM(採購單明細表.數量 * 採購單明細表.單價) / 100 *  採購單控制表.DISC) - 採購單控制表.轉財務金額) > 0) AS QQ ON 

  637.                            HX空白圖片.選擇 = QQ.供應商編號

  638.                 ORDER BY   QQ.公司名, SUBSTRING(QQ.[" & 表頭(18) & "], 7, 8) DESC"

  639.         CmdSet_For_DGV()

  640.     End Sub

  641.     Friend Sub SQL_建築物料採購單一覽表_已作廢()

  642.         ConnOpen()

  643.         If Val(登入人級別) <= 4 Then

  644.             SQL1 = "SELECT 採購單號 AS [" & 表頭(18) & "], 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 簽名檔編號, 驗證碼, 請購單號, DISC, 稅, PPN, 

  645.                            一級核准簽名檔編號

  646.                     FROM 採購單控制表 WHERE (核准 LIKE N'作廢%') ORDER BY   採購單號 DESC"

  647.         Else

  648.             SQL1 = "SELECT 採購單號 AS [" & 表頭(18) & "], 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 簽名檔編號, 驗證碼, 請購單號, DISC, 稅, PPN, 

  649.                            一級核准簽名檔編號

  650.                     FROM 採購單控制表 WHERE (詢價員 LIKE N'" & gUserName & "') AND (核准 LIKE N'作廢%') ORDER BY   採購單號 DESC"

  651.         End If

  652.         CmdSet_For_DGV()

  653.     End Sub

  654.     Friend Sub SQL_採購單控制表轉財務金額_歸零()

  655.         ConnOpen() : SQL1 = "UPDATE 採購單控制表 SET  轉財務金額 = N'0' WHERE (轉財務金額 IS NULL)" : CmdSet_For_dr()

  656.     End Sub

  657.     Friend Sub SQL_採購轉財務金額修改_修改()

  658.         ConnOpen() : SQL1 = "UPDATE 採購單控制表 SET  轉財務金額 = N'" & PA42 & "', 已會計 = '" & PA44 & "' WHERE (採購單號 LIKE N'" & PA43 & "')" : CmdSet_For_dr()

  659.     End Sub

  660.     Friend Sub SQL_財務採購關聯表_新增()

  661.         ConnOpen() : SQL1 = "INSERT INTO 財務採購關聯表 (財務單號, 採購單號, 轉財務金額, 流水號)  VALUES " & SQL2 : CmdSet_For_dr()

  662.     End Sub

  663.     Friend Sub SQL_物料採購單_首次列印()

  664.         ConnOpen()

  665.         SQL1 = "UPDATE 採購單控制表 SET  採購員 = N'" & gUserName & "', 採購日期 = N'" & Today() & "' WHERE (採購單號 LIKE N'" & 採購單歷史檔案.採購單號_tb.Text & "')"

  666.         CmdSet_For_dr()

  667.     End Sub

  668.     Friend Sub SQL_採購資料()

  669.         ConnOpen()

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

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

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

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

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

  675.         CmdSet_For_DGV()

  676.     End Sub

  677. End Module