MAOJI-ERP-SYS-LEEHSIEHJUI/MaoOrange-Hongji/Module/SQL_業務系統管理.vb

Module SQL_業務系統管理
    '---------------------出貨單申請-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_出貨單申請清單()
        ConnOpen()
        If 出貨單申請.依供應商排序_ch.Checked = True Then : KKKJJ = "ORDER BY   供應商資料表.簡稱, 倉儲明細表.料號" : Else : KKKJJ = "ORDER BY   倉儲明細表.料號, 供應商資料表.簡稱" : End If
        If 出貨單申請.物料關鍵字_tb.Text = "" And 出貨單申請.頁碼_cb.Text = "" Then
            KKKJJ2 = ""
        ElseIf 出貨單申請.物料關鍵字_tb.Text <> "" And 出貨單申請.頁碼_cb.Text = "" Then
            KKKJJ2 = " AND (物料資料庫.品名 LIKE '%" & 出貨單申請.物料關鍵字_tb.Text & "%') "
        ElseIf 出貨單申請.物料關鍵字_tb.Text = "" And 出貨單申請.頁碼_cb.Text <> "" Then
            KKKJJ2 = " AND (物料資料庫.頁碼 LIKE '" & 出貨單申請.頁碼_cb.Text & "%') "
        ElseIf 出貨單申請.物料關鍵字_tb.Text <> "" And 出貨單申請.頁碼_cb.Text <> "" Then
            KKKJJ2 = " AND (物料資料庫.品名 LIKE '%" & 出貨單申請.物料關鍵字_tb.Text & "%' OR 物料資料庫.頁碼 LIKE '" & 出貨單申請.頁碼_cb.Text & "%') "
        End If
        SQL1 = "SELECT      供應商資料表.簡稱 AS 供應商, 倉儲明細表.供應商編號, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 
                            SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫) AS 加權成本_台幣, SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) AS 庫存, 
                           (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫)) * (SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫)) AS 庫存成本_台幣, 
                            WW.未入庫, WW.未入庫 * (SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫)) AS 在途成本_台幣, QQ.未出庫, 
                            QQ.未出庫 * (SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫))  AS 備貨成本_台幣, QQ.未出庫 AS 可領用, 物料資料庫.售價
                 FROM       倉儲明細表 LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN 供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號 FULL OUTER JOIN
                                (SELECT     供應商編號, 料號, SUM(出庫) AS 未出庫
                                 FROM       倉儲明細表 AS 倉儲明細表_2
                                 WHERE     (倉儲作業 LIKE '') AND (狀態 LIKE '%出庫') AND (公司編號 LIKE '%" & 公司編號 & "%')
                                 GROUP BY   供應商編號, 料號) AS QQ ON 倉儲明細表.供應商編號 = QQ.供應商編號 AND 
                            倉儲明細表.料號 = QQ.料號 FULL OUTER JOIN
                                (SELECT     供應商編號, 料號, SUM(入庫) AS 未入庫
                                  FROM      倉儲明細表 AS 倉儲明細表_1
                                  WHERE    (倉儲作業 LIKE '') AND (狀態 LIKE '%入庫') AND (公司編號 LIKE '%" & 公司編號 & "%')
                                  GROUP BY  供應商編號, 料號) AS WW ON 倉儲明細表.供應商編號 = WW.供應商編號 AND 
                            倉儲明細表.料號 = WW.料號
                 WHERE     (倉儲明細表.倉儲作業 NOT LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.倉名編號 LIKE '%" & 出貨單申請.倉庫編號_tb.Text & "%') " & KKKJJ2 & "
                 GROUP BY   供應商資料表.簡稱, 倉儲明細表.供應商編號, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, WW.未入庫, QQ.未出庫, 物料資料庫.售價
                 HAVING    (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) > 0) " & KKKJJ & ""
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_出貨單申請_彙總()
        ConnOpen()
        If 出貨單申請.未完全出貨的單據_rb.Checked = True And 出貨單申請.已完全出貨的單據_rb.Checked = False And 出貨單申請.未組裝完成的單據_rb.Checked = False Then
            KKKJJ3 = "(倉儲明細表.出庫日期 LIKE N'') AND (倉儲明細表.狀態 LIKE '銷售出庫') "
        ElseIf 出貨單申請.未完全出貨的單據_rb.Checked = False And 出貨單申請.已完全出貨的單據_rb.Checked = True And 出貨單申請.未組裝完成的單據_rb.Checked = False Then
            KKKJJ3 = "(倉儲明細表.出庫日期 NOT LIKE N'') AND (倉儲明細表.狀態 LIKE '銷售出庫') "
        ElseIf 出貨單申請.未完全出貨的單據_rb.Checked = False And 出貨單申請.已完全出貨的單據_rb.Checked = False And 出貨單申請.未組裝完成的單據_rb.Checked = True Then
            KKKJJ3 = "(倉儲明細表.出庫日期 LIKE N'') AND (倉儲明細表.狀態 LIKE '組裝出庫') "
        End If
        SQL1 = "SELECT     倉儲明細表.單據編號, 倉儲明細表.採購下單 AS 銷售下單, 倉儲明細表.客戶編號, 客戶資料表.簡稱, 倉儲明細表.狀態, 倉儲明細表.交期 AS 客戶交期, 
                           倉儲明細表.業務, 倉儲明細表.業務比例, 倉儲明細表.司機, 倉儲明細表.司機比例
                FROM       倉儲明細表 INNER JOIN 客戶資料表 ON 倉儲明細表.客戶編號 = 客戶資料表.編號
                WHERE     (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.出庫 >= 0) AND " & KKKJJ3 & "
                GROUP BY   倉儲明細表.單據編號, 倉儲明細表.採購下單, 倉儲明細表.客戶編號, 客戶資料表.簡稱, 倉儲明細表.狀態, 倉儲明細表.交期, 
                           倉儲明細表.業務, 倉儲明細表.業務比例, 倉儲明細表.司機, 倉儲明細表.司機比例
                ORDER BY   倉儲明細表.單據編號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_出貨單申請_清單()
        ConnOpen()
        SQL1 = "SELECT      倉儲明細表.資料流水號, 倉儲明細表.資料流水號 AS 項次, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 倉儲明細表.出庫 AS 數量, 倉儲明細表.售價, 
                            倉儲明細表.匯率, 倉儲明細表.金額 * 倉儲明細表.匯率 AS 台幣單價, 倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.出庫 AS 出貨成本_台幣, 倉儲明細表.備註, 倉儲明細表.出庫日期, 
                            倉儲分區控制表.倉名, 倉儲明細表.金額 AS 單價
                FROM        倉儲明細表 INNER JOIN 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號
                WHERE      (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.單據編號 LIKE N'" & 出貨單申請.單據編號_tb.Text & "') AND 
                           (倉儲明細表.狀態 LIKE N'銷售出庫') AND (倉儲明細表.出庫 >= 0)
                ORDER BY    倉儲明細表.料號 "
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_出貨單申請_零售客戶記錄表新增()
        ConnOpen()
        SQL1 = "INSERT INTO 零售客戶記錄表 (零售流水號, 客戶名稱, 統一編號, 郵遞區號, 店面地址, 送貨地址, 手機, 電話, 傳真, 出貨單號, 公司編號) 
                VALUES (N'" & PA1 & "',N'" & 出貨單申請.客戶公司_tb.Text & "',N'" & 出貨單申請.統編_tb.Text & "',N'" & 出貨單申請.郵號_tb.Text & "',N'" & 出貨單申請.店面地址_tb.Text &
                     "',N'" & 出貨單申請.送貨地址_tb.Text & "',N'" & 出貨單申請.手機_tb.Text & "',N'" & 出貨單申請.電話_tb.Text & "',N'" & 出貨單申請.傳真_tb.Text &
                     "',N'" & 出貨單申請.單據編號_tb.Text & "',N'" & 公司編號 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_出貨單申請_客戶資料_零售一()
        ConnOpen()
        SQL1 = "SELECT  MJ付款方式.付款方式 FROM 客戶資料表 INNER JOIN MJ付款方式 ON 客戶資料表.付款方式 = MJ付款方式.編號 WHERE (客戶資料表.編號 LIKE N'" & 出貨單申請.客戶編號_cb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_出貨單申請_客戶資料_零售二()
        ConnOpen()
        SQL1 = "SELECT 零售流水號, 客戶名稱, 統一編號, 郵遞區號, 店面地址, 送貨地址, 手機, 電話, 傳真, 出貨單號, 公司編號 FROM 零售客戶記錄表 WHERE (出貨單號 LIKE N'" & 出貨單申請.單據編號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_出貨單申請_客戶資料_銷售二()
        ConnOpen()
        SQL1 = "SELECT  客戶資料表.店名, 客戶資料表.手機, 客戶資料表.電話, 客戶資料表.傳真, 客戶資料表.統編, 客戶資料表.店面地址郵遞區號, 客戶資料表.店面地址, 客戶資料表.送貨地址,  MJ付款方式.付款方式
                    FROM    客戶資料表 INNER JOIN MJ付款方式 ON 客戶資料表.付款方式 = MJ付款方式.編號
                    WHERE  (客戶資料表.編號 LIKE N'" & 出貨單申請.客戶編號_cb.Text & "')"
        CmdSet_For_dr()
    End Sub
    '---------------------出貨確認-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_出貨確認清單()
        ConnOpen()
        SQL1 = "SELECT      倉儲明細表.資料流水號, 倉儲明細表.單據編號, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 倉儲明細表.出庫 AS 準備出庫數量, 倉儲明細表.備註, 
                            倉儲明細表.採購下單 AS 客戶下單, 倉儲明細表.出庫日期, MJ選擇按鈕.選擇, 倉儲明細表.狀態, 倉儲分區控制表.倉名, 倉儲明細表.訂單流水號, 訂單控制表.出貨備齊, 
                            訂單明細表.資料流水號 AS 訂單明細流水, 倉儲明細表.業務, 倉儲明細表.業務比例, 倉儲明細表.司機, 倉儲明細表.司機比例
                FROM        倉儲明細表 LEFT OUTER JOIN 訂單明細表 ON 倉儲明細表.單據編號 = 訂單明細表.出貨單號 AND 倉儲明細表.料號 = 訂單明細表.料號 AND 倉儲明細表.訂單流水號 = 訂單明細表.訂單流水號 
                            LEFT OUTER JOIN 訂單控制表 ON 倉儲明細表.訂單流水號 = 訂單控制表.訂單流水號 LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN
                            MJ選擇按鈕 ON 倉儲明細表.資料流水號 = MJ選擇按鈕.按鈕 LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號
                WHERE      (倉儲明細表.狀態 LIKE '銷售出庫') AND (倉儲明細表.出庫日期 LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.出庫 >= 0)
                ORDER BY    倉儲明細表.單據編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_出貨確認_倉儲明細表_銷售出庫確認()
        ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 出庫日期 = N'" & DTP & "', 倉儲作業 = N'" & DTP & "' WHERE (資料流水號 LIKE N'" & PA1 & "')  AND (狀態 LIKE '銷售出庫')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_出貨確認_訂單控制表_出貨情況()
        ConnOpen() : SQL1 = "UPDATE 訂單控制表 SET 出貨情況 = N'" & PA1 & "' WHERE (訂單流水號 LIKE N'" & PA & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_出貨確認_訂單明細表_出貨情況一()
        ConnOpen() : SQL1 = "UPDATE 訂單明細表 SET 出貨情況 = N'" & PA1 & "' WHERE (訂單流水號 LIKE N'" & PA & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_出貨確認_訂單明細表_出貨情況二()
        ConnOpen() : SQL1 = "UPDATE 訂單明細表 SET 出貨情況 = N'" & PA1 & "' WHERE (資料流水號 LIKE N'" & PA & "')" : CmdSet_For_dr()
    End Sub
    '---------------------客戶資料管理-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_客戶資料管理清單()
        If PA = "" Then
            If 客戶資料管理.只顯示35筆資料_ch.Checked = True Then
                KKKJJ = "TOP(35)"
            Else
                KKKJJ = ""
            End If
        End If
        SQL1 = "SELECT  " & KKKJJ & " 客戶資料表.編號, 客戶資料表.店名, 客戶資料表.簡稱, 客戶資料表.店面地址, 客戶資料表.店面地址郵遞區號, 
                            客戶資料表.送貨地址, 客戶資料表.負責人, 客戶資料表.聯絡人, 客戶資料表.電話, 客戶資料表.手機, 客戶資料表.傳真, 
                            客戶資料表.統編, 客戶資料表.發票抬頭, 客戶資料表.發票地址, 客戶資料表.發票地址郵遞區號, 客戶資料表.發票額度, 
                            客戶資料表.LineID, MJ付款方式.付款方式, 客戶資料表.折扣, 客戶資料表.負責業務, 客戶資料表.建立日期, 
                            客戶資料表.備註, 客戶資料表.付款方式 AS 付款編碼
                FROM        客戶資料表 LEFT OUTER JOIN MJ付款方式 ON 客戶資料表.付款方式 = MJ付款方式.編號 "
        PA1 = "ORDER BY    客戶資料表.店名 DESC"
        PA2 = "WHERE   客戶資料表.編號 LIKE N'%" & PA & "%' OR 客戶資料表.店名 LIKE N'%" & PA & "%' OR 客戶資料表.簡稱 LIKE N'%" & PA & "%' OR 客戶資料表.店面地址 LIKE N'%" & PA & "%' OR 
                       客戶資料表.店面地址郵遞區號 LIKE N'%" & PA & "%' OR 客戶資料表.送貨地址 LIKE N'%" & PA & "%' OR 客戶資料表.負責人 LIKE N'%" & PA & "%' OR 
                       客戶資料表.聯絡人 LIKE N'%" & PA & "%' OR 客戶資料表.電話 LIKE N'%" & PA & "%' OR 客戶資料表.手機 LIKE N'%" & PA & "%' OR 客戶資料表.傳真 LIKE N'%" & PA & "%' OR 
                       客戶資料表.統編 LIKE N'%" & PA & "%' OR 客戶資料表.發票抬頭 LIKE N'%" & PA & "%' OR 客戶資料表.發票地址 LIKE N'%" & PA & "%' OR 
                       客戶資料表.發票地址郵遞區號 LIKE N'%" & PA & "%' OR 客戶資料表.發票額度 LIKE N'%" & PA & "%' OR 客戶資料表.LineID LIKE N'%" & PA & "%' OR 
                       MJ付款方式.付款方式 LIKE N'%" & PA & "%' OR 客戶資料表.折扣 LIKE N'%" & PA & "%' OR 客戶資料表.負責業務 LIKE N'%" & PA & "%' OR 客戶資料表.建立日期 LIKE N'%" & PA & "%' OR 
                       客戶資料表.備註 LIKE N'%" & PA & "%' OR 客戶資料表.付款方式 LIKE N'%" & PA & "%'
               ORDER BY   客戶資料表.店名 DESC"
        ConnOpen()
        If PA = "" Then
            SQL1 &= PA1
        Else
            SQL1 &= PA2
        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 = "INSERT INTO 客戶資料表 (編號, 店名, 簡稱, 店面地址, 店面地址郵遞區號, 送貨地址, 負責人, 聯絡人, 電話, 手機, 傳真, 統編, 
                                        發票抬頭, 發票地址, 發票地址郵遞區號, 發票額度, LineID, 付款方式, 折扣, 負責業務, 建立日期, 備註)
                VALUES (N'" & PA1 & "',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'" & PA2 & "',N'')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_客戶資料管理修改()
        ConnOpen()
        SQL1 = "UPDATE 客戶資料表 SET  店名  = N'" & PA1 & "', 簡稱 = N'" & PA2 & "', 店面地址 = N'" & PA3 & "', 店面地址郵遞區號 = N'" & PA4 & "', 送貨地址 = N'" & PA5 & "', 負責人 = N'" & PA6 &
                                      "', 聯絡人 = N'" & PA7 & "', 電話 = N'" & PA8 & "', 手機 = N'" & PA9 & "', 傳真 = N'" & PA10 & "', 統編 = N'" & PA11 & "', 發票抬頭 = N'" & PA12 &
                                      "', 發票地址 = N'" & PA13 & "', 發票地址郵遞區號 = N'" & PA14 & "', 發票額度 = N'" & NU1 & "', LineID = N'" & PA15 & "', 付款方式 = N'" & PA16 & "', 折扣 = N'" & NU2 &
                                      "', 負責業務 = N'" & PA17 & "', 建立日期 = N'" & PA18 & "', 備註 = N'" & PA19 & "'
                WHERE (編號 LIKE '" & PA & "')"
        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      訂單控制表.訂單流水號, 訂單控制表.客戶編號, 客戶資料表.簡稱, 訂單明細表.料號, 物料資料庫.品名, 訂單明細表.數量, 訂單控制表.下單日, 訂單控制表.接單人員, 訂單控制表.交期, 
                            訂單控制表.出貨備齊, 訂單明細表.採購單號, 訂單明細表.出貨單號, 訂單明細表.狀態, 訂單明細表.備註, 物料資料庫.成本, 物料資料庫.售價, 訂單明細表.資料流水號, 
                            MJ選擇按鈕.選擇 AS 比對有貨, WWQQ.供應商編號
                FROM        訂單明細表 LEFT OUTER JOIN
                                (SELECT      訂單流水號, 單據編號, 供應商編號, 料號
                                 FROM        倉儲明細表
                                 WHERE      (訂單流水號 IS NOT NULL)
                                 GROUP BY    訂單流水號, 單據編號, 供應商編號, 狀態, 料號) AS WWQQ ON 
                            訂單明細表.採購單號 = WWQQ.單據編號 AND 訂單明細表.料號 = WWQQ.料號 LEFT OUTER JOIN 物料資料庫 ON 訂單明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN
                            MJ選擇按鈕 ON 訂單明細表.資料流水號 = MJ選擇按鈕.按鈕 LEFT OUTER JOIN 客戶資料表 INNER JOIN 訂單控制表 ON 客戶資料表.編號 = 訂單控制表.客戶編號 ON 
                            訂單明細表.訂單流水號 = 訂單控制表.訂單流水號
                WHERE     (訂單明細表.出貨情況 NOT LIKE '完全出貨') AND (訂單控制表.公司編號 LIKE '%" & 公司編號 & "%')
                ORDER BY   訂單控制表.訂單流水號 DESC, 訂單明細表.採購單號 DESC, 訂單明細表.出貨單號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_訂單出貨控制表_庫存表()
        ConnOpen()
        SQL1 = "SELECT      供應商資料表.簡稱 AS 供應商, 倉儲明細表.供應商編號, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 
                            SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫) AS 加權成本_台幣, 
                            SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) AS 庫存, 
                           (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫)) * (SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫)) AS 庫存成本_台幣, 
                            WW.未入庫, WW.未入庫 * (SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫)) AS 在途成本_台幣, QQ.未出庫, 
                            QQ.未出庫 * (SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫))  AS 備貨成本_台幣, QQ.未出庫 AS 可領用, 物料資料庫.售價
                 FROM       倉儲明細表 LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN 供應商資料表 ON 倉儲明細表.供應商編號 = 
                            供應商資料表.編號 FULL OUTER JOIN
                                (SELECT     供應商編號, 料號, SUM(出庫) AS 未出庫
                                 FROM       倉儲明細表 AS 倉儲明細表_2
                                 WHERE     (倉儲作業 LIKE '') AND (狀態 LIKE '%出庫') AND (公司編號 LIKE '%" & 公司編號 & "%')
                                 GROUP BY   供應商編號, 料號) AS QQ ON 倉儲明細表.供應商編號 = QQ.供應商編號 AND 
                            倉儲明細表.料號 = QQ.料號 FULL OUTER JOIN
                                (SELECT     供應商編號, 料號, SUM(入庫) AS 未入庫
                                  FROM      倉儲明細表 AS 倉儲明細表_1
                                  WHERE    (倉儲作業 LIKE '') AND (狀態 LIKE '%入庫') AND (公司編號 LIKE '%" & 公司編號 & "%')
                                  GROUP BY  供應商編號, 料號) AS WW ON 倉儲明細表.供應商編號 = WW.供應商編號 AND 
                            倉儲明細表.料號 = WW.料號
                 WHERE     (倉儲明細表.倉儲作業 NOT LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.倉名編號 LIKE '%" & 訂單出貨控制表.倉庫編號_tb.Text & "%') 
                 GROUP BY   供應商資料表.簡稱, 倉儲明細表.供應商編號, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, WW.未入庫, QQ.未出庫, 物料資料庫.售價
                 HAVING    (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) > 0) ORDER BY   供應商資料表.簡稱, 倉儲明細表.料號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_訂單出貨控制表_出貨單號修改()
        ConnOpen() : SQL1 = "UPDATE 訂單明細表 SET  出貨單號  = N'" & PA2 & "' WHERE (資料流水號 LIKE '" & PA & "')" : CmdSet_For_dr()
    End Sub
    '---------------------訂單採購需求申請-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_訂單採購需求申請清單()
        ConnOpen()
        SQL1 = "SELECT      訂單明細表.訂單流水號, 客戶資料表.簡稱 AS 客戶, 物料資料庫.品名, 訂單明細表.數量, 訂單控制表.下單日, 訂單控制表.接單人員, 訂單控制表.交期, 訂單明細表.備註, 
                            物料資料庫.成本 AS 單價, 物料資料庫.成本 AS 匯率, 物料資料庫.成本 AS 台幣單價, 訂單明細表.資料流水號, 訂單明細表.料號, MJ選擇按鈕.選擇
                FROM        MJ選擇按鈕 RIGHT OUTER JOIN 訂單明細表 ON MJ選擇按鈕.按鈕 = 訂單明細表.資料流水號 RIGHT OUTER JOIN 物料資料庫 ON 訂單明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN
                            客戶資料表 RIGHT OUTER JOIN 訂單控制表 ON 客戶資料表.編號 = 訂單控制表.客戶編號 ON 訂單明細表.訂單流水號 = 訂單控制表.訂單流水號
                WHERE      (訂單明細表.出貨單號 LIKE '') AND (訂單明細表.採購單號 LIKE '')
                ORDER BY    訂單明細表.訂單流水號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_訂單採購需求申請_採購單號修改()
        ConnOpen() : SQL1 = "UPDATE 訂單明細表 SET  採購單號  = N'" & PA2 & "' WHERE (資料流水號 LIKE '" & PA & "')" : CmdSet_For_dr()
    End Sub
    '---------------------訂單管理控制表-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_訂單管理控制表庫存()
        ConnOpen()
        If 訂單管理控制表.依供應商排序_ch.Checked = True Then : KKKJJ2 = "ORDER BY   QQWW.供應商 DESC, 物料資料庫.料號" : Else : KKKJJ2 = "ORDER BY   物料資料庫.料號" : End If
        If 訂單管理控制表.物料關鍵字_tb.Text = "" And 訂單管理控制表.頁碼_cb.Text = "" Then
            KKKJJ = ""
        ElseIf 訂單管理控制表.物料關鍵字_tb.Text <> "" And 訂單管理控制表.頁碼_cb.Text = "" Then
            KKKJJ = " AND (物料資料庫.品名 LIKE '%" & 訂單管理控制表.物料關鍵字_tb.Text & "%') "
        ElseIf 訂單管理控制表.物料關鍵字_tb.Text = "" And 訂單管理控制表.頁碼_cb.Text <> "" Then
            KKKJJ = " AND (物料資料庫.頁碼 LIKE '" & 訂單管理控制表.頁碼_cb.Text & "%') "
        ElseIf 訂單管理控制表.物料關鍵字_tb.Text <> "" And 訂單管理控制表.頁碼_cb.Text <> "" Then
            KKKJJ = " AND (物料資料庫.品名 LIKE '%" & 訂單管理控制表.物料關鍵字_tb.Text & "%' OR 物料資料庫.頁碼 LIKE '" & 訂單管理控制表.頁碼_cb.Text & "%') "
        End If
        SQL1 = "SELECT      QQWW.供應商, QQWW.供應商編號, 物料資料庫.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質,
                            QQWW.加權成本_台幣, QQWW.庫存, QQWW.庫存成本_台幣, QQWW.未入庫, QQWW.在途成本_台幣, 
                            QQWW.未出庫, QQWW.備貨成本_台幣, QQWW.可領用, 物料資料庫.售價, 物料資料庫.成本
                FROM        物料資料庫 LEFT OUTER JOIN
                                (SELECT          供應商資料表.簡稱 AS 供應商, 倉儲明細表.供應商編號, 倉儲明細表.料號, 
                                                 SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫) 
                                                 AS 加權成本_台幣, SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) AS 庫存, (SUM(倉儲明細表.入庫) 
                                                 - SUM(倉儲明細表.出庫)) * (SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) 
                                                 / SUM(倉儲明細表.入庫)) AS 庫存成本_台幣, WW.未入庫, 
                                                 WW.未入庫 * (SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫)) 
                                                 AS 在途成本_台幣, QQ.未出庫, 
                                                 QQ.未出庫 * (SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫)) 
                                                 AS 備貨成本_台幣, QQ.未出庫 AS 可領用
                                  FROM           倉儲明細表 LEFT OUTER JOIN 物料資料庫 AS 物料資料庫_1 ON 倉儲明細表.料號 = 物料資料庫_1.料號 LEFT OUTER JOIN
                                                 供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號 FULL OUTER JOIN
                                                                   (SELECT      供應商編號, 料號, SUM(出庫) AS 未出庫
                                                                    FROM        倉儲明細表 AS 倉儲明細表_2
                                                                    WHERE      (倉儲作業 LIKE '') AND (狀態 LIKE '%出庫') AND (公司編號 LIKE '%" & 公司編號 & "%')
                                                                    GROUP BY    供應商編號, 料號) AS QQ ON 倉儲明細表.供應商編號 = QQ.供應商編號 AND 
                                                              倉儲明細表.料號 = QQ.料號 FULL OUTER JOIN
                                                                   (SELECT      供應商編號, 料號, SUM(入庫) AS 未入庫
                                                                    FROM        倉儲明細表 AS 倉儲明細表_1
                                                                    WHERE      (倉儲作業 LIKE '') AND (狀態 LIKE '%入庫') AND (公司編號 LIKE '%" & 公司編號 & "%')
                                                                    GROUP BY    供應商編號, 料號) AS WW ON 倉儲明細表.供應商編號 = WW.供應商編號 AND 
                                                              倉儲明細表.料號 = WW.料號
                                  WHERE      (倉儲明細表.倉儲作業 NOT LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.倉名編號 LIKE '%" & 訂單管理控制表.倉庫編號_tb.Text & "%')
                                  GROUP BY    供應商資料表.簡稱, 倉儲明細表.供應商編號, WW.未入庫, QQ.未出庫, 倉儲明細表.料號
                                  HAVING     (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) > 0)) AS QQWW ON  物料資料庫.料號 = QQWW.料號
                WHERE   (物料資料庫.停用 = 0) " & KKKJJ & KKKJJ2 & ""
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_訂單管理控制表控制表()
        ConnOpen()
        SQL1 = "SELECT      訂單控制表.訂單流水號, 客戶資料表.簡稱, 訂單控制表.客戶編號, 訂單控制表.下單日, 訂單控制表.接單人員, 訂單控制表.交期, 訂單控制表.出貨備齊, 訂單控制表.出貨情況, 
                            訂單控制表.公司編號
                FROM        訂單控制表 INNER JOIN 客戶資料表 ON 訂單控制表.客戶編號 = 客戶資料表.編號
                WHERE      (訂單控制表.公司編號 LIKE '%" & 公司編號 & "%') 
                ORDER BY    訂單控制表.交期 DESC, 訂單控制表.訂單流水號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_訂單管理控制表控明細()
        ConnOpen()
        SQL1 = "SELECT      訂單明細表.資料流水號, 訂單明細表.訂單流水號, 訂單明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 訂單明細表.數量, 訂單明細表.出貨情況, 訂單明細表.採購單號, 
                            訂單明細表.出貨單號, 訂單明細表.狀態, 訂單明細表.備註
                FROM        訂單明細表 INNER JOIN 物料資料庫 ON 訂單明細表.料號 = 物料資料庫.料號
                WHERE       訂單明細表.訂單流水號 LIKE N'" & 訂單管理控制表.單據號碼_tb.Text & "'
                ORDER BY    訂單明細表.出貨單號 DESC, 訂單明細表.料號"
        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 & "', N'" & NU1 & "', N'', N'', N'" & PA4 & "', N'" & PA5 & "', N'')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_訂單控制表流水號最後一筆()
        ConnOpen() : SQL1 = "SELECT TOP (1)  訂單流水號 FROM 訂單控制表 WHERE ( 訂單流水號 LIKE '" & 訂單管理控制表.單據號碼_tb.Text & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_訂單控制表新增()
        ConnOpen()
        SQL1 = "INSERT INTO 訂單控制表 (訂單流水號, 客戶編號, 下單日, 接單人員, 交期, 出貨備齊, 出貨情況, 公司編號) 
                VALUES (N'" & 訂單管理控制表.單據號碼_tb.Text & "', N'" & 訂單管理控制表.客戶編號_cb.Text & "', N'" & DTP & "', N'" & gUserName & "', N'" & DTP2 & "', N'0', N'', N'" & 公司編號 & "')"
        CmdSet_For_dr()
    End Sub
    '---------------------零售客戶記錄表-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_零售客戶記錄表清單()
        ConnOpen() : SQL1 = "SELECT   零售流水號, 客戶名稱, 統一編號, 郵遞區號, 店面地址, 送貨地址, 手機, 電話, 傳真, 出貨單號 FROM 零售客戶記錄表 ORDER BY 零售流水號 DESC" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_零售客戶記錄表修改()
        ConnOpen()
        SQL1 = "UPDATE 零售客戶記錄表 SET  客戶名稱 = N'" & 零售客戶記錄表.客戶_tb.Text & "', 統一編號 = N'" & 零售客戶記錄表.統編_tb.Text & "', 郵遞區號 = N'" & 零售客戶記錄表.郵號_tb.Text &
                                       "', 店面地址 = N'" & 零售客戶記錄表.店面地址_tb.Text & "', 送貨地址 = N'" & 零售客戶記錄表.送貨地址_tb.Text & "', 手機 = N'" & 零售客戶記錄表.手機_tb.Text &
                                           "', 電話 = N'" & 零售客戶記錄表.電話_tb.Text & "', 傳真 = N'" & 零售客戶記錄表.傳真_tb.Text & "'
                WHERE (零售流水號 LIKE '" & 零售客戶記錄表.資料流水號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    '---------------------銷售控制表-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_銷售控制表清單()
        ConnOpen()
        SQL1 = "SELECT      倉儲明細表.單據編號, 倉儲明細表.客戶編號, 客戶資料表.簡稱 AS 客戶, 倉儲明細表.供應商編號, 
                            供應商資料表.簡稱 AS 廠商, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 
                            物料資料庫.材質, 倉儲明細表.售價 AS 銷售單價, 倉儲明細表.金額 * 倉儲明細表.匯率 AS 單位成本, 
                            倉儲明細表.出庫 AS 銷售數量, 倉儲明細表.售價 * 倉儲明細表.出庫 AS 銷售金額, 
                            倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.出庫 AS 銷售成本, 
                            倉儲明細表.售價 * 倉儲明細表.出庫 - 倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.出庫 AS 利潤,
                            倉儲明細表.採購下單 AS 下單日, 倉儲明細表.交期 AS 客戶交期, 倉儲明細表.出庫日期 AS 出貨日期, 倉儲明細表.備註
                 FROM       倉儲明細表 LEFT OUTER JOIN
                            供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號 LEFT OUTER JOIN
                            物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN
                            客戶資料表 ON 倉儲明細表.客戶編號 = 客戶資料表.編號
                 WHERE     (倉儲明細表.狀態 LIKE '銷售出庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 
                           (倉儲明細表.採購下單 BETWEEN '" & Format(銷售控制表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售控制表.結束日期_dtp.Value, "yyyy/MM/dd") & "')
                 ORDER BY   倉儲明細表.單據編號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_銷售控制表彙總()
        ConnOpen()
        SQL1 = "SELECT    客戶資料表.簡稱 AS 客戶, SUM(倉儲明細表.售價 * 倉儲明細表.出庫) AS 銷售金額, 
                          SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.出庫) AS 銷售成本, 
                          SUM(倉儲明細表.售價 * 倉儲明細表.出庫 - 倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.出庫) AS 利潤
                FROM      倉儲明細表 INNER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN
                          客戶資料表 ON 倉儲明細表.客戶編號 = 客戶資料表.編號
                WHERE    (倉儲明細表.狀態 LIKE '銷售出庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 
                         (倉儲明細表.採購下單 BETWEEN '" & Format(銷售控制表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售控制表.結束日期_dtp.Value, "yyyy/MM/dd") & "')
                GROUP BY  客戶資料表.簡稱
                ORDER BY  客戶"
        CmdSet_For_DGV()
    End Sub
    '---------------------列印_出貨單-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_列印_出貨單表頭()
        ConnOpen()
        SQL1 = "SELECT   客戶資料表.店名, 客戶資料表.電話, 客戶資料表.統編, 客戶資料表.送貨地址, 倉儲明細表.單據編號, 客戶資料表.聯絡人, 倉儲明細表.訂單流水號, 倉儲明細表.業務, 倉儲明細表.司機
                FROM     倉儲明細表 LEFT OUTER JOIN 客戶資料表 ON 倉儲明細表.客戶編號 = 客戶資料表.編號
                WHERE   (倉儲明細表.單據編號 LIKE '" & 列印用SQL & "')
                GROUP BY 客戶資料表.店名, 客戶資料表.電話, 客戶資料表.統編, 客戶資料表.送貨地址, 倉儲明細表.單據編號, 客戶資料表.聯絡人, 倉儲明細表.訂單流水號, 倉儲明細表.業務, 倉儲明細表.司機"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_列印_出貨單清單()
        ConnOpen()
        SQL1 = "SELECT 倉儲明細表.料號 AS A, 物料資料庫.頁碼 AS B, 物料資料庫.品名 AS C, 倉儲明細表.出庫 AS E, 物料資料庫.尺寸 AS F, 倉儲明細表.售價 AS G
                FROM   倉儲明細表 INNER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號
                WHERE (倉儲明細表.單據編號 LIKE '" & 列印用SQL & "') AND (狀態 LIKE '銷售出庫')"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_列印_出貨單邊界設定修改()
        ConnOpen()
        SQL1 = "UPDATE 出貨單套表欄位設定 SET A = '" & 列印_出貨單.A_nud.Value & "', B = '" & 列印_出貨單.B_nud.Value & "', C = '" & 列印_出貨單.C_nud.Value &
                                          "', D = '" & 列印_出貨單.D_nud.Value & "', E = '" & 列印_出貨單.E_nud.Value & "', F = '" & 列印_出貨單.F_nud.Value &
                                          "', G = '" & 列印_出貨單.G_nud.Value & "', H = '" & 列印_出貨單.H_nud.Value & "', I = '" & 列印_出貨單.I_nud.Value &
                                          "', J = '" & 列印_出貨單.J_nud.Value & "', K = '" & 列印_出貨單.K_nud.Value & "', L = '" & 列印_出貨單.L_nud.Value &
                                          "', M = '" & 列印_出貨單.M_nud.Value & "', 表頭 = '" & 列印_出貨單.N1_nud.Value & "', 清單 = '" & 列印_出貨單.N2_nud.Value &
                                          "', 表尾 = '" & 列印_出貨單.N3_nud.Value & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_列印_出貨單邊界設定讀取()
        ConnOpen()
        SQL1 = "SELECT  A, B, C, D, E, F, G, H, I, J, K, L, M, 表頭, 清單, 表尾 FROM 出貨單套表欄位設定"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_列印_出貨單表頭_零售()
        ConnOpen() : SQL1 = "SELECT 客戶名稱, 統一編號, 送貨地址, 電話 FROM   零售客戶記錄表 WHERE (出貨單號 LIKE '" & 列印用SQL & "')" : CmdSet_For_dr()
    End Sub
    '---------------------維修單申請-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_維修單申請清單()
        ConnOpen()
        If 維修單申請.依供應商排序_ch.Checked = True Then : KKKJJ = "ORDER BY   供應商資料表.簡稱, 倉儲明細表.料號" : Else : KKKJJ = "ORDER BY   倉儲明細表.料號, 供應商資料表.簡稱" : End If
        If 維修單申請.物料關鍵字_tb.Text = "" And 維修單申請.頁碼_cb.Text = "" Then
            KKKJJ2 = ""
        ElseIf 維修單申請.物料關鍵字_tb.Text <> "" And 維修單申請.頁碼_cb.Text = "" Then
            KKKJJ2 = " AND (物料資料庫.品名 LIKE '%" & 維修單申請.物料關鍵字_tb.Text & "%') "
        ElseIf 維修單申請.物料關鍵字_tb.Text = "" And 維修單申請.頁碼_cb.Text <> "" Then
            KKKJJ2 = " AND (物料資料庫.頁碼 LIKE '" & 維修單申請.頁碼_cb.Text & "%') "
        ElseIf 維修單申請.物料關鍵字_tb.Text <> "" And 維修單申請.頁碼_cb.Text <> "" Then
            KKKJJ2 = " AND (物料資料庫.品名 LIKE '%" & 維修單申請.物料關鍵字_tb.Text & "%' OR 物料資料庫.頁碼 LIKE '" & 維修單申請.頁碼_cb.Text & "%') "
        End If
        SQL1 = "SELECT      供應商資料表.簡稱 AS 供應商, 倉儲明細表.供應商編號, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 
                            SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫) AS 加權成本_台幣, SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) AS 庫存, 
                           (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫)) * (SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫)) AS 庫存成本_台幣, 
                            WW.未入庫, WW.未入庫 * (SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫)) AS 在途成本_台幣, QQ.未出庫, 
                            QQ.未出庫 * (SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫))  AS 備貨成本_台幣, QQ.未出庫 AS 可領用, 物料資料庫.售價
                 FROM       倉儲明細表 LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN 供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號 FULL OUTER JOIN
                                (SELECT     供應商編號, 料號, SUM(出庫) AS 未出庫
                                 FROM       倉儲明細表 AS 倉儲明細表_2
                                 WHERE     (倉儲作業 LIKE '') AND (狀態 LIKE '%出庫') AND (公司編號 LIKE '%" & 公司編號 & "%')
                                 GROUP BY   供應商編號, 料號) AS QQ ON 倉儲明細表.供應商編號 = QQ.供應商編號 AND 
                            倉儲明細表.料號 = QQ.料號 FULL OUTER JOIN
                                (SELECT     供應商編號, 料號, SUM(入庫) AS 未入庫
                                  FROM      倉儲明細表 AS 倉儲明細表_1
                                  WHERE    (倉儲作業 LIKE '') AND (狀態 LIKE '%入庫') AND (公司編號 LIKE '%" & 公司編號 & "%')
                                  GROUP BY  供應商編號, 料號) AS WW ON 倉儲明細表.供應商編號 = WW.供應商編號 AND 
                            倉儲明細表.料號 = WW.料號
                 WHERE     (倉儲明細表.倉儲作業 NOT LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.倉名編號 LIKE '%" & 維修單申請.倉庫編號_tb.Text & "%') " & KKKJJ2 & "
                 GROUP BY   供應商資料表.簡稱, 倉儲明細表.供應商編號, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, WW.未入庫, QQ.未出庫, 物料資料庫.售價
                 HAVING    (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) > 0) " & KKKJJ & ""
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_維修單申請_彙總()
        ConnOpen()
        If 維修單申請.未出庫的維修單_rb.Checked = True And 維修單申請.已出庫的維修單_rb.Checked = False Then
            KKKJJ3 = "(倉儲明細表.出庫日期 LIKE N'') AND (倉儲明細表.狀態 LIKE '維修出庫') "
        ElseIf 維修單申請.未出庫的維修單_rb.Checked = False And 維修單申請.已出庫的維修單_rb.Checked = True Then
            KKKJJ3 = "(倉儲明細表.出庫日期 NOT LIKE N'') AND (倉儲明細表.狀態 LIKE '維修出庫') "
        End If
        SQL1 = "SELECT     倉儲明細表.單據編號, 倉儲明細表.採購下單 AS 銷售下單, 倉儲明細表.客戶編號, 客戶資料表.簡稱, 倉儲明細表.狀態, 倉儲明細表.交期 AS 客戶交期, 
                           倉儲明細表.業務, 倉儲明細表.業務比例, 倉儲明細表.司機, 倉儲明細表.司機比例
                FROM       倉儲明細表 INNER JOIN 客戶資料表 ON 倉儲明細表.客戶編號 = 客戶資料表.編號
                WHERE     (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND " & KKKJJ3 & "
                GROUP BY   倉儲明細表.單據編號, 倉儲明細表.採購下單, 倉儲明細表.客戶編號, 客戶資料表.簡稱, 倉儲明細表.狀態, 倉儲明細表.交期, 
                           倉儲明細表.業務, 倉儲明細表.業務比例, 倉儲明細表.司機, 倉儲明細表.司機比例
                ORDER BY   倉儲明細表.單據編號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_維修單申請_清單()
        ConnOpen()
        SQL1 = "SELECT      倉儲明細表.資料流水號, 倉儲明細表.資料流水號 AS 項次, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 倉儲明細表.出庫 AS 數量, 倉儲明細表.售價, 
                            倉儲明細表.匯率, 倉儲明細表.金額 * 倉儲明細表.匯率 AS 台幣單價, 倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.出庫 AS 出貨成本_台幣, 倉儲明細表.備註, 倉儲明細表.出庫日期, 
                            倉儲分區控制表.倉名, 倉儲明細表.金額 AS 單價
                FROM        倉儲明細表 INNER JOIN 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號
                WHERE      (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.單據編號 LIKE N'" & 維修單申請.單據編號_tb.Text & "') AND (倉儲明細表.狀態 LIKE N'維修出庫')
                ORDER BY    倉儲明細表.料號 "
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_維修單申請_客戶資料_零售二()
        ConnOpen()
        SQL1 = "SELECT 零售流水號, 客戶名稱, 統一編號, 郵遞區號, 店面地址, 送貨地址, 手機, 電話, 傳真, 出貨單號, 公司編號 FROM 零售客戶記錄表 WHERE (出貨單號 LIKE N'" & 維修單申請.單據編號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_維修單申請_客戶資料_銷售二()
        ConnOpen()
        SQL1 = "SELECT  客戶資料表.店名, 客戶資料表.手機, 客戶資料表.電話, 客戶資料表.傳真, 客戶資料表.統編, 客戶資料表.聯絡人, 客戶資料表.店面地址, 客戶資料表.送貨地址,  MJ付款方式.付款方式
                    FROM    客戶資料表 INNER JOIN MJ付款方式 ON 客戶資料表.付款方式 = MJ付款方式.編號
                    WHERE  (客戶資料表.編號 LIKE N'" & 維修單申請.客戶編號_cb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_維修單申請_客戶資料表關鍵字查詢()
        ConnOpen() : SQL1 = "SELECT 編號, 簡稱 FROM 客戶資料表 WHERE (簡稱 LIKE '%" & PA & "%') ORDER BY 簡稱" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_維修單申請_零售客戶記錄表新增()
        ConnOpen()
        SQL1 = "INSERT INTO 零售客戶記錄表 (零售流水號, 客戶名稱, 統一編號, 郵遞區號, 店面地址, 送貨地址, 手機, 電話, 傳真, 出貨單號, 公司編號) 
                VALUES (N'" & PA1 & "',N'" & 維修單申請.客戶公司_tb.Text & "',N'" & 維修單申請.統編_tb.Text & "',N'',N'',N'" & 維修單申請.維修地址_tb.Text & "',N'',N'" & 維修單申請.電話_tb.Text &
                     "',N'',N'" & 維修單申請.單據編號_tb.Text & "',N'" & 公司編號 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_維修單申請_零售客戶記錄表刪除()
        ConnOpen() : SQL1 = "DELETE FROM 零售客戶記錄表 WHERE (出貨單號 LIKE N'" & 維修單申請.單據編號_tb.Text & "')" : CmdSet_For_dr()
    End Sub
    '---------------------維修單出庫確認-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_維修單出庫確認清單()
        ConnOpen()
        SQL1 = "SELECT      倉儲明細表.資料流水號, 倉儲明細表.單據編號, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 倉儲明細表.出庫 AS 準備出庫數量, 倉儲明細表.備註, 
                            倉儲明細表.採購下單 AS 客戶下單, 倉儲明細表.出庫日期, MJ選擇按鈕.選擇, 倉儲明細表.狀態, 倉儲分區控制表.倉名, 倉儲明細表.訂單流水號, 訂單控制表.出貨備齊, 
                            訂單明細表.資料流水號 AS 訂單明細流水, 倉儲明細表.業務, 倉儲明細表.業務比例, 倉儲明細表.司機, 倉儲明細表.司機比例
                FROM        倉儲明細表 LEFT OUTER JOIN 訂單明細表 ON 倉儲明細表.單據編號 = 訂單明細表.出貨單號 AND 倉儲明細表.料號 = 訂單明細表.料號 AND 倉儲明細表.訂單流水號 = 訂單明細表.訂單流水號 
                            LEFT OUTER JOIN 訂單控制表 ON 倉儲明細表.訂單流水號 = 訂單控制表.訂單流水號 LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN
                            MJ選擇按鈕 ON 倉儲明細表.資料流水號 = MJ選擇按鈕.按鈕 LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號
                WHERE      (倉儲明細表.狀態 LIKE '維修出庫') AND (倉儲明細表.出庫日期 LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%')
                ORDER BY    倉儲明細表.單據編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_出貨確認_倉儲明細表_維修單出庫確認()
        ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 出庫日期 = N'" & DTP & "', 倉儲作業 = N'" & DTP & "' WHERE (資料流水號 LIKE N'" & PA1 & "')  AND (狀態 LIKE '維修出庫')" : CmdSet_For_dr()
    End Sub
    '---------------------銷售退貨申請-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_銷售退貨申請_彙總()
        ConnOpen()
        SQL1 = "SELECT     倉儲明細表.單據編號, 倉儲明細表.採購下單 AS 銷售下單, 倉儲明細表.客戶編號, 客戶資料表.簡稱, 倉儲明細表.狀態, 倉儲明細表.交期 AS 客戶交期, 
                           倉儲明細表.業務, 倉儲明細表.業務比例, 倉儲明細表.司機, 倉儲明細表.司機比例
                FROM       倉儲明細表 INNER JOIN 客戶資料表 ON 倉儲明細表.客戶編號 = 客戶資料表.編號
                WHERE     (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.出庫日期 NOT LIKE N'') AND (倉儲明細表.狀態 LIKE '銷售出庫') 
                GROUP BY   倉儲明細表.單據編號, 倉儲明細表.採購下單, 倉儲明細表.客戶編號, 客戶資料表.簡稱, 倉儲明細表.狀態, 倉儲明細表.交期, 
                           倉儲明細表.業務, 倉儲明細表.業務比例, 倉儲明細表.司機, 倉儲明細表.司機比例
                ORDER BY   倉儲明細表.單據編號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_銷售退貨申請_清單()
        ConnOpen()
        SQL1 = "SELECT      倉儲明細表.資料流水號, 倉儲明細表.資料流水號 AS 項次, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 倉儲明細表.出庫 AS 數量, 倉儲明細表.售價, 
                            倉儲明細表.匯率, 倉儲明細表.金額 * 倉儲明細表.匯率 AS 台幣單價, 倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.出庫 AS 出貨成本_台幣, 倉儲明細表.備註, 倉儲明細表.出庫日期, 
                            倉儲分區控制表.倉名, 倉儲明細表.金額 AS 單價, 倉儲明細表.供應商編號
                FROM        倉儲明細表 INNER JOIN 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號
                WHERE      (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.單據編號 LIKE N'" & 銷售退貨申請.單據編號_tb.Text & "') AND (倉儲明細表.狀態 LIKE N'銷售出庫')
                ORDER BY    倉儲明細表.料號 "
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_銷售退貨申請_倉儲明細表新增()
        ConnOpen()
        SQL1 = "INSERT INTO 倉儲明細表 (資料流水號, 單據編號, 供應商編號, 料號, 金額, 匯率, 入庫, 出庫, 狀態, 採購下單, 入庫日期, 出庫日期, 備註, 倉儲作業, 客戶編號, 售價, 公司編號, 
                                        倉名編號, 交期, 業務, 業務比例, 司機, 司機比例) 
                VALUES (N'" & PA1 & "'  ,N'" & PA2 & "',N'" & PA3 & "',  N'" & PA4 & "',N'" & NU1 & "', N'" & NU2 & "',N'" & NU3 & "',N'" & NU4 & "',N'" & PA5 & "',N'" & PA6 &
                     "',N'',N'',N'',N'',N'" & PA7 & "',N'" & NU5 & "',N'" & 公司編號 & "',N'" & PA8 & "',N'" & PA9 & "', N'" & 銷售退貨申請.業務_cb.Text &
                    "', N'" & 銷售退貨申請.業務比例_cb.Text & "', N'" & 銷售退貨申請.司機_cb.Text & "', N'" & 銷售退貨申請.司機比例_cb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_銷售退貨申請_客戶資料_零售一()
        ConnOpen()
        SQL1 = "SELECT  MJ付款方式.付款方式 FROM 客戶資料表 INNER JOIN MJ付款方式 ON 客戶資料表.付款方式 = MJ付款方式.編號 WHERE (客戶資料表.編號 LIKE N'" & 銷售退貨申請.客戶編號_cb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_銷售退貨申請_客戶資料_零售二()
        ConnOpen()
        SQL1 = "SELECT 零售流水號, 客戶名稱, 統一編號, 郵遞區號, 店面地址, 送貨地址, 手機, 電話, 傳真, 出貨單號, 公司編號 FROM 零售客戶記錄表 WHERE (出貨單號 LIKE N'" & 銷售退貨申請.單據編號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_銷售退貨申請_客戶資料_銷售二()
        ConnOpen()
        SQL1 = "SELECT  客戶資料表.店名, 客戶資料表.手機, 客戶資料表.電話, 客戶資料表.傳真, 客戶資料表.統編, 客戶資料表.店面地址郵遞區號, 客戶資料表.店面地址, 客戶資料表.送貨地址,  MJ付款方式.付款方式
                    FROM    客戶資料表 INNER JOIN MJ付款方式 ON 客戶資料表.付款方式 = MJ付款方式.編號
                    WHERE  (客戶資料表.編號 LIKE N'" & 銷售退貨申請.客戶編號_cb.Text & "')"
        CmdSet_For_dr()
    End Sub
    '---------------------銷售退貨清單-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_銷售退貨清單_彙總()
        ConnOpen()
        SQL1 = "SELECT     倉儲明細表.單據編號, 倉儲明細表.採購下單 AS 銷售下單, 倉儲明細表.客戶編號, 客戶資料表.簡稱, 倉儲明細表.狀態, 倉儲明細表.交期 AS 客戶交期, 
                           倉儲明細表.業務, 倉儲明細表.業務比例, 倉儲明細表.司機, 倉儲明細表.司機比例
                FROM       倉儲明細表 INNER JOIN 客戶資料表 ON 倉儲明細表.客戶編號 = 客戶資料表.編號
                WHERE     (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.狀態 LIKE '銷售出庫') AND (倉儲明細表.出庫 < 0)
                GROUP BY   倉儲明細表.單據編號, 倉儲明細表.採購下單, 倉儲明細表.客戶編號, 客戶資料表.簡稱, 倉儲明細表.狀態, 倉儲明細表.交期, 
                           倉儲明細表.業務, 倉儲明細表.業務比例, 倉儲明細表.司機, 倉儲明細表.司機比例
                ORDER BY   倉儲明細表.單據編號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_銷售退貨清單_清單()
        ConnOpen()
        SQL1 = "SELECT      倉儲明細表.資料流水號, 倉儲明細表.資料流水號 AS 項次, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 倉儲明細表.出庫 AS 數量, 倉儲明細表.售價, 
                            倉儲明細表.匯率, 倉儲明細表.金額 * 倉儲明細表.匯率 AS 台幣單價, 倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.出庫 AS 出貨成本_台幣, 倉儲明細表.備註, 倉儲明細表.出庫日期, 
                            倉儲分區控制表.倉名, 倉儲明細表.金額 AS 單價, 倉儲明細表.供應商編號
                FROM        倉儲明細表 INNER JOIN 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號
                WHERE      (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.單據編號 LIKE N'" & 銷售退貨清單.單據編號_tb.Text & "') AND 
                           (倉儲明細表.狀態 LIKE N'銷售出庫') AND (倉儲明細表.出庫 < 0)
                ORDER BY    倉儲明細表.料號 "
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_銷售退貨清單_客戶資料_零售一()
        ConnOpen()
        SQL1 = "SELECT  MJ付款方式.付款方式 FROM 客戶資料表 INNER JOIN MJ付款方式 ON 客戶資料表.付款方式 = MJ付款方式.編號 WHERE (客戶資料表.編號 LIKE N'" & 銷售退貨清單.客戶編號_cb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_銷售退貨清單_客戶資料_零售二()
        ConnOpen()
        SQL1 = "SELECT 零售流水號, 客戶名稱, 統一編號, 郵遞區號, 店面地址, 送貨地址, 手機, 電話, 傳真, 出貨單號, 公司編號 FROM 零售客戶記錄表 WHERE (出貨單號 LIKE N'" & 銷售退貨清單.單據編號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_銷售退貨清單_客戶資料_銷售二()
        ConnOpen()
        SQL1 = "SELECT  客戶資料表.店名, 客戶資料表.手機, 客戶資料表.電話, 客戶資料表.傳真, 客戶資料表.統編, 客戶資料表.店面地址郵遞區號, 客戶資料表.店面地址, 客戶資料表.送貨地址,  MJ付款方式.付款方式
                    FROM    客戶資料表 INNER JOIN MJ付款方式 ON 客戶資料表.付款方式 = MJ付款方式.編號
                    WHERE  (客戶資料表.編號 LIKE N'" & 銷售退貨清單.客戶編號_cb.Text & "')"
        CmdSet_For_dr()
    End Sub
    '---------------------銷售退貨確認-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_銷售退貨確認清單()
        ConnOpen()
        SQL1 = "SELECT      倉儲明細表.資料流水號, 倉儲明細表.單據編號, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 倉儲明細表.出庫 AS 準備出庫數量, 倉儲明細表.備註, 
                            倉儲明細表.採購下單 AS 客戶下單, 倉儲明細表.出庫日期, MJ選擇按鈕.選擇, 倉儲明細表.狀態, 倉儲分區控制表.倉名, 倉儲明細表.訂單流水號, 訂單控制表.出貨備齊, 
                            訂單明細表.資料流水號 AS 訂單明細流水, 倉儲明細表.業務, 倉儲明細表.業務比例, 倉儲明細表.司機, 倉儲明細表.司機比例
                FROM        倉儲明細表 LEFT OUTER JOIN 訂單明細表 ON 倉儲明細表.單據編號 = 訂單明細表.出貨單號 AND 倉儲明細表.料號 = 訂單明細表.料號 AND 倉儲明細表.訂單流水號 = 訂單明細表.訂單流水號 
                            LEFT OUTER JOIN 訂單控制表 ON 倉儲明細表.訂單流水號 = 訂單控制表.訂單流水號 LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN
                            MJ選擇按鈕 ON 倉儲明細表.資料流水號 = MJ選擇按鈕.按鈕 LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號
                WHERE      (倉儲明細表.狀態 LIKE '銷售出庫') AND (倉儲明細表.出庫日期 LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.出庫 < 0)
                ORDER BY    倉儲明細表.單據編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_銷售退貨確認_倉儲明細表_銷售出庫確認()
        ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 出庫日期 = N'" & DTP & "', 倉儲作業 = N'" & DTP & "' WHERE (資料流水號 LIKE N'" & PA1 & "')  AND (狀態 LIKE '銷售出庫')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_銷售退貨確認_訂單控制表_出貨情況()
        ConnOpen() : SQL1 = "UPDATE 訂單控制表 SET 出貨情況 = N'" & PA1 & "' WHERE (訂單流水號 LIKE N'" & PA & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_銷售退貨確認_訂單明細表_出貨情況一()
        ConnOpen() : SQL1 = "UPDATE 訂單明細表 SET 出貨情況 = N'" & PA1 & "' WHERE (訂單流水號 LIKE N'" & PA & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_銷售退貨確認_訂單明細表_出貨情況二()
        ConnOpen() : SQL1 = "UPDATE 訂單明細表 SET 出貨情況 = N'" & PA1 & "' WHERE (資料流水號 LIKE N'" & PA & "')" : CmdSet_For_dr()
    End Sub
End Module