GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/0、MyModule/主資料庫/SQL_請採購系統管理.vb

Module SQL_請採購系統管理
    '---------------------建築物料請購單申請-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_建築物料請購單申請_已核准()
        ConnOpen()
        SQL1 = "SELECT      請購單控制表.請購單號 AS [" & 表頭(18) & "], 請購單控制表.申請人 AS [" & 表頭(19) & "], 
                            LEFT(請購單控制表.申請日期, 10) AS [" & 表頭(20) & "], 請購單控制表.核准人 AS [" & 表頭(21) & "], 
                            LEFT(請購單控制表.核准日期, 10) AS [" & 表頭(22) & "], 請購單控制表.需求日期,
                            請購單控制表.合約號 AS [" & 表頭(134) & "], 備註, 乙方, 甲方, 立約日, 序號
                FROM        請購單控制表 INNER JOIN
                            使用者權限管理表 ON 請購單控制表.申請人 = 使用者權限管理表.姓名 INNER JOIN
                                (SELECT          姓名, 帳號, 職稱, 時效, 授權
                                  FROM           系統跨部門權限表
                                  WHERE         (姓名 LIKE N'" & gUserName & "') AND (授權 = 1)) AS QQQ ON 
                            使用者權限管理表.職稱 = QQQ.職稱
                WHERE      (請購單控制表.核准人 NOT LIKE N'作廢%') AND (請購單控制表.核准人 NOT LIKE N'')  ORDER BY 請購單控制表.請購單號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_建築物料請購單申請_請購單清單()
        ConnOpen()
        If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔" : Else : 低網 = "" : End If
        SQL1 = "SELECT      請購單明細表.請購單號, 請購單明細表.項次 AS [" & 表頭(11) & "], 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 
                            物料規格表.A1 AS [" & 表頭(13) & "], 請購單明細表.備註 AS [" & 表頭(14) & "], 請購單明細表.數量 AS [" & 表頭(15) & "], 
                            物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲分區控制表.倉名 AS [" & 表頭(17) & "], 請購單明細表.群組碼, 請購單明細表.群組原則, 
                            請購單明細表.料號, 物料資訊控制表.規格庫抬頭指定, 物料資訊控制表.規格庫編號, 物料規格表.A2, 
                            物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8 " & 低網 & "
                 FROM       請購單明細表 INNER JOIN
                            物料編碼庫 ON 請購單明細表.群組碼 = 物料編碼庫.群組碼 AND 
                            請購單明細表.群組原則 = 物料編碼庫.料號原則 INNER JOIN
                            物料圖庫 ON 物料編碼庫.群組碼 = 物料圖庫.群組碼 AND 物料編碼庫.料號原則 = 物料圖庫.料號原則 INNER JOIN
                            物料資訊控制表 ON 物料編碼庫.料號原則 = 物料資訊控制表.料號原則 INNER JOIN
                            物料規格表 ON 請購單明細表.料號 = 物料規格表.料號 LEFT OUTER JOIN
                            倉儲分區控制表 ON 請購單明細表.用途 = 倉儲分區控制表.倉名編號 INNER JOIN
                            物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 
                            物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼
                 WHERE  (請購單明細表.請購單號 LIKE N'" & 請購單申請.請購單號_tb.Text & "') AND (物料資訊控制表.規格庫編號 IS NOT NULL) AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')
                 ORDER BY   [" & 表頭(11) & "]"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_請購單需求日其修改()
        ConnOpen() : SQL1 = "UPDATE 請購單控制表 SET 需求日期 = '" & DTP & "' WHERE 請購單號 LIKE N'" & PA1 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_建築物料請購單申請_增選取資料驗證()
        ConnOpen() : SQL1 = "SELECT TOP(1) 料號 FROM 請購單明細表 WHERE 請購單號 LIKE N'" & PA1 & "' AND 料號 LIKE N'" & PA2 & "' ORDER BY 項次 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_請購單明細表_項次最後一筆()
        ConnOpen() : SQL1 = "SELECT TOP(1) 項次 FROM 請購單明細表 WHERE 請購單號 LIKE N'" & PA1 & "' ORDER BY 項次 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_請購單明細表_新增()
        ConnOpen()
        SQL1 = "INSERT INTO 請購單明細表 (請購單號, 品名, 規格, 備註, 數量, 單位, 用途, 項次, 群組碼, 群組原則, 料號) 
                VALUES (N'" & PA & "',N'" & PA1 & "',N'" & PA2 & "',N'" & PA3 & "',N'" & NU1 & "',N'" & PA4 & "',N'" & PA5 & "',N'" & PA6 & "',N'" & PA7 & "',N'" & PA8 & "',N'" & PA9 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_請購單控制表_流水號查詢()
        ConnOpen() : SQL1 = "SELECT TOP (1)  請購單號 FROM 請購單控制表 WHERE ( 請購單號 LIKE N'" & PA & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約號確認()
        ConnOpen() : SQL1 = "SELECT  合約編號  FROM  合約控制表  WHERE  (合約編號 LIKE N'" & PA & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_請購單控制表_新增()
        ConnOpen()
        SQL1 = "INSERT INTO 請購單控制表 (請購單號, 申請人, 申請日期, 核准人, 核准日期, 已採購, 已收貨, 採購單號,合約號, 備註, 乙方, 甲方, 立約日, 序號) 
                VALUES (N'" & PA & "',N'" & gUserName & "',N'" & DTP & "',N'',N'',N'0',N'0',N'',N'" & PA1 & "',N'" & PA43 & "',N'" & PA44 & "',N'" & PA45 & "',N'" & PA46 & "',N'" & PA47 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_請購單控制表_刪除()
        ConnOpen() : SQL1 = "DELETE FROM 請購單控制表 WHERE (請購單號 LIKE N'" & PA & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_請購單明細表_刪除()
        ConnOpen() : SQL1 = "DELETE FROM 請購單明細表 WHERE (請購單號 LIKE N'" & PA & "')" : CmdSet_For_dr()
    End Sub
    '---------------------建築物料請購單核准-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_請購單審核_申請人資料()
        ConnOpen() : SQL1 = "SELECT 部門, 課別, 組別, 級別 FROM 使用者權限管理表 WHERE (帳號 = '" & 請購單核准.申請人_tb.Text & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_建築物料請購單核准_請購單清單()
        ConnOpen()
        If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔" : Else : 低網 = "" : End If
        SQL1 = "SELECT      請購單明細表.請購單號, 請購單明細表.項次 AS [" & 表頭(11) & "], 
                            物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 物料規格表.A1 AS [" & 表頭(13) & "], 
                            請購單明細表.備註 AS [" & 表頭(14) & "], 請購單明細表.數量 AS [" & 表頭(15) & "], 
                            物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲分區控制表.倉名 AS [" & 表頭(17) & "], 物料規格表.圖檔編號, 
                            請購單明細表.群組碼, 請購單明細表.群組原則, 物料資訊控制表.規格庫編號, 
                            物料資訊控制表.規格庫抬頭指定, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 
                            物料規格表.A7, 物料規格表.A8 " & 低網 & "
                FROM        請購單明細表 INNER JOIN
                            物料編碼庫 ON 請購單明細表.群組碼 = 物料編碼庫.群組碼 AND 
                            請購單明細表.群組原則 = 物料編碼庫.料號原則 INNER JOIN
                            物料圖庫 ON 物料編碼庫.群組碼 = 物料圖庫.群組碼 AND 
                            物料編碼庫.料號原則 = 物料圖庫.料號原則 LEFT OUTER JOIN
                            物料資訊控制表 ON 請購單明細表.群組原則 = 物料資訊控制表.料號原則 LEFT OUTER JOIN
                            物料規格表 ON 請購單明細表.料號 = 物料規格表.料號 LEFT OUTER JOIN
                            倉儲分區控制表 ON 請購單明細表.用途 = 倉儲分區控制表.倉名編號 INNER JOIN
                            物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 
                            物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼
                WHERE      (請購單明細表.請購單號 LIKE N'" & 請購單核准.請購單號_tb.Text & "') AND (物料資訊控制表.規格庫編號 IS NOT NULL) AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')
                ORDER BY   [" & 表頭(11) & "]"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_建築物料請購單核准_請購單核准()
        ConnOpen() : SQL1 = "UPDATE 請購單控制表 SET 核准人 = N'" & PA1 & "', 核准日期 = N'" & DTP & "' WHERE (請購單號 = N'" & PA & "')" : CmdSet_For_dr()
    End Sub
    '---------------------建築物料請購單一覽表-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_建築物料請購單一覽表_請購單清單()
        ConnOpen()
        If 請購單歷史檔案.依請購單_ch.Checked = True Then
            SQL2 = "WHERE  (請購單明細表.請購單號 LIKE N'" & 請購單歷史檔案.請購單號_tb.Text & "') AND 
                           (物料資訊控制表.規格庫編號 IS NOT NULL) AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')"
        Else
            SQL2 = "WHERE  (請購單明細表.請購單號 LIKE N'" & 請購單歷史檔案.請購單號_tb.Text & "') AND 
                           (物料資訊控制表.規格庫編號 IS NOT NULL) AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')  AND 
                           (QQQ.採購單號 LIKE N'" & 請購單歷史檔案.採購單號_tb.Text & "')"
        End If

        If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔" : Else : 低網 = "" : End If
        SQL1 = "SELECT      請購單明細表.請購單號, 請購單明細表.項次 AS [" & 表頭(11) & "], 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 
                            物料規格表.A1 AS [" & 表頭(13) & "], 請購單明細表.備註 AS [" & 表頭(14) & "], 請購單明細表.數量 AS [" & 表頭(15) & "], 
                            物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲分區控制表.倉名 AS [" & 表頭(17) & "], 請購單明細表.群組碼, 請購單明細表.群組原則, 
                            請購單明細表.料號, 物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 
                            物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, QQQ.採購單號 AS [" & 表頭(24) & "], 
                            QQQ.已入庫 AS [" & 表頭(43) & "], QQQ.已申請入庫 AS [" & 表頭(42) & "], 物料規格表.圖檔編號 " & 低網 & "
                FROM        物料圖庫 RIGHT OUTER JOIN
                            請購單明細表 LEFT OUTER JOIN
                                (SELECT          採購單控制表.採購單號, 採購單明細表.請購單號, 
                                                 採購單控制表.一級核准, 採購單控制表.核准, 
                                                 採購單明細表.群組碼, 採購單明細表.料號原則, 
                                                 採購單明細表.料號, 採購單明細表.已入庫, 
                                                 採購單明細表.已申請入庫
                                  FROM           採購單控制表 INNER JOIN
                                                 採購單明細表 ON 
                                                 採購單控制表.採購單號 = 採購單明細表.採購單號
                                  WHERE         (採購單明細表.請購單號 LIKE N'" & 請購單歷史檔案.請購單號_tb.Text & "')) AS QQQ ON 
                            請購單明細表.料號 = QQQ.料號 ON 請購單明細表.群組碼 = 物料圖庫.群組碼 AND 
                            請購單明細表.群組原則 = 物料圖庫.料號原則 LEFT OUTER JOIN
                            物料編碼庫 ON 請購單明細表.群組碼 = 物料編碼庫.群組碼 AND 
                            請購單明細表.群組原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN
                            物料資訊控制表 ON 請購單明細表.群組原則 = 物料資訊控制表.料號原則 LEFT OUTER JOIN
                            倉儲分區控制表 ON 請購單明細表.用途 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN
                            物料規格表 ON 請購單明細表.料號 = 物料規格表.料號 INNER JOIN
                            物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 
                            物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼 " & SQL2 & "
                ORDER BY   [" & 表頭(24) & "]"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_建築物料請購單一覽表_已核准()
        ConnOpen()
        If Val(登入人級別) <= 7 Then
            SQL2 = ""
        Else
            SQL2 = "  WHERE   (請購單控制表.申請人 LIKE N'" & gUserName & "') "
        End If
        SQL1 = "SELECT      請購單控制表.請購單號 AS [" & 表頭(18) & "], 請購單控制表.申請人 AS [" & 表頭(19) & "], LEFT(請購單控制表.申請日期, 10) AS [" & 表頭(20) & "], 
                            請購單控制表.核准人 AS [" & 表頭(21) & "], LEFT(請購單控制表.核准日期, 10) AS [" & 表頭(22) & "], 請購單控制表.已採購 AS [" & 表頭(23) & "], 
                            QQQ.採購單號 AS [" & 表頭(24) & "], 請購單控制表.已收貨 AS [" & 表頭(25) & "], 採購單控制表.一級核准 AS [Approv L1], 
                            採購單控制表.核准 AS [Approv L2] , 請購單控制表.需求日期 AS [" & 表頭(30) & "], WWW.已採購,請購單控制表.合約號 AS [" & 表頭(134) & "], 
                            HX空白圖片.圖片 AS [SOP1], HX空白圖片.圖片 AS [SOP2], HX空白圖片.圖片 AS [SOP3], HX空白圖片.圖片 AS [SOP4], HX空白圖片.圖片 AS [SOP5],
                            HX空白圖片.圖片 AS [SOP6], HX空白圖片.圖片 AS [SOP7], HX空白圖片.圖片 AS [SOP8]
                FROM       (SELECT  請購單號, 已採購  FROM  請購單明細表  GROUP BY  請購單號, 已採購) AS WWW RIGHT OUTER JOIN 請購單控制表 LEFT OUTER JOIN
                            HX空白圖片 ON 請購單控制表.序號 = HX空白圖片.選擇 ON WWW.請購單號 = 請購單控制表.請購單號 LEFT OUTER JOIN 採購單控制表 INNER JOIN
                           (SELECT  採購單號, 請購單號  FROM  採購單明細表  GROUP BY  採購單號, 請購單號) AS QQQ ON 採購單控制表.採購單號 = QQQ.採購單號 ON 
                            請購單控制表.請購單號 = QQQ.請購單號 " & SQL2 & " 
                 ORDER BY   LEFT(請購單控制表.申請日期, 10) DESC, 請購單控制表.立約日 DESC, 請購單控制表.序號"
        CmdSet_For_DGV()
    End Sub
    '---------------------物料採購單生成-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_物料最新單價查詢()
        ConnOpen() : SQL1 = "SELECT 料號, 單價, 備註, 日期 FROM 供應商產品清單 WHERE (供應商編碼 LIKE '" & PA14 & "')" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_建築物料採購單生成_明細()
        ConnOpen()
        If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If
        If PA20 = "A" Then
            SQL1 = "SELECT  請購單明細表.請購單號 AS [" & 表頭(18) & "], 請購單明細表.項次 AS [" & 表頭(11) & "], 採購單明細表.合約號 AS [" & 表頭(134) & "],
                            物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 請購單明細表.規格 AS [" & 表頭(13) & "], 
                            請購單明細表.備註 AS [" & 表頭(14) & "], 請購單明細表.數量 AS [" & 表頭(15) & "], 
                            物料編碼庫.單位 AS [" & 表頭(16) & "], 請購單明細表.數量 AS [" & 表頭(26) & "], 
                            請購單明細表.數量 AS [" & 表頭(27) & "], 請購單明細表.群組碼, 
                            請購單明細表.群組原則 AS 料號原則, 請購單明細表.料號, 物料規格表.圖檔編號, 
                            請購單明細表.已採購 AS [" & 表頭(28) & "], 請購單明細表.項次, 請購單明細表.請購單號 AS [KEY],
                            採購單明細表.單價 AS OUP, 請購單明細表.請購單號 AS [SP%] " & 低網 & "
                    FROM    請購單明細表 INNER JOIN
                            物料圖庫 ON 請購單明細表.群組碼 = 物料圖庫.群組碼 AND 
                            請購單明細表.群組原則 = 物料圖庫.料號原則 INNER JOIN
                            物料編碼庫 ON 請購單明細表.群組碼 = 物料編碼庫.群組碼 AND 
                            請購單明細表.群組原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN
                            物料規格表 ON 請購單明細表.料號 = 物料規格表.料號 INNER JOIN
                            物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 
                            物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼
                    WHERE  (請購單明細表.請購單號 LIKE N'" & PA1 & "') AND 
                           (請購單明細表.已採購 IS NULL OR 請購單明細表.已採購 = 0) AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')
                    ORDER BY   [" & 表頭(11) & "]"
        ElseIf PA20 = "B" Then
            SQL1 = "SELECT  採購單明細表.採購單號 AS [" & 表頭(18) & "], 採購單明細表.項次 AS [" & 表頭(11) & "], 採購單明細表.合約號 AS [" & 表頭(134) & "],
                            物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 物料規格表.A1 AS [" & 表頭(13) & "], 
                            採購單明細表.備註 AS [" & 表頭(14) & "], 採購單明細表.數量 AS [" & 表頭(15) & "], 
                            物料編碼庫.單位 AS [" & 表頭(16) & "], 採購單明細表.單價 AS [" & 表頭(26) & "], 
                            採購單明細表.數量 * 採購單明細表.單價 AS [" & 表頭(27) & "], 採購單明細表.群組碼, 
                            採購單明細表.料號原則, 採購單明細表.料號, 物料規格表.圖檔編號, 
                            HX選擇按鈕.選擇 AS [" & 表頭(28) & "], 採購單明細表.項次, 採購單明細表.請購單號 AS [KEY], 物料資訊控制表.規格庫編號, 
                            物料資訊控制表.規格庫抬頭指定, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 
                            物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8,
                            採購單明細表.單價 AS OUP, 採購單明細表.申請人 AS [SP%] , 採購單明細表.申請人 AS [" & 表頭(19) & "] " & 低網 & "
                    FROM    採購單明細表 INNER JOIN
                            物料圖庫 ON 採購單明細表.群組碼 = 物料圖庫.群組碼 AND 
                            採購單明細表.料號原則 = 物料圖庫.料號原則 INNER JOIN
                            物料編碼庫 ON 採購單明細表.群組碼 = 物料編碼庫.群組碼 AND 
                            採購單明細表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN
                            物料資訊控制表 ON 採購單明細表.料號原則 = 物料資訊控制表.料號原則 LEFT OUTER JOIN
                            HX選擇按鈕 ON 採購單明細表.採購單號 = HX選擇按鈕.對應 LEFT OUTER JOIN
                            物料規格表 ON 採購單明細表.料號 = 物料規格表.料號 INNER JOIN
                            物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 
                            物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼
                    WHERE  (採購單明細表.採購單號 LIKE N'" & PA2 & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')
                    ORDER BY   [" & 表頭(11) & "]"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_建築物料採購單生成_請購()
        ConnOpen()
        SQL1 = "SELECT      請購單控制表.請購單號 AS [" & 表頭(18) & "], 請購單控制表.申請人, LEFT(請購單控制表.申請日期, 10) 
                            AS 申請日期, 請購單控制表.核准人, LEFT(請購單控制表.核准日期, 10) AS 核准日期, 
                            請購單控制表.已採購, 請購單控制表.採購單號, 請購單控制表.已收貨, 
                            請購單明細表.用途, 倉儲分區控制表.倉名
                FROM        請購單控制表 INNER JOIN 請購單明細表 ON 
                            請購單控制表.請購單號 = 請購單明細表.請購單號 LEFT OUTER JOIN
                            倉儲分區控制表 ON 請購單明細表.用途 = 倉儲分區控制表.倉名編號
                WHERE       (請購單控制表.核准人 NOT LIKE N'') AND (請購單控制表.核准人 NOT LIKE N'作廢%') AND 
                            (請購單明細表.已採購 IS NULL OR
                            請購單明細表.已採購 = 0)
                GROUP BY   請購單控制表.請購單號, 請購單控制表.申請人, LEFT(請購單控制表.申請日期, 10), 
                            請購單控制表.核准人, LEFT(請購單控制表.核准日期, 10), 請購單控制表.已採購, 
                            請購單控制表.採購單號, 請購單控制表.已收貨, 請購單明細表.用途, 
                            倉儲分區控制表.倉名
                ORDER BY   請購單控制表.請購單號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_建築物料採購單生成_採購()
        ConnOpen()
        SQL1 = "SELECT 採購單號 AS [" & 表頭(18) & "], 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 簽名檔編號, 驗證碼, 請購單號, DISC, 稅, PPN
                FROM 採購單控制表 WHERE (核准 LIKE N'') ORDER BY   SUBSTRING(採購單號, 7, 8) DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_採購單控制表_新增()
        ConnOpen()
        SQL1 = "INSERT INTO 採購單控制表 (採購單號, 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 
                            簽名檔編號, 驗證碼, 請購單號, DISC, 稅, PPN, 採購員, 採購日期, 已會計, 已出納, 現金, 備用金, 公帳, 一級核准, 
                            一級核准核准日期, 一級核准簽名檔編號) " &
                   "VALUES (N'" & PA1 & "',N'" & PA2 & "',N'" & DTP2 & "',N'" & PA3 & "',N'" & PA4 & "',N'" & PA5 & "',N'" & gUserName & "',
                            N'" & DTP & "', N'', N'', N'', N'', N'" & PA6 & "', N'" & PA7 & "', N'" & BL1 & "', N'" & PA8 & "', N'', N'', 
                            N'0', N'0', N'0', N'0', N'0', N'', N'', N'')"
        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() : SQL1 = "UPDATE 請購單控制表 SET  已採購 = N'1', 採購單號 = N'" & PA1 & "' WHERE (請購單號 LIKE N'" & PA6 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_請購單明細表_轉採修改()
        ConnOpen() : SQL1 = "UPDATE 請購單明細表 SET  已採購 = N'" & PA9 & "' WHERE (請購單號 LIKE N'" & PA2 & "') AND (項次 LIKE N'" & PA3 & "') " : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_請購單明細表_退採修改()
        ConnOpen() : SQL1 = "UPDATE 請購單明細表 SET  已採購 = N'0' WHERE (請購單號 LIKE N'" & PA2 & "') AND (項次 LIKE N'" & PA3 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_採購單明細表_新增()
        ConnOpen()
        SQL1 = "INSERT INTO 採購單明細表 (採購單號,合約號, 品名, 規格, 備註, 數量, 單位, 單價, 項次, 已收貨, 群組碼, 料號原則, 料號, 已入庫, 已申請入庫, 請購單號,申請人) 
                      VALUES (N'" & PA1 & "',N'" & PA14 & "',N'" & PA4 & "',N'" & PA5 & "',N'" & PA6 & "',N'" & NU1 & "',N'" & PA8 & "',N'" & PA10 & "',N'" & PA3 & "',N'0',
                              N'" & PA11 & "',N'" & PA12 & "',N'" & PA13 & "',N'0',N'0',N'" & PA2 & "', N'" & PA15 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_採購單控制表_單號最後一筆()
        ConnOpen()
        SQL1 = "SELECT TOP (1)  採購單號 FROM 採購單控制表 WHERE ( 採購單號 LIKE N'" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_採購單明細表_修改()
        ConnOpen()
        SQL1 = "UPDATE 採購單明細表 SET  備註 = 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()
        SQL1 = "UPDATE 採購單明細表 SET  備註 = N'" & PA6 & "' 
                WHERE (採購單號 LIKE N'" & PA5 & "') AND (請購單號 LIKE N'" & PA4 & "') AND (項次 LIKE N'" & PA10 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_採購單供應商_清空()
        ConnOpen()
        SQL1 = "UPDATE 採購單控制表 SET  供應商編號 = '' 
                WHERE (採購單號 LIKE N'" & 採購單編輯.採購單號_tb.Text & "')  "
        CmdSet_For_dr()
    End Sub
    '---------------------行政物料請購單申請-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_行政物料請購單申請_請購明細()
        ConnOpen()
        SQL1 = "SELECT 請購單號, 項次 AS [" & 表頭(11) & "], 品名 AS [" & 表頭(12) & "], 規格 AS [" & 表頭(13) & "], 備註 AS [" & 表頭(14) & "], 數量 AS [" & 表頭(15) & "], 單位 AS [" & 表頭(16) & "], 
                       用途 AS [" & 表頭(17) & "] 
                FROM 樣品請購單明細表 WHERE 請購單號 LIKE N'" & 樣品請購單申請.請購單號_tb.Text & "' ORDER BY 項次"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_樣品請購單控制表_刪除()
        ConnOpen() : SQL1 = "DELETE FROM 樣品請購單控制表 WHERE (請購單號 LIKE N'" & PA1 & "')" : 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()
        SQL1 = "SELECT TOP(1) 項次 FROM 樣品請購單明細表 WHERE 請購單號 LIKE N'" & 樣品請購單申請.請購單號_tb.Text & "' ORDER BY 項次 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_樣品請購單明細表_新增()
        ConnOpen()
        SQL1 = "INSERT INTO 樣品請購單明細表 (請購單號, 品名, 規格, 備註, 數量, 單位, 用途, 項次,申請人) VALUES (N'" & PA & "',N'',N'',N'',N'0',N'',N'',N'" & PA1 & "', N'" & PA2 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_樣品請購單控制表_讀取單號()
        ConnOpen() : SQL1 = "SELECT TOP (1)  請購單號 FROM 樣品請購單控制表 WHERE ( 請購單號 LIKE N'" & 樣品請購單申請.請購單號_tb.Text & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_樣品請購單控制表_新增()
        ConnOpen()
        SQL1 = "INSERT INTO 樣品請購單控制表 (請購單號, 申請人, 申請日期, 核准人, 核准日期, 已採購, 轉請款, 零用金單號) 
                VALUES (N'" & PA & "',N'" & gUserName & "',N'" & DTP & "',N'',N'',N'0',N'0',N'')"
        CmdSet_For_dr()
    End Sub
    '---------------------行政物料請購單核准-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_行政物料請購單核准_請購明細()
        ConnOpen()
        SQL1 = "SELECT 請購單號, 項次 AS [" & 表頭(11) & "], 品名 AS [" & 表頭(12) & "], 規格 AS [" & 表頭(13) & "], 備註 AS [" & 表頭(14) & "], 數量 AS [" & 表頭(15) & "], 單位 AS [" & 表頭(16) & "], 
                       用途 AS [" & 表頭(17) & "]
                FROM 樣品請購單明細表 WHERE 請購單號 LIKE N'" & 樣品請購單核准.請購單號_tb.Text & "' ORDER BY 項次"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_樣品請購單控制表_核准()
        ConnOpen()
        SQL1 = "UPDATE 樣品請購單控制表 SET 核准人 = N'" & gUserName & "', 核准日期 = N'" & DTP & "' WHERE (請購單號 = N'" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_樣品請購單控制表_作廢()
        ConnOpen()
        SQL1 = "UPDATE 樣品請購單控制表 SET 核准人 = N'作廢-" & gUserName & "', 核准日期 = N'" & DTP & "' WHERE (請購單號 = N'" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    '---------------------行政物料請購單一覽表-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_行政物料請購單一覽表_請購明細()
        ConnOpen()
        SQL1 = "SELECT 請購單號, 項次 AS [" & 表頭(11) & "], 品名 AS [" & 表頭(12) & "], 規格 AS [" & 表頭(13) & "], 備註 AS [" & 表頭(14) & "], 數量 AS [" & 表頭(15) & "], 單位 AS [" & 表頭(16) & "], 
                       用途 AS [" & 表頭(17) & "]
                FROM 樣品請購單明細表 WHERE 請購單號 LIKE N'" & 樣品請購單歷史檔案.請購單號_tb.Text & "' ORDER BY 項次"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_行政物料請購單申請_已核准()
        ConnOpen()
        If Val(登入人級別) <= 4 Then
            SQL1 = "SELECT 請購單號 AS [" & 表頭(18) & "], 申請人 AS [" & 表頭(19) & "], LEFT(申請日期, 10) AS [" & 表頭(20) & "], 核准人 AS [" & 表頭(21) & "], 
                    LEFT(核准日期, 10) AS [" & 表頭(22) & "], 已採購 AS [" & 表頭(23) & "], 零用金單號 AS [" & 表頭(24) & "], 轉請款 AS [" & 表頭(25) & "] 
                    FROM 樣品請購單控制表 
                    WHERE (核准人 NOT LIKE N'') AND (核准人 NOT LIKE N'作廢%') ORDER BY 請購單號 DESC"
        Else
            SQL1 = "SELECT 請購單號 AS [" & 表頭(18) & "], 申請人 AS [" & 表頭(19) & "], LEFT(申請日期, 10) AS [" & 表頭(20) & "], 核准人 AS [" & 表頭(21) & "], 
                    LEFT(核准日期, 10) AS [" & 表頭(22) & "], 已採購 AS [" & 表頭(23) & "], 零用金單號 AS [" & 表頭(24) & "], 轉請款 AS [" & 表頭(25) & "] 
                    FROM 樣品請購單控制表 
                     WHERE (申請人 LIKE N'" & gUserName & "') AND (核准人 NOT LIKE N'') AND (核准人 NOT LIKE N'作廢%') ORDER BY 請購單號 DESC"
        End If
        CmdSet_For_DGV()
    End Sub
    '---------------------行政物料採購單生成-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_行政物料採購單生成_明細()
        ConnOpen()
        If 樣品採購單編輯.生成採購單_bt.Enabled = True And 樣品採購單編輯.修改的採購單存檔_bt.Enabled = False Then
            SQL1 = "SELECT  請購單號 AS [" & 表頭(18) & "], 項次 AS [" & 表頭(11) & "], 品名 AS [" & 表頭(12) & "], 規格 AS [" & 表頭(13) & "], 備註 AS [" & 表頭(14) & "], 
                            數量 AS [" & 表頭(15) & "], 單位 AS [" & 表頭(16) & "], 數量 AS [" & 表頭(26) & "], 數量 AS [" & 表頭(27) & "], 
                            已採購 AS [" & 表頭(28) & "], 請購單號 AS 樣品請購單號, 項次,樣品請購單明細表.申請人
                     FROM   樣品請購單明細表
                     WHERE  (請購單號 LIKE N'" & PA1 & "') AND (已採購 IS NULL OR 已採購 = 0)
                     ORDER BY   [" & 表頭(11) & "]"
        ElseIf 樣品採購單編輯.生成採購單_bt.Enabled = False And 樣品採購單編輯.修改的採購單存檔_bt.Enabled = True Then
            SQL1 = "SELECT 樣品採購單明細表.行政物料請購單號 AS [" & 表頭(18) & "], 樣品採購單明細表.項次 AS [" & 表頭(11) & "], 
                            樣品採購單明細表.品名 AS [" & 表頭(12) & "], 樣品採購單明細表.規格 AS [" & 表頭(13) & "], 
                            樣品採購單明細表.備註 AS [" & 表頭(14) & "], 樣品採購單明細表.數量 AS [" & 表頭(15) & "], 
                            樣品採購單明細表.單位 AS [" & 表頭(16) & "], 樣品採購單明細表.單價 AS [" & 表頭(26) & "], 
                            樣品採購單明細表.數量 * 樣品採購單明細表.單價 AS [" & 表頭(27) & "], 
                            HX選擇按鈕.選擇 AS [" & 表頭(28) & "], 樣品採購單明細表.樣品請購單號, 樣品採購單明細表.項次,樣品採購單明細表.申請人 AS [" & 表頭(19) & "]
                     FROM   樣品採購單明細表 LEFT OUTER JOIN HX選擇按鈕 ON 樣品採購單明細表.行政物料請購單號 = HX選擇按鈕.對應
                     WHERE (樣品採購單明細表.行政物料請購單號 LIKE N'" & PA2 & "')
                     ORDER BY   [" & 表頭(11) & "]"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_行政物料採購單生成_請購()
        ConnOpen()
        SQL1 = "SELECT      樣品請購單控制表.請購單號 AS [" & 表頭(18) & "], 樣品請購單控制表.申請人, LEFT(樣品請購單控制表.申請日期, 10) 
                            AS 申請日期, 樣品請購單控制表.核准人, LEFT(樣品請購單控制表.核准日期, 10) AS 核准日期, 
                            樣品請購單控制表.已採購, 樣品請購單控制表.零用金單號 AS 採購單號, 
                            樣品請購單控制表.轉請款 AS 已收貨
                 FROM       樣品請購單控制表 INNER JOIN
                            樣品請購單明細表 ON 樣品請購單控制表.請購單號 = 樣品請購單明細表.請購單號
                 WHERE      (樣品請購單控制表.核准人 NOT LIKE N'') AND (樣品請購單控制表.核准人 NOT LIKE N'作廢%') AND 
                            (樣品請購單明細表.已採購 = 0 OR
                            樣品請購單明細表.已採購 IS NULL)
                 GROUP BY   樣品請購單控制表.請購單號, 樣品請購單控制表.申請人, LEFT(樣品請購單控制表.申請日期, 10), 
                            樣品請購單控制表.核准人, LEFT(樣品請購單控制表.核准日期, 10), 樣品請購單控制表.已採購, 
                            樣品請購單控制表.零用金單號, 樣品請購單控制表.轉請款
                 ORDER BY   樣品請購單控制表.請購單號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_行政物料採購單生成_採購()
        ConnOpen()
        SQL1 = "SELECT 行政物料請購單號 AS [" & 表頭(18) & "], 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 簽名檔編號, 驗證碼, 請購單號, DISC, 稅, PPN
                FROM 樣品採購單控制表 WHERE (核准 LIKE N'') ORDER BY   行政物料請購單號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_樣品採購單控制表_新增()
        ConnOpen()
        SQL1 = "INSERT INTO 樣品採購單控制表 (行政物料請購單號, 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 
                            簽名檔編號, 驗證碼, 請購單號, DISC, 稅, PPN) 
                VALUES (N'" & PA1 & "',N'" & PA2 & "',N'" & DTP2 & "',N'" & PA3 & "',N'" & PA4 & "',N'" & PA5 & "',N'" & gUserName &
                     "',N'" & DTP & "', N'', N'', N'', N'', N'" & PA6 & "', N'" & PA7 & "', N'" & BL1 & "', N'" & PA8 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_樣品採購單控制表_刪除()
        ConnOpen()
        SQL1 = "DELETE 樣品採購單控制表 WHERE 行政物料請購單號 LIKE N'" & PA1 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_樣品請購單控制表_轉採修改()
        ConnOpen()
        SQL1 = "UPDATE 樣品請購單控制表 SET  已採購 = N'1', 零用金單號 = N'" & PA1 & "' WHERE (請購單號 LIKE N'" & PA6 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_樣品請購單控制表_退採修改()
        ConnOpen()
        SQL1 = "UPDATE 樣品請購單控制表 SET  已採購 = N'0', 零用金單號 = N'' WHERE (請購單號 LIKE N'" & PA6 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_樣品請購單明細表_轉採修改()
        ConnOpen()
        SQL1 = "UPDATE 樣品請購單明細表 SET  已採購 = N'" & PA9 & "' WHERE (請購單號 LIKE N'" & PA2 & "') AND (項次 LIKE N'" & PA3 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_樣品採購單明細表_新增()
        ConnOpen()
        SQL1 = "INSERT INTO 樣品採購單明細表 (行政物料請購單號, 品名, 規格, 備註, 數量, 單位, 單價, 項次, 樣品請購單號, 請購單項次,申請人) 
                VALUES (N'" & PA1 & "',N'" & PA4 & "',N'" & PA5 & "',N'" & PA6 & "',N'" & NU1 & "',N'" & PA8 & "',N'" & PA10 & "',N'" & PA3 & "',N'" & PA2 & "',N'" & PA3 & "',N'" & PA11 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_樣品採購單明細表_刪除1()
        ConnOpen()
        SQL1 = "DELETE 樣品採購單明細表  WHERE (行政物料請購單號 LIKE N'" & PA1 & "') AND (項次 LIKE N'" & PA3 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_樣品採購單控制表_單號最後一筆()
        ConnOpen()
        SQL1 = "SELECT TOP (1)  行政物料請購單號 FROM 樣品採購單控制表 WHERE ( 行政物料請購單號 LIKE N'" & 樣品採購單編輯.採購單號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    '---------------------行政物料採購單一覽表-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_行政物料採購單一覽表_明細()
        ConnOpen()
        SQL1 = "SELECT 行政物料請購單號 AS 請購單號, 項次 AS [" & 表頭(11) & "], 品名 AS [" & 表頭(12) & "], 規格 AS [" & 表頭(13) & "], 備註 AS [" & 表頭(14) & "], 數量 AS [" & 表頭(15) & "], 
                       單位 AS [" & 表頭(16) & "], 單價 AS [" & 表頭(26) & "], 數量 * 單價 AS [" & 表頭(27) & "], 項次  FROM  樣品採購單明細表 
                WHERE 行政物料請購單號 LIKE N'" & 樣品採購單歷史檔案.採購單號_tb.Text & "' ORDER BY 項次"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_行政物料採購單一覽表_已核准()
        ConnOpen()
        If Val(登入人級別) <= 4 Then
            SQL1 = "SELECT 行政物料請購單號 AS [" & 表頭(18) & "], 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 簽名檔編號, 驗證碼, 請購單號, DISC, 稅, PPN, 
                           一級核准簽名檔編號
                    FROM 樣品採購單控制表 WHERE (核准 NOT LIKE N'') AND (核准 NOT LIKE N'作廢%') ORDER BY   行政物料請購單號 DESC"
        Else
            SQL1 = "SELECT 行政物料請購單號 AS [" & 表頭(18) & "], 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 簽名檔編號, 驗證碼, 請購單號, DISC, 稅, PPN, 
                           一級核准簽名檔編號
                    FROM 樣品採購單控制表 WHERE (詢價員 LIKE N'" & gUserName & "') AND (核准 NOT LIKE N'') AND (核准 NOT LIKE N'作廢%') ORDER BY   行政物料請購單號 DESC"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_行政物料採購單一覽表_已作廢()
        ConnOpen()
        If Val(登入人級別) <= 4 Then
            SQL1 = "SELECT 行政物料請購單號 AS [" & 表頭(18) & "], 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 簽名檔編號, 驗證碼, 請購單號, DISC, 稅, PPN, 
                           一級核准簽名檔編號
                    FROM 樣品採購單控制表 WHERE (核准 LIKE N'作廢%') ORDER BY   行政物料請購單號 DESC"
        Else
            SQL1 = "SELECT 行政物料請購單號 AS [" & 表頭(18) & "], 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 簽名檔編號, 驗證碼, 請購單號, DISC, 稅, PPN, 
                           一級核准簽名檔編號
                    FROM 樣品採購單控制表 WHERE (詢價員 LIKE N'" & gUserName & "') AND (核准 LIKE N'作廢%') ORDER BY   行政物料請購單號 DESC"
        End If
        CmdSet_For_DGV()
    End Sub
    '---------------------建築物料採購單一覽表-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_建築物料採購單一覽表_明細()
        ConnOpen()
        If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If
        SQL1 = "SELECT      採購單明細表.採購單號 AS 請購單號, 採購單明細表.項次 AS [" & 表頭(11) & "], 採購單明細表.合約號 AS [" & 表頭(134) & "],
                            物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 物料規格表.A1 AS [" & 表頭(13) & "], 
                            採購單明細表.備註 AS [" & 表頭(14) & "], 採購單明細表.數量 AS [" & 表頭(15) & "], 
                            採購單明細表.單位 AS [" & 表頭(16) & "], 採購單明細表.單價 AS [" & 表頭(26) & "], 
                            採購單明細表.數量 * 採購單明細表.單價 AS [" & 表頭(27) & "], 採購單明細表.群組碼, 
                            採購單明細表.料號原則, 採購單明細表.料號, 物料規格表.圖檔編號, 採購單明細表.項次, 採購單明細表.請購單號 AS [KEY], 物料資訊控制表.規格庫編號, 
                            物料資訊控制表.規格庫抬頭指定, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 
                            物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8,採購單明細表.申請人 AS [" & 表頭(19) & "]" & 低網 & "
                 FROM       採購單明細表 INNER JOIN
                            物料圖庫 ON 採購單明細表.群組碼 = 物料圖庫.群組碼 AND 
                            採購單明細表.料號原則 = 物料圖庫.料號原則 INNER JOIN
                            物料編碼庫 ON 採購單明細表.群組碼 = 物料編碼庫.群組碼 AND 
                            採購單明細表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN
                            物料資訊控制表 ON 採購單明細表.料號原則 = 物料資訊控制表.料號原則 LEFT OUTER JOIN
                            HX選擇按鈕 ON 採購單明細表.採購單號 = HX選擇按鈕.對應 LEFT OUTER JOIN
                            物料規格表 ON 採購單明細表.料號 = 物料規格表.料號 INNER JOIN
                            物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 
                            物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼
                 WHERE     (採購單明細表.採購單號 LIKE N'" & 採購單歷史檔案.採購單號_tb.Text & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')
                 ORDER BY   [" & 表頭(11) & "]"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_建築物料採購單一覽表_已核准()
        ConnOpen()
        SQL1 = "SELECT 採購單號 AS [" & 表頭(18) & "], 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 簽名檔編號, 驗證碼, 請購單號, DISC, 稅, PPN, 
                           一級核准簽名檔編號, 一級核准核准日期, 採購員, 採購日期
                FROM 採購單控制表 WHERE (核准 NOT LIKE N'') AND (核准 NOT LIKE N'作廢%') ORDER BY   SUBSTRING(採購單號, 7, 8) DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_建築物料採購單一覽表_已作廢()
        ConnOpen()
        If Val(登入人級別) <= 4 Then
            SQL1 = "SELECT 採購單號 AS [" & 表頭(18) & "], 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 簽名檔編號, 驗證碼, 請購單號, DISC, 稅, PPN, 
                           一級核准簽名檔編號
                    FROM 採購單控制表 WHERE (核准 LIKE N'作廢%') ORDER BY   採購單號 DESC"
        Else
            SQL1 = "SELECT 採購單號 AS [" & 表頭(18) & "], 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 簽名檔編號, 驗證碼, 請購單號, DISC, 稅, PPN, 
                           一級核准簽名檔編號
                    FROM 採購單控制表 WHERE (詢價員 LIKE N'" & gUserName & "') AND (核准 LIKE N'作廢%') ORDER BY   採購單號 DESC"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_物料採購單_首次列印()
        ConnOpen()
        SQL1 = "UPDATE 採購單控制表 SET  採購員 = N'" & gUserName & "', 採購日期 = N'" & Today() & "' WHERE (採購單號 LIKE N'" & 採購單歷史檔案.採購單號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    '---------------------行政物料採購_驗收_對帳表-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_行政物料採購_驗收_對帳表_清單()
        ConnOpen()
        SQL1 = "SELECT 樣品採購單明細表.行政物料請購單號 AS [" & 表頭(18) & "], 供應商資料表.供應商簡稱 AS [" & 表頭(29) & "], 樣品採購單控制表.需求日期 AS [" & 表頭(30) & "], 
                                 樣品採購單控制表.採購員 AS [" & 表頭(31) & "],    樣品採購單控制表.採購日期 AS [" & 表頭(32) & "], 樣品採購單控制表.核准日期 AS [" & 表頭(22) & "], 
                                   樣品採購單明細表.項次 AS [" & 表頭(11) & "],        樣品採購單明細表.品名 AS [" & 表頭(12) & "],     樣品採購單明細表.規格 AS [" & 表頭(13) & "],   
                                   樣品採購單明細表.備註 AS [" & 表頭(14) & "],        樣品採購單明細表.數量 AS [" & 表頭(15) & "],     樣品採購單明細表.單位 AS [" & 表頭(16) & "], 
                                   樣品採購單明細表.單價 AS [" & 表頭(26) & "], 樣品採購單明細表.數量 * 樣品採購單明細表.單價 AS [" & 表頭(27) & "], 
                       樣品採購單控制表.DISC,                                   
                       (CONVERT(float, 樣品採購單控制表.DISC) / 100) * (樣品採購單明細表.數量 * 樣品採購單明細表.單價) AS [" & 表頭(33) & "], 
                                樣品採購單控制表.稅 AS [" & 表頭(34) & "],                        樣品採購單控制表.PPN, 
                       (樣品採購單明細表.數量 * 樣品採購單明細表.單價 - (CONVERT(float, 樣品採購單控制表.DISC) / 100) * (樣品採購單明細表.數量 * 樣品採購單明細表.單價)) 
                       * 樣品採購單控制表.PPN / 100 AS [" & 表頭(35) & "], 
                       (樣品採購單明細表.數量 * 樣品採購單明細表.單價 - (CONVERT(float, 樣品採購單控制表.DISC) / 100) * (樣品採購單明細表.數量 * 樣品採購單明細表.單價)) 
                       + (樣品採購單明細表.數量 * 樣品採購單明細表.單價 - (CONVERT(float, 樣品採購單控制表.DISC) / 100) * (樣品採購單明細表.數量 * 樣品採購單明細表.單價)) 
                            * 樣品採購單控制表.PPN / 100 AS [" & 表頭(36) & "],    樣品採購單明細表.已收貨 AS [" & 表頭(25) & "],      樣品採購單控制表.已會計 AS [" & 表頭(37) & "], 
                                 樣品採購單控制表.已出納 AS [" & 表頭(38) & "],      樣品採購單控制表.現金 AS [" & 表頭(39) & "],      樣品採購單控制表.備用金 AS [" & 表頭(40) & "], 
                                   樣品採購單控制表.公帳 AS [" & 表頭(41) & "]
                FROM 供應商資料表 INNER JOIN 樣品採購單控制表 ON 供應商資料表.供應商編碼 = 樣品採購單控制表.供應商編號 INNER JOIN 樣品請購單控制表 ON 
                     樣品採購單控制表.請購單號 = 樣品請購單控制表.請購單號 RIGHT OUTER JOIN 樣品採購單明細表 ON 
                     樣品採購單控制表.行政物料請購單號 = 樣品採購單明細表.行政物料請購單號
                WHERE (樣品採購單控制表.核准 NOT LIKE N'作廢%') AND (樣品採購單控制表.核准 NOT LIKE N'') " & PA10 & PA11 & PA12 & "
        ORDER BY 樣品採購單明細表.行政物料請購單號 DESC, 樣品採購單控制表.核准日期"
        CmdSet_For_DGV()
    End Sub
    '---------------------建築物料採購_驗收_對帳表-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_建築物料採購_驗收_對帳表_清單()
        ConnOpen()
        If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔" : Else : 低網 = "" : End If
        SQL1 = "SELECT      採購單明細表.採購單號 AS [" & 表頭(18) & "],       供應商資料表.供應商簡稱 AS [" & 表頭(29) & "], 採購單控制表.需求日期 AS [" & 表頭(30) & "],   
                                      採購單控制表.採購員 AS [" & 表頭(31) & "], 採購單控制表.採購日期 AS [" & 表頭(32) & "], 採購單控制表.核准日期 AS [" & 表頭(22) & "], 
                                        採購單明細表.項次 AS [" & 表頭(11) & "],           物料編碼庫.原則說明 AS [" & 表頭(12) & "],     採購單明細表.規格 AS [" & 表頭(13) & "],    
                                        採購單明細表.備註 AS [" & 表頭(14) & "],     採購單明細表.數量 AS [" & 表頭(15) & "],     採購單明細表.單位 AS [" & 表頭(16) & "], 
                                        採購單明細表.單價 AS [" & 表頭(26) & "],                              採購單明細表.數量 * 採購單明細表.單價 AS [" & 表頭(27) & "], 
                                        採購單控制表.DISC, 
                            (CONVERT(float, 採購單控制表.DISC) / 100) * (採購單明細表.數量 * 採購單明細表.單價) AS [" & 表頭(33) & "], 
                                        採購單控制表.稅 AS [" & 表頭(34) & "], 採購單控制表.PPN, 
                            (採購單明細表.數量 * 採購單明細表.單價 - (CONVERT(float, 採購單控制表.DISC) / 100) * (採購單明細表.數量 * 採購單明細表.單價))
                                        * 採購單控制表.PPN / 100 AS [" & 表頭(35) & "], 
                            (採購單明細表.數量 * 採購單明細表.單價 - (CONVERT(float, 採購單控制表.DISC) / 100) * (採購單明細表.數量 * 採購單明細表.單價)) 
                            + (採購單明細表.數量 * 採購單明細表.單價 - (CONVERT(float, 採購單控制表.DISC) / 100) * (採購單明細表.數量 * 採購單明細表.單價)) 
                            * 採購單控制表.PPN / 100 AS [" & 表頭(36) & "],  採購單明細表.已收貨 AS [" & 表頭(25) & "], 採購單明細表.已申請入庫 AS [" & 表頭(42) & "], 
                                 採購單明細表.已入庫 AS [" & 表頭(43) & "],  採購單控制表.已會計 AS [" & 表頭(37) & "],     採購單控制表.已出納 AS [" & 表頭(38) & "], 
                                   採購單控制表.現金 AS [" & 表頭(39) & "],  採購單控制表.備用金 AS [" & 表頭(40) & "],       採購單控制表.公帳 AS [" & 表頭(41) & "], 
                            採購單明細表.群組碼, 採購單明細表.料號原則, 採購單明細表.料號, 物料規格表.圖檔編號 " & 低網 & " 
                FROM        物料圖庫 INNER JOIN 採購單明細表 ON 物料圖庫.群組碼 = 採購單明細表.群組碼 AND 物料圖庫.料號原則 = 採購單明細表.料號原則 INNER JOIN
                            物料編碼庫 ON 採購單明細表.群組碼 = 物料編碼庫.群組碼 AND 採購單明細表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN 供應商資料表 INNER JOIN
                            採購單控制表 ON 供應商資料表.供應商編碼 = 採購單控制表.供應商編號 INNER JOIN 請購單控制表 ON 採購單控制表.請購單號 = 
                            請購單控制表.請購單號 ON 採購單明細表.採購單號 = 採購單控制表.採購單號 LEFT OUTER JOIN 物料規格表 ON 採購單明細表.料號 = 
                            物料規格表.料號
                WHERE      (採購單控制表.核准 NOT LIKE N'作廢%') AND (採購單控制表.核准 NOT LIKE N'')  " & PA10 & PA11 & PA12 & "
                ORDER BY   [" & 表頭(18) & "] DESC, [" & 表頭(22) & "]"
        CmdSet_For_DGV()
    End Sub
    '---------------------行政物料來料驗收單-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_行政物料來料驗收單表_清單()
        ConnOpen()
        SQL1 = "SELECT 行政物料請購單號 AS 請購單號, 項次 AS [" & 表頭(11) & "], 品名 AS [" & 表頭(12) & "], 規格 AS [" & 表頭(13) & "], 備註 AS [" & 表頭(14) & "], 數量 AS [" & 表頭(15) & "], 
                       單位 AS [" & 表頭(16) & "], 單價, 數量 * 單價 AS 金額, 已收貨 AS [" & 表頭(25) & "], 項次 FROM  樣品採購單明細表 
                WHERE 行政物料請購單號 LIKE N'" & 樣品採購單驗收.採購單號_tb.Text & "' ORDER BY 項次"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_行政物料來料驗收單表_已核准()
        ConnOpen()
        SQL1 = "SELECT 樣品採購單控制表.行政物料請購單號 AS [" & 表頭(18) & "], 樣品採購單控制表.供應商編號, 樣品採購單控制表.需求日期, 樣品採購單控制表.使用地點, 
                       樣品採購單控制表.核對員, 樣品採購單控制表.核對日期,  樣品採購單控制表.詢價員, 樣品採購單控制表.尋價日期, 樣品採購單控制表.核准, 
                       樣品採購單控制表.核准日期, 樣品採購單控制表.簽名檔編號, 樣品採購單控制表.驗證碼, 樣品採購單控制表.請購單號, 樣品採購單控制表.DISC, 
                       樣品採購單控制表.稅, 樣品採購單控制表.PPN
                FROM 樣品採購單控制表 LEFT OUTER JOIN 樣品採購單明細表 ON 樣品採購單控制表.行政物料請購單號 = 樣品採購單明細表.行政物料請購單號
                WHERE (樣品採購單控制表.核准 NOT LIKE N'') AND (樣品採購單控制表.核准 NOT LIKE N'作廢%') AND (樣品採購單明細表.已收貨 = 0)
                GROUP BY 樣品採購單控制表.行政物料請購單號, 樣品採購單控制表.供應商編號, 樣品採購單控制表.需求日期, 樣品採購單控制表.使用地點, 樣品採購單控制表.核對員, 
                         樣品採購單控制表.核對日期, 樣品採購單控制表.詢價員, 樣品採購單控制表.尋價日期, 樣品採購單控制表.核准, 樣品採購單控制表.核准日期, 
                         樣品採購單控制表.簽名檔編號, 樣品採購單控制表.驗證碼, 樣品採購單控制表.請購單號, 樣品採購單控制表.DISC, 樣品採購單控制表.稅, 樣品採購單控制表.PPN
                ORDER BY 樣品採購單控制表.行政物料請購單號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_行政物料來料驗收單_已收貨NULL修改()
        ConnOpen() : SQL1 = "UPDATE 樣品採購單明細表 SET  已收貨 = N'0' WHERE (已收貨 IS NULL)" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_樣品採購單明細表_確定收貨()
        ConnOpen() : SQL1 = "UPDATE 樣品採購單明細表 SET  已收貨 = N'" & BL1 & "' WHERE (行政物料請購單號 LIKE N'" & PA2 & "') AND (項次 LIKE N'" & PA3 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_樣品請購單控制表_確定收貨()
        ConnOpen() : SQL1 = "UPDATE 樣品請購單控制表 SET  轉請款 = N'" & BL2 & "' WHERE (零用金單號 LIKE N'" & PA2 & "')" : CmdSet_For_dr()
    End Sub
    '---------------------建築物料來料驗收與指定入庫-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_建築物料來料驗收與指定入庫_入庫明細()
        ConnOpen()
        If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔" : Else : 低網 = "" : End If
        SQL1 = "SELECT      倉儲明細表.資料流水號 AS [" & 表頭(137) & "],採購單明細表.合約號 AS [" & 表頭(134) & "], 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 
                            物料規格表.A1 AS [" & 表頭(13) & "], 倉儲明細表.入庫 AS [" & 表頭(45) & "], 倉儲明細表.出庫 AS [" & 表頭(46) & "], 
                            物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 物料規格表.群組碼, 物料規格表.料號原則, 
                            物料規格表.圖檔編號, 物料規格表.群組碼 AS 群組碼1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 
                            物料規格表.A7, 物料規格表.A8, 物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定 " & 低網 & "
                 FROM       物料圖庫 INNER JOIN
                            物料規格表 ON 物料圖庫.群組碼 = 物料規格表.群組碼 AND 
                            物料圖庫.料號原則 = 物料規格表.料號原則 INNER JOIN
                            物料編碼庫 ON 物料規格表.群組碼 = 物料編碼庫.群組碼 AND 
                            物料規格表.料號原則 = 物料編碼庫.料號原則 INNER JOIN
                            物料資訊控制表 ON 物料規格表.群組碼 = 物料資訊控制表.群組碼 AND 
                            物料規格表.料號原則 = 物料資訊控制表.料號原則 RIGHT OUTER JOIN
                            採購單明細表 RIGHT OUTER JOIN
                            倉儲明細表 ON 採購單明細表.料號 = 倉儲明細表.料號 AND 採購單明細表.採購單號 = 倉儲明細表.採購單號 ON 
                            物料規格表.料號 = 倉儲明細表.料號 INNER JOIN
                            物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 
                            物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼
                 WHERE     (倉儲明細表.執行單號 LIKE N'" & PA20 & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')
                 ORDER BY   倉儲明細表.資料流水號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_建築物料來料驗收與指定入庫_已核准()
        ConnOpen()
        SQL1 = "SELECT      採購單控制表.採購單號 AS [" & 表頭(18) & "], 採購單控制表.供應商編號, 採購單控制表.需求日期, 採購單控制表.使用地點, 
                            採購單控制表.核對員, 採購單控制表.核對日期, 採購單控制表.詢價員, 採購單控制表.尋價日期, 採購單控制表.核准, 
                            採購單控制表.核准日期, 採購單控制表.簽名檔編號, 採購單控制表.驗證碼, 採購單控制表.請購單號, 採購單控制表.DISC, 
                            採購單控制表.稅, 採購單控制表.PPN
                 FROM       採購單控制表 LEFT OUTER JOIN 採購單明細表 ON 採購單控制表.採購單號 = 採購單明細表.採購單號
                 WHERE      (採購單控制表.核准 NOT LIKE N'') AND (採購單控制表.核准 NOT LIKE N'作廢%') AND (採購單明細表.已收貨 = 0)
                 GROUP BY   採購單控制表.採購單號, 採購單控制表.供應商編號, 採購單控制表.需求日期, 採購單控制表.使用地點, 採購單控制表.核對員, 
                            採購單控制表.核對日期, 採購單控制表.詢價員, 採購單控制表.尋價日期, 採購單控制表.核准, 採購單控制表.核准日期, 
                            採購單控制表.簽名檔編號, 採購單控制表.驗證碼, 採購單控制表.請購單號, 採購單控制表.DISC, 採購單控制表.稅, 採購單控制表.PPN
                 ORDER BY   採購單控制表.採購單號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_建築物料來料驗收與指定入庫_採購明細()
        ConnOpen()
        If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔" : Else : 低網 = "" : End If
        SQL1 = "SELECT      採購單明細表.採購單號 AS 請購單號, 採購單明細表.項次 AS [" & 表頭(11) & "],採購單明細表.合約號 AS [" & 表頭(134) & "],
                            物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 物料規格表.A1 AS [" & 表頭(13) & "], 
                            採購單明細表.備註 AS [" & 表頭(14) & "], 採購單明細表.數量 AS [" & 表頭(15) & "], 
                            採購單明細表.單位 AS [" & 表頭(16) & "], 採購單明細表.單價 AS [" & 表頭(26) & "], 
                            採購單明細表.數量 * 採購單明細表.單價 AS [" & 表頭(27) & "], 
                            採購單明細表.已收貨 AS [" & 表頭(25) & "], 採購單明細表.群組碼, 
                            採購單明細表.料號原則, 採購單明細表.料號, 物料規格表.圖檔編號, 採購單明細表.項次, 物料規格表.A2, 物料規格表.A3, 
                            物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 
                            物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定 " & 低網 & "
                FROM        採購單明細表 INNER JOIN
                            物料圖庫 ON 採購單明細表.群組碼 = 物料圖庫.群組碼 AND 
                            採購單明細表.料號原則 = 物料圖庫.料號原則 INNER JOIN
                            物料編碼庫 ON 採購單明細表.群組碼 = 物料編碼庫.群組碼 AND 
                            採購單明細表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN
                            物料資訊控制表 ON 採購單明細表.料號原則 = 物料資訊控制表.料號原則 LEFT OUTER JOIN
                            物料規格表 ON 採購單明細表.料號 = 物料規格表.料號 INNER JOIN
                            物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 
                            物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼
                 WHERE     (採購單明細表.採購單號 LIKE N'" & 採購單驗收.採購單號_tb.Text & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')
                 ORDER BY   [" & 表頭(11) & "]"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_建築物料來料驗收與指定入庫_未入庫()
        ConnOpen()
        If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔" : Else : 低網 = "" : End If
        SQL1 = "SELECT      HX選擇按鈕.選擇 AS [" & 表頭(44) & "], 採購單明細表.採購單號 AS [" & 表頭(18) & "], 採購單明細表.合約號 AS [" & 表頭(134) & "] ,
                            物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 
                            物料規格表.A1 AS [" & 表頭(13) & "], 採購單明細表.備註 AS [" & 表頭(14) & "], 採購單明細表.數量 AS [" & 表頭(15) & "], 
                            採購單明細表.單位 AS [" & 表頭(16) & "], 採購單明細表.料號, 物料規格表.群組碼, 採購單明細表.料號原則, 物料規格表.圖檔編號, 
                            LEFT(採購單控制表.使用地點, 3) AS [" & 表頭(135) & "], 採購單控制表.使用地點 AS [" & 表頭(136) & "], 採購單明細表.項次 ,
                            採購單明細表.請購單號, 物料規格表.A2, 物料規格表.A3, 
                            物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 
                            物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定" & 低網 & "
                FROM        採購單明細表 INNER JOIN 物料圖庫 ON 採購單明細表.群組碼 = 物料圖庫.群組碼 AND 採購單明細表.料號原則 = 物料圖庫.料號原則 INNER JOIN
                            採購單控制表 ON 採購單明細表.採購單號 = 採購單控制表.採購單號 INNER JOIN 物料編碼庫 ON 採購單明細表.群組碼 = 
                            物料編碼庫.群組碼 AND 採購單明細表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN 物料規格表 ON 採購單明細表.料號 = 物料規格表.料號 LEFT OUTER JOIN
                            HX選擇按鈕 ON 採購單明細表.採購單號 = HX選擇按鈕.對應 LEFT OUTER JOIN
                            物料資訊控制表 ON 採購單明細表.料號原則 = 物料資訊控制表.料號原則 INNER JOIN
                            物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 
                            物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼
                WHERE      (採購單明細表.已收貨 = 1) AND (採購單明細表.已申請入庫 = 0) AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') " & PA14 & "
                ORDER BY   [" & 表頭(18) & "], 採購單明細表.料號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_建築物料來料驗收與指定入庫_入庫申請()
        ConnOpen()
        SQL1 = "SELECT 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲分區控制表.倉名 AS [" & 表頭(48) & "]
                FROM 倉儲明細表 LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉級 = 倉儲分區控制表.倉級 AND 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號
                WHERE (倉儲明細表.狀態 LIKE N'指定入庫') AND (倉儲明細表.倉庫作業 LIKE N'') AND (倉儲明細表.採購單號 NOT LIKE N'')
                GROUP BY 倉儲明細表.執行單號, 倉儲分區控制表.倉名"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_入庫申請無指定()
        ConnOpen()
        SQL1 = "SELECT     倉儲明細表.執行單號, 倉儲分區控制表.倉名, 倉儲明細表.倉級, 倉儲分區控制表.倉級 AS 倉級_1, 
                           倉儲明細表.倉名編號, 倉儲分區控制表.倉名編號 AS 倉名編號_1
                FROM       倉儲明細表 LEFT OUTER JOIN
                           倉儲分區控制表 ON 倉儲明細表.倉級 = 倉儲分區控制表.倉級 AND 
                           倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號
                WHERE     (倉儲明細表.倉庫作業 LIKE N'') AND (倉儲分區控制表.倉名編號 IS NULL)
                GROUP BY   倉儲明細表.執行單號, 倉儲分區控制表.倉名, 倉儲明細表.倉級, 倉儲分區控制表.倉級, 
                           倉儲明細表.倉名編號, 倉儲分區控制表.倉名編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_倉儲明細表修正入庫資料()
        ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 倉級 = N'" & PA2 & "', 倉名編號 = N'" & PA3 & "' WHERE (執行單號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_建築物料來料驗收與指定入庫_已申請入庫NULL修改()
        ConnOpen() : SQL1 = "UPDATE 採購單明細表 SET 已申請入庫 = N'0' WHERE (已申請入庫 IS NULL)" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_入庫申請無料號()
        ConnOpen()
        SQL1 = "SELECT     倉儲明細表.資料流水號, 物料編碼庫.原則說明 AS 品名, 採購單明細表.規格, 倉儲明細表.入庫, 倉儲明細表.出庫, 
                           採購單明細表.單位, 倉儲明細表.備註, 物料規格表.群組碼, 物料規格表.料號原則, 物料規格表.圖檔編號, 
                           倉儲明細表.料號
                FROM       物料圖庫 INNER JOIN
                           物料規格表 ON 物料圖庫.群組碼 = 物料規格表.群組碼 AND 
                           物料圖庫.料號原則 = 物料規格表.料號原則 INNER JOIN
                           物料編碼庫 ON 物料規格表.料號原則 = 物料編碼庫.料號原則 RIGHT OUTER JOIN
                           採購單明細表 RIGHT OUTER JOIN
                           倉儲明細表 ON 採購單明細表.料號 = 倉儲明細表.料號 AND 採購單明細表.採購單號 = 倉儲明細表.採購單號 ON 
                           物料規格表.料號 = 倉儲明細表.料號
                WHERE     (物料編碼庫.原則說明 IS NULL)
                ORDER BY   倉儲明細表.資料流水號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_物料清單一()
        SQL1 = "SELECT 物料編碼庫.群組碼 AS No, 物料編碼庫.料號原則 AS PN_Bagian, 物料編碼庫.原則說明 AS Pernyataan_Prinsip, 物料編碼庫.群組碼, 物料編碼庫.料號原則, 
                       物料編碼庫.單位
                FROM   物料編碼庫 INNER JOIN 物料圖庫 ON 物料編碼庫.群組碼 = 物料圖庫.群組碼 AND 物料編碼庫.料號原則 = 物料圖庫.料號原則
                WHERE  (物料編碼庫.群組碼 LIKE N'" & PA1 & "%')
                ORDER BY   Pernyataan_Prinsip, PN_Bagian"
    End Sub
    Friend Sub SQL_建築物料來料驗收與指定入庫_已收貨NULL修改()
        ConnOpen() : SQL1 = "UPDATE 採購單明細表 SET  已收貨 = N'0' WHERE (已收貨 IS NULL)" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_建築物料來料驗收與指定入庫_倉儲明細表_新增()
        ConnOpen()
        SQL1 = "INSERT INTO 倉儲明細表 (資料流水號, 執行單號, 倉級, 倉名編號, 料號, 入庫, 出庫, 備註, 狀態, 採購單號, 申請人, 申請日期, 審核人, 審核日期, 倉庫作業, 作業日期, 使用位置) 
                VALUES (N'" & PA3 & "',N'" & PA4 & "',N'" & PA5 & "',N'" & PA6 & "',N'" & PA2 & "',N'" & PA7 & "', N'0', N'" & PA9 & "', N'指定入庫', N'" & PA8 & "', N'" & gUserName & "', 
                        N'" & DTP & "', N'', N'', N'', N'', N'')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_採購單明細表_已申請入庫修改()
        ConnOpen() : SQL1 = "UPDATE 採購單明細表 SET 已申請入庫 = N'1' WHERE (採購單號 LIKE N'" & PA8 & "' AND 料號 LIKE N'" & PA2 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_採購單明細表_已收貨修改()
        ConnOpen() : SQL1 = "UPDATE 採購單明細表 SET  已收貨 = N'" & BL1 & "' WHERE (採購單號 LIKE N'" & PA1 & "') AND (項次 LIKE N'" & PA2 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_請購單控制表_已收貨修改()
        ConnOpen() : SQL1 = "UPDATE 請購單控制表 SET  已收貨 = N'" & BL2 & "' WHERE (採購單號 LIKE N'" & PA3 & "')" : CmdSet_For_dr()
    End Sub
    '---------------------建築物料供應商管理-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_建築物料供應商資料管理_清單()
        ConnOpen()
        If PA = "" Then
            SQL2 = ""
        Else
            SQL1 = " WHERE 供應商資料表.供應商編碼 LIKE N'%" & PA & "%' OR QQQ.類別 LIKE N'%" & PA & "%' OR 供應商資料表.公司名 LIKE N'%" & PA & "%' OR 供應商資料表.公司地址 LIKE N'%" & PA & "%' OR 
                           供應商資料表.聯繫人1 LIKE N'%" & PA & "%' OR 供應商資料表.聯繫人2 LIKE N'%" & PA & "%' OR 供應商資料表.聯繫人3 LIKE N'%" & PA & "%' "
        End If
        SQL1 = "SELECT 供應商資料表.供應商編碼 AS [" & 表頭(49) & "], QQQ.類別 AS [" & 表頭(50) & "], 供應商資料表.公司名 AS [" & 表頭(51) & "], 供應商資料表.公司地址 AS [" & 表頭(52) & "], 
                       供應商資料表.公司電話1 AS [" & 表頭(53) & "], 供應商資料表.公司電話2 AS [" & 表頭(54) & "], 供應商資料表.公司電話3 AS [" & 表頭(55) & "], 
                       供應商資料表.公司傳真1 AS [" & 表頭(56) & "], 供應商資料表.公司傳真2 AS [" & 表頭(57) & "], 供應商資料表.公司傳真3 AS [" & 表頭(58) & "], 
                       供應商資料表.聯繫人1 AS [" & 表頭(59) & "], 供應商資料表.聯繫人2 AS [" & 表頭(60) & "], 供應商資料表.聯繫人3 AS [" & 表頭(61) & "], 供應商資料表.聯繫人1職稱, 聯繫人2職稱, 
                       供應商資料表.聯繫人3職稱, 供應商資料表.聯繫人1電話, 供應商資料表.聯繫人2電話, 供應商資料表.聯繫人3電話, 供應商資料表.聯繫人1郵箱, 供應商資料表.聯繫人2郵箱, 
                       供應商資料表.聯繫人3郵箱, 供應商資料表.供應商簡稱 AS [key] 
                FROM   供應商資料表 LEFT OUTER JOIN
                                (SELECT          編碼, 語言, 類別
                                  FROM           供應商類別
                                  WHERE         (供應商類別.語言 LIKE N'" & 系統語言 & "')) AS QQQ ON 供應商資料表.供應商簡稱 = QQQ.編碼
                " & SQL2 & " 
                ORDER BY 供應商資料表.供應商編碼"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_建築物料供應商資料管理_最後一筆資料()
        ConnOpen() : SQL1 = "SELECT TOP (1) 供應商編碼 FROM 供應商資料表 ORDER BY 供應商編碼 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_供應商資料表_新增()
        ConnOpen()
        SQL1 = "INSERT INTO 供應商資料表 (供應商編碼, 供應商簡稱, 公司名, 公司地址, 公司電話1, 公司電話2, 公司電話3, 公司傳真1, 公司傳真2, 公司傳真3, 聯繫人1, 聯繫人2, 聯繫人3, 聯繫人1職稱, 
                                          聯繫人2職稱, 聯繫人3職稱, 聯繫人1電話, 聯繫人2電話, 聯繫人3電話, 聯繫人1郵箱, 聯繫人2郵箱, 聯繫人3郵箱) 
                VALUES (N'" & 供應商管理.供應商編號_tb.Text & "',N'" & 供應商管理.供應商簡稱_tb.Text & "',N'" & 供應商管理.公司名_tb.Text & "',
                        N'" & 供應商管理.地址_tb.Text & "',N'" & 供應商管理.電話1_tb.Text & "',N'" & 供應商管理.電話2_tb.Text & "',
                        N'" & 供應商管理.電話3_tb.Text & "', N'" & 供應商管理.傳真1_tb.Text & "',N'" & 供應商管理.傳真2_tb.Text & "',
                        N'" & 供應商管理.傳真3_tb.Text & "',N'" & 供應商管理.聯繫人1_tb.Text & "', N'" & 供應商管理.聯繫人2_tb.Text & "',
                        N'" & 供應商管理.聯繫人3_tb.Text & "',N'" & 供應商管理.職稱1_tb.Text & "',N'" & 供應商管理.職稱2_tb.Text & "',
                        N'" & 供應商管理.職稱3_tb.Text & "',N'" & 供應商管理.聯繫電話1_tb.Text & "',N'" & 供應商管理.聯繫電話2_tb.Text & "',
                        N'" & 供應商管理.聯繫電話3_tb.Text & "',N'" & 供應商管理.信箱1_tb.Text & "',N'" & 供應商管理.信箱2_tb.Text & "',
                        N'" & 供應商管理.信箱3_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_供應商資料表_修改()
        ConnOpen()
        SQL1 = "UPDATE 供應商資料表 SET 供應商簡稱 = N'" & 供應商管理.供應商簡稱_tb.Text & "', 公司名 = N'" & 供應商管理.公司名_tb.Text & "', 
                                        公司地址 = N'" & 供應商管理.地址_tb.Text & "', 公司電話1 = N'" & 供應商管理.電話1_tb.Text & "', 
                                        公司電話2 = N'" & 供應商管理.電話2_tb.Text & "', 公司電話3 = N'" & 供應商管理.電話3_tb.Text & "', 
                                        公司傳真1 = N'" & 供應商管理.傳真1_tb.Text & "', 公司傳真2 = N'" & 供應商管理.傳真2_tb.Text & "', 
                                        公司傳真3 = N'" & 供應商管理.傳真3_tb.Text & "', 聯繫人1 = N'" & 供應商管理.聯繫人1_tb.Text & "', 
                                        聯繫人2 = N'" & 供應商管理.聯繫人2_tb.Text & "', 聯繫人3 = N'" & 供應商管理.聯繫人3_tb.Text & "', 
                                        聯繫人1職稱 = N'" & 供應商管理.職稱1_tb.Text & "', 聯繫人2職稱 = N'" & 供應商管理.職稱2_tb.Text & "', 
                                        聯繫人3職稱 = N'" & 供應商管理.職稱3_tb.Text & "', 聯繫人1電話 = N'" & 供應商管理.聯繫電話1_tb.Text & "', 
                                        聯繫人2電話 = N'" & 供應商管理.聯繫電話2_tb.Text & "', 聯繫人3電話 = N'" & 供應商管理.聯繫電話3_tb.Text & "', 
                                        聯繫人1郵箱 = N'" & 供應商管理.信箱1_tb.Text & "', 聯繫人2郵箱 = N'" & 供應商管理.信箱2_tb.Text & "', 
                                        聯繫人3郵箱 = N'" & 供應商管理.信箱3_tb.Text & "' 
                 WHERE (供應商編碼 = '" & 供應商管理.供應商編號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_供應商資料表_刪除()
        ConnOpen() : SQL1 = "DELETE FROM 供應商資料表 WHERE (供應商編碼 = '" & 供應商管理.供應商編號_tb.Text & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_供應商類別管理_查詢()
        ConnOpen() : SQL1 = "SELECT TOP (1) 編碼, 語言, 類別 FROM 供應商類別 WHERE 類別 LIKE N'" & PA20 & "' ORDER BY   編碼, 語言" : CmdSet_For_dr()
    End Sub
    '---------------------行政物料供應商資料管理-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_行政物料供應商資料管理_清單()
        ConnOpen()
        If PA = "" Then
            SQL1 = "SELECT 供應商編碼 AS [" & 表頭(49) & "], 供應商簡稱 AS [" & 表頭(50) & "], 公司名 AS [" & 表頭(51) & "], 公司地址 AS [" & 表頭(52) & "], 公司電話1 AS [" & 表頭(53) & "], 
                           公司電話2 AS [" & 表頭(54) & "], 公司電話3 AS [" & 表頭(55) & "], 公司傳真1 AS [" & 表頭(56) & "], 公司傳真2 AS [" & 表頭(57) & "], 公司傳真3 AS [" & 表頭(58) & "], 
                           聯繫人1 AS [" & 表頭(59) & "], 聯繫人2 AS [" & 表頭(60) & "], 聯繫人3 AS [" & 表頭(61) & "], 聯繫人1職稱, 聯繫人2職稱, 
                           聯繫人3職稱, 聯繫人1電話, 聯繫人2電話, 聯繫人3電話, 聯繫人1郵箱, 聯繫人2郵箱, 聯繫人3郵箱 FROM 供應商資料表 ORDER BY 供應商編碼"
        Else
            SQL1 = "SELECT 供應商編碼 AS [" & 表頭(49) & "], 供應商簡稱 AS [" & 表頭(50) & "], 公司名 AS [" & 表頭(51) & "], 公司地址 AS [" & 表頭(52) & "], 公司電話1 AS [" & 表頭(53) & "], 
                           公司電話2 AS [" & 表頭(54) & "], 公司電話3 AS [" & 表頭(55) & "], 公司傳真1 AS [" & 表頭(56) & "], 公司傳真2 AS [" & 表頭(57) & "], 公司傳真3 AS [" & 表頭(58) & "], 
                           聯繫人1 AS [" & 表頭(59) & "], 聯繫人2 AS [" & 表頭(60) & "], 聯繫人3 AS [" & 表頭(61) & "], 聯繫人1職稱, 聯繫人2職稱, 
                           聯繫人3職稱, 聯繫人1電話, 聯繫人2電話, 聯繫人3電話, 聯繫人1郵箱, 聯繫人2郵箱, 聯繫人3郵箱 FROM 供應商資料表 
                    WHERE 供應商編碼 LIKE N'%" & PA & "%' OR 供應商簡稱 LIKE N'%" & PA & "%' OR 公司名 LIKE N'%" & PA & "%' OR 公司地址 LIKE N'%" & PA & "%' OR 
                          聯繫人1 LIKE N'%" & PA & "%' OR 聯繫人2 LIKE N'%" & PA & "%' OR 聯繫人3 LIKE N'%" & PA & "%' ORDER BY 供應商編碼"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_行政物料供應商資料管理_最後一筆資料()
        ConnOpen() : SQL1 = "SELECT TOP (1) 供應商編碼 FROM 供應商資料表 ORDER BY 供應商編碼 DESC" : CmdSet_For_dr()
    End Sub
    '---------------------行政物料採購單一級核准-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_行政物料採購單一級核准_清單()
        ConnOpen()
        SQL1 = "SELECT      樣品採購單控制表.行政物料請購單號 AS [" & 表頭(18) & "], 樣品採購單控制表.供應商編號,  樣品採購單控制表.需求日期, 樣品採購單控制表.使用地點, 
                            樣品採購單控制表.核對員, 樣品採購單控制表.核對日期, 樣品採購單控制表.詢價員, 樣品採購單控制表.尋價日期, 樣品採購單控制表.核准, 
                            樣品採購單控制表.核准日期, 樣品採購單控制表.簽名檔編號, 樣品採購單控制表.驗證碼, 樣品採購單控制表.請購單號, 樣品採購單控制表.DISC, 
                            樣品採購單控制表.稅, 樣品採購單控制表.PPN, 樣品採購單控制表.一級核准, 樣品採購單控制表.一級核准核准日期, 樣品採購單控制表.一級核准簽名檔編號, 
                            SUM(樣品採購單明細表.數量 * 樣品採購單明細表.單價) AS 總價
               FROM         樣品採購單控制表 FULL OUTER JOIN 樣品採購單明細表 ON 樣品採購單控制表.行政物料請購單號 = 樣品採購單明細表.行政物料請購單號
               WHERE          (樣品採購單控制表.核准 LIKE N'') AND (樣品採購單控制表.一級核准 LIKE N'' OR 樣品採購單控制表.一級核准 IS NULL)
               GROUP BY     樣品採購單控制表.行政物料請購單號, 樣品採購單控制表.供應商編號,  樣品採購單控制表.需求日期, 樣品採購單控制表.使用地點, 
                            樣品採購單控制表.核對員, 樣品採購單控制表.核對日期, 樣品採購單控制表.詢價員, 樣品採購單控制表.尋價日期, 樣品採購單控制表.核准, 
                            樣品採購單控制表.核准日期, 樣品採購單控制表.簽名檔編號, 樣品採購單控制表.驗證碼, 樣品採購單控制表.請購單號, 樣品採購單控制表.DISC, 
                            樣品採購單控制表.稅, 樣品採購單控制表.PPN, 樣品採購單控制表.一級核准, 樣品採購單控制表.一級核准核准日期, 樣品採購單控制表.一級核准簽名檔編號
               ORDER BY     樣品採購單控制表.行政物料請購單號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_行政物料採購單一級核准料_不需二級()
        ConnOpen()
        SQL1 = "UPDATE 樣品採購單控制表 SET  一級核准 = N'" & gUserName & "', 一級核准核准日期 = N'" & DTP & "',一級核准簽名檔編號 = N'" & 樣品採購單一級核准.圖片編碼_tb.Text & "',
                                                     核准 = N'" & gUserName & "', 核准日期 = N'" & DTP & "', 簽名檔編號 = N'" & 樣品採購單一級核准.圖片編碼_tb.Text & "', 
                                                   驗證碼 = N'" & 樣品採購單一級核准.驗證碼_tb.Text & "' 
                WHERE (行政物料請購單號 LIKE N'" & 樣品採購單一級核准.採購單號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_行政物料採購單一級核准料_需二級()
        ConnOpen()
        SQL1 = "UPDATE 樣品採購單控制表 SET  一級核准 = N'" & gUserName & "', 一級核准核准日期 = N'" & DTP & "',一級核准簽名檔編號 = N'" & 樣品採購單一級核准.圖片編碼_tb.Text & "' 
                WHERE (行政物料請購單號 LIKE N'" & 樣品採購單一級核准.採購單號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    '---------------------行政物料採購單二級核准-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_行政物料採購單二級核准_清單()
        ConnOpen()
        SQL1 = "SELECT 行政物料請購單號 AS [" & 表頭(18) & "], 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 簽名檔編號, 
                       驗證碼, 請購單號, DISC, 稅, PPN, 一級核准簽名檔編號
                FROM   樣品採購單控制表 WHERE (核准 LIKE N'') AND (一級核准 NOT LIKE N'') ORDER BY   行政物料請購單號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_行政物料採購單二級核准_核准()
        ConnOpen()
        SQL1 = "UPDATE 樣品採購單控制表 SET  核准 = N'" & gUserName & "', 核准日期 = N'" & DTP & "', 簽名檔編號 = N'" & 樣品採購單二級核准.圖片編碼_tb.Text & "', 
                                               驗證碼 = N'" & 樣品採購單二級核准.驗證碼_tb.Text & "' 
                WHERE (行政物料請購單號 LIKE N'" & 樣品採購單二級核准.採購單號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    '---------------------建築物料採購單一級核准-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_建築物料採購單一級核准_清單()
        ConnOpen()
        SQL1 = "SELECT      採購單控制表.採購單號 AS [" & 表頭(18) & "], 採購單控制表.供應商編號, 採購單控制表.需求日期, 採購單控制表.使用地點, 
                            採購單控制表.核對員, 採購單控制表.核對日期, 採購單控制表.詢價員, 採購單控制表.尋價日期, 採購單控制表.核准, 
                            採購單控制表.核准日期, 採購單控制表.簽名檔編號, 採購單控制表.驗證碼, 採購單控制表.請購單號, 採購單控制表.DISC, 
                            採購單控制表.稅, 採購單控制表.PPN, 採購單控制表.一級核准, 採購單控制表.一級核准核准日期, 採購單控制表.一級核准簽名檔編號, 
                            SUM(採購單明細表.數量 * 採購單明細表.單價) AS 總價
                FROM        採購單控制表 LEFT OUTER JOIN 採購單明細表 ON 採購單控制表.採購單號 = 採購單明細表.採購單號
                WHERE      (採購單控制表.核准 LIKE N'') AND (採購單控制表.供應商編號 NOT LIKE N'') AND 
                           (採購單控制表.一級核准 LIKE N'' OR 採購單控制表.一級核准 IS NULL)
                GROUP BY    採購單控制表.採購單號, 採購單控制表.供應商編號, 採購單控制表.需求日期, 採購單控制表.使用地點, 採購單控制表.核對員, 
                            採購單控制表.核對日期, 採購單控制表.詢價員, 採購單控制表.尋價日期, 採購單控制表.核准, 採購單控制表.核准日期, 
                            採購單控制表.簽名檔編號, 採購單控制表.驗證碼, 採購單控制表.請購單號, 採購單控制表.DISC, 採購單控制表.稅, 採購單控制表.PPN, 
                            採購單控制表.一級核准, 採購單控制表.一級核准核准日期, 採購單控制表.一級核准簽名檔編號
                ORDER BY   SUBSTRING(採購單控制表.採購單號, 7, 8) DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_建築物料採購單一級核准_不需二級()
        ConnOpen()
        SQL1 = "UPDATE 採購單控制表 SET  一級核准 = N'" & gUserName & "', 一級核准核准日期 = N'" & DTP & "',一級核准簽名檔編號 = N'" & 採購單一級核准.圖片編碼_tb.Text & "',
                                                     核准 = N'" & gUserName & "', 核准日期 = N'" & DTP & "', 簽名檔編號 = N'" & 採購單一級核准.圖片編碼_tb.Text & "', 
                                                   驗證碼 = N'" & 採購單一級核准.驗證碼_tb.Text & "' 
                WHERE (採購單號 LIKE N'" & 採購單一級核准.採購單號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_建築物料採購單一級核准_需二級()
        ConnOpen()
        SQL1 = "UPDATE 採購單控制表 SET  一級核准 = N'" & gUserName & "', 一級核准核准日期 = N'" & DTP & "',一級核准簽名檔編號 = N'" & 採購單一級核准.圖片編碼_tb.Text & "' 
                WHERE (採購單號 LIKE N'" & 採購單一級核准.採購單號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_建築物料採購單一級核准料_新項次()
        ConnOpen() : SQL1 = "UPDATE 採購單明細表 SET 項次 = N'" & PA18 & "' WHERE (採購單號 LIKE N'" & PA19 & "' AND 項次 LIKE N'" & PA20 & "')" : CmdSet_For_dr()
    End Sub
    '---------------------建築物料採購單二級核准-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_建築物料採購單二級核准_清單()
        ConnOpen()
        SQL1 = "SELECT 採購單號 AS [" & 表頭(18) & "], 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 簽名檔編號, 
                       驗證碼, 請購單號, DISC, 稅, PPN, 一級核准簽名檔編號
                FROM 採購單控制表 WHERE (核准 LIKE N'') AND (一級核准 NOT LIKE N'') ORDER BY   SUBSTRING(採購單號, 7, 8) DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_建築物料採購單二級核准_核准()
        ConnOpen()
        SQL1 = "UPDATE 採購單控制表 SET  核准 = N'" & gUserName & "', 核准日期 = N'" & DTP & "', 簽名檔編號 = N'" & 採購單二級核准.圖片編碼_tb.Text & "', 
                       驗證碼 = N'" & 採購單二級核准.驗證碼_tb.Text & "' 
                WHERE (採購單號 LIKE N'" & 採購單二級核准.採購單號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    '---------------------採購單詢價-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_採購單詢價_請購單清單()
        ConnOpen()
        If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If
        SQL1 = "SELECT      請購單明細表.請購單號 AS [" & 表頭(11) & "], 請購單明細表.請購單號 AS [" & 表頭(88) & "],請購單控制表.合約號 AS [" & 表頭(134) & "], 
                            物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 物料規格表.A1 AS [" & 表頭(13) & "], 
                            物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 請購單明細表.備註 AS [" & 表頭(14) & "], 
                            請購單明細表.數量 AS [" & 表頭(15) & "], 請購單明細表.用途, 倉儲分區控制表.倉名 AS [" & 表頭(17) & "], 請購單明細表.項次, 物料編碼庫.單位 AS [" & 表頭(16) & "], 
                            請購單明細表.群組碼 AS [" & 表頭(62) & "], 請購單明細表.群組原則, 請購單明細表.料號 AS [" & 表頭(77) & "], 採購單明細表.採購單號, 
                            請購單控制表.申請人 AS [" & 表頭(19) & "], 請購單控制表.核准人 AS [" & 表頭(21) & "], 請購單控制表.需求日期 AS [" & 表頭(30) & "], 物料資訊控制表.規格庫編號, 
                            物料資訊控制表.規格庫抬頭指定, 請購單明細表.已採購 AS [" & 表頭(44) & "] " & 低網 & "
                 FROM       請購單明細表 LEFT OUTER JOIN
                            採購單明細表 ON 請購單明細表.項次 = 採購單明細表.項次 AND 
                            請購單明細表.請購單號 = 採購單明細表.請購單號 LEFT OUTER JOIN
                            物料圖庫 ON 請購單明細表.群組原則 = 物料圖庫.料號原則 LEFT OUTER JOIN
                            請購單控制表 ON 請購單明細表.請購單號 = 請購單控制表.請購單號 LEFT OUTER JOIN
                            物料編碼庫 ON 請購單明細表.群組原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN
                            倉儲分區控制表 ON 請購單明細表.用途 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN
                            物料規格表 ON 請購單明細表.料號 = 物料規格表.料號 LEFT OUTER JOIN
                            物料資訊控制表 ON 請購單明細表.群組原則 = 物料資訊控制表.料號原則 INNER JOIN
                            物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 
                            物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼
                 WHERE     (請購單控制表.核准人 NOT LIKE N'') AND (請購單控制表.核准人 NOT LIKE N'作廢%') AND (請購單明細表.用途 LIKE N'%" & PA1 & "%') AND 
                           (請購單明細表.已採購 IS NULL OR 請購單明細表.已採購 = 0) AND (物料資訊控制表.規格庫編號 IS NOT NULL) AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')
                 ORDER BY   倉儲分區控制表.倉名, 請購單明細表.請購單號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_採購單詢價_採購()
        ConnOpen()
        SQL1 = "SELECT 採購單號 AS [" & 表頭(18) & "], 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 簽名檔編號, 驗證碼, 請購單號, DISC, 稅, PPN
                FROM 採購單控制表 WHERE (核准 LIKE N'') AND (供應商編號 LIKE N'') ORDER BY   採購單號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_採購單詢價_明細()
        ConnOpen()
        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) & "], 採購單明細表.群組碼, 採購單明細表.料號原則, 採購單明細表.料號, 物料規格表.圖檔編號, 
                            HX選擇按鈕.選擇 AS [" & 表頭(44) & "], 採購單明細表.項次, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 
                            物料規格表.A8, 物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定, 採購單明細表.請購單號 AS [" & 表頭(88) & "] , HX選擇按鈕.選擇 AS [Cancel order],
                            採購單明細表.單價 AS OUP " & 低網 & "
                FROM        採購單明細表 LEFT OUTER JOIN
                            物料資訊控制表 ON 採購單明細表.料號原則 = 物料資訊控制表.料號原則 LEFT OUTER JOIN
                            物料圖庫 ON 採購單明細表.群組碼 = 物料圖庫.群組碼 AND 
                            採購單明細表.料號原則 = 物料圖庫.料號原則 LEFT OUTER JOIN
                            物料編碼庫 ON 採購單明細表.群組碼 = 物料編碼庫.群組碼 AND 
                            採購單明細表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN
                            HX選擇按鈕 ON 採購單明細表.採購單號 = HX選擇按鈕.對應 LEFT OUTER JOIN
                            物料規格表 ON 採購單明細表.料號 = 物料規格表.料號 INNER JOIN
                            物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 
                            物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼
                WHERE      (採購單明細表.採購單號 LIKE N'" & PA2 & "') AND (物料資訊控制表.規格庫編號 IS NOT NULL) AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')
                ORDER BY   [" & 表頭(11) & "]"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_採購單詢價_採購明細刪除()
        ConnOpen() : SQL1 = "DELETE FROM 採購單明細表 WHERE (採購單號 LIKE N'" & PA & "' AND 請購單號 LIKE N'" & PA2 & "' AND 項次 LIKE N'" & PA3 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_採購單詢價_控制刪除()
        ConnOpen() : SQL1 = "DELETE FROM 採購單控制表 WHERE (採購單號 LIKE N'" & PA & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_採購單詢價_明細刪除()
        ConnOpen() : SQL1 = "DELETE FROM 採購單明細表 WHERE (採購單號 LIKE N'" & PA & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_料號比對價格()
        ConnOpen() : SQL1 = "SELECT   採購單號 AS  [" & 表頭(24) & "] , 合約號 AS  [" & 表頭(134) & "], 申請人 AS  [" & 表頭(19) & "], 單價 AS  [" & 表頭(26) & "]
                             FROM 採購單明細表
                             WHERE  (料號 LIKE N'" & PA & "') AND 單價 > 0"
        CmdSet_For_DGV()
    End Sub
    '---------------------供應商類別管理-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_供應商類別()
        ConnOpen() : SQL1 = "SELECT 編碼, 語言, 類別 FROM 供應商類別 ORDER BY   編碼, 語言" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_供應商類別管理_最後一筆資料()
        ConnOpen() : SQL1 = "SELECT TOP (1) 編碼 FROM 供應商類別 ORDER BY 編碼 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_供應商類別管理_新增()
        ConnOpen() : SQL1 = "INSERT INTO 供應商類別 (編碼, 語言, 類別) VALUES (N'" & PA1 & "',N'" & PA2 & "',N'" & PA3 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_供應商類別管理_修改()
        ConnOpen() : SQL1 = "UPDATE 供應商類別 SET 類別 = N'" & PA3 & "' WHERE 編碼 LIKE N'" & PA1 & "' AND 語言 LIKE N'" & PA2 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_供應商類別管理_刪除()
        ConnOpen() : SQL1 = "DELETE 供應商類別 WHERE 編碼 LIKE N'" & PA1 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_供應商類別_下拉清單()
        ConnOpen() : SQL1 = "SELECT 類別 FROM 供應商類別 WHERE 語言 LIKE N'" & 系統語言 & "' ORDER BY 編碼" : CmdSet_For_dr()
    End Sub
    '---------------------物料採購統計表-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_採購日清單()
        ConnOpen() : SQL1 = "SELECT  SUBSTRING(採購單號, 7, 6) AS 採購日  FROM  採購單明細表  GROUP BY  SUBSTRING(採購單號, 7, 6)  ORDER BY   採購日" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_品名清單()
        ConnOpen()
        SQL1 = "SELECT  物料編碼庫轉語言.品名, 物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 
                        物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 物料資訊控制表.規格庫抬頭指定, 物料資訊控制表.規格庫編號, 
                        物料規格表.料號
                FROM    物料編碼庫轉語言 INNER JOIN 物料規格表 ON 物料編碼庫轉語言.群組碼 = 物料規格表.群組碼 AND 
                        物料編碼庫轉語言.料號原則 = 物料規格表.料號原則 INNER JOIN 物料資訊控制表 ON 物料編碼庫轉語言.群組碼 = 物料資訊控制表.群組碼 AND 
                        物料編碼庫轉語言.料號原則 = 物料資訊控制表.料號原則
                WHERE  (物料編碼庫轉語言.語言 LIKE '" & 系統語言 & "')"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_採購數量清單()
        ConnOpen()
        SQL1 = "SELECT  *  FROM  (SELECT   採購單明細表.料號, 物料編碼庫轉語言.品名, 採購單明細表.料號 AS 規格, 採購單明細表.數字格式 AS 總採購量, 
                                           SUBSTRING(採購單明細表.採購單號, 7, 6) AS 採購日, SUM(採購單明細表.數量) AS 採購數量
                                  FROM     採購單明細表 LEFT OUTER JOIN 物料編碼庫轉語言 ON 採購單明細表.群組碼 = 物料編碼庫轉語言.群組碼 AND 
                                           採購單明細表.料號原則 = 物料編碼庫轉語言.料號原則
                                  WHERE   (物料編碼庫轉語言.語言 LIKE '" & 系統語言 & "') AND (物料編碼庫轉語言.品名 LIKE '%" & PA20 & "%') AND (採購單明細表.數量 > 0)
                                  GROUP BY SUBSTRING(採購單明細表.採購單號, 7, 6), 採購單明細表.料號, 採購單明細表.數字格式, 物料編碼庫轉語言.品名) AS X 
                PIVOT (SUM(採購數量) FOR 採購日 IN (" & 清單列表 & ")) AS PVT"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_採購平均單價清單()
        ConnOpen()
        SQL1 = "SELECT  *  FROM  (SELECT   採購單明細表.料號, 物料編碼庫轉語言.品名, 採購單明細表.料號 AS 規格, 採購單明細表.數字格式 AS 總採購量, 
                                           SUBSTRING(採購單明細表.採購單號, 7, 6) AS 採購日, SUM(採購單明細表.單價 * 採購單明細表.數量) / SUM(採購單明細表.數量) AS 平均單價
                                  FROM     採購單明細表 INNER JOIN 物料編碼庫轉語言 ON 採購單明細表.群組碼 = 物料編碼庫轉語言.群組碼 AND 
                                           採購單明細表.料號原則 = 物料編碼庫轉語言.料號原則
                                  WHERE   (物料編碼庫轉語言.語言 LIKE '" & 系統語言 & "') AND (物料編碼庫轉語言.品名 LIKE '%" & PA20 & "%') AND (採購單明細表.數量 > 0)
                                  GROUP BY SUBSTRING(採購單明細表.採購單號, 7, 6), 採購單明細表.料號, 採購單明細表.數字格式, 物料編碼庫轉語言.品名) AS X 
                PIVOT (SUM(平均單價) FOR 採購日 IN (" & 清單列表 & ")) AS PVT"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_繪圖清單1()
        ConnOpen()
        SQL1 = "SELECT     SUBSTRING(採購單明細表.採購單號, 7, 6) AS 採購日, SUM(採購單明細表.數量) AS 採購數量, 物料規格表.料號, 
                           SUM(採購單明細表.單價 * 採購單明細表.數量) / SUM(採購單明細表.數量) AS 平均單價
                FROM       採購單明細表 INNER JOIN 物料規格表 ON 採購單明細表.料號 = 物料規格表.料號 INNER JOIN
                           物料編碼庫轉語言 ON 物料規格表.群組碼 = 物料編碼庫轉語言.群組碼 AND 
                           物料規格表.料號原則 = 物料編碼庫轉語言.料號原則 INNER JOIN
                           物料編碼庫 ON 物料規格表.群組碼 = 物料編碼庫.群組碼 AND 物料規格表.料號原則 = 物料編碼庫.料號原則
                WHERE     (物料編碼庫轉語言.語言 LIKE '" & 系統語言 & "') AND (物料規格表.料號 LIKE '" & PA1 & "')
                GROUP BY   SUBSTRING(採購單明細表.採購單號, 7, 6), 物料編碼庫轉語言.品名, 物料編碼庫.單位, 物料規格表.料號
                ORDER BY   採購日 DESC"
        CmdSet_For_DGV()
    End Sub
    '---------------------供應商商品清單-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_供應商商品_歷史採購清單()
        ConnOpen()
        SQL1 = "SELECT    採購單控制表.供應商編號, 採購單明細表.料號, 採購單明細表.單價, SUBSTRING(採購單明細表.採購單號, 7, 8) AS 單據日
                FROM      採購單明細表 FULL OUTER JOIN 採購單控制表 ON 採購單明細表.採購單號 = 採購單控制表.採購單號
                WHERE    (採購單控制表.供應商編號 LIKE '" & PA & "')
                ORDER BY  採購單明細表.料號, SUBSTRING(採購單明細表.採購單號, 7, 12) DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_供應商商品_採購清單()
        If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If
        ConnOpen()
        SQL1 = "SELECT    供應商產品清單.供應商編碼 AS 項次, 供應商產品清單.料號, 物料編碼庫轉語言.品名, 供應商產品清單.單價, 供應商產品清單.備註, 
                          物料資訊控制表.規格庫編號, 物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 
                          物料規格表.A6, 物料規格表.A7, 物料規格表.A8, QQ.A1 AS AA1, QQ.A2 AS AA2, QQ.A3 AS AA3, QQ.A4 AS AA4, 
                          QQ.A5 AS AA5, QQ.A6 AS AA6, QQ.A7 AS AA7, QQ.A8 AS AA8, 供應商產品清單.日期, 物料資訊控制表.群組碼, 物料資訊控制表.料號原則 " & 低網 & "
                FROM      物料資訊控制表 INNER JOIN
                          物料規格表 ON 物料資訊控制表.料號原則 = 物料規格表.料號原則 INNER JOIN
                          物料圖庫 ON 物料規格表.料號原則 = 物料圖庫.料號原則 INNER JOIN
                          (SELECT          規格庫抬頭指定, A1, A2, A3, A4, A5, A6, A7, A8, 語言
                           FROM            規格庫抬頭
                           WHERE          (語言 LIKE '" & 系統語言 & "')) AS QQ ON 
                          物料資訊控制表.規格庫抬頭指定 = QQ.規格庫抬頭指定 INNER JOIN
                          物料編碼庫轉語言 ON 物料規格表.料號原則 = 物料編碼庫轉語言.料號原則 RIGHT OUTER JOIN
                          供應商產品清單 ON 物料規格表.料號 = 供應商產品清單.料號
                WHERE    (供應商產品清單.供應商編碼 LIKE '" & PA & "') AND (物料編碼庫轉語言.語言 LIKE '" & 系統語言 & "')
                ORDER BY  供應商產品清單.料號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_供應商商品_採購清單_新增()
        ConnOpen()
        SQL1 = "INSERT INTO 供應商產品清單 (供應商編碼, 料號, 單價, 備註, 日期) VALUES (N'" & PA1 & "',N'" & PA2 & "',N'" & PA3 & "',N'" & PA4 & "',N'" & PA5 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_供應商商品_採購清單_修改()
        ConnOpen()
        SQL1 = "UPDATE 供應商產品清單 SET 單價 = N'" & PA3 & "', 日期 = N'" & PA5 & "' WHERE 供應商編碼 LIKE N'" & PA1 & "' AND 料號 LIKE N'" & PA2 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_供應商商品_採購清單_查詢()
        ConnOpen() : SQL1 = "SELECT 料號 FROM  供應商產品清單 WHERE 供應商編碼 LIKE N'" & PA1 & "' AND 料號 LIKE N'" & PA2 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_供應商商品_採購清單_修改1()
        ConnOpen()
        SQL1 = "UPDATE 供應商產品清單 SET 單價 = N'" & PA3 & "', 備註 = N'" & PA4 & "' WHERE 供應商編碼 LIKE N'" & PA1 & "' AND 料號 LIKE N'" & PA2 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_供應商商品_採購清單_刪除()
        ConnOpen() : SQL1 = "DELETE 供應商產品清單 WHERE 供應商編碼 LIKE N'" & PA1 & "' AND 料號 LIKE N'" & PA2 & "'" : CmdSet_For_dr()
    End Sub
End Module