TENDEN-MES-SYS-LEEHSIEHJUI/TENDEN-MES-SYS/Module/彙總報表管理.vb

Module 彙總報表管理
    '--------------------訂單分析報表-----------------------------------
    Friend Sub SQL_圖片資料庫()
        ConnOpen()
        SQL1 = "SELECT 類型, COUNT(圖片編號) AS 圖片數量 FROM 圖片庫一 GROUP BY   類型 ORDER BY   類型"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_中文樣品單資料庫()
        ConnOpen()
        SQL1 = "SELECT   季節, 工廠, 階段, COUNT(樣品流水號) AS 樣品單數, SUM(資料筆數) AS 顏色筆數 FROM (SELECT 確認樣品單抬頭.季節, 確認樣品單抬頭.工廠, 確認樣品單抬頭.階段, 
                         確認樣品單抬頭.樣品流水號, COUNT(確認樣品單控制表.樣品流水號一) AS 資料筆數 
                FROM     確認樣品單控制表 LEFT OUTER JOIN 確認樣品單抬頭 ON 確認樣品單控制表.樣品流水號 = 確認樣品單抬頭.樣品流水號 
                WHERE    確認樣品單抬頭.季節 LIKE '" & 訂單分析報表.季度_cb.Text & "' GROUP BY 確認樣品單抬頭.季節, 確認樣品單抬頭.工廠, 確認樣品單抬頭.階段, 確認樣品單抬頭.樣品流水號) AS Q 
                GROUP BY 季節, 工廠, 階段 ORDER BY 階段, 工廠"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_掛牌資料庫()
        ConnOpen()
        SQL1 = "SELECT   季節, 工廠, 階段, COUNT(樣品流水號) AS 樣品數量, SUM(掛牌數量) AS 吊牌數量 
                FROM    (SELECT   確認樣品單抬頭.季節, 確認樣品單抬頭.工廠, 確認樣品單抬頭.階段, 確認樣品單抬頭.樣品流水號, COUNT(確認樣品單控制表.掛牌Color) AS 掛牌數量 
                         FROM     確認樣品單控制表 LEFT OUTER JOIN 確認樣品單抬頭 ON 確認樣品單控制表.樣品流水號 = 確認樣品單抬頭.樣品流水號 
                         WHERE   (確認樣品單控制表.掛牌Color IS NOT NULL) AND (確認樣品單控制表.掛牌Color NOT LIKE '') AND (確認樣品單抬頭.季節 LIKE '" & 訂單分析報表.季度_cb.Text & "') 
                         GROUP BY 確認樣品單抬頭.季節, 確認樣品單抬頭.工廠, 確認樣品單抬頭.階段, 確認樣品單抬頭.樣品流水號) AS Q 
                GROUP BY 季節, 工廠, 階段 ORDER BY 階段, 工廠"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_確認通知書()
        ConnOpen()
        SQL1 = "SELECT  確認樣品單抬頭.季節, 確認樣品單抬頭.工廠, 確認樣品單控制表.確認結果1 AS 通過, 確認樣品單控制表.確認結果3 AS 通過需重新打樣 
                FROM    確認樣品單控制表 LEFT OUTER JOIN 確認樣品單抬頭 ON 確認樣品單控制表.樣品流水號 = 確認樣品單抬頭.樣品流水號 
                WHERE ((確認樣品單控制表.確認結果1 LIKE '1') OR (確認樣品單控制表.確認結果3 LIKE '1')) AND (確認樣品單抬頭.季節 LIKE '" & 訂單分析報表.季度_cb.Text & "')"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_量產樣品控制表未出貨數()
        ConnOpen()
        SQL1 = "SELECT   年份, Sample_Type, FTY, COUNT(Style) AS 樣品單數, SUM(資料筆數) AS 顏色筆數, SUM(總雙數) AS 總雙數 
                FROM    (SELECT 年份, Sample_Type, FTY, Style, COUNT(Style) AS 資料筆數, SUM(QTY) AS 總雙數 FROM 量產樣品控制表 
                         WHERE (CXL = 0) AND (QTY - 出貨數量 <> 0) AND (年份 LIKE '" & 訂單分析報表.季度_cb.Text & "') GROUP BY 年份, Sample_Type, FTY, Style) AS Q 
                GROUP BY 年份, Sample_Type, FTY"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_CXL數()
        ConnOpen()
        SQL1 = "SELECT   年份, Sample_Type, FTY, COUNT(Style) AS 樣品單數, SUM(資料筆數) AS 顏色筆數, SUM(總雙數) AS 總雙數 
                FROM    (SELECT 年份, Sample_Type, FTY, Style, COUNT(Style) AS 資料筆數, SUM(QTY) AS 總雙數 
                         FROM 量產樣品控制表 WHERE (CXL = 1) AND (年份 LIKE '" & 訂單分析報表.季度_cb.Text & "') GROUP BY 年份, Sample_Type, FTY, Style) AS Q 
                GROUP BY 年份, Sample_Type, FTY"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_量產樣品控制表已出貨數()
        ConnOpen()
        SQL1 = "SELECT   年份, Sample_Type, FTY, COUNT(Style) AS 樣品單數, SUM(資料筆數) AS 顏色筆數, SUM(總雙數) AS 總雙數 
                FROM    (SELECT 年份, Sample_Type, FTY, Style, COUNT(Style) AS 資料筆數, SUM(QTY) AS 總雙數 FROM 量產樣品控制表 
                         WHERE (CXL = 0) AND (QTY - 出貨數量 = 0) AND (年份 LIKE '" & 訂單分析報表.季度_cb.Text & "') GROUP BY 年份, Sample_Type, FTY, Style) AS Q 
                GROUP BY 年份, Sample_Type, FTY"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_訂單控制表未出貨數()
        ConnOpen()
        If 訂單分析報表.量產訂單依季度篩選_cb.Checked = True Then
            SQL1 = "SELECT   交期, LEFT(年份季度,4) AS 季度, 生產工廠 AS 工廠, COUNT(形體號) AS 訂單數量, SUM(訂單總數) AS 訂單總數 
                    FROM    (SELECT LEFT(客戶交期, 7) AS 交期, LEFT(年份季度,4) AS 年份季度, 生產工廠, 形體號, SUM(訂單數量) AS 訂單總數 FROM 訂單控制表 
                             WHERE (年份季度 LIKE '" & 訂單分析報表.季度_cb.Text & "%') AND (CXL = 0 OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) GROUP BY LEFT(客戶交期, 7), 
                                    LEFT(年份季度,4), 生產工廠, 形體號) AS Q 
                    GROUP BY LEFT(年份季度,4), 生產工廠, 交期 ORDER BY 生產工廠, 交期 DESC"
        Else
            If 訂單分析報表.依客戶交期_rb.Checked = True Then
                條件 = "客戶交期"
            Else
                條件 = "工廠回復交期"
            End If
            SQL1 = "SELECT 交期, LEFT(年份季度,4) AS 季度, 生產工廠 AS 工廠, COUNT(形體號) AS 訂單數量, SUM(訂單總數) AS 訂單總數 
                    FROM (SELECT LEFT(" & 條件 & ", 7) AS 交期, LEFT(年份季度,4) AS 年份季度, 生產工廠, 形體號, SUM(訂單數量) AS 訂單總數 FROM 訂單控制表 
                          WHERE (LEFT(" & 條件 & ", 4) LIKE '" & 訂單分析報表.年度_cb.Text & "%') AND (CXL = 0 OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) 
                          GROUP BY LEFT(" & 條件 & ", 7), LEFT(年份季度,4), 生產工廠, 形體號) AS Q 
                    GROUP BY LEFT(年份季度,4), 生產工廠, 交期 ORDER BY 生產工廠, 交期 DESC"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_訂單控制表已出貨數()
        ConnOpen()
        If 訂單分析報表.量產訂單依季度篩選_cb.Checked = True Then
            SQL1 = "SELECT   交期, LEFT(年份季度,4) AS 季度, 生產工廠 AS 工廠, COUNT(形體號) AS 訂單數量, SUM(訂單總數) AS 訂單總數 
                    FROM    (SELECT LEFT(客戶交期, 7) AS 交期, LEFT(年份季度,4) AS 年份季度, 生產工廠, 形體號, SUM(訂單數量) AS 訂單總數 FROM 訂單控制表 
                             WHERE (年份季度 LIKE '" & 訂單分析報表.季度_cb.Text & "%') AND (CXL = 0 OR CXL IS NULL) AND (訂單數量 - 出貨數量 = 0) GROUP BY LEFT(客戶交期, 7), 
                                    LEFT(年份季度,4), 生產工廠, 形體號) AS Q 
                    GROUP BY LEFT(年份季度,4), 生產工廠, 交期 ORDER BY 生產工廠, 交期 DESC"
        Else
            If 訂單分析報表.依客戶交期_rb.Checked = True Then
                條件 = "客戶交期"
            Else
                條件 = "工廠回復交期"
            End If
            SQL1 = "SELECT   交期, LEFT(年份季度,4) AS 季度, 生產工廠 AS 工廠, COUNT(形體號) AS 訂單數量, SUM(訂單總數) AS 訂單總數 
                    FROM    (SELECT   LEFT(" & 條件 & ", 7) AS 交期, LEFT(年份季度,4) AS 年份季度, 生產工廠, 形體號, SUM(訂單數量) AS 訂單總數 FROM 訂單控制表 
                             WHERE   (LEFT(" & 條件 & ", 4) LIKE '" & 訂單分析報表.年度_cb.Text & "%') AND (CXL = 0 OR CXL IS NULL) AND (訂單數量 - 出貨數量 = 0) 
                             GROUP BY LEFT(" & 條件 & ", 7), LEFT(年份季度,4), 生產工廠, 形體號) AS Q 
                    GROUP BY LEFT(年份季度,4), 生產工廠, 交期 ORDER BY 生產工廠, 交期 DESC"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_訂單控制表CXL數()
        ConnOpen()
        If 訂單分析報表.量產訂單依季度篩選_cb.Checked = True Then
            SQL1 = "SELECT   交期, LEFT(年份季度,4) AS 季度, 生產工廠 AS 工廠, COUNT(形體號) AS 訂單數量, SUM(訂單總數) AS 訂單總數 
                    FROM    (SELECT LEFT(客戶交期, 7) AS 交期, LEFT(年份季度,4) AS 年份季度, 生產工廠, 形體號, SUM(訂單數量) AS 訂單總數 FROM 訂單控制表 
                             WHERE (年份季度 LIKE '" & 訂單分析報表.季度_cb.Text & "%') AND (CXL = 1) GROUP BY LEFT(客戶交期, 7), LEFT(年份季度,4), 生產工廠, 形體號) AS Q 
                    GROUP BY LEFT(年份季度,4), 生產工廠, 交期 ORDER BY 生產工廠, 交期 DESC"
        Else
            If 訂單分析報表.依客戶交期_rb.Checked = True Then
                條件 = "客戶交期"
            Else
                條件 = "工廠回復交期"
            End If
            SQL1 = "SELECT   交期, LEFT(年份季度,4) AS 季度, 生產工廠 AS 工廠, COUNT(形體號) AS 訂單數量, SUM(訂單總數) AS 訂單總數 
                    FROM    (SELECT LEFT(" & 條件 & ", 7) AS 交期, LEFT(年份季度,4) AS 年份季度, 生產工廠, 形體號, SUM(訂單數量) AS 訂單總數 FROM 訂單控制表 
                             WHERE (LEFT(" & 條件 & ", 4) LIKE '" & 訂單分析報表.年度_cb.Text & "%') AND (CXL = 1) GROUP BY LEFT(" & 條件 & ", 7), LEFT(年份季度,4), 生產工廠, 形體號) AS Q 
                    GROUP BY LEFT(年份季度,4), 生產工廠, 交期 ORDER BY 生產工廠, 交期 DESC"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_下拉年份季度()
        ConnOpen()
        SQL1 = "SELECT 年份季度 FROM 訂單控制表年份季度清單 ORDER BY 年份季度 DESC"
        CmdSet_For_dr()
    End Sub
    '-----------------------形體分析報表--------------------------------
    Friend Sub SQL_每種形體有賺頭前50名()
        ConnOpen()
        SQL1 = "SELECT TOP (50) 訂單控制表.形體號 AS 排名, 訂單控制表.形體號, SUM(訂單控制表.訂單數量) AS 訂單數量, 
                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) AS 銷售金額, 
                            SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 營運成本, 
                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 利潤, 
                            (SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice)) / SUM(訂單控制表.訂單數量) AS 加權平均利潤
                FROM        訂單價格利潤明細表 FULL OUTER JOIN
                            訂單控制表 ON 訂單價格利潤明細表.資料流水號 = 訂單控制表.資料流水號
                WHERE     (訂單控制表.客戶交期 BETWEEN '" & Strings.Format(形體分析報表.日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(形體分析報表.日期1_dtp.Value, "yyyy/MM/dd") & "') AND 
                          (訂單價格利潤明細表.FTYPrice > 0) AND  (訂單控制表.訂單數量 > 0)
                GROUP BY   訂單控制表.形體號
                ORDER BY   加權平均利潤 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_每種形體做爽的倒數50名()
        ConnOpen()
        SQL1 = "SELECT TOP (50) 訂單控制表.形體號 AS 排名, 訂單控制表.形體號, SUM(訂單控制表.訂單數量) AS 訂單數量, 
                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) AS 銷售金額, 
                            SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 營運成本, 
                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 利潤, 
                            (SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice)) / SUM(訂單控制表.訂單數量) AS 加權平均利潤
                FROM        訂單價格利潤明細表 FULL OUTER JOIN
                            訂單控制表 ON 訂單價格利潤明細表.資料流水號 = 訂單控制表.資料流水號
                WHERE     (訂單控制表.客戶交期 BETWEEN '" & Strings.Format(形體分析報表.日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(形體分析報表.日期1_dtp.Value, "yyyy/MM/dd") & "') AND 
                          (訂單價格利潤明細表.FTYPrice > 0) AND  (訂單控制表.訂單數量 > 0)
                GROUP BY   訂單控制表.形體號
                ORDER BY   加權平均利潤"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_每種形體數量大前50名()
        ConnOpen()
        SQL1 = "SELECT TOP (50) 訂單控制表.形體號 AS 排名, 訂單控制表.形體號, SUM(訂單控制表.訂單數量) AS 訂單數量, 
                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) AS 銷售金額, 
                            SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 營運成本, 
                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 利潤, 
                            (SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice)) / SUM(訂單控制表.訂單數量) AS 加權平均利潤
                FROM        訂單價格利潤明細表 FULL OUTER JOIN
                            訂單控制表 ON 訂單價格利潤明細表.資料流水號 = 訂單控制表.資料流水號
                WHERE     (訂單控制表.客戶交期 BETWEEN '" & Strings.Format(形體分析報表.日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(形體分析報表.日期1_dtp.Value, "yyyy/MM/dd") & "') AND 
                          (訂單價格利潤明細表.FTYPrice > 0) AND  (訂單控制表.訂單數量 > 0)
                GROUP BY   訂單控制表.形體號
                ORDER BY   訂單數量 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_每種形體開發來玩的倒數50名()
        ConnOpen()
        SQL1 = "SELECT TOP (50) 訂單控制表.形體號 AS 排名, 訂單控制表.形體號, SUM(訂單控制表.訂單數量) AS 訂單數量, 
                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) AS 銷售金額, 
                            SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 營運成本, 
                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 利潤, 
                            (SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice)) / SUM(訂單控制表.訂單數量) AS 加權平均利潤
                FROM        訂單價格利潤明細表 FULL OUTER JOIN
                            訂單控制表 ON 訂單價格利潤明細表.資料流水號 = 訂單控制表.資料流水號
                WHERE     (訂單控制表.客戶交期 BETWEEN '" & Strings.Format(形體分析報表.日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(形體分析報表.日期1_dtp.Value, "yyyy/MM/dd") & "') AND 
                          (訂單價格利潤明細表.FTYPrice > 0) AND  (訂單控制表.訂單數量 > 0)
                GROUP BY   訂單控制表.形體號
                ORDER BY   訂單數量"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_時間區間內有前途()
        ConnOpen()
        SQL1 = "SELECT TOP (50) 訂單控制表.形體號 AS 排名, 訂單控制表.形體號, SUM(訂單控制表.訂單數量) AS 訂單數量, 
                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) AS 銷售金額, 
                            SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 營運成本, 
                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 利潤, 
                            (SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice)) / SUM(訂單控制表.訂單數量) AS 加權平均利潤
                FROM        訂單價格利潤明細表 FULL OUTER JOIN
                            訂單控制表 ON 訂單價格利潤明細表.資料流水號 = 訂單控制表.資料流水號
                WHERE     (訂單控制表.客戶交期 BETWEEN '" & Strings.Format(形體分析報表.日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(形體分析報表.日期1_dtp.Value, "yyyy/MM/dd") & "') AND 
                          (訂單價格利潤明細表.FTYPrice > 0) AND  (訂單控制表.訂單數量 > 0)
                GROUP BY   訂單控制表.形體號
                ORDER BY   利潤 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_時間區間內倒數50名聊尾仔()
        ConnOpen()
        SQL1 = "SELECT TOP (50) 訂單控制表.形體號 AS 排名, 訂單控制表.形體號, SUM(訂單控制表.訂單數量) AS 訂單數量, 
                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) AS 銷售金額, 
                            SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 營運成本, 
                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 利潤, 
                            (SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice)) / SUM(訂單控制表.訂單數量) AS 加權平均利潤
                FROM        訂單價格利潤明細表 FULL OUTER JOIN
                            訂單控制表 ON 訂單價格利潤明細表.資料流水號 = 訂單控制表.資料流水號
                WHERE     (訂單控制表.客戶交期 BETWEEN '" & Strings.Format(形體分析報表.日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(形體分析報表.日期1_dtp.Value, "yyyy/MM/dd") & "') AND 
                          (訂單價格利潤明細表.FTYPrice > 0) AND  (訂單控制表.訂單數量 > 0)
                GROUP BY   訂單控制表.形體號
                ORDER BY   利潤"
        CmdSet_For_DGV()
    End Sub
    '--------------------------NewUnitComparison--------------------------------------------------------
    Friend Sub SQL_訂單控制表()
        ConnOpen()
        SQL1 = "SELECT 年度 AS YEAR, P, 開始日期 AS Start_date, 結束日期 AS Closing_date FROM NEW_U_C_時間間格 WHERE (年度 LIKE '" & NewUnitComparison.年度_cb.Text & "') ORDER BY 開始日期"
        CmdSet_For_DGV()
    End Sub
    '-----------------------力威發票明細轉換工具-------------------------------------------
    Friend Sub SQL_轉換前()
        ConnOpen()
        SQL1 = "SELECT 文字1, 文字2, 編號 FROM 文件轉換用1 WHERE 編號 LIKE N'A%' ORDER BY 編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_轉換後()
        ConnOpen()
        SQL1 = "SELECT 文字1, 文字2, 編號 FROM 文件轉換用1 WHERE 編號 LIKE N'B%' ORDER BY 編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_文件刪除()
        ConnOpen() : SQL1 = "DELETE 文件轉換用1" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_編號()
        ConnOpen() : SQL1 = "SELECT 編號 FROM 文件轉換用1 WHERE 編號 LIKE N'A%' ORDER BY 編號 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_文件轉換用2增加()
        ConnOpen() : SQL1 = "INSERT INTO 文件轉換用1 (編號, 文字1, 文字2) VALUES (N'" & 力威發票明細轉換工具.流水帳_tb.Text & "', '', '')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_查詢編號()
        ConnOpen() : SQL1 = "SELECT 編號 FROM 文件轉換用1 WHERE 編號 LIKE N'B%' ORDER BY 編號 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_文件轉換用1增加()
        ConnOpen()
        SQL1 = "INSERT INTO 文件轉換用1 (編號, 文字1, 文字2) VALUES (N'" & 力威發票明細轉換工具.流水帳_tb.Text & "', N'" & PA2 & "', N'" & PA & "')"
        CmdSet_For_dr()
    End Sub
    '-----------------------訂單分析比對工具_力威------------------------------
    Friend Sub SQL_列印訂單分析()
        ConnOpen()
        SQL1 = "SELECT   訂單裝箱明細表.[" & PA3 & "] AS 數量
                            FROM     訂單裝箱明細表 INNER JOIN 訂單控制表 ON 訂單裝箱明細表.天盾流水號 = 訂單控制表.訂單流水號 AND 
                                     訂單裝箱明細表.客戶訂單號 = 訂單控制表.客戶訂單號 AND 訂單裝箱明細表.DM = 訂單控制表.楦型
                            WHERE   (訂單裝箱明細表.客戶訂單號 LIKE '" & PA4 & "') AND (LEFT(訂單裝箱明細表.DM, 1) LIKE '" & PA5 & "') AND (訂單控制表.形體號 LIKE '" & PA1 & "') AND 
                                    (訂單裝箱明細表.Item LIKE '" & PA7 & "') OR
                                    (LEFT(訂單裝箱明細表.DM, 1) LIKE '" & PA5 & "') AND (訂單裝箱明細表.力威訂單號 LIKE '" & PA4 & "') AND (訂單控制表.形體號 LIKE '" & PA1 & "') AND 
                                    (訂單裝箱明細表.Item LIKE '" & PA7 & "')"
        CmdSet_For_dr()
    End Sub
    '--------------------訂單分析比對工具_Vionic----------------------------
    Friend Sub SQL_訂單資料比對()
        ConnOpen()
        SQL1 = "SELECT      按鈕.BIT按鈕 AS 比對一, 按鈕.BIT按鈕 AS 比對二, 按鈕.BIT按鈕 AS 比對三, 按鈕.BIT按鈕 AS 比對四, 
                            按鈕.BIT按鈕 AS 比對五, 按鈕.BIT按鈕 AS 比對六, TD_Open_Order_Report比對資料表.客戶訂單號, 
                            TD_Open_Order_Report比對資料表.形體編碼, TD_Open_Order_Report比對資料表.形體名稱, 
                            TD_Open_Order_Report比對資料表.顏色, TD_Open_Order_Report比對資料表.楦型, 
                            SUM(TD_Open_Order_Report比對資料表.[5]) AS [5], SUM(TD_Open_Order_Report比對資料表.[5.5]) AS [5.5], 
                            SUM(TD_Open_Order_Report比對資料表.[6]) AS [6], SUM(TD_Open_Order_Report比對資料表.[6.5]) AS [6.5], 
                            SUM(TD_Open_Order_Report比對資料表.[7]) AS [7], SUM(TD_Open_Order_Report比對資料表.[7.5]) AS [7.5], 
                            SUM(TD_Open_Order_Report比對資料表.[8]) AS [8], SUM(TD_Open_Order_Report比對資料表.[8.5]) AS [8.5], 
                            SUM(TD_Open_Order_Report比對資料表.[9]) AS [9], SUM(TD_Open_Order_Report比對資料表.[9.5]) AS [9.5], 
                            SUM(TD_Open_Order_Report比對資料表.[10]) AS [10], SUM(TD_Open_Order_Report比對資料表.[10.5]) AS [10.5], 
                            SUM(TD_Open_Order_Report比對資料表.[11]) AS [11], SUM(TD_Open_Order_Report比對資料表.[11.5]) AS [11.5], 
                            SUM(TD_Open_Order_Report比對資料表.[12]) AS [12], SUM(TD_Open_Order_Report比對資料表.[12.5]) AS [12.5], 
                            SUM(TD_Open_Order_Report比對資料表.[13]) AS [13], SUM(TD_Open_Order_Report比對資料表.[14]) AS [14], 
                            SUM(TD_Open_Order_Report比對資料表.[5] + TD_Open_Order_Report比對資料表.[5.5] + TD_Open_Order_Report比對資料表.[6]
                             + TD_Open_Order_Report比對資料表.[6.5] + TD_Open_Order_Report比對資料表.[7] + TD_Open_Order_Report比對資料表.[7.5]
                             + TD_Open_Order_Report比對資料表.[8] + TD_Open_Order_Report比對資料表.[8.5] + TD_Open_Order_Report比對資料表.[9]
                             + TD_Open_Order_Report比對資料表.[9.5] + TD_Open_Order_Report比對資料表.[10] + TD_Open_Order_Report比對資料表.[10.5]
                             + TD_Open_Order_Report比對資料表.[11] + TD_Open_Order_Report比對資料表.[11.5] + TD_Open_Order_Report比對資料表.[12]
                             + TD_Open_Order_Report比對資料表.[12.5] + TD_Open_Order_Report比對資料表.[13] + TD_Open_Order_Report比對資料表.[14])
                             AS 總和
                FROM        TD_Open_Order_Report比對資料表 LEFT OUTER JOIN
                            按鈕 ON TD_Open_Order_Report比對資料表.客戶訂單號 = 按鈕.連接
                GROUP BY   TD_Open_Order_Report比對資料表.客戶訂單號, TD_Open_Order_Report比對資料表.形體編碼, 
                            TD_Open_Order_Report比對資料表.形體名稱, TD_Open_Order_Report比對資料表.顏色, 
                            TD_Open_Order_Report比對資料表.楦型, 按鈕.BIT按鈕"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_刪除暫存Vionic()
        ConnOpen()
        SQL1 = "DELETE FROM TD_Open_Order_Report比對資料表"
        CmdSet_For_dr()
    End Sub
End Module