HF-MIS-SYS--LEEHSIEHJUI/WindowsApp1/03、化料管理/Frm_Chem_month.vb

Imports System.Data.SqlClient
Imports System.Reflection

Public Class Frm_Chem_month
    Dim cmd As New SqlCommand
    Dim da As New SqlDataAdapter
    Dim dt As New DataTable
    Dim sql As String
    Dim conn As New SqlConnection
    Dim g_period As Date
    Dim g_accounted As Boolean
    Dim period As Integer


    Private Sub FrmChem_month_Load(sender As Object, e As EventArgs) Handles MyBase.Load


        DGV1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText



        Dim type As Type = DGV1.GetType()
        Dim pi As PropertyInfo = type.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
        pi.SetValue(DGV1, True, Nothing)


        dtp1.Format = System.Windows.Forms.DateTimePickerFormat.Custom

        dtp2.Format = System.Windows.Forms.DateTimePickerFormat.Custom

        dtp1.CustomFormat = "yyyy/MM"
        dtp2.CustomFormat = "yyyy/MM"


        Dim DT1 As New DataTable
        Dim DT2 As New DataTable
        Dim DT3 As New DataTable
        ' connstring = "Data Source=127.0.0.1;Persist Security Info=True;User ID=sa;Password=Lafayette11;Initial Catalog=maindb_hy2014"
        conn.ConnectionString = connstring
        conn.Open()

        cmd.Connection = conn



        sql = "select period from rt_chem_accounting where accounted=1 order by date desc"
        cmd.CommandText = sql
        g_period = cmd.ExecuteScalar


        sql = "select accounted from rt_chem_accounting  order by date desc"
        cmd.CommandText = sql
        g_accounted = cmd.ExecuteScalar



        If Month(Now) - Month(g_period) = 1 And g_accounted = False Then

            period = 1  '----跨月未结

        ElseIf Month(Now) - Month(g_period) = 1 And g_accounted = True Then

            period = 2   '----跨月已结


        End If





        DGV1.RowsDefaultCellStyle.BackColor = Color.Ivory
        DGV1.AlternatingRowsDefaultCellStyle.BackColor = Color.Azure




        sql = "SELECT date as 日期, name as 品名, stock1 as 仓库1, stock2 as 仓库2, stock3 as 仓库3, stock1+stock2+stock3 as 合计 from rt_chem_stock_month1"
        sql = "select date as 日期,name as 品名,price as 单价, stock1 as 仓库1, stock2 as 仓库2, stock3 as 仓库3, stock1+stock2+stock3 as 合计 from rt_sys_chem_main "



        sql = "SELECT  NAME as 化料名称, CLASS1 as 分类,class2 as 海关, supplier as 供应商,origin as 产地,price as 单价,price_usd as 美金, stock1 as 库存1, stock2 as 库存2, stock3 as 库存3, 合计, 预估用量, [5] AS [5月], [6] AS [6月], [7] AS [7月]  FROM (SELECT          MONTH(RT_SYS_CHEM_OUT.DATE) AS 月份, RT_SYS_CHEM_OUT.NAME, CAST(SUM(RT_SYS_CHEM_OUT.WEIGHT) AS numeric(10, 0)) AS 本月领料, RT_SYS_CHEM_MAIN.CLASS1,RT_SYS_CHEM_MAIN.class2, CASE WHEN new_price Is NULL THEN CAST(RT_SYS_CHEM_MAIN.price AS numeric(10, 2)) ELSE CAST(new_price AS numeric(10, 2)) END AS price,price_usd,  rt_chem_stock_month1.stock1, rt_chem_stock_month1.stock2, rt_chem_stock_month1.stock3,          rt_chem_stock_month1.stock1 + rt_chem_stock_month1.stock2 + rt_chem_stock_month1.stock3 AS 合计, CASE WHEN RT_RETAN_RCP_EVA.QTY Is NULL THEN 0 ELSE RT_RETAN_RCP_EVA.QTY END AS 预估用量,  RT_SYS_CHEM_MAIN.supplier, RT_SYS_CHEM_MAIN.origin FROM  RT_SYS_CHEM_OUT LEFT OUTER JOIN    RT_RETAN_RCP_EVA ON RT_SYS_CHEM_OUT.NAME = RT_RETAN_RCP_EVA.NAME LEFT OUTER JOIN   rt_chem_stock_month1 ON RT_SYS_CHEM_OUT.NAME = rt_chem_stock_month1.name LEFT OUTER JOIN   RT_SYS_CHEM_MAIN ON RT_SYS_CHEM_OUT.NAME = RT_SYS_CHEM_MAIN.name WHERE          (MONTH(RT_SYS_CHEM_OUT.DATE) = 6) Or   (MONTH(RT_SYS_CHEM_OUT.DATE) = 7) Or   (MONTH(RT_SYS_CHEM_OUT.DATE) = 5)       GROUP BY   RT_SYS_CHEM_OUT.NAME, RT_SYS_CHEM_MAIN.CLASS1,class2,price_usd, RT_SYS_CHEM_MAIN.price, RT_SYS_CHEM_MAIN.new_price, rt_chem_stock_month1.stock1, rt_chem_stock_month1.stock2,  rt_chem_stock_month1.stock3, RT_RETAN_RCP_EVA.QTY, MONTH(RT_SYS_CHEM_OUT.DATE),  RT_SYS_CHEM_MAIN.supplier, RT_SYS_CHEM_MAIN.origin) 
