HF-MIS-SYS--LEEHSIEHJUI/WindowsApp1/00、MyModule/SQL皮料管理.vb

Module SQL皮料管理
    Friend Sub SQL_在製品_主表(條件 As String)
        ConnOpen()
        SQL1 = "SELECT    material_category_name,  CAST(SUM(qty) AS numeric(10, 1)) AS 数量
                FROM      hf_00_k3_realtime_stock
                WHERE   ((stockid_name LIKE N'%前段%' OR stockid_name LIKE N'%后段%' OR stockid_name LIKE N'%产成品%' OR stockid_name LIKE N'%皮胚%')) " & 條件 & " 
                GROUP BY  material_category_name
                ORDER BY  sum(qty) DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_在製品_明細1(條件 As String)
        ConnOpen()
        SQL1 = "SELECT    stockid_name, material_number, CAST(SUM(qty) AS numeric(10, 1)) AS 数量, stock_number
                FROM      hf_00_k3_realtime_stock
                WHERE    (stockid_name LIKE N'%前段%' OR stockid_name LIKE N'%后段%' OR stockid_name LIKE N'%皮胚%' or stockid_name LIKE N'%成品%') " & 條件 & " 
                GROUP BY material_category_name, stockid_name, material_number, stock_number
                ORDER BY  material_number"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_在製品_明細2(material_number As String)
        ConnOpen()
        SQL1 = "SELECT    bill_date, bill_no,comment, stockName, batch_no, qty, aux_qty,  trim(bill_type_name)
                FROM      hf_00_k3_product_in_detail
                WHERE    (materialNumber = '" & material_number & "')
                ORDER BY  bill_date DESC"
        CmdSet_For_DGV()
    End Sub
End Module