Module SQL_跨介面共用
    Friend Sub SQL_圖片資料庫查詢()
        ConnOpen_ERP() : SQL1 = "SELECT TOP (1) 工程圖片資料庫, 是否可用 FROM 工程圖片資料庫管理 WHERE 是否可用 = 0 ORDER BY 工程圖片資料庫" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_文件資料庫查詢()
        ConnOpen_ERP() : SQL1 = "SELECT TOP (1) 工程文件資料庫, 是否可用 FROM 工程文件資料庫管理 WHERE 是否可用 = 0 ORDER BY 工程文件資料庫" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_倉儲明細表_備註修改_使用位置1()
        ConnOpen_ERP() : SQL1 = "UPDATE 倉儲明細表 SET 備註 = N'" & PA & "' WHERE (資料流水號 = N'" & PA1 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_加權平均()
        ConnOpen_ERP() : SQL1 = "SELECT    料號, SUM(數量 * 單價) / SUM(數量) AS 單價
                             FROM      採購單明細表
                             WHERE (料號 LIKE  N'" & PA & "') AND  單價 > 0
                             GROUP BY  料號 "
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_最近日期()
        ConnOpen_ERP() : SQL1 = "SELECT   TOP(1) 採購單明細表.料號, 採購單明細表.單價
                             FROM     採購單明細表 RIGHT OUTER Join 採購單控制表 ON 採購單明細表.採購單號 = 採購單控制表.採購單號
                             WHERE    (料號 LIKE  N'" & PA & "') AND  單價 > 0
                             ORDER BY 採購單控制表.核准日期  DESC "
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_FTP資料夾路徑分配()
        ConnOpen() : SQL1 = "SELECT 資料夾名稱, 指定頁面, 備註, 指定 FROM FTP資料夾管理 ORDER BY 指定" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_系統使用者卡號讀取()
        ConnOpen() : SQL1 = "SELECT 姓名, 級別, ID卡號, 部門 FROM 使用者權限管理表 ORDER BY 級別, ID卡號 DESC" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_系統版本號驗證()
        ConnOpen() : SQL1 = "SELECT 系統認證版本號 FROM 版本號管理 " : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_指定倉庫_下拉表單()
        ConnOpen_ERP() : SQL1 = "SELECT 倉名 FROM 倉儲分區控制表 WHERE (倉級 LIKE N'" & 倉儲倉級2 & "') AND CXL = '0' ORDER BY 倉級, 倉名編號" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統語言導入()
        ConnOpen_ERP()
        SQL1 = "SELECT 控件, 內容 FROM 系統介面語言 WHERE (編碼 LIKE N'" & 介面 & "') AND (語言 LIKE N'" & 系統語言 & "') ORDER BY 控件"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_系統預設值()
        ConnOpen() : SQL1 = "SELECT 密碼重設天數, 行政採購二級, 建築採購二級, 比例1, 比例2, 比例3, 圖片伺服器上限 FROM 系統預設值" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統語言()
        ConnOpen_ERP() : SQL1 = "SELECT 語言 FROM 系統介面語言 GROUP BY 語言 ORDER BY 語言 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統閒置時間設定讀取()
        ConnOpen() : SQL1 = "SELECT timeExit, timeExit2 FROM 系統閒置時間設定" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_指定倉儲_資料讀取()
        ConnOpen_ERP() : SQL1 = "SELECT 倉級, 倉名編號 FROM 倉儲分區控制表 WHERE (倉名 LIKE N'" & PA6 & "') AND CXL = '0'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_倉名_下拉清單()
        ConnOpen_ERP() : SQL1 = "SELECT 倉名 FROM 倉儲分區控制表 WHERE CXL = '0' ORDER BY 倉級, 倉名編號" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_物料圖庫_圖檔讀取()
        ConnOpen_ERP() : SQL1 = "SELECT 圖檔 FROM 物料圖庫 WHERE 群組碼 LIKE N'" & PA1 & "' AND 料號原則  LIKE N'" & PA2 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_物料圖庫_圖檔讀取一()
        ConnOpen_ERP() : SQL1 = "SELECT 圖檔 FROM 物料圖庫 WHERE 料號原則 LIKE N'" & PA2 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_物料圖庫_圖檔讀取二()
        ConnOpen_ERP() : SQL1 = "SELECT 圖檔 FROM 物料圖庫 WHERE 圖片流水號 LIKE N'" & PA3 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_物料圖庫_圖檔讀取三()
        ConnOpen_ERP() : SQL1 = "SELECT 圖檔 FROM 物料圖庫 WHERE 圖片流水號 LIKE N'" & PA3 & "'" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_供應商資料表_公司名_下拉用()
        ConnOpen_ERP() : SQL1 = "SELECT 公司名 FROM 我的資料庫.dbo.供應商資料表 WHERE 供應商 LIKE N'%" & PA & "%' ORDER BY 公司名" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_主管簽名檔管理_圖片流水號()
        ConnOpen_ERP() : SQL1 = "SELECT 簽名檔圖片 FROM 我的資料庫.dbo.GCM主管簽名檔管理 WHERE 圖片流水號 LIKE N'" & PA1 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_規格庫抬頭讀取()
        ConnOpen_ERP() : SQL1 = "SELECT 規格庫抬頭指定, A1, A2, A3, A4, A5, A6, A7, A8 FROM 規格庫抬頭 WHERE 規格庫抬頭指定 LIKE N'" & PA3 & "' AND 語言 LIKE N'" & 系統語言 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_規格庫抬頭讀取_列印用()
        ConnOpen_ERP() : SQL1 = "SELECT 規格庫抬頭指定, A1, A2, A3, A4, A5, A6, A7, A8 FROM 規格庫抬頭 WHERE 規格庫抬頭指定 LIKE N'" & PA3 & "' AND 語言 LIKE N'" & PA20 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_規格庫抬頭讀取二()
        ConnOpen_ERP() : SQL1 = "SELECT A1, A2, A3, A4, A5, A6, A7, A8 FROM 物料規格表 WHERE 料號 LIKE N'" & PA4 & "'" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_規格庫抬頭讀取三()
        ConnOpen_ERP() : SQL1 = "SELECT 規格庫抬頭指定 AS [" & 表頭(67) & "], A1, A2, A3, A4, A5, A6, A7, A8, 語言 AS LG FROM  規格庫抬頭 ORDER BY 規格庫抬頭指定, 語言 DESC" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_年份清單_下拉清單()
        ConnOpen() : SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_倉儲明細執行單號_刪除()
        ConnOpen() : SQL1 = "DELETE FROM 倉儲明細執行單號 WHERE (執行單號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_倉儲明細表_刪除()
        ConnOpen_ERP() : SQL1 = "DELETE FROM 倉儲明細表 WHERE (執行單號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_倉儲明細表_刪除二()
        ConnOpen_ERP() : SQL1 = "DELETE FROM 倉儲明細表 WHERE (資料流水號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_倉儲明細執行單號_執行單號驗證()
        ConnOpen_ERP() : SQL1 = "SELECT 執行單號 FROM 倉儲明細執行單號 WHERE (執行單號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_倉儲明細執行單號_新增()
        ConnOpen_ERP() : SQL1 = "INSERT INTO 倉儲明細執行單號 (執行單號) VALUES (N'" & PA1 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_倉儲明細表_最後一筆資料()
        ConnOpen_ERP() : SQL1 = "SELECT TOP (1) 資料流水號 FROM 倉儲明細表 ORDER BY 資料流水號 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_物料規格表_查詢()
        ConnOpen_ERP() : SQL1 = " SELECT  料號
                              FROM 物料規格表 
                              WHERE (料號 LIKE N'" & PA & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_請購單明細表_刪除一筆資料()
        ConnOpen_ERP() : SQL1 = "DELETE FROM 請購單明細表 WHERE (料號 LIKE N'" & PA & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_倉儲明細表_備註修改()
        ConnOpen_ERP() : SQL1 = "UPDATE 倉儲明細表 SET 備註 = N'" & PA10 & "' WHERE (資料流水號 LIKE N'" & PA11 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_倉儲明細表_確認單據是否申請()
        ConnOpen_ERP() : SQL1 = "SELECT 料號 FROM 倉儲明細表 WHERE 執行單號 LIKE N'" & PA1 & "' AND 料號 LIKE N'" & PA2 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_倉儲明細表_審核確認()
        ConnOpen_ERP() : SQL1 = "UPDATE 倉儲明細表 SET 審核人 = N'" & gUserName & "', 審核日期 = N'" & DTP & "' WHERE (執行單號 = N'" & PA10 & "') AND (倉級 LIKE N'" & PA11 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_倉儲明細表_審核作廢()
        ConnOpen_ERP() : SQL1 = "UPDATE 倉儲明細表 SET 審核人 = N'作廢-" & gUserName & "', 審核日期 = N'" & DTP & "' WHERE (執行單號 = N'" & PA10 & "') AND (倉級 LIKE N'" & PA11 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_倉庫資料查詢一()
        ConnOpen_ERP() : SQL1 = "SELECT 倉級, 倉名 FROM 倉儲分區控制表 WHERE (倉名編號 LIKE N'" & PA10 & "') AND CXL = '0'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_倉儲領料申請_使用工地()
        ConnOpen_ERP() : SQL1 = "SELECT 倉名 FROM 倉儲分區控制表 WHERE (倉級 LIKE N'3') AND CXL = '0' ORDER BY 倉級, 倉名編號" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_群組碼_下拉清單()
        ConnOpen_ERP() : SQL1 = "SELECT  群組碼 FROM 物料群組 ORDER BY 群組碼" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_料號原則_下拉清單()
        ConnOpen_ERP() : SQL1 = "SELECT 料號原則 FROM 物料編碼庫 WHERE 群組碼 LIKE N'" & PA & "' ORDER BY 料號原則" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_料號原則前二_下拉清單()
        ConnOpen_ERP() : SQL1 = "SELECT LEFT(料號原則, 2) AS 原則前二 FROM 物料編碼庫 GROUP BY LEFT(料號原則, 2)" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_料號原則中段_下拉清單()
        ConnOpen_ERP()
        SQL1 = "SELECT REVERSE(SUBSTRING(REVERSE(SUBSTRING(料號原則, 4, 50)), 6, 50)) AS 原則中段
                FROM 物料編碼庫
                WHERE (LEFT(料號原則, 2) LIKE N'" & PA9 & "')
                GROUP BY   REVERSE(SUBSTRING(REVERSE(SUBSTRING(料號原則, 4, 50)), 6, 50))
                ORDER BY   原則中段"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_物料資訊控制表_原則查詢()
        ConnOpen_ERP() : SQL1 = "SELECT 品名, 群組碼, 料號原則, 規格庫編號, 規格庫抬頭指定 FROM 物料資訊控制表 WHERE 料號原則 LIKE N'" & PA2 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_倉儲明細表_備註修改_使用位置()
        ConnOpen_ERP() : SQL1 = "UPDATE 倉儲明細表 SET 備註 = N'" & PA10 & "', 使用位置 = N'" & PA11 & "' WHERE (資料流水號 = N'" & PA12 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_行政驗證碼()
        ConnOpen_ERP() : SQL1 = "SELECT 驗證碼 FROM 樣品採購單控制表 WHERE 驗證碼 LIKE N'" & PA20 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_建築驗證碼()
        ConnOpen_ERP() : SQL1 = "SELECT 驗證碼 FROM 樣品採購單控制表 WHERE 驗證碼 LIKE N'" & PA20 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_主管簽名檔管理()
        ConnOpen_ERP()
        If Val(登入人級別) = 0 Then
            SQL1 = "SELECT 圖片流水號 AS [" & 表頭(87) & "], 簽名檔人名 FROM 我的資料庫.dbo.GCM主管簽名檔管理 ORDER BY 圖片流水號 DESC"
        Else
            SQL1 = "SELECT 圖片流水號 AS [" & 表頭(87) & "], 簽名檔人名 FROM 我的資料庫.dbo.GCM主管簽名檔管理 WHERE 簽名檔人名 LIKE N'" & gUserName & "' ORDER BY 圖片流水號"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_建築物料請購單申請_未核准()
        ConnOpen_ERP()
        SQL1 = "SELECT      請購單控制表.請購單號 AS [" & 表頭(18) & "], 請購單控制表.申請人 AS [" & 表頭(19) & "], 
                            LEFT(請購單控制表.申請日期, 10) AS [" & 表頭(20) & "], 請購單控制表.核准人 AS [" & 表頭(21) & "], 
                            LEFT(請購單控制表.核准日期, 10) AS [" & 表頭(22) & "], 請購單控制表.需求日期,
                            請購單控制表.合約號 AS [" & 表頭(134) & "], 備註, 乙方, 甲方, 立約日, 序號
                FROM        請購單控制表 INNER JOIN
                            我的資料庫.dbo.使用者權限管理表 ON 請購單控制表.申請人 = 我的資料庫.dbo.使用者權限管理表.姓名 INNER JOIN
                                (SELECT          姓名, 帳號, 職稱, 時效, 授權
                                  FROM            我的資料庫.dbo.系統跨部門權限表
                                  WHERE         (姓名 LIKE N'" & gUserName & "') AND (授權 = 1)) AS QQQ ON 
                            我的資料庫.dbo.使用者權限管理表.職稱 = QQQ.職稱
                WHERE      (請購單控制表.核准人 LIKE N'')  ORDER BY 請購單控制表.請購單號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_建築物料請購單申請_作廢清單()
        ConnOpen_ERP()
        SQL1 = "SELECT      請購單控制表.請購單號 AS [" & 表頭(18) & "], 請購單控制表.申請人 AS [" & 表頭(19) & "], 
                            LEFT(請購單控制表.申請日期, 10) AS [" & 表頭(20) & "], 請購單控制表.核准人 AS [" & 表頭(21) & "], 
                            LEFT(請購單控制表.核准日期, 10) AS [" & 表頭(22) & "], 請購單控制表.需求日期,
                            請購單控制表.合約號 AS [" & 表頭(134) & "], 備註, 乙方, 甲方, 立約日, 序號
                FROM        請購單控制表 INNER JOIN
                            我的資料庫.dbo.使用者權限管理表 ON 請購單控制表.申請人 = 我的資料庫.dbo.使用者權限管理表.姓名 INNER JOIN
                                (SELECT          姓名, 帳號, 職稱, 時效, 授權
                                  FROM 我的資料庫.dbo.系統跨部門權限表
                                  WHERE         (姓名 LIKE N'" & gUserName & "') AND (授權 = 1)) AS QQQ ON 
                            我的資料庫.dbo.使用者權限管理表.職稱 = QQQ.職稱
                WHERE      (請購單控制表.核准人 LIKE N'作廢%')  ORDER BY 請購單控制表.請購單號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_建築物料請購單申請_存檔()
        ConnOpen_ERP()
        SQL1 = "UPDATE 請購單明細表 SET 備註 = N'" & PA1 & "', 數量 = N'" & NU1 & "', 單位 = N'" & PA2 & "', 用途 = N'" & PA3 & "'
                   WHERE (請購單號 LIKE N'" & PA4 & "' AND 項次 LIKE N'" & PA5 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_請購單明細表_指定刪除()
        ConnOpen_ERP() : SQL1 = "DELETE FROM 請購單明細表 WHERE (請購單號 LIKE N'" & PA1 & "' AND 項次 LIKE N'" & PA2 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_請購單明細表_項次修改()
        ConnOpen_ERP() : SQL1 = "UPDATE 請購單明細表 SET 項次 = N'" & PA & "' WHERE (請購單號 LIKE N'" & PA1 & "' AND 項次 LIKE N'" & PA2 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_行政物料請購單申請_未核准()
        ConnOpen_ERP()
        SQL1 = "SELECT   樣品請購單控制表.請購單號 AS [" & 表頭(18) & "], 樣品請購單控制表.申請人 AS [" & 表頭(19) & "], LEFT(樣品請購單控制表.申請日期, 10) AS [" & 表頭(20) & "], 
                         樣品請購單控制表.核准人 AS [" & 表頭(21) & "], LEFT(樣品請購單控制表.核准日期, 10) AS [" & 表頭(22) & "] 
                FROM     樣品請購單控制表 INNER JOIN 使用者權限管理表 ON 樣品請購單控制表.申請人 = 使用者權限管理表.姓名 INNER JOIN
                                (SELECT  姓名, 帳號, 職稱, 時效, 授權
                                  FROM   系統跨部門權限表
                                  WHERE (姓名 LIKE N'" & gUserName & "') AND (授權 = 1)) AS QQQ ON 使用者權限管理表.職稱 = QQQ.職稱 
                WHERE   (樣品請購單控制表.核准人 LIKE N'') 
                ORDER BY 樣品請購單控制表.請購單號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_行政物料請購單申請_作廢清單()
        ConnOpen_ERP()
        SQL1 = "SELECT   樣品請購單控制表.請購單號 AS [" & 表頭(18) & "], 樣品請購單控制表.申請人 AS [" & 表頭(19) & "], LEFT(樣品請購單控制表.申請日期, 10) AS [" & 表頭(20) & "], 
                         樣品請購單控制表.核准人 AS [" & 表頭(21) & "], LEFT(樣品請購單控制表.核准日期, 10) AS [" & 表頭(22) & "] 
                FROM     樣品請購單控制表 INNER JOIN 使用者權限管理表 ON 樣品請購單控制表.申請人 = 使用者權限管理表.姓名 INNER JOIN
                                (SELECT  姓名, 帳號, 職稱, 時效, 授權
                                  FROM   系統跨部門權限表
                                  WHERE (姓名 LIKE N'" & gUserName & "') AND (授權 = 1)) AS QQQ ON 使用者權限管理表.職稱 = QQQ.職稱 
                WHERE   (樣品請購單控制表.核准人 LIKE N'作廢%') 
                ORDER BY 樣品請購單控制表.請購單號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_樣品請購單明細表_修改()
        ConnOpen_ERP()
        SQL1 = "UPDATE 樣品請購單明細表 SET  品名 = N'" & PA1 & "', 規格 = N'" & PA2 & "', 備註 = N'" & PA3 & "', 數量 = N'" & NU1 & "', 單位 = N'" & PA4 & "', 用途 = N'" & PA5 & "' 
                WHERE (請購單號 LIKE N'" & PA6 & "' AND 項次 LIKE N'" & PA7 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_樣品請購單明細表_指定刪除()
        ConnOpen_ERP()
        SQL1 = "DELETE FROM 樣品請購單明細表 WHERE (請購單號 LIKE N'" & PA10 & "' AND 項次 LIKE N'" & PA11 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_樣品請購單明細表_項次修改()
        ConnOpen_ERP() : SQL1 = "UPDATE 樣品請購單明細表 SET 項次 = N'" & PA & "' WHERE (請購單號 LIKE N'" & PA1 & "' AND 項次 LIKE N'" & PA2 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_行政物料採購單生成_供應商資料一()
        ConnOpen_ERP() : SQL1 = "SELECT 公司名, 公司地址, 公司電話1 FROM 我的資料庫.dbo.供應商資料表 WHERE 供應商編碼 LIKE N'" & PA1 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_行政物料採購單生成_供應商資料二()
        ConnOpen_ERP() : SQL1 = "SELECT 流水碼, 公司地址, 公司電話1, 公司傳真1 FROM 我的資料庫.dbo.供應商資料表 WHERE 公司名 LIKE N'" & PA1 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_建築物料採購單生成_供應商資料一()
        ConnOpen_ERP() : SQL1 = "SELECT 公司名, 公司地址, 公司電話1 FROM 我的資料庫.dbo.供應商資料表 WHERE 流水碼 LIKE N'" & PA1 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_建築物料採購單生成_供應商資料二()
        ConnOpen_ERP() : SQL1 = "SELECT 流水碼, 公司地址, 公司電話1, 公司傳真1,聯繫人1郵箱 FROM 我的資料庫.dbo.供應商資料表 WHERE 公司名 LIKE N'" & PA1 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_樣品採購單明細表_修改()
        ConnOpen_ERP()
        SQL1 = "UPDATE 樣品採購單明細表 SET  品名 = N'" & PA11 & "', 規格 = N'" & PA12 & "', 備註 = N'" & PA6 & "', 單價 = N'" & PA7 & "', 數量 = N'" & PA8 & "', 單位 = N'" & PA9 & "' 
                WHERE (行政物料請購單號 LIKE N'" & PA5 & "') AND (項次 LIKE N'" & PA10 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_樣品採購單明細表()
        ConnOpen_ERP()
        SQL1 = "SELECT 行政物料請購單號 AS 請購單號, 項次 AS [" & 表頭(11) & "], 品名 AS [" & 表頭(12) & "], 規格 AS [" & 表頭(13) & "], 備註 AS [" & 表頭(14) & "], 數量 AS [" & 表頭(15) & "], 
                       單位 AS [" & 表頭(16) & "], 單價 AS [" & 表頭(26) & "], 數量 * 單價 AS [" & 表頭(27) & "], 項次 AS 項次01 ,申請人 AS [" & 表頭(19) & "]  FROM  樣品採購單明細表 
                       WHERE 行政物料請購單號 LIKE N'" & PA10 & "' ORDER BY [" & 表頭(11) & "]"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_樣品採購單控制表_作廢()
        ConnOpen_ERP()
        SQL1 = "UPDATE 樣品採購單控制表 SET  核准 = N'作廢-" & gUserName & "' WHERE (行政物料請購單號 LIKE N'" & PA11 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_樣品採購單控制表_修改()
        ConnOpen_ERP()
        SQL1 = "UPDATE 樣品採購單控制表 SET  供應商編號 = N'" & PA1 & "', 需求日期 = N'" & DTP2 & "', 使用地點 = N'" & PA2 & "', 核對日期 = N'" & DTP &
                                                  "' , DISC = N'" & PA3 & "', 
                                                 稅 = N'" & BL1 & "', PPN = N'" & PA4 & "'
                WHERE (行政物料請購單號 LIKE N'" & PA5 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_採購單價查詢()
        ConnOpen_ERP()
        SQL1 = "SELECT  TOP (1) SUBSTRING(採購單號, 7, 8) AS 採購日, 單價  FROM  採購單明細表  WHERE  (料號 LIKE N'" & PA47 & "')  ORDER BY  採購日 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_採購單明細表()
        ConnOpen_ERP()
        If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If
        SQL1 = "SELECT      採購單明細表.採購單號, 採購單明細表.項次 AS [" & 表頭(11) & "],採購單明細表.合約號 AS [" & 表頭(134) & "], 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 
                            物料規格表.A1 AS [" & 表頭(13) & "], 採購單明細表.備註 AS [" & 表頭(14) & "], 採購單明細表.數量 AS [" & 表頭(15) & "], 
                            採購單明細表.單位 AS [" & 表頭(16) & "], 採購單明細表.單價 AS [" & 表頭(26) & "], 
                            採購單明細表.數量 * 採購單明細表.單價 AS [" & 表頭(27) & "], 採購單明細表.群組碼, 
                            採購單明細表.料號原則, 採購單明細表.料號, 物料規格表.圖檔編號, 採購單明細表.項次 AS 項次01, 物料規格表.A2, 物料規格表.A3, 
                            物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 
                            物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定, 採購單明細表.請購單號 AS [KEY],
                            採購單明細表.單價 AS OUP, 採購單明細表.申請人 AS [SP%] , 採購單明細表.申請人 AS [" & 表頭(19) & "]" & 低網 & "
                FROM        採購單明細表 INNER JOIN
                            物料圖庫 ON 採購單明細表.群組碼 = 物料圖庫.群組碼 AND 
                            採購單明細表.料號原則 = 物料圖庫.料號原則 INNER JOIN
                            物料編碼庫 ON 採購單明細表.群組碼 = 物料編碼庫.群組碼 AND 
                            採購單明細表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN
                            物料資訊控制表 ON 採購單明細表.料號原則 = 物料資訊控制表.料號原則 LEFT OUTER JOIN
                            物料規格表 ON 採購單明細表.料號 = 物料規格表.料號 INNER JOIN
                            物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 
                            物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼
                WHERE      (採購單明細表.採購單號 LIKE N'" & PA10 & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')
                ORDER BY   採購單明細表.項次"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_採購單控制表_修改()
        ConnOpen_ERP()
        SQL1 = "UPDATE 採購單控制表 SET  供應商編號 = N'" & PA1 & "', 需求日期 = N'" & DTP2 & "', 使用地點 = N'" & PA2 & "', 核對日期 = N'" & DTP & "' , 
                                         DISC = N'" & PA3 & "', 稅 = N'" & BL1 & "', PPN = N'" & PA4 & "'
                WHERE (採購單號 LIKE N'" & PA5 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_採購單控制表_編輯()
        ConnOpen_ERP()
        SQL1 = "UPDATE 採購單控制表 SET  供應商編號 = N'" & PA1 & "', 需求日期 = N'" & DTP2 & "', 使用地點 = N'" & PA2 & "', 核對日期 = N'" & DTP & "' , 
                                         DISC = N'" & PA3 & "', 稅 = N'" & BL1 & "', PPN = N'" & PA4 & "', 核對員 = '" & gUserName & "'
                WHERE (採購單號 LIKE N'" & PA5 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_採購單明細表_修改二()
        ConnOpen_ERP()
        SQL1 = "UPDATE 採購單明細表 SET  品名 = N'" & PA11 & "', 規格 = N'" & PA12 & "', 備註 = N'" & PA6 & "', 單價 = N'" & PA7 & "', 數量 = N'" & PA8 & "', 單位 = N'" & PA9 & "' 
                WHERE (採購單號 LIKE N'" & PA5 & "') AND (請購單號 LIKE N'" & PA4 & "') AND (項次 LIKE N'" & PA10 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_樣品採購單明細表_刪除()
        ConnOpen_ERP()
        SQL1 = "DELETE FROM 樣品採購單明細表 WHERE (行政物料請購單號 LIKE N'" & PA1 & "' AND 項次 LIKE N'" & PA2 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_行政物料採購單一級核准料_新項次()
        ConnOpen_ERP() : SQL1 = "UPDATE 樣品採購單明細表 SET 項次 = N'" & PA18 & "' WHERE (行政物料請購單號 LIKE N'" & PA19 & "' AND 項次 LIKE N'" & PA20 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_採購單明細表_刪除()
        ConnOpen_ERP()
        SQL1 = "DELETE FROM 採購單明細表 WHERE (採購單號 LIKE N'" & PA1 & "' AND 項次 LIKE N'" & PA3 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_採購單控制表_作廢()
        ConnOpen_ERP()
        SQL1 = "UPDATE 採購單控制表 SET  核准 = N'作廢-" & gUserName & "' WHERE (採購單號 LIKE N'" & PA11 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_物料規格_SQLB03()
        ConnOpen_ERP()
        SQL1 = "SELECT 物料規格表.群組碼, 物料規格表.料號原則, 物料規格表.料號 AS No, 物料規格表.圖檔編號, 物料規格表.A1 AS [" & AAA1 & "], 物料規格表.A2 AS [" & AAA2 & "], 
                               物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, HX選擇按鈕.選擇 AS Pilih, 
                               物料編碼庫.原則說明, 物料規格表.最低庫存量 AS [申請數 Terapkan], 物料規格表.料號 AS Nomor_Bagian
                FROM 物料規格表 LEFT OUTER JOIN 物料編碼庫 ON 物料規格表.群組碼 = 物料編碼庫.群組碼 AND 物料規格表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN
                             HX選擇按鈕 ON 物料規格表.群組碼 = HX選擇按鈕.對應
                WHERE (物料規格表.料號原則 LIKE N'" & PA & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "')
                ORDER BY 物料規格表.料號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_物料規格_SQLB04()
        ConnOpen_ERP()
        SQL1 = "SELECT 物料規格表.群組碼, 物料規格表.料號原則, 物料規格表.料號 AS No, 物料規格表.圖檔編號, 物料規格表.A1 AS [" & AAA1 & "], 物料規格表.A2 AS [" & AAA2 & "], 
                               物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4 AS [" & AAA4 & "], 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, HX選擇按鈕.選擇 AS Pilih, 
                               物料編碼庫.原則說明, 物料規格表.最低庫存量 AS [申請數 Terapkan], 物料規格表.料號 AS Nomor_Bagian
                FROM 物料規格表 LEFT OUTER JOIN 物料編碼庫 ON 物料規格表.群組碼 = 物料編碼庫.群組碼 AND 物料規格表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN
                             HX選擇按鈕 ON 物料規格表.群組碼 = HX選擇按鈕.對應
                WHERE (物料規格表.料號原則 LIKE N'" & PA & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "')
                ORDER BY 物料規格表.料號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_物料規格_SQLB05()
        ConnOpen_ERP()
        SQL1 = "SELECT 物料規格表.群組碼, 物料規格表.料號原則, 物料規格表.料號 AS No, 物料規格表.圖檔編號, 物料規格表.A1 AS [" & AAA1 & "], 物料規格表.A2 AS [" & AAA2 & "], 
                               物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4 AS [" & AAA4 & "], 物料規格表.A5 AS [" & AAA5 & "], 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 
                               HX選擇按鈕.選擇 AS Pilih, 物料編碼庫.原則說明, 物料規格表.最低庫存量 AS [申請數 Terapkan], 物料規格表.料號 AS Nomor_Bagian
                        FROM 物料規格表 LEFT OUTER JOIN 物料編碼庫 ON 物料規格表.群組碼 = 物料編碼庫.群組碼 AND 物料規格表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN
                             HX選擇按鈕 ON 物料規格表.群組碼 = HX選擇按鈕.對應
                        WHERE (物料規格表.料號原則 LIKE N'" & PA & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "') ORDER BY 物料規格表.料號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_物料規格_SQLB06()
        ConnOpen_ERP()
        SQL1 = "SELECT 物料規格表.群組碼, 物料規格表.料號原則, 物料規格表.料號 AS No, 物料規格表.圖檔編號, 物料規格表.A1 AS [" & AAA1 & "], 物料規格表.A2 AS [" & AAA2 & "], 
                               物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4 AS [" & AAA4 & "], 物料規格表.A5 AS [" & AAA5 & "], 物料規格表.A6 AS [" & AAA6 & "], 物料規格表.A7, 物料規格表.A8, 
                               HX選擇按鈕.選擇 AS Pilih, 物料編碼庫.原則說明, 物料規格表.最低庫存量 AS [申請數 Terapkan], 物料規格表.料號 AS Nomor_Bagian
                        FROM 物料規格表 LEFT OUTER JOIN 物料編碼庫 ON 物料規格表.群組碼 = 物料編碼庫.群組碼 AND 物料規格表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN
                             HX選擇按鈕 ON 物料規格表.群組碼 = HX選擇按鈕.對應
                        WHERE (物料規格表.料號原則 LIKE N'" & PA & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "') ORDER BY 物料規格表.料號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_物料規格_SQLB07()
        ConnOpen_ERP()
        SQL1 = "SELECT 物料規格表.群組碼, 物料規格表.料號原則, 物料規格表.料號 AS No, 物料規格表.圖檔編號, 物料規格表.A1 AS [" & AAA1 & "], 物料規格表.A2 AS [" & AAA2 & "], 
                               物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4 AS [" & AAA4 & "], 物料規格表.A5 AS [" & AAA5 & "], 物料規格表.A6 AS [" & AAA6 & "], 物料規格表.A7 AS [" & AAA7 & "], 
                               物料規格表.A8, HX選擇按鈕.選擇 AS Pilih, 物料編碼庫.原則說明, 物料規格表.最低庫存量 AS [申請數 Terapkan], 物料規格表.料號 AS Nomor_Bagian
                        FROM 物料規格表 LEFT OUTER JOIN 物料編碼庫 ON 物料規格表.群組碼 = 物料編碼庫.群組碼 AND 物料規格表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN
                             HX選擇按鈕 ON 物料規格表.群組碼 = HX選擇按鈕.對應
                        WHERE (物料規格表.料號原則 LIKE N'" & PA & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "') ORDER BY 物料規格表.料號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_物料規格_SQLB08()
        ConnOpen_ERP()
        SQL1 = "SELECT 物料規格表.群組碼, 物料規格表.料號原則, 物料規格表.料號 AS No, 物料規格表.圖檔編號, 物料規格表.A1 AS [" & AAA1 & "], 物料規格表.A2 AS [" & AAA2 & "], 
                               物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4 AS [" & AAA4 & "], 物料規格表.A5 AS [" & AAA5 & "], 物料規格表.A6 AS [" & AAA6 & "], 物料規格表.A7 AS [" & AAA7 & "], 
                               物料規格表.A8 AS [" & AAA8 & "], HX選擇按鈕.選擇 AS Pilih, 物料編碼庫.原則說明, 物料規格表.最低庫存量 AS [申請數 Terapkan], 物料規格表.料號 AS Nomor_Bagian
                        FROM 物料規格表 LEFT OUTER JOIN 物料編碼庫 ON 物料規格表.群組碼 = 物料編碼庫.群組碼 AND 物料規格表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN
                             HX選擇按鈕 ON 物料規格表.群組碼 = HX選擇按鈕.對應
                        WHERE (物料規格表.料號原則 LIKE N'" & PA & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "') ORDER BY 物料規格表.料號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_建築物料請購單申請_物料清單一()
        If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔" : Else : 低網 = "" : End If
        SQL1 = "SELECT     物料編碼庫.群組碼 AS No, 物料編碼庫.料號原則 AS PN_Bagian, 物料編碼庫轉語言.品名 AS Pernyataan_Prinsip, 物料編碼庫.群組碼, 物料編碼庫.料號原則, 
                           物料編碼庫.單位 AS [" & 表頭(16) & "] " & 低網 & "
                FROM       物料編碼庫 INNER JOIN 物料圖庫 ON 物料編碼庫.群組碼 = 物料圖庫.群組碼 AND 物料編碼庫.料號原則 = 物料圖庫.料號原則 INNER JOIN
                           物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼
                WHERE     (物料編碼庫.群組碼 LIKE N'" & PA1 & "%') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')
                ORDER BY   Pernyataan_Prinsip, PN_Bagian"
    End Sub
    Friend Sub SQL_建築物料請購單申請_物料清單二()
        If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔" : Else : 低網 = "" : End If
        SQL1 = "SELECT    物料編碼庫.群組碼 AS No, 物料編碼庫.料號原則 AS PN_Bagian, 物料編碼庫.原則說明 AS Pernyataan_Prinsip, 物料編碼庫.群組碼, 
                          物料編碼庫.料號原則, 物料編碼庫.單位 AS [" & 表頭(16) & "] " & 低網 & "
                FROM      物料編碼庫 INNER JOIN 物料圖庫 ON 物料編碼庫.群組碼 = 物料圖庫.群組碼 AND 物料編碼庫.料號原則 = 物料圖庫.料號原則
                WHERE     物料編碼庫.料號原則 LIKE N'" & PA1 & "%'
                ORDER BY  Pernyataan_Prinsip, PN_Bagian"
    End Sub
    Friend Sub SQL_建築物料請購單申請_物料清單三()
        If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔" : Else : 低網 = "" : End If
        SQL1 = "SELECT    物料編碼庫.群組碼 AS No, 物料編碼庫.料號原則 AS PN_Bagian, 物料編碼庫.原則說明 AS Pernyataan_Prinsip, 物料編碼庫.群組碼, 
                          物料編碼庫.料號原則, 物料編碼庫.單位 AS [" & 表頭(16) & "] " & 低網 & "
                FROM      物料編碼庫 INNER JOIN 物料圖庫 ON 物料編碼庫.群組碼 = 物料圖庫.群組碼 AND 物料編碼庫.料號原則 = 物料圖庫.料號原則
                WHERE     物料編碼庫.群組碼 LIKE N'%" & PA & "%' OR 物料編碼庫.料號原則 LIKE N'%" & PA & "%' OR 物料編碼庫.原則說明 LIKE N'%" & PA & "%'
                ORDER BY  Pernyataan_Prinsip, PN_Bagian"
    End Sub
    Friend Sub SQL_建築物料請購單申請_物料規格讀取()
        ConnOpen_ERP()
        SQL1 = "SELECT  物料編碼庫.原則說明 AS 品名, 物料資訊控制表.群組碼, 物料資訊控制表.料號原則, 物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定
                    FROM    物料資訊控制表 INNER JOIN 物料編碼庫 ON 物料資訊控制表.群組碼 = 物料編碼庫.群組碼 AND 物料資訊控制表.料號原則 = 物料編碼庫.料號原則
                    WHERE  (物料資訊控制表.料號原則 LIKE N'" & PA & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_建築物料請購單申請_物料狀況查詢()
        ConnOpen_ERP()
        SQL1 = "SELECT  物料規格表.料號, 物料規格表.最高庫存量, SUM(倉儲明細表.入庫) AS 入庫, SUM(倉儲明細表.出庫) AS 出庫
                    FROM    物料規格表 LEFT OUTER JOIN 倉儲明細表 ON 物料規格表.料號 = 倉儲明細表.料號
                    WHERE   (物料規格表.料號 LIKE N'" & PA3 & "')
                    GROUP BY   物料規格表.料號, 物料規格表.最高庫存量"
        CmdSet_For_dr()
    End Sub
End Module