WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/00、MyModule/樣品訂單管理.vb

Module 樣品訂單管理
    Friend Sub SQL_除錯清單()
        ConnOpen()
        SQL1 = "SELECT    樣品訂單部件表.SO, 樣品訂單部件表.流水號, 樣品訂單清單.流水號 AS 流水號2, 樣品訂單清單.SO AS SO2
               FROM       樣品訂單部件表 LEFT OUTER JOIN
                          樣品訂單清單 ON 樣品訂單部件表.流水號 = 樣品訂單清單.流水號 AND 
                          樣品訂單部件表.版次 = 樣品訂單清單.版次 AND 樣品訂單部件表.SO = 樣品訂單清單.SO
               WHERE     (樣品訂單清單.SO IS NULL)
               GROUP BY   樣品訂單部件表.SO, 樣品訂單部件表.流水號, 樣品訂單清單.流水號, 樣品訂單清單.SO
               ORDER BY   SO2"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_刪除樣品訂單部件表()
        ConnOpen()
        SQL1 = "DELETE FROM 樣品訂單部件表 WHERE (SO LIKE N'" & PA & "' AND 流水號 LIKE N'" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    '-----------樣品單控制表-----------------------------------------------
    Friend Sub SQL_樣品單()
        ConnOpen()
        If PA = "" Then
            SQL1 = "SELECT   SO, 季節, 客戶, 型體號碼, 型體名稱, 國家, 狀態, ISS_DATE, ETA, 數量, 制單人, LEFT(制單時間, 10) AS 制單時間, 版次, 工廠, REQ, C_N, 中底, 楦頭編號, 模具編號 
                    FROM     樣品訂單控制表 
                    WHERE    狀態 LIKE N'" & 樣品進度表分類3 & "' 
                    ORDER BY SO DESC, 版次 DESC"
        Else
            SQL1 = "SELECT   SO, 季節, 客戶, 型體號碼, 型體名稱, 國家, 狀態, ISS_DATE, ETA, 數量, 制單人, LEFT(制單時間, 10) AS 制單時間, 版次, 工廠, REQ, C_N, 中底, 楦頭編號, 模具編號 
                    FROM     樣品訂單控制表 
                    WHERE  ((SO 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 (ISS_DATE LIKE N'%" & PA & "%') OR (ETA LIKE N'%" & PA & "%')) 
                    ORDER BY SO DESC, 版次 DESC"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_樣品清單()
        ConnOpen()
        SQL1 = "SELECT 項次, 顏色, 架號, 借出者, 數量, SIZE, KEEP, 流水號, 版次 FROM 樣品訂單清單 WHERE (SO LIKE N'" & 樣品單控制表.SO_tb.Text & "' AND 版次 LIKE N'" & 樣品單控制表.版次_tb.Text & "') ORDER BY 項次"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_樣品訂單清單2()
        ConnOpen()
        SQL1 = "SELECT 樣品訂單清單.項次, 樣品訂單部件表.部件, 樣品訂單部件表.材料名稱, 樣品訂單部件表.材料說明 AS 顏色, 樣品訂單部件表.廠商, 樣品訂單部件表.備註, " &
               "樣品訂單部件表.版次, 樣品訂單部件表.流水號, 樣品訂單部件表.項次 AS 排列 " &
               "FROM 樣品訂單部件表 INNER JOIN 樣品訂單清單 ON 樣品訂單部件表.流水號 = 樣品訂單清單.流水號 " &
               "WHERE (樣品訂單部件表.SO LIKE N'" & 樣品單控制表.SO_tb.Text & "') AND (樣品訂單部件表.版次 LIKE N'" & 樣品單控制表.版次_tb.Text & "') 
                ORDER BY   樣品訂單部件表.流水號, 樣品訂單部件表.項次, 樣品訂單部件表.部件"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_樣品訂單清單3()
        ConnOpen()
        SQL1 = "SELECT 部件 FROM 樣品訂單部件表 WHERE (SO LIKE N'" & 樣品單控制表.SO_tb.Text & "') AND (版次 LIKE N'" & 樣品單控制表.版次_tb.Text & "') GROUP BY 部件"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_樣品訂單清單4()
        ConnOpen()
        SQL1 = "SELECT 項次, 備註 FROM 樣品訂單清單 WHERE (SO LIKE N'" & 樣品單控制表.SO_tb.Text & "' AND 版次 LIKE N'" & 樣品單控制表.版次_tb.Text & "') ORDER BY 項次"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_國家清單()
        ConnOpen()
        SQL1 = "SELECT 國家 FROM 國家清單 ORDER BY 國家"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_客戶控制表清單()
        ConnOpen()
        SQL1 = "SELECT 客戶簡稱 FROM 客戶控制表 ORDER BY 客戶簡稱"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_PURPOSE清單()
        ConnOpen()
        SQL1 = "SELECT  狀態 FROM PURPOSE清單 ORDER BY 狀態"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_型體控制表清單()
        ConnOpen()
        SQL1 = "SELECT 型體號碼 FROM 型體控制表 WHERE 客戶簡稱 LIKE N'" & 樣品單控制表.CUST_cb.Text & "' ORDER BY 型體號碼"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_型體控制表清單1()
        ConnOpen()
        SQL1 = "SELECT 型體名稱 FROM 型體控制表 WHERE 型體號碼 LIKE N'" & 樣品單控制表.STYLE_cb.Text & "' ORDER BY 型體名稱"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_部件清單1()
        ConnOpen()
        SQL1 = "SELECT 部件 FROM 部件清單 WHERE 部件 LIKE N'" & 樣品單控制表.新增_cb.Text & "%' AND 樣品單用選擇 LIKE '1' ORDER BY 部件"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_季節清單1()
        ConnOpen()
        SQL1 = "SELECT SEASON FROM 季節清單 ORDER BY SEASON"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_工廠控制表()
        ConnOpen()
        SQL1 = "SELECT 工廠 FROM 工廠控制表 ORDER BY 工廠"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_港口清單()
        ConnOpen()
        SQL1 = "SELECT  FOB FROM 港口清單 ORDER BY FOB"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_供應商清單1()
        ConnOpen()
        SQL1 = "SELECT 廠商 FROM 供應商清單 WHERE 公司傳真3 LIKE '" & 樣品單控制表.廠商類別_cb.Text & "' AND 停用 = 0 ORDER BY 廠商"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_供應商清單2()
        ConnOpen()
        SQL1 = "SELECT 樣品物料調料單明細.規格, 樣品物料調料單明細.名稱 
                    FROM 供應商清單 INNER JOIN 樣品物料調料單抬頭 ON 供應商清單.供應商編碼 = 樣品物料調料單抬頭.供應商編號 RIGHT OUTER JOIN 樣品物料調料單明細 ON 樣品物料調料單抬頭.調料單號 = 
                         樣品物料調料單明細.調料單號
                    WHERE (供應商清單.廠商 LIKE N'" & 樣品單控制表.供應商_cb.Text & "') GROUP BY 樣品物料調料單明細.規格, 樣品物料調料單明細.名稱 ORDER BY 樣品物料調料單明細.規格, 樣品物料調料單明細.名稱"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_供應商清單3()
        ConnOpen()
        SQL1 = "SELECT 樣品物料調料單明細.顏色 
                    FROM 供應商清單 INNER JOIN 樣品物料調料單抬頭 ON 供應商清單.供應商編碼 = 樣品物料調料單抬頭.供應商編號 RIGHT OUTER JOIN 樣品物料調料單明細 ON 樣品物料調料單抬頭.調料單號 = 
                         樣品物料調料單明細.調料單號
                    WHERE (供應商清單.廠商 LIKE N'" & 樣品單控制表.供應商_cb.Text & "') GROUP BY 樣品物料調料單明細.顏色 ORDER BY 樣品物料調料單明細.顏色"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_底台()
        ConnOpen()
        SQL1 = "SELECT 底台 FROM 中皮結構 ORDER BY 底台"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_中底()
        ConnOpen()
        SQL1 = "SELECT 中底 FROM 中底做法 ORDER BY 中底"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_楦頭編號()
        ConnOpen()
        SQL1 = "SELECT 楦頭編號 FROM 楦頭規格控制表 ORDER BY 楦頭編號"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_模具開發控制表1()
        ConnOpen()
        SQL1 = "SELECT CN, 模具編號 FROM 模具開發控制表 GROUP BY CN, 模具編號 ORDER BY 模具編號, CN"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_供應商清單4()
        ConnOpen()
        SQL1 = "SELECT 公司傳真3 AS 類別 FROM 供應商清單 GROUP BY 公司傳真3 ORDER BY 公司傳真3"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_模具開發控制表2()
        ConnOpen()
        SQL1 = "SELECT CN FROM 模具開發控制表 WHERE 模具編號 LIKE N'" & 樣品單控制表.模具編號_cb.Text & "'"
        CmdSet_For_dr()
    End Sub

End Module