GF00-ERP-SYS-SIU/GF00-ERP-SYS/0.MyModule/主資料庫/SQL_倉儲管理系統.vb

Module SQL_倉儲管理系統
    '---------------------物料檔案-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_物料檔案_清單()
        ConnOpen()
        If 物料資料庫.查詢_tb.Text = "" Then
            If 物料資料庫.供應商編碼_cb.Text = "" Then
                SQL2 = ""
            Else
                SQL2 = " WHERE 物料資料庫.供應商編號 LIKE N'" & 物料資料庫.供應商編碼_cb.Text & "' "
            End If
        Else
            If 物料資料庫.供應商編碼_cb.Text = "" Then
                SQL2 = " WHERE (物料資料庫.料號 LIKE N'" & PA & "%' OR 物料資料庫.品名 LIKE N'%" & PA & "%') "
            Else
                SQL2 = " WHERE (物料資料庫.供應商編號 LIKE N'" & 物料資料庫.供應商編碼_cb.Text & "') AND (物料資料庫.料號 LIKE N'" & PA & "%' OR 物料資料庫.品名 LIKE N'%" & PA & "%' OR 物料資料庫.車種年份 LIKE N'%" & PA & "%') "
            End If
        End If
        SQL1 = "SELECT      物料資料庫.料號,物料資料庫.車種年份,物料資料庫.品名,物料資料庫.廠牌, 物料資料庫.最低庫存量,物料資料庫.成本,
                            物料資料庫.單位,物料資料庫.倉庫, 供應商資料表.公司名  AS 廠商, 物料資料庫.狀態 ,
                            物料資料庫.停用,物料資料庫.是否有圖 AS 圖片, 物料資料庫.供應商編號 AS 供應商 ,物料資料庫.是否有圖 AS 刪除
                FROM              物料資料庫 INNER JOIN
                            供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.供應商編碼 
                " & 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 = "UPDATE 物料資料庫 SET  圖片 = @binary_file , 是否有圖 = N'1' WHERE (料號 = N'" & PA & "')"
        CmdSet_For_dr_pic()
    End Sub
    Friend Sub SQL_物料檔案_圖片修改()
        ConnOpen()
        SQL1 = "UPDATE 物料資料庫 SET 是否有圖 = N'1', 圖片 = BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP物理位置 & AA(1) & "\" & 物料資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE 
                WHERE (料號 LIKE N'" & 物料資料庫.料號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_物料圖庫_圖片下載()
        ConnOpen() : SQL1 = "SELECT 圖片 FROM 物料資料庫 WHERE 料號 LIKE N'" & 物料資料庫.料號_tb.Text & "'" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_物料檔案_料號_最後一筆資料()
        ConnOpen() : SQL1 = "SELECT TOP (1) 料號 FROM 物料資料庫 WHERE (料號 LIKE N'" & 物料資料庫.供應商編碼_cb.Text & "%') ORDER BY 料號 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_物料檔案_新增()
        ConnOpen()
        SQL1 = "INSERT INTO 物料資料庫 (料號, 供應商編號, 成本, 品名, 停用, 是否有圖, 最低庫存量,供應商類別) 
                VALUES (N'" & 物料資料庫.料號_tb.Text & "', N'" & 物料資料庫.供應商編碼_cb.Text & "', N'0', N'', N'0', N'0', N'0',N'" & 物料資料庫.地區_cb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_物料檔案_修改()
        ConnOpen() : SQL1 = "UPDATE 物料資料庫 SET 成本 = N'" & NU1 & "', 品名 = N'" & PA1 & "', 停用 = N'" & BL1 & "', 最低庫存量 = N'" & NU2 & "' ,
                              車種年份 = N'" & 物料資料庫.車種年份_tb.Text & "', 廠牌 = N'" & 物料資料庫.廠牌_tb.Text & "', 單位 = N'" & 物料資料庫.單位_cb.Text & "' ,
                              倉庫 = N'" & 物料資料庫.倉庫_tb.Text & "', 狀態 = N'" & 物料資料庫.狀態_cb.Text & "'
                              WHERE (料號 = N'" & PA2 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_物料檔案_刪除()
        ConnOpen() : SQL1 = "DELETE 物料資料庫 WHERE (料號 = N'" & PA20 & "')" : CmdSet_For_dr()
    End Sub

    Friend Sub SQL_物料資料庫單位_下拉清單()
        ConnOpen() : SQL1 = "SELECT 單位 FROM 物料資料庫 GROUP BY 單位 ORDER BY 單位 " : CmdSet_For_dr()
    End Sub

    Friend Sub SQL_物料入庫系統_物料清單()
        'If 系統語言 = "中文" Then : 系統語言 = "繁體中文" : End If
        ConnOpen()
        If PA56 = "" Then
            SQL1 = "SELECT 料號,車種年份,品名,廠牌,成本,單位 FROM 物料資料庫 
                    INNER JOIN 供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.供應商編碼
                    WHERE 供應商資料表.公司名 LIKE N'%" & 物料入庫系統.選擇供應商_cb.Text & "%' ORDER BY 物料資料庫.料號"
        Else
            SQL1 = "SELECT 料號,車種年份,品名,廠牌,成本,單位 FROM 物料資料庫 
                    INNER JOIN 供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.供應商編碼
                    WHERE 供應商資料表.公司名 LIKE N'%" & 物料入庫系統.選擇供應商_cb.Text & "%'
                    AND (物料資料庫.品名 LIKE N'%" & PA56 & "%' OR 物料資料庫.車種年份 LIKE N'%" & PA56 & "%' OR 物料資料庫.廠牌
                    LIKE N'%" & PA56 & "%') ORDER BY 物料資料庫.料號 "
        End If

        CmdSet_For_DGV()
    End Sub

    Friend Sub SQL_物料入庫系統_查詢入庫明細流水號()
        ConnOpen()
        SQL1 = "SELECT 流水號 FROM 倉儲明細表 WHERE (流水號 ='" & PA19 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_物料入庫系統_新增明細表()
        ConnOpen()
        SQL1 = "INSERT INTO 倉儲明細表 (流水號, 申請人, 申請日期, 料號, 入庫數量,單價,備註,出庫數量,狀態) " &
                   "VALUES (N'" & PA19 & "', N'" & gUserName & "', N'" & 物料入庫系統.選擇日期_dtp.Text & "', N'" & 物料入庫系統.料號_tb.Text & "', N'0', N'0', N'', N'0',N'銷貨入庫')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_物料入庫系統_新增明細表1()
        ConnOpen()
        SQL1 = "INSERT INTO 倉儲明細表 (流水號, 申請人, 申請日期, 料號, 入庫數量,單價,備註,出庫數量,狀態) " &
                   "VALUES (N'" & PA19 & "', N'" & gUserName & "', N'" & 物料入庫系統.選擇日期_dtp.Text & "', N'" & PA5 & "', N'0', '" & PA3 & "', N'" & PA4 & "', N'" & PA2 & "',N'沖抵項')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_物料入庫系統_明細表清單()
        ConnOpen()
        SQL1 = "SELECT 倉儲明細表.流水號  , 倉儲明細表.料號 ,物料資料庫.成本 ,物料資料庫.廠牌 ,物料資料庫.車種年份 ,物料資料庫.品名 ,
	            倉儲明細表.入庫數量,倉儲明細表.單價,倉儲明細表.單價 AS 總額,倉儲明細表.備註 ,倉儲明細表.申請人,倉儲明細表.申請日期 ,物料資料庫.停用 AS 是否儲存 FROM 倉儲明細表
                INNER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號 
                INNER JOIN 供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.供應商編碼 
	            WHERE 倉儲明細表.申請日期 LIKE N'" & 物料入庫系統.選擇日期_dtp.Text & "' AND 倉儲明細表.狀態 = N'銷貨入庫' 
                AND  供應商資料表.公司名 LIKE N'%" & 物料入庫系統.選擇供應商1_cb.Text & "%'"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_物料入庫系統_刪除明細表()
        ConnOpen()
        SQL1 = "DELETE FROM 倉儲明細表 WHERE ( 流水號 LIKE N'" & 物料入庫系統.流水號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_物料入庫系統_刪除明細表1()
        ConnOpen()
        SQL1 = "DELETE FROM 倉儲明細表 WHERE 申請人 LIKE N'" & PA8 & "' AND 申請日期 LIKE N'" & PA9 & "' AND
                料號 LIKE N'" & PA5 & "' AND 入庫數量 LIKE N'0' AND 單價 LIKE N'" & PA11 & "' AND 出庫數量 LIKE N'" & PA10 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_物料入庫系統_修改明細表()
        ConnOpen()
        SQL1 = "UPDATE 倉儲明細表 SET 入庫數量 = N'" & PA2 & "', 單價 = N'" & PA3 & "', 
                       備註 = N'" & PA4 & "' WHERE  (流水號 LIKE N'" & PA1 & "')"
        CmdSet_For_dr()
    End Sub



    Friend Sub SQL_倉儲對帳表_明細表清單()
        ConnOpen()
        SQL1 = "SELECT 倉儲明細表.流水號  , 倉儲明細表.料號 ,物料資料庫.成本 ,物料資料庫.車種年份 ,物料資料庫.品名 ,物料資料庫.廠牌 ,
	            倉儲明細表.入庫數量 AS 數量,倉儲明細表.單價,倉儲明細表.單價 AS 總額,倉儲明細表.備註 ,倉儲明細表.申請人,倉儲明細表.申請日期  FROM 倉儲明細表
                INNER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號 
                INNER JOIN 供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.供應商編碼 
	            WHERE 倉儲明細表.狀態 = N'銷貨入庫' AND (倉儲明細表.申請日期 BETWEEN '" & Strings.Format(倉儲對帳表.開始日期_dtp.Value, "yyyy/MM/dd") & "' 
                AND '" & Strings.Format(倉儲對帳表.結束日期_dtp.Value, "yyyy/MM/dd") & "') 
                AND  供應商資料表.公司名 LIKE N'%" & 倉儲對帳表.選擇供應商_cb.Text & "%'
				ORDER BY 流水號"
        CmdSet_For_DGV()
    End Sub

    Friend Sub SQL_倉儲對帳表_供應商資料()
        ConnOpen()
        SQL1 = "SELECT 供應商編碼 AS 編號,公司名 AS 名稱,公司地址 AS 地址,公司電話1 AS 電話,公司傳真1 AS 傳真 
                FROM 供應商資料表 WHERE 公司名=N'" & 倉儲對帳表.選擇供應商_cb.Text & "'"
        CmdSet_For_dr()
    End Sub

    Friend Sub SQL_倉儲管理系統_倉儲明細表(ByVal 符號 As String)
        ConnOpen()
        SQL1 = "SELECT
    		物料資料庫.料號,
    		物料資料庫.品名,
    		物料資料庫.廠牌,
    		物料資料庫.車種年份,
    		SUM(CAST(倉儲明細表.入庫數量 AS float) - CAST(倉儲明細表.出庫數量 AS float)) AS 庫存量
		FROM
    		物料資料庫
		INNER JOIN 供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.供應商編碼
		LEFT JOIN 倉儲明細表 ON 物料資料庫.料號 = 倉儲明細表.料號
		WHERE
    		物料資料庫.狀態 LIKE N'物料'
    		AND 物料資料庫.品名 NOT LIKE N'稅金'
    		
		GROUP BY
    		物料資料庫.料號,
    		物料資料庫.品名,
    		物料資料庫.廠牌,
    		物料資料庫.車種年份
		HAVING
    		SUM(CAST(倉儲明細表.入庫數量 AS float) - CAST(倉儲明細表.出庫數量 AS float)) " & 符號 & "0 AND SUM(CAST(倉儲明細表.入庫數量 AS float) - CAST(倉儲明細表.出庫數量 AS float)) IS NOT NULL
		ORDER BY
    		庫存量 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_倉儲管理系統_倉儲明細表明細(ByVal 料號 As String)
        ConnOpen()
        SQL1 = "SELECT 申請日期 ,入庫數量,出庫數量 ,狀態 FROM 倉儲明細表 WHERE 料號 LIKE N'" & 料號 & "'  ORDER BY 流水號 DESC"
        CmdSet_For_DGV()
    End Sub
End Module