AS p   PIVOT ( sum(本月领料) FOR 月份 IN ([5],[6], [7])) AS q "



        sql = "SELECT  NAME as 化料名称, CLASS1 as 分类,class2 as 海关, supplier as 供应商,origin as 产地,price as 单价,price_usd as 美金, stock1 as 库存1, stock2 as 库存2, stock3 as 库存3, 合计  FROM     
(SELECT          MONTH(RT_SYS_CHEM_OUT.DATE) AS 月份, RT_SYS_CHEM_OUT.NAME, CAST(SUM(RT_SYS_CHEM_OUT.WEIGHT) AS numeric(10, 0)) AS 本月领料, RT_SYS_CHEM_MAIN.CLASS1,RT_SYS_CHEM_MAIN.class2, CASE WHEN new_price Is NULL THEN CAST(RT_SYS_CHEM_MAIN.price AS numeric(10, 2)) ELSE CAST(new_price AS numeric(10, 2)) END AS price,price_usd,  rt_chem_stock_month1.stock1, rt_chem_stock_month1.stock2, rt_chem_stock_month1.stock3,          rt_chem_stock_month1.stock1 + rt_chem_stock_month1.stock2 + rt_chem_stock_month1.stock3 AS 合计, CASE WHEN RT_RETAN_RCP_EVA.QTY Is NULL THEN 0 ELSE RT_RETAN_RCP_EVA.QTY END AS 预估用量,  RT_SYS_CHEM_MAIN.supplier, RT_SYS_CHEM_MAIN.origin FROM  RT_SYS_CHEM_OUT 
LEFT OUTER JOIN    RT_RETAN_RCP_EVA ON RT_SYS_CHEM_OUT.NAME = RT_RETAN_RCP_EVA.NAME LEFT OUTER JOIN   rt_chem_stock_month1 ON RT_SYS_CHEM_OUT.NAME = rt_chem_stock_month1.name LEFT OUTER JOIN   RT_SYS_CHEM_MAIN ON RT_SYS_CHEM_OUT.NAME = RT_SYS_CHEM_MAIN.name WHERE          (MONTH(RT_SYS_CHEM_OUT.DATE) = 6) Or   (MONTH(RT_SYS_CHEM_OUT.DATE) = 7) Or   (MONTH(RT_SYS_CHEM_OUT.DATE) = 5)       GROUP BY   RT_SYS_CHEM_OUT.NAME, RT_SYS_CHEM_MAIN.CLASS1,class2,price_usd, RT_SYS_CHEM_MAIN.price, RT_SYS_CHEM_MAIN.new_price, rt_chem_stock_month1.stock1, rt_chem_stock_month1.stock2,  rt_chem_stock_month1.stock3, RT_RETAN_RCP_EVA.QTY, MONTH(RT_SYS_CHEM_OUT.DATE),  RT_SYS_CHEM_MAIN.supplier, RT_SYS_CHEM_MAIN.origin) "



        sql = "SELECT          NAME AS 化料名称, CLASS1 AS 分类, CLASS2 AS 海关, supplier AS 供应商, origin AS 产地, price AS 单价,                      " &
"                             price_usd AS 美金, stock1 AS 库存1, stock2 AS 库存2, stock3 AS 库存3, 合计, 本月领料                                       " &
" FROM              (SELECT          MONTH(RT_SYS_CHEM_OUT.DATE) AS 月份, RT_SYS_CHEM_OUT.NAME,                                                       " &
"                                                         CAST(SUM(RT_SYS_CHEM_OUT.WEIGHT) AS numeric(10, 0)) AS 本月领料,                             " &
"                                                         RT_SYS_CHEM_MAIN.CLASS1, RT_SYS_CHEM_MAIN.CLASS2, CASE WHEN new_price IS NULL               " &
"                                                         THEN CAST(RT_SYS_CHEM_MAIN.price AS numeric(10, 2)) ELSE CAST(new_price AS numeric(10, 2))  " &
"                                                         END AS price, RT_SYS_CHEM_MAIN.price_usd,  RT_CHEM_STOCK_MONTH1.stock1,                      " &
"                                                          RT_CHEM_STOCK_MONTH1.stock2,  RT_CHEM_STOCK_MONTH1.stock3,                                   " &
"                                                          RT_CHEM_STOCK_MONTH1.stock1 +  RT_CHEM_STOCK_MONTH1.stock2 +  RT_CHEM_STOCK_MONTH1.stock3     " &
"                                                          AS 合计, CASE WHEN RT_RETAN_RCP_EVA.QTY IS NULL                                            " &
"                                                         THEN 0 ELSE RT_RETAN_RCP_EVA.QTY END AS 预估用量, RT_SYS_CHEM_MAIN.supplier,                 " &
"                                                         RT_SYS_CHEM_MAIN.origin                                                                     " &
"                             FROM               RT_SYS_CHEM_OUT LEFT OUTER JOIN                                                                      " &
"                                                         RT_RETAN_RCP_EVA ON RT_SYS_CHEM_OUT.NAME = RT_RETAN_RCP_EVA.NAME LEFT OUTER JOIN            " &
"                                                         RT_CHEM_STOCK_MONTH1 ON                                                                     " &
"                                                         RT_SYS_CHEM_OUT.NAME = RT_CHEM_STOCK_MONTH1.name LEFT OUTER JOIN                            " &
"                                                         RT_SYS_CHEM_MAIN ON RT_SYS_CHEM_OUT.NAME = RT_SYS_CHEM_MAIN.name                            " &
"                             WHERE           (year(RT_SYS_CHEM_OUT.DATE) = 2020 and MONTH(RT_SYS_CHEM_OUT.DATE) = 2)   GROUP BY    RT_SYS_CHEM_OUT.NAME, RT_SYS_CHEM_MAIN.CLASS1, RT_SYS_CHEM_MAIN.CLASS2,    " &
"                                                         RT_SYS_CHEM_MAIN.price_usd, RT_SYS_CHEM_MAIN.price, RT_SYS_CHEM_MAIN.new_price,             " &
"                                                          RT_CHEM_STOCK_MONTH1.stock1,  RT_CHEM_STOCK_MONTH1.stock2,                                   " &
"                                                          RT_CHEM_STOCK_MONTH1.stock3, RT_RETAN_RCP_EVA.QTY, MONTH(RT_SYS_CHEM_OUT.DATE),             " &
"                                                         RT_SYS_CHEM_MAIN.supplier, RT_SYS_CHEM_MAIN.origin) AS derivedtbl_1                         "





    End Sub


    Private Sub dgv_doublebuffer()



        '        Dim dgvType As Type
        '        Dim ppInfo As PropertyInfo
        '        Dim b As Boolean

        '        dgvType = DGV1.GetType()
        '        ppInfo = dgvType.GetProperty("DoubleBuffered", BindingFlags.Instance Or BindingFlags.NonPublic)
        '        b = True
        '        ppInfo.SetValue(dgvAnalog, b, Nothing)
        '--------------------- 
        '作者：     dellric
        '来源：     CSDN
        '原文：     https : //blog.csdn.net/dellric/article/details/83272529 
        '版权声明：   本文为博主原创文章， 转载请附上博文链接！

    End Sub

    Private Sub DGV1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGV1.CellContentClick

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click



        Dim xlApp As Microsoft.Office.Interop.Excel.Application
        Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim xlrange As Microsoft.Office.Interop.Excel.Range

        xlApp = CreateObject("Excel.Application")

        xlBook = xlApp.Workbooks.Add

        'xlApp.DisplayAlerts = False
        xlApp.Visible = True
        xlBook.Activate()
        xlBook.Parent.Windows(1).Visible = True
        xlSheet = xlBook.Worksheets(1)
        xlSheet.Activate()

        'xlrange = "b2:b2"

        xlSheet.Cells(3, 3).Select()

        DGV1.SelectAll()


        DGV1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        DGV1.RowHeadersVisible = False

        Clipboard.SetDataObject(DGV1.GetClipboardContent())

        ' xlSheet.PasteSpecial(Format:="文本", Link:=False, DisplayAsIcon:=False)

        ' xlSheet.PasteSpecial(Format:="unicode 文字", Link:=False, DisplayAsIcon:=False)

        xlSheet.Paste()

        'xlSheet.PasteSpecial(Paste:=Microsoft.Office.Interop.Excel.XlPasteType.xlPasteValues, SkipBlanks:=False, Transpose:=False)




        xlSheet = Nothing
        xlBook = Nothing
        xlApp = Nothing















        'sql = "delete from rt_chem_stock_month2 where date='2020/2/29'"
        'cmd.CommandText = sql
        'cmd.ExecuteNonQuery()




        'For x As Integer = 0 To DGV1.Rows.Count - 1

        '    sql = "insert into rt_chem_stock_month2 (date,stock1,name,stock2,stock3) values ('2020/2/29','" & DGV1.Rows(x).Cells("应存").Value & "',N'" & DGV1.Rows(x).Cells("化料名称").Value & "','0','0')"
        '    cmd.CommandText = sql
        '    cmd.ExecuteNonQuery()



        'Next

        'MsgBox("")

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        For x As Integer = 0 To dt.Rows.Count - 1

            If dt.Rows(x).Item("应存") <> 0 Then

                sql = "insert into rt_chem_stock_month2 (date,name,stock1,stock2,stock3) values('2022/2/28',N'" & dt.Rows(x).Item("化料名称") & "','" & dt.Rows(x).Item("应存") & "','0','0')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()


            End If





        Next
        MsgBox("")


    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click   '-------核算



        dt = New DataTable


        sql = "SELECT 供应商, 化料名称, 化工分类, 部门, SUM(期初合计) AS 期初合计 from (SELECT   RT_SYS_CHEM_MAIN.supplier AS 供应商, RT_SYS_CHEM_MAIN.name AS 化料名称,  RT_SYS_CHEM_MAIN.CLASS1 AS 化工分类, CASE WHEN dep IS NULL THEN N'水场' ELSE dep END AS 部门, CAST(RT_CHEM_STOCK_MONTH2.stock1 + RT_CHEM_STOCK_MONTH2.stock2 + RT_CHEM_STOCK_MONTH2.stock3 AS NUMERIC(10, 0))  AS 期初合计 FROM RT_SYS_CHEM_MAIN INNER JOIN RT_CHEM_STOCK_MONTH2 ON RT_SYS_CHEM_MAIN.name = RT_CHEM_STOCK_MONTH2.name WHERE   (YEAR(RT_CHEM_STOCK_MONTH2.date) = '" & Year(dtp1.Value) & "') AND (MONTH(RT_CHEM_STOCK_MONTH2.date) = '" & Month(dtp1.Value) & "'))  AS p GROUP BY   供应商, 化料名称, 化工分类, 部门 order by 化料名称"



        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(dt)

        'dt.Columns.Add("合计")1
        dt.Columns.Add("批次号")
        dt.Columns.Add("本月领料")
        dt.Columns.Add("外购入库")
        dt.Columns.Add("保税入库")

        'dt.Columns.Add("调拨入库")
        'dt.Columns.Add("可慕调拨")
        'dt.Columns.Add("调拨出库")
        dt.Columns.Add("期末盘点")
        dt.Columns.Add("应存")
        dt.Columns.Add("损盈亏")


        dt.Columns.Add("MSDS")
        dt.Columns.Add("成份及CAS")


        dt.Columns.Add("有毒物质")
        dt.Columns.Add("注意危险")
        dt.Columns.Add("腐蚀性物质")
        dt.Columns.Add("爆炸物")
        dt.Columns.Add("健康危害")
        dt.Columns.Add("水生生物毒性")
        dt.Columns.Add("压力气体")
        dt.Columns.Add("氧化性物质")
        dt.Columns.Add("易燃物")




        Dim dr As SqlDataReader



        For x As Integer = 0 To dt.Rows.Count - 1



            'sql = "select DEP from RT_CERT_CHEM where SYS_name=N'" & dt.Rows(x).Item("化料名称") & "' "
            'cmd.CommandText = sql

            'If cmd.ExecuteScalar Is Nothing Then
            '    dt.Rows(x).Item("使用部门") = ""
            'Else
            '    dt.Rows(x).Item("使用部门") = cmd.ExecuteScalar
            'End If


            'sql = "select CLASS from RT_CERT_CHEM where SYS_name=N'" & dt.Rows(x).Item("化料名称") & "' "
            'cmd.CommandText = sql

            'If cmd.ExecuteScalar Is Nothing Then
            '    dt.Rows(x).Item("分类") = ""
            'Else
            '    dt.Rows(x).Item("分类") = cmd.ExecuteScalar
            'End If






            sql = "select MSDS from RT_CERT_CHEM where SYS_name=N'" & dt.Rows(x).Item("化料名称") & "' "
            cmd.CommandText = sql

            If cmd.ExecuteScalar Is Nothing Then
                dt.Rows(x).Item("MSDS") = ""
            Else
                dt.Rows(x).Item("MSDS") = cmd.ExecuteScalar
            End If


            sql = "select contents from RT_CERT_CHEM where SYS_name=N'" & dt.Rows(x).Item("化料名称") & "' "
            cmd.CommandText = sql

            If cmd.ExecuteScalar Is Nothing Then
                dt.Rows(x).Item("成份及CAS") = ""
            Else
                dt.Rows(x).Item("成份及CAS") = cmd.ExecuteScalar
            End If



            sql = "select D1 from RT_CERT_CHEM where SYS_name=N'" & dt.Rows(x).Item("化料名称") & "' "
            cmd.CommandText = sql

            If cmd.ExecuteScalar Is Nothing Then
                dt.Rows(x).Item("有毒物质") = ""
            Else
                dt.Rows(x).Item("有毒物质") = cmd.ExecuteScalar
            End If

            sql = "select D2 from RT_CERT_CHEM where SYS_name=N'" & dt.Rows(x).Item("化料名称") & "' "
            cmd.CommandText = sql

            If cmd.ExecuteScalar Is Nothing Then
                dt.Rows(x).Item("注意危险") = ""
            Else
                dt.Rows(x).Item("注意危险") = cmd.ExecuteScalar
            End If

            sql = "select D3 from RT_CERT_CHEM where SYS_name=N'" & dt.Rows(x).Item("化料名称") & "' "
            cmd.CommandText = sql

            If cmd.ExecuteScalar Is Nothing Then
                dt.Rows(x).Item("腐蚀性物质") = ""
            Else
                dt.Rows(x).Item("腐蚀性物质") = cmd.ExecuteScalar
            End If

            sql = "select D4 from RT_CERT_CHEM where SYS_name=N'" & dt.Rows(x).Item("化料名称") & "' "
            cmd.CommandText = sql

            If cmd.ExecuteScalar Is Nothing Then
                dt.Rows(x).Item("爆炸物") = ""
            Else
                dt.Rows(x).Item("爆炸物") = cmd.ExecuteScalar
            End If

            sql = "select D5 from RT_CERT_CHEM where SYS_name=N'" & dt.Rows(x).Item("化料名称") & "' "
            cmd.CommandText = sql

            If cmd.ExecuteScalar Is Nothing Then
                dt.Rows(x).Item("健康危害") = ""
            Else
                dt.Rows(x).Item("健康危害") = cmd.ExecuteScalar
            End If

            sql = "select D6 from RT_CERT_CHEM where SYS_name=N'" & dt.Rows(x).Item("化料名称") & "' "
            cmd.CommandText = sql

            If cmd.ExecuteScalar Is Nothing Then
                dt.Rows(x).Item("水生生物毒性") = ""
            Else
                dt.Rows(x).Item("水生生物毒性") = cmd.ExecuteScalar
            End If

            sql = "select D7 from RT_CERT_CHEM where SYS_name=N'" & dt.Rows(x).Item("化料名称") & "' "
            cmd.CommandText = sql

            If cmd.ExecuteScalar Is Nothing Then
                dt.Rows(x).Item("压力气体") = ""
            Else
                dt.Rows(x).Item("压力气体") = cmd.ExecuteScalar
            End If

            sql = "select D8 from RT_CERT_CHEM where SYS_name=N'" & dt.Rows(x).Item("化料名称") & "' "
            cmd.CommandText = sql

            If cmd.ExecuteScalar Is Nothing Then
                dt.Rows(x).Item("氧化性物质") = ""
            Else
                dt.Rows(x).Item("氧化性物质") = cmd.ExecuteScalar
            End If

            sql = "select D9 from RT_CERT_CHEM where SYS_name=N'" & dt.Rows(x).Item("化料名称") & "' "
            cmd.CommandText = sql

            If cmd.ExecuteScalar Is Nothing Then
                dt.Rows(x).Item("易燃物") = ""
            Else
                dt.Rows(x).Item("易燃物") = cmd.ExecuteScalar
            End If






            ' sql = "SELECT date as 日期, name as 品名, stock1 as 仓库1, stock2 as 仓库2, stock3 as 仓库3, stock1+stock2+stock3 as 合计 from rt_chem_stock_month2 where MONTH(DATE)=7 AND name=N'" & dt.Rows(x).Item("化料名称") & "'"
            'sql = "SELECT CAST(SUM(Stock1+stock2+stock3) AS NUMERIC(10,0)) as 合计 from rt_chem_stock_month2 where year(date)='" & Year(dtp1.Value) & "' and MONTH(DATE)='" & Month(dtp1.Value) & "' AND name =N'" & dt.Rows(x).Item("化料名称") & "' GROUP BY NAME"



            'cmd.CommandText = sql
            'If cmd.ExecuteScalar Is Nothing Then

            '    dt.Rows(x).Item("合计") = 0
            'Else
            '    dt.Rows(x).Item("合计") = cmd.ExecuteScalar
            'End If
            Dim my_lot As String = ""
            Dim my_lot1 As String = ""

            sql = "select top(1) CONVERT(varchar(100), date, 12) from RT_CHEM_S_IN_PRICE where matl_name=N'" & dt.Rows(x).Item("化料名称") & "' and DATE<'" & String.Format("{0:yyyy/MM/dd}", dtp2.Value) & "' order by date desc"
            cmd.CommandText = sql
            my_lot = cmd.ExecuteScalar


            sql = "select top(1) CONVERT(varchar(100), date, 12) from RT_CHEM_IN_PRICE where name=N'" & dt.Rows(x).Item("化料名称") & "' and DATE<'" & String.Format("{0:yyyy/MM/dd}", dtp2.Value) & "' order by date desc"
            cmd.CommandText = sql
            my_lot1 = cmd.ExecuteScalar




            If my_lot = "" Then

                If my_lot1 = "" Then


                Else

                    dt.Rows(x).Item("批次号") = "RT" & my_lot1

                End If



            Else
                dt.Rows(x).Item("批次号") = "RT" & my_lot
            End If


            sql = "SELECT CAST(SUM(Stock1+stock2+stock3) AS NUMERIC(10,0)) as 合计 from rt_chem_stock_month2 where year(date)='" & Year(dtp2.Value) & "' and MONTH(DATE)='" & Month(dtp2.Value) & "' AND name = N'" & RTrim(LTrim(dt.Rows(x).Item("化料名称"))) & "' GROUP BY NAME"

            cmd.CommandText = sql
            If cmd.ExecuteScalar Is Nothing Then
                dt.Rows(x).Item("期末盘点") = 0
            Else
                dt.Rows(x).Item("期末盘点") = cmd.ExecuteScalar
            End If


            sql = "select cast(sum(weight) as numeric(10,0)) as 本月领料 from rt_sys_chem_out where year(date)='" & Year(dtp2.Value) & "' and MONTH(DATE)='" & Month(dtp2.Value) & "' and name=N'" & dt.Rows(x).Item("化料名称") & "'"
            '-----本月领料

            cmd.CommandText = sql
            dr = cmd.ExecuteReader
            If dr.Read Then
                dt.Rows(x).Item("本月领料") = dr("本月领料").ToString
            Else
                dt.Rows(x).Item("本月领料") = 0
            End If
            dr.Close()


            sql = "select cast(sum(qty) as numeric(10,0)) as 入库数量 from rt_chem_in_price where year(date)='" & Year(dtp2.Value) & "' and MONTH(DATE)='" & Month(dtp2.Value) & "' and name=N'" & dt.Rows(x).Item("化料名称") & "' and (dep is null or dep<>N'保税仓-R')" '-----外购入库

            cmd.CommandText = sql
            dr = cmd.ExecuteReader
            If dr.Read Then
                dt.Rows(x).Item("外购入库") = dr("入库数量").ToString
            Else
                dt.Rows(x).Item("外购入库") = 0
            End If
            dr.Close()







            sql = "select cast(sum(qty) as numeric(10,0)) as 入库数量 from RT_CHEM_s_IN_PRICE where year(date)='" & Year(dtp2.Value) & "' and MONTH(DATE)='" & Month(dtp2.Value) & "' and matl_NAME=N'" & dt.Rows(x).Item("化料名称") & "' and dep=N'保税仓-R'" '-----保税入库

            cmd.CommandText = sql
            dr = cmd.ExecuteReader
            If dr.Read Then
                dt.Rows(x).Item("保税入库") = dr("入库数量").ToString
            Else
                dt.Rows(x).Item("保税入库") = 0
            End If
            dr.Close()


            'sql = "select cast(sum(weight) as numeric(10,0)) as 调拨数量 from rt_sys_chem_IN_L where  WH_OUT=N'保税仓/赤湖' AND year(date)='" & Year(dtp2.Value) & "' and MONTH(DATE)='" & Month(dtp2.Value) & "' and name=N'" & dt.Rows(x).Item("化料名称") & "'" '-----保税调拨

            'cmd.CommandText = sql
            'dr = cmd.ExecuteReader
            'If dr.Read Then
            '    dt.Rows(x).Item("调拨入库") = dr("调拨数量").ToString
            'Else
            '    dt.Rows(x).Item("调拨入库") = 0
            'End If
            'dr.Close()


            'sql = "select cast(sum(weight) as numeric(10,0)) as 调拨数量 from rt_sys_chem_IN_L where WH_OUT=N'外购化料仓/可慕' AND year(date)='" & Year(dtp2.Value) & "' and MONTH(DATE)='" & Month(dtp2.Value) & "' and name=N'" & dt.Rows(x).Item("化料名称") & "'"  '-----可慕调拨

            'cmd.CommandText = sql
            'dr = cmd.ExecuteReader
            'If dr.Read Then
            '    dt.Rows(x).Item("可慕调拨") = dr("调拨数量").ToString
            'Else
            '    dt.Rows(x).Item("可慕调拨") = 0
            'End If
            'dr.Close()

            'sql = "select cast(sum(weight) as numeric(10,0)) as 调拨数量 from rt_sys_chem_OUT_DB where year(date)='" & Year(dtp2.Value) & "' and MONTH(DATE)='" & Month(dtp2.Value) & "' and name=N'" & dt.Rows(x).Item("化料名称") & "'"  '-----调拨出库

            'cmd.CommandText = sql
            'If IsDBNull(cmd.ExecuteScalar) Then

            '    dt.Rows(x).Item("调拨出库") = 0
            'End If
            'dr.Close()

            ' If Not (IsNumeric(Val(dt.Rows(x).Item("合计").ToString))) Then dt.Rows(x).Item("合计") = 0

            If Not (IsNumeric(Val(dt.Rows(x).Item("外购入库").ToString))) Then dt.Rows(x).Item("外购入库") = 0

            If Not (IsNumeric(Val(dt.Rows(x).Item("保税入库").ToString))) Then dt.Rows(x).Item("保税入库") = 0

            If Not (IsNumeric(Val(dt.Rows(x).Item("本月领料").ToString))) Then dt.Rows(x).Item("本月领料") = 0

            '  If Not (IsNumeric(Val(dt.Rows(x).Item("调拨出库").ToString))) Then dt.Rows(x).Item("调拨出库") = 0

            dt.Rows(x).Item("应存") = Val(dt.Rows(x).Item("期初合计").ToString) + Val(dt.Rows(x).Item("外购入库").ToString) + Val(dt.Rows(x).Item("保税入库").ToString) - Val(dt.Rows(x).Item("本月领料").ToString)
            dt.Rows(x).Item("损盈亏") = Val(dt.Rows(x).Item("期末盘点").ToString) - Val(dt.Rows(x).Item("应存").ToString)
        Next

        DGV1.DataSource = dt



        DGV1.Columns(0).Width = 180
        DGV1.Columns(1).Width = 110
        DGV1.Columns(2).Width = 80
        DGV1.Columns(3).Width = 75
        DGV1.Columns(4).Width = 100
        DGV1.Columns(5).Width = 75
        DGV1.Columns(6).Width = 75
        DGV1.Columns(7).Width = 75
        '  DGV1.Columns(8).Width = 75
        ' DGV1.Columns(9).Width = 75
        '  DGV1.Columns(10).Width = 75
        ' DGV1.Columns(11).Width = 75
        'DGV1.Columns(12).Width = 75
        'DGV1.Columns(13).Width = 75
        'DGV1.Columns(14).Width = 75
        'DGV1.Columns(15).Width = 75



    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click


        sql = "delete from rt_chem_stock_vf"
        cmd.CommandText = sql
        cmd.ExecuteNonQuery()




        Dim my_sqlbulk As New SqlBulkCopy(conn)

        my_sqlbulk.DestinationTableName = "RT_CHEM_STOCK_VF"
        my_sqlbulk.WriteToServer(dt)

        MsgBox("")
    End Sub
End Class