HF-MIS-SYS--LEEHSIEHJUI/WindowsApp1/08、關務管理/Frm_ACC.vb

Imports System.Data.SqlClient
Imports System.Net
Imports Microsoft.Office.Interop
Imports OfficeOpenXml.FormulaParsing.Excel.Functions

Public Class Frm_ACC
    Dim set_print_format As Boolean
    Dim cmd As New SqlCommand
    Dim da As New SqlDataAdapter
    Dim my_year111 As Integer
    Dim my_month111 As Integer
    'Dim my_year As Integer
    Dim dt1 As New DataTable
    Dim sql As String
    Dim conn As New SqlConnection
    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
    Dim PTCache As Microsoft.Office.Interop.Excel.PivotCache
    Dim PT As Microsoft.Office.Interop.Excel.PivotTable
    Dim io_type As String
    Dim my_excel_name As String = ""
    Dim a As Integer = 0
    Dim sql1 As String
    Dim sql2 As String
    Dim sql3 As String
    Dim sql4 As String
    Dim my_LL As String


    Private Sub check()

        If My.Computer.Network.Ping("192.168.9.199") Then



            MessageBox.Show("ok")
            update_data()
        Else
            MessageBox.Show("没有网络连线，将使用上次导入数据")
        End If


    End Sub
    Private Sub update_data()



        sql = "drop table rt_stock_bill"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "select * into rt_stock_bill from DB_zhou1.AIS20241014113103.dbo.icstockbill"
        cmd.CommandText = sql
        cmd.ExecuteScalar()



        sql = "drop table rt_stock_bill1"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "select * into rt_stock_bill1 from DB_zhou1.AIS20241014113103.dbo.icstockbillentry"
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        sql = "drop table rt_stock_name"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "select * into rt_stock_name from DB_zhou1.AIS20241014113103.dbo.t_stock"
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        sql = "drop table rt_t_item"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "select * into rt_t_item from DB_zhou1.AIS20241014113103.dbo.t_item"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "drop table rt_icpurchase"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "select * into rt_icpurchase from DB_zhou1.AIS20241014113103.dbo.icpurchase"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "drop table rt_icpurchaseentry"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "select * into rt_icpurchaseentry from DB_zhou1.AIS20241014113103.dbo.icpurchaseentry"
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        sql = "update rt_stock_bill set fdate='2021-03-20 00:00:00.000' where fbillno='sout101300'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()





        sql = "update rt_stock_bill set fdate='2021-03-20 00:00:00.000' where fbillno='sout101301'"    '------调整倒挂

        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_stock_bill set fdate='2021-03-20 00:00:00.000' where fbillno='sout101304'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_stock_bill set fdate='2021-04-10 00:00:00.000' where fbillno='sout101492'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        sql = "update rt_stock_bill set fdate='2021-09-30 00:00:00.000' where fbillno='sout102401'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_stock_bill set fdate='2021-09-30 00:00:00.000' where fbillno='sout102415'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()







        sql = "update rt_stock_bill set fdate='2021-09-16 00:00:00.000' where fbillno='sout102299'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_stock_bill set fdate='2021-09-16 00:00:00.000' where fbillno='sout102300'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_stock_bill set fdate='2021-09-16 00:00:00.000' where fbillno='sout102301'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_stock_bill set fdate='2021-09-16 00:00:00.000' where fbillno='sout102327'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        sql = "update rt_stock_bill set fdate='2021-09-01 00:00:00.000' where fbillno='sout102237'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_stock_bill set fdate='2021-09-01 00:00:00.000' where fbillno='sout102238'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_stock_bill set fdate='2021-09-01 00:00:00.000' where fbillno='sout102239'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()





        sql = "update rt_stock_bill set fdate='2021-11-17 00:00:00.000' where fbillno='sout102605'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_stock_bill set fdate='2021-11-17 00:00:00.000' where fbillno='sout102606'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()



    End Sub

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

        chkb1.Items.Add("B372719A0008")
        chkb1.Items.Add("B372720A0006")
        chkb1.Items.Add("B372721A0003")
        chkb1.Items.Add("B372722A0002")
        chkb1.Items.Add("B372723A0005")




        conn.ConnectionString = connstring
        conn.Open()

        cmd.Connection = conn


        check()



        sql = "SELECT          日期, 单号, 出入库, 物料名称, 数量, 调拨仓库, 仓库, CASE WHEN 仓库 IS NULL 
                            THEN 调拨仓库 ELSE 仓库 END AS 出入库仓库, 报关单号, CASE WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                            成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            入库手册号 IS NULL THEN 领料手册号 END AS 手册号
FROM              (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                        CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 
                                                        3) = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'xou' THEN N'成品出库' END AS 出入库,
                                                         rt_t_item.FName AS 物料名称, rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                        rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                        rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                        rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                        rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, 
                                                        rt_stock_bill1.FSCStockID, rt_stock_bill1.FDCStockID
                            FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                        rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                        rt_stock_name AS rt_stock_name_1 ON 
                                                        rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                        rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                        rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                            ORDER BY    日期 DESC) AS p
ORDER BY   日期 DESC"

        cmd.CommandText = sql


        '   da.SelectCommand = cmd
        '   da.Fill(dt1)


        '    DataGridView1.DataSource = dt1






        '   MsgBox("")







    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '-----採購入庫



        If Button1.BackColor = Control.DefaultBackColor Then

            Button1.BackColor = Color.Yellow
            Button3.BackColor = Control.DefaultBackColor
            Button4.BackColor = Control.DefaultBackColor
            Button5.BackColor = Control.DefaultBackColor
            Button6.BackColor = Control.DefaultBackColor
            Button7.BackColor = Control.DefaultBackColor
            Button8.BackColor = Control.DefaultBackColor

        End If



        Label1.Text = "采购入库"


        io_type = "material_in"



        dt1 = New DataTable
        sql = "SELECT          日期, 单号, 出入库, 物料名称, 数量, 仓库, CASE WHEN 调拨手册号 IS NULL AND                            出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL                             THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND                             领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND                             成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND                             出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL                             THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND                             入库手册号 IS NULL THEN 领料手册号 END AS 手册号,报关单号 FROM              (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号,                                                         CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo,                                                         3) = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3)                                                         = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3)                                                         = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'xou' THEN N'成品出库' END AS 出入库,                                                         rt_t_item.FName AS 物料名称, rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库,                                                         rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号,                                                         rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号,                                                         rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                        rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, rt_stock_bill1.FEntrySelfA0132 AS 入库手册号,                                                         rt_stock_bill1.FSCStockID, rt_stock_bill1.FDCStockID                            FROM               rt_stock_bill1 LEFT OUTER JOIN                                                        rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN                                                        rt_stock_name AS rt_stock_name_1 ON                                                         rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN                                                        rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN                                                        rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID                            ORDER BY    日期 DESC) AS p where 出入库=N'采购入库' ORDER BY   日期 DESC"
        cmd.CommandText = sql


        da.SelectCommand = cmd
        da.Fill(dt1)


        DGV1.DataSource = dt1



        sql = "SELECT          手册号, 物料名称, SUM(数量) AS 数量
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, 数量, 调拨仓库, 仓库, CASE WHEN 仓库 IS NULL 
                                                        THEN 调拨仓库 ELSE 仓库 END AS 出入库仓库, 报关单号, CASE WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 入库手册号 IS NULL THEN 领料手册号 END AS 手册号, 序号
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                                                     rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID, rt_t_item.serialID AS 序号
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (出入库 = N'采购入库')
                            ORDER BY    日期 DESC) AS derivedtbl_1
GROUP BY   物料名称, 手册号
HAVING           (手册号 IS NOT NULL) AND (手册号 <> '')
ORDER BY   手册号 DESC"

        dt1 = New DataTable
        cmd.CommandText = sql


        da.SelectCommand = cmd
        da.Fill(dt1)


        dt1.Columns.Add("调拨出库", Type.GetType("System.Decimal"))
        dt1.Columns.Add("结存", Type.GetType("System.Decimal"))




        For X As Integer = 0 To dt1.Rows.Count - 1



            sql = "SELECT  SUM(数量) AS 数量
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, CAST(数量 AS decimal(10, 2)) AS 数量, 
                                                        调拨仓库 AS 领料仓库,仓库, CASE WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 入库手册号 WHEN 入库手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        入库手册号 IS NULL AND 领料手册号 IS NULL THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 入库手册号 IS NULL 
                                                        THEN 领料手册号 END AS 手册号
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                                                     rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (出入库 like N'%出库%') AND (调拨仓库 like N'%保税%') 
                            ORDER BY    日期 DESC) AS q where 手册号='" & dt1.Rows(X).Item("手册号") & "' and 物料名称=N'" & dt1.Rows(X).Item("物料名称") & "'"

            cmd.CommandText = sql




            If cmd.ExecuteScalar.ToString = "" Then
                dt1.Rows(X).Item("调拨出库") = 0
            Else
                dt1.Rows(X).Item("调拨出库") = cmd.ExecuteScalar
            End If
            dt1.Rows(X).Item("结存") = dt1.Rows(X).Item("数量") - dt1.Rows(X).Item("调拨出库")

        Next










        DGV2.DataSource = dt1


        With DGV1.Columns("数量").DefaultCellStyle
            .Format = "n2"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With DGV2.Columns("数量").DefaultCellStyle
            .Format = "n2"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With


        With DGV2.Columns("调拨出库").DefaultCellStyle
            .Format = "n2"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With DGV2.Columns("结存").DefaultCellStyle
            .Format = "n2"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With




        DGV1.Columns("手册号").Width = 120
        DGV2.Columns("手册号").Width = 120

        Set_grid_color()


    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click '-----调拨



        If Button8.BackColor = Control.DefaultBackColor Then

            Button8.BackColor = Color.Yellow
            Button3.BackColor = Control.DefaultBackColor
            Button4.BackColor = Control.DefaultBackColor
            Button5.BackColor = Control.DefaultBackColor
            Button6.BackColor = Control.DefaultBackColor
            Button7.BackColor = Control.DefaultBackColor
            Button1.BackColor = Control.DefaultBackColor

        End If


        Label1.Text = "调拨出库"



        io_type = "material_out"


        dt1 = New DataTable
        sql = "SELECT          日期, 单号, 出入库, 物料名称, 数量, 调出仓库, CASE WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                            成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            入库手册号 IS NULL THEN 领料手册号 END AS 手册号,调入仓库
FROM              (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                        CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 
                                                        3) = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'xou' THEN N'成品出库' END AS 出入库,
                                                         rt_t_item.FName AS 物料名称, rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调出仓库, 
                                                        rt_stock_name_1.FName AS 调入仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                        rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                        rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                        rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, 
                                                        rt_stock_bill1.FSCStockID, rt_stock_bill1.FDCStockID
                            FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                        rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                        rt_stock_name AS rt_stock_name_1 ON 
                                                        rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                        rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                        rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                            ORDER BY    日期 DESC) AS p where (调出仓库 LIKE N'%保税%') AND (出入库 = N'领料出库')
ORDER BY   日期 DESC"

        cmd.CommandText = sql


        da.SelectCommand = cmd
        da.Fill(dt1)


        DGV1.DataSource = dt1




        sql = "SELECT          手册号, 物料名称, SUM(数量) AS 数量
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, 数量, 调拨仓库, 仓库, CASE WHEN 仓库 IS NULL 
                                                        THEN 调拨仓库 ELSE 仓库 END AS 出入库仓库, 报关单号, CASE WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 入库手册号 IS NULL THEN 领料手册号 END AS 手册号, 序号
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                                                     rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID, rt_t_item.serialID AS 序号
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (出入库 like N'%出库%') AND (调拨仓库 like N'%保税%') 
                            ORDER BY    日期 DESC) AS derivedtbl_1
GROUP BY   物料名称, 手册号, 序号
HAVING           (手册号 IS NOT NULL) AND (手册号 <> '')
ORDER BY   手册号 DESC, 序号"

        dt1 = New DataTable
        cmd.CommandText = sql


        da.SelectCommand = cmd
        da.Fill(dt1)



        dt1.Columns.Add("生产领料", Type.GetType("System.Decimal"))
        dt1.Columns.Add("结存", Type.GetType("System.Decimal"))





        For X As Integer = 0 To dt1.Rows.Count - 1


            sql = "SELECT  SUM(数量) AS 数量
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, CAST(数量 AS decimal(10, 2)) AS 数量, 
                                                        调拨仓库 AS 领料仓库,仓库, CASE WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 入库手册号 WHEN 入库手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        入库手册号 IS NULL AND 领料手册号 IS NULL THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 入库手册号 IS NULL 
                                                        THEN 领料手册号 END AS 手册号
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                                                     rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (出入库 = N'领料出库') and (调拨仓库 like N'%车间%')
                            ORDER BY    日期 DESC) AS q where 手册号='" & dt1.Rows(X).Item("手册号") & "' and 物料名称=N'" & dt1.Rows(X).Item("物料名称") & "'"

            cmd.CommandText = sql


            If cmd.ExecuteScalar.ToString = "" Then
                dt1.Rows(X).Item("生产领料") = 0
            Else
                dt1.Rows(X).Item("生产领料") = cmd.ExecuteScalar
            End If
            dt1.Rows(X).Item("结存") = dt1.Rows(X).Item("数量") - dt1.Rows(X).Item("生产领料")

        Next




























        DGV2.DataSource = dt1





        With DGV1.Columns("数量").DefaultCellStyle
            .Format = "n2"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With
        With DGV2.Columns("数量").DefaultCellStyle
            .Format = "n2"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With


        With DGV2.Columns("生产领料").DefaultCellStyle
            .Format = "n2"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With DGV2.Columns("结存").DefaultCellStyle
            .Format = "n2"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With




        DGV1.Columns("手册号").Width = 120
        DGV2.Columns("手册号").Width = 120



        Set_grid_color()

    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click  '-----生产领料


        If Button7.BackColor = Control.DefaultBackColor Then

            Button7.BackColor = Color.Yellow
            Button3.BackColor = Control.DefaultBackColor
            Button4.BackColor = Control.DefaultBackColor
            Button5.BackColor = Control.DefaultBackColor
            Button6.BackColor = Control.DefaultBackColor
            Button8.BackColor = Control.DefaultBackColor
            Button1.BackColor = Control.DefaultBackColor

        End If


        Label1.Text = "生产领料"



        io_type = "material_use"


        dt1 = New DataTable
        sql = "SELECT          日期, 单号, 出入库, 物料名称, cast(数量 as decimal(10,2)) as 数量, 调拨仓库 as 领料仓库,CASE WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                            成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            入库手册号 IS NULL THEN 领料手册号 END AS 手册号
FROM              (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                        CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 
                                                        3) = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'xou' THEN N'成品出库' END AS 出入库,
                                                         rt_t_item.FName AS 物料名称, rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                        rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                        rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                        rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                        rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, 
                                                        rt_stock_bill1.FSCStockID, rt_stock_bill1.FDCStockID
                            FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                        rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                        rt_stock_name AS rt_stock_name_1 ON 
                                                        rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                        rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                        rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                            ORDER BY    日期 DESC) AS p where 出入库=N'领料出库' and 调拨仓库 like N'%车间%'
ORDER BY   日期 DESC"

        cmd.CommandText = sql


        da.SelectCommand = cmd
        da.Fill(dt1)


        DGV1.DataSource = dt1

        With DGV1.Columns("数量").DefaultCellStyle
            .Format = "n2"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With





        sql = "SELECT          手册号, 物料名称, SUM(数量) AS 数量
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, 数量, 调拨仓库, 仓库, CASE WHEN 仓库 IS NULL 
                                                        THEN 调拨仓库 ELSE 仓库 END AS 出入库仓库, 报关单号, CASE WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 入库手册号 IS NULL THEN 领料手册号 END AS 手册号, 序号
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                                                     rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID, rt_t_item.serialID AS 序号
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (出入库 = N'领料出库') and (调拨仓库 like N'%车间%')
                            ORDER BY    日期 DESC) AS derivedtbl_1
GROUP BY   物料名称, 手册号, 序号
HAVING           (手册号 IS NOT NULL) AND (手册号 <> '')
ORDER BY   手册号 DESC, 序号"

        dt1 = New DataTable
        cmd.CommandText = sql


        da.SelectCommand = cmd
        da.Fill(dt1)


        DGV2.DataSource = dt1


        With DGV1.Columns("数量").DefaultCellStyle
            .Format = "n2"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With DGV2.Columns("数量").DefaultCellStyle
            .Format = "n2"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        DGV1.Columns("手册号").Width = 120
        DGV2.Columns("手册号").Width = 120
        Set_grid_color()

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click  '------成品入库



        If Button4.BackColor = Control.DefaultBackColor Then

            Button4.BackColor = Color.Yellow
            Button3.BackColor = Control.DefaultBackColor
            Button7.BackColor = Control.DefaultBackColor
            Button5.BackColor = Control.DefaultBackColor
            Button6.BackColor = Control.DefaultBackColor
            Button8.BackColor = Control.DefaultBackColor
            Button1.BackColor = Control.DefaultBackColor

        End If


        Label1.Text = "产成品入库"




        io_type = "finish_in"



        dt1 = New DataTable
        sql = "SELECT          日期, 单号, 出入库, 物料名称, cast(数量 as decimal(10,2)) as 数量, 仓库,CASE WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                            成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            入库手册号 IS NULL THEN 领料手册号 END AS 手册号
FROM              (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                        CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 
                                                        3) = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'xou' THEN N'成品出库' END AS 出入库,
                                                         rt_t_item.FName AS 物料名称, rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                        rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                        rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                        rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                        rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, 
                                                        rt_stock_bill1.FSCStockID, rt_stock_bill1.FDCStockID
                            FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                        rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                        rt_stock_name AS rt_stock_name_1 ON 
                                                        rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                        rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                        rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                            ORDER BY    日期 DESC) AS p where 仓库=N'成品仓' and 出入库=N'成品入库'
ORDER BY   日期 DESC"

        cmd.CommandText = sql


        da.SelectCommand = cmd
        da.Fill(dt1)


        DGV1.DataSource = dt1

        With DGV1.Columns("数量").DefaultCellStyle
            .Format = "n2"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With





        sql = "SELECT          手册号, 物料名称, SUM(数量) AS 数量
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, 数量, 调拨仓库, 仓库, CASE WHEN 仓库 IS NULL 
                                                        THEN 调拨仓库 ELSE 仓库 END AS 出入库仓库, 报关单号, CASE WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 入库手册号 IS NULL THEN 领料手册号 END AS 手册号, 序号
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                                                     rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID, rt_t_item.serialID AS 序号
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (出入库 = N'成品入库') and (仓库=N'成品仓')
                            ORDER BY    日期 DESC) AS derivedtbl_1
GROUP BY   物料名称, 手册号, 序号
HAVING           (手册号 IS NOT NULL) AND (手册号 <> '')
ORDER BY   手册号 DESC, 序号"

        dt1 = New DataTable
        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(dt1)


        dt1.Columns.Add("成品出库", Type.GetType("System.Decimal"))
        dt1.Columns.Add("结存", Type.GetType("System.Decimal"))


        For X As Integer = 0 To dt1.Rows.Count - 1



            sql = "SELECT  SUM(数量) AS 数量
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, CAST(数量 AS decimal(10, 2)) AS 数量, 
                                                        调拨仓库 AS 领料仓库,仓库, CASE WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 入库手册号 WHEN 入库手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        入库手册号 IS NULL AND 领料手册号 IS NULL THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 入库手册号 IS NULL 
                                                        THEN 领料手册号 END AS 手册号
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                                                     rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (出入库 = N'成品出库')
                            ORDER BY    日期 DESC) AS q where 手册号='" & dt1.Rows(X).Item("手册号") & "' and 物料名称=N'" & dt1.Rows(X).Item("物料名称") & "'"

            cmd.CommandText = sql




            If cmd.ExecuteScalar.ToString = "" Then
                dt1.Rows(X).Item("成品出库") = 0
            Else
                dt1.Rows(X).Item("成品出库") = cmd.ExecuteScalar
            End If
            dt1.Rows(X).Item("结存") = dt1.Rows(X).Item("数量") - dt1.Rows(X).Item("成品出库")

        Next












        DGV2.DataSource = dt1


        With DGV2.Columns("数量").DefaultCellStyle
            .Format = "n2"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With
        With DGV2.Columns("成品出库").DefaultCellStyle
            .Format = "n2"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With DGV2.Columns("结存").DefaultCellStyle
            .Format = "n2"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With


        DGV1.Columns("手册号").Width = 120
        DGV2.Columns("手册号").Width = 120
        Set_grid_color()

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click '------成品出库



        If Button3.BackColor = Control.DefaultBackColor Then

            Button3.BackColor = Color.Yellow
            Button7.BackColor = Control.DefaultBackColor
            Button4.BackColor = Control.DefaultBackColor
            Button5.BackColor = Control.DefaultBackColor
            Button6.BackColor = Control.DefaultBackColor
            Button8.BackColor = Control.DefaultBackColor
            Button1.BackColor = Control.DefaultBackColor

        End If



        Label1.Text = "产成品出库"




        io_type = "finish_out"



        dt1 = New DataTable
        sql = "SELECT          日期, 单号, 出入库, 物料名称, cast(数量 as decimal(10,2)) as 数量, 仓库,CASE WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                            成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            入库手册号 IS NULL THEN 领料手册号 END AS 手册号
FROM              (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                        CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 
                                                        3) = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'xou' THEN N'成品出库' END AS 出入库,
                                                         rt_t_item.FName AS 物料名称, rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                        rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                        rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                        rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                        rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, 
                                                        rt_stock_bill1.FSCStockID, rt_stock_bill1.FDCStockID
                            FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                        rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                        rt_stock_name AS rt_stock_name_1 ON 
                                                        rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                        rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                        rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                            ORDER BY    日期 DESC) AS p where 出入库=N'成品出库'
ORDER BY   日期 DESC"

        cmd.CommandText = sql


        da.SelectCommand = cmd
        da.Fill(dt1)


        DGV1.DataSource = dt1

        With DGV1.Columns("数量").DefaultCellStyle
            .Format = "n2"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With





        sql = "SELECT          手册号, 物料名称, SUM(数量) AS 数量
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, 数量, 调拨仓库, 仓库, CASE WHEN 仓库 IS NULL 
                                                        THEN 调拨仓库 ELSE 仓库 END AS 出入库仓库, 报关单号, CASE WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 入库手册号 IS NULL THEN 领料手册号 END AS 手册号, 序号
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                                                     rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID, rt_t_item.serialID AS 序号
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (出入库 = N'成品出库')
                            ORDER BY    日期 DESC) AS derivedtbl_1
GROUP BY   物料名称, 手册号, 序号
HAVING           (手册号 IS NOT NULL) AND (手册号 <> '')
ORDER BY   手册号 DESC, 序号"

        dt1 = New DataTable
        cmd.CommandText = sql


        da.SelectCommand = cmd
        da.Fill(dt1)


        DGV2.DataSource = dt1
        With DGV2.Columns("数量").DefaultCellStyle
            .Format = "n2"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With
        DGV1.Columns("手册号").Width = 120
        DGV2.Columns("手册号").Width = 120
        Set_grid_color()
    End Sub




    Private Sub DataGridView2_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGV2.CellDoubleClick '---成品出库double click



    End Sub

    Private Sub Set_grid_color()


        Dim colorArray(10) As Color

        colorArray(0) = Color.FromName("Aquamarine")
        colorArray(1) = Color.FromName("azure")
        colorArray(2) = Color.FromName("beige")
        colorArray(3) = Color.FromName("gainsboro")
        colorArray(4) = Color.FromName("LightBlue")
        colorArray(5) = Color.FromName("LightSalmon")


        Dim c As Integer = 1
        Dim p(150) As Integer

        Dim x As Integer

        p(1) = 0
        For x = 1 To DGV2.Rows.Count - 2

            If DGV2.Rows(x).Cells("手册号").Value.ToString <> DGV2.Rows(x - 1).Cells("手册号").Value.ToString Then

                p(c + 1) = x
                c = c + 1


            End If
        Next
        p(c + 1) = x

        ReDim Preserve p(x)


        If c = 1 Then
            For z As Integer = 0 To x - 1

                DGV2.Rows(z).DefaultCellStyle.BackColor = colorArray(1)

            Next
        Else


            For cc As Integer = 1 To c

                For z As Integer = p(cc) To p(cc + 1) - 1
                    DGV2.Rows(z).DefaultCellStyle.BackColor = colorArray(cc Mod 5)
                Next
            Next
        End If







    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click  '-----在制品入库


        If Button6.BackColor = Control.DefaultBackColor Then

            Button6.BackColor = Color.Yellow
            Button3.BackColor = Control.DefaultBackColor
            Button4.BackColor = Control.DefaultBackColor
            Button5.BackColor = Control.DefaultBackColor
            Button7.BackColor = Control.DefaultBackColor
            Button8.BackColor = Control.DefaultBackColor
            Button1.BackColor = Control.DefaultBackColor

        End If


        Label1.Text = "在制品入库"




        io_type = "m_in_process_in"



        dt1 = New DataTable
        sql = "SELECT          日期, 单号, 出入库,物料名称, 数量,  仓库, CASE WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND  领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND  成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND                             出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND  入库手册号 IS NULL THEN 领料手册号 END AS 手册号 FROM              
(SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号,   CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo,  3) = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3)    = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'cin' THEN N'在制品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'xou' THEN N'成品出库' END AS 出入库,                                                         rt_t_item.FName AS 物料名称, rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库,                                                         rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号,                                                         rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号,                                                         rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                        rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, rt_stock_bill1.FEntrySelfA0132 AS 入库手册号,                                                         rt_stock_bill1.FSCStockID, rt_stock_bill1.FDCStockID                            FROM               rt_stock_bill1 LEFT OUTER JOIN                                                        rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN                                                        rt_stock_name AS rt_stock_name_1 ON                                                         rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN                                                        rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN                                                        rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID                            ORDER BY    日期 DESC) AS p where 仓库=N'在制品仓' ORDER BY   日期 DESC"
        cmd.CommandText = sql


        da.SelectCommand = cmd
        da.Fill(dt1)


        DGV1.DataSource = dt1



        sql = "SELECT          手册号, 物料名称, SUM(数量) AS 数量
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, 数量, 调拨仓库, 仓库, CASE WHEN 仓库 IS NULL 
                                                        THEN 调拨仓库 ELSE 仓库 END AS 出入库仓库, 报关单号, CASE WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 入库手册号 IS NULL THEN 领料手册号 END AS 手册号, 序号
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                                                     rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID, rt_t_item.serialID AS 序号
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (仓库 = N'在制品仓') AND 单号 LIKE '%IN%'
                            ORDER BY    日期 DESC) AS derivedtbl_1
GROUP BY   物料名称, 手册号, 序号
HAVING           (手册号 IS NOT NULL) AND (手册号 <> '')
ORDER BY   手册号 DESC, 序号"

        dt1 = New DataTable
        cmd.CommandText = sql


        da.SelectCommand = cmd
        da.Fill(dt1)


        dt1.Columns.Add("在制品出库", Type.GetType("System.Decimal"))
        dt1.Columns.Add("结存", Type.GetType("System.Decimal"))



        For X As Integer = 0 To dt1.Rows.Count - 1



            sql = "SELECT  SUM(数量) AS 数量
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, CAST(数量 AS decimal(10, 2)) AS 数量, 
                                                        调拨仓库 AS 领料仓库,仓库, CASE WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 入库手册号 WHEN 入库手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        入库手册号 IS NULL AND 领料手册号 IS NULL THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 入库手册号 IS NULL 
                                                        THEN 领料手册号 END AS 手册号
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                                                     rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (调拨仓库 = N'在制品仓') and (单号 like 'sout%')
                            ORDER BY    日期 DESC) AS q where 手册号='" & dt1.Rows(X).Item("手册号") & "' and 物料名称=N'" & dt1.Rows(X).Item("物料名称") & "'"

            cmd.CommandText = sql




            If cmd.ExecuteScalar.ToString = "" Then
                dt1.Rows(X).Item("在制品出库") = 0
            Else
                dt1.Rows(X).Item("在制品出库") = cmd.ExecuteScalar
            End If
            dt1.Rows(X).Item("结存") = dt1.Rows(X).Item("数量") - dt1.Rows(X).Item("在制品出库")

        Next



        DGV2.DataSource = dt1



        With DGV1.Columns("数量").DefaultCellStyle
            .Format = "n2"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With DGV2.Columns("结存").DefaultCellStyle
            .Format = "n2"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With




        DGV1.Columns("手册号").Width = 120
        DGV2.Columns("手册号").Width = 120

        Set_grid_color()






    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.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.Visible = True
        'xlApp.DisplayAlerts = False

        xlBook.Activate()
        xlBook.Parent.Windows(1).Visible = True
        xlSheet = xlBook.Worksheets(1)
        xlSheet.Activate()

        dt1 = New DataTable

        sql = "SELECT          手册号, 物料名称, SUM(数量) AS 进口数量
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, 数量, 调拨仓库, 仓库, CASE WHEN 仓库 IS NULL 
                                                        THEN 调拨仓库 ELSE 仓库 END AS 出入库仓库, 报关单号, CASE WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 入库手册号 IS NULL THEN 领料手册号 END AS 手册号, 序号
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                                                     rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID, rt_t_item.serialID AS 序号
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (出入库 = N'采购入库')
                            ORDER BY    日期 DESC) AS derivedtbl_1
GROUP BY   物料名称, 手册号, 序号
HAVING           (手册号 IS NOT NULL) AND (手册号 <> '')
ORDER BY   手册号 DESC, 序号"

        dt1 = New DataTable
        cmd.CommandText = sql


        da.SelectCommand = cmd
        da.Fill(dt1)


        dt1.Columns.Add("调拨出库", Type.GetType("System.Decimal"))
        dt1.Columns.Add("结存", Type.GetType("System.Decimal"))




        For X As Integer = 0 To dt1.Rows.Count - 1



            sql = "SELECT  SUM(数量) AS 数量
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, CAST(数量 AS decimal(10, 2)) AS 数量, 
                                                        调拨仓库 AS 领料仓库,仓库, CASE WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 入库手册号 WHEN 入库手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        入库手册号 IS NULL AND 领料手册号 IS NULL THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 入库手册号 IS NULL 
                                                        THEN 领料手册号 END AS 手册号
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                                                     rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (出入库 = N'调拨')
                            ORDER BY    日期 DESC) AS q where 手册号='" & dt1.Rows(X).Item("手册号") & "' and 物料名称=N'" & dt1.Rows(X).Item("物料名称") & "'"

            cmd.CommandText = sql




            If cmd.ExecuteScalar.ToString = "" Then
                dt1.Rows(X).Item("调拨出库") = 0
            Else
                dt1.Rows(X).Item("调拨出库") = cmd.ExecuteScalar
            End If
            dt1.Rows(X).Item("结存") = dt1.Rows(X).Item("进口数量") - dt1.Rows(X).Item("调拨出库")

        Next



        DGV2.DataSource = dt1
        DGV2.RowHeadersVisible = False

        Dim my_range As String

        xlSheet.Cells(2, 2) = "原料保税仓"
        xlSheet.Cells(2, 2).select

        With xlApp.Selection.Font
            .Size = 16
            .Color = -16776961
            .bold = True
        End With
        my_range = "B4"
        xlSheet.Range(my_range).Select()
        DGV2.SelectAll()
        DGV2.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Clipboard.SetDataObject(DGV2.GetClipboardContent())
        System.Threading.Thread.Sleep(5000)
        xlSheet.Paste()
        Clipboard.SetDataObject(DBNull.Value)
        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("B4:$F$" & dt1.Rows.Count + 4), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"





        '-------------------------------------------------------------调拨

        sql = "SELECT          手册号, 物料名称, SUM(数量) AS 调拨数量
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, 数量, 调拨仓库, 仓库, CASE WHEN 仓库 IS NULL 
                                                        THEN 调拨仓库 ELSE 仓库 END AS 出入库仓库, 报关单号, CASE WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 入库手册号 IS NULL THEN 领料手册号 END AS 手册号, 序号
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                                                     rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID, rt_t_item.serialID AS 序号
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (出入库 = N'调拨')
                            ORDER BY    日期 DESC) AS derivedtbl_1
GROUP BY   物料名称, 手册号, 序号
HAVING           (手册号 IS NOT NULL) AND (手册号 <> '')
ORDER BY   手册号 DESC, 序号"

        dt1 = New DataTable
        cmd.CommandText = sql


        da.SelectCommand = cmd
        da.Fill(dt1)



        dt1.Columns.Add("生产领料", Type.GetType("System.Decimal"))
        dt1.Columns.Add("结存", Type.GetType("System.Decimal"))





        For X As Integer = 0 To dt1.Rows.Count - 1


            sql = "SELECT  SUM(数量) AS 调拨数量
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, CAST(数量 AS decimal(10, 2)) AS 数量, 
                                                        调拨仓库 AS 领料仓库,仓库, CASE WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 入库手册号 WHEN 入库手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        入库手册号 IS NULL AND 领料手册号 IS NULL THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 入库手册号 IS NULL 
                                                        THEN 领料手册号 END AS 手册号
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                                                     rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (出入库 = N'领料出库')
                            ORDER BY    日期 DESC) AS q where 手册号='" & dt1.Rows(X).Item("手册号") & "' and 物料名称=N'" & dt1.Rows(X).Item("物料名称") & "'"

            cmd.CommandText = sql


            If cmd.ExecuteScalar.ToString = "" Then
                dt1.Rows(X).Item("生产领料") = 0
            Else
                dt1.Rows(X).Item("生产领料") = cmd.ExecuteScalar
            End If
            dt1.Rows(X).Item("结存") = dt1.Rows(X).Item("调拨数量") - dt1.Rows(X).Item("生产领料")

        Next

        DGV2.DataSource = dt1
        DGV2.RowHeadersVisible = False

        xlSheet.Cells(2, 8) = "车间保税仓"
        xlSheet.Cells(2, 8).select

        With xlApp.Selection.Font
            .Size = 16
            .Color = -16776961
            .bold = True
        End With
        my_range = "H4"
        xlSheet.Range(my_range).Select()
        DGV2.SelectAll()
        DGV2.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Clipboard.SetDataObject(DGV2.GetClipboardContent())
        System.Threading.Thread.Sleep(5000)
        xlSheet.PasteSpecial()
        Clipboard.SetDataObject(DBNull.Value)

        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("H4:L" & dt1.Rows.Count + 4), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表2"




        '-------------------------------------------在制品



        sql = "SELECT          手册号, 物料名称, SUM(数量) AS 入库数量
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, 数量, 调拨仓库, 仓库, CASE WHEN 仓库 IS NULL 
                                                        THEN 调拨仓库 ELSE 仓库 END AS 出入库仓库, 报关单号, CASE WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 入库手册号 IS NULL THEN 领料手册号 END AS 手册号, 序号
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                                                     rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID, rt_t_item.serialID AS 序号
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (仓库 = N'在制品仓')
                            ORDER BY    日期 DESC) AS derivedtbl_1
GROUP BY   物料名称, 手册号, 序号
HAVING           (手册号 IS NOT NULL) AND (手册号 <> '')
ORDER BY   手册号 DESC, 序号"

        dt1 = New DataTable
        cmd.CommandText = sql


        da.SelectCommand = cmd
        da.Fill(dt1)



        dt1.Columns.Add("产品完工", Type.GetType("System.Decimal"))
        dt1.Columns.Add("结存", Type.GetType("System.Decimal"))





        For X As Integer = 0 To dt1.Rows.Count - 1


            sql = "SELECT  SUM(数量) AS 数量
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, CAST(数量 AS decimal(10, 2)) AS 数量, 
                                                        调拨仓库 AS 领料仓库,仓库, CASE WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 入库手册号 WHEN 入库手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        入库手册号 IS NULL AND 领料手册号 IS NULL THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 入库手册号 IS NULL 
                                                        THEN 领料手册号 END AS 手册号
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                                                     rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (仓库 = N'在制品仓') AND (出入库='成品出库')
                            ORDER BY    日期 DESC) AS q where 手册号='" & dt1.Rows(X).Item("手册号") & "' and 物料名称=N'" & dt1.Rows(X).Item("物料名称") & "'"

            cmd.CommandText = sql


            If cmd.ExecuteScalar.ToString = "" Then
                dt1.Rows(X).Item("产品完工") = 0
            Else
                dt1.Rows(X).Item("产品完工") = cmd.ExecuteScalar
            End If
            dt1.Rows(X).Item("结存") = dt1.Rows(X).Item("入库数量") - dt1.Rows(X).Item("产品完工")

        Next

        DGV2.DataSource = dt1
        DGV2.RowHeadersVisible = False

        xlSheet.Cells(2, 14) = "在制品仓"
        xlSheet.Cells(2, 14).select

        With xlApp.Selection.Font
            .Size = 16
            .Color = -16776961
            .bold = True
        End With
        my_range = "n4"
        xlSheet.Range(my_range).Select()
        DGV2.SelectAll()
        DGV2.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Clipboard.SetDataObject(DGV2.GetClipboardContent())
        System.Threading.Thread.Sleep(5000)
        xlSheet.PasteSpecial()
        Clipboard.SetDataObject(DBNull.Value)


        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("N4:$R$" & dt1.Rows.Count + 4), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表3"





        '-------------------------------------------产成品


        sql = "SELECT          手册号, 物料名称, SUM(数量) AS 数量
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, 数量, 调拨仓库, 仓库, CASE WHEN 仓库 IS NULL 
                                                        THEN 调拨仓库 ELSE 仓库 END AS 出入库仓库, 报关单号, CASE WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 入库手册号 IS NULL THEN 领料手册号 END AS 手册号, 序号
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                                                     rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID, rt_t_item.serialID AS 序号
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (出入库 = N'成品入库') and (仓库=N'成品仓')
                            ORDER BY    日期 DESC) AS derivedtbl_1
GROUP BY   物料名称, 手册号, 序号
HAVING           (手册号 IS NOT NULL) AND (手册号 <> '')
ORDER BY   手册号 DESC, 序号"

        dt1 = New DataTable
        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(dt1)


        dt1.Columns.Add("成品出库", Type.GetType("System.Decimal"))
        dt1.Columns.Add("结存", Type.GetType("System.Decimal"))


        For X As Integer = 0 To dt1.Rows.Count - 1



            sql = "SELECT  SUM(数量) AS 数量
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, CAST(数量 AS decimal(10, 2)) AS 数量, 
                                                        调拨仓库 AS 领料仓库,仓库, CASE WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 入库手册号 WHEN 入库手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        入库手册号 IS NULL AND 领料手册号 IS NULL THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 入库手册号 IS NULL 
                                                        THEN 领料手册号 END AS 手册号
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                                                     rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (出入库 = N'成品出库')
                            ORDER BY    日期 DESC) AS q where 手册号='" & dt1.Rows(X).Item("手册号") & "' and 物料名称=N'" & dt1.Rows(X).Item("物料名称") & "'"

            cmd.CommandText = sql




            If cmd.ExecuteScalar.ToString = "" Then
                dt1.Rows(X).Item("成品出库") = 0
            Else
                dt1.Rows(X).Item("成品出库") = cmd.ExecuteScalar
            End If
            dt1.Rows(X).Item("结存") = dt1.Rows(X).Item("数量") - dt1.Rows(X).Item("成品出库")

        Next
        DGV2.DataSource = dt1
        DGV2.RowHeadersVisible = False

        xlSheet.Cells(2, 20) = "成品仓"
        xlSheet.Cells(2, 20).select

        With xlApp.Selection.Font
            .Size = 16
            .Color = -16776961
            .bold = True
        End With



        my_range = "T4"
        xlSheet.Range(my_range).Select()
        DGV2.SelectAll()
        DGV2.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Clipboard.SetDataObject(DGV2.GetClipboardContent())
        System.Threading.Thread.Sleep(5000)

        xlSheet.PasteSpecial()
        Clipboard.SetDataObject(DBNull.Value)

        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("t4:x" & dt1.Rows.Count + 4), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表4"














        xlBook = Nothing
        xlSheet = Nothing
        xlApp = Nothing
        xlrange = Nothing





        MsgBox("输出完成")























    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        Frm_ACC_Edit.Show()

    End Sub

    Private Sub DGV2_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGV2.CellContentClick
        dt1 = New DataTable


        Select Case io_type
            Case "material_in" '-----------采购入库



                sql = "SELECT          日期, 单号, 出入库, 物料名称, 数量, 仓库, 手册号
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, CAST(数量 AS decimal(10, 2)) AS 数量, 
                                                        仓库 , CASE WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 入库手册号 WHEN 入库手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        入库手册号 IS NULL AND 领料手册号 IS NULL THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 入库手册号 IS NULL 
                                                        THEN 领料手册号 END AS 手册号
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                                                     rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (出入库 = N'采购入库')
                            ORDER BY    日期 DESC) AS q where 手册号='" & DGV2.Rows(DGV2.CurrentCell.RowIndex).Cells("手册号").Value & "' and 物料名称=N'" & DGV2.Rows(DGV2.CurrentCell.RowIndex).Cells("物料名称").Value & "' ORDER BY   日期 DESC"



                cmd.CommandText = sql


                da.SelectCommand = cmd
                da.Fill(dt1)


                DGV1.DataSource = dt1


            Case "material_out"  '--------调拨出库


                sql = "SELECT  日期, 单号, 出入库, 物料名称, 数量, 领料仓库, 仓库, 手册号
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, CAST(数量 AS decimal(10, 2)) AS 数量, 
                                                        调拨仓库 AS 领料仓库,仓库, CASE WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 入库手册号 WHEN 入库手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        入库手册号 IS NULL AND 领料手册号 IS NULL THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 入库手册号 IS NULL 
                                                        THEN 领料手册号 END AS 手册号
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                                                     rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (出入库 like N'%出库%') AND (调拨仓库 like N'%保税%') 
                            ORDER BY    日期 DESC) AS q where 手册号='" & DGV2.Rows(DGV2.CurrentCell.RowIndex).Cells("手册号").Value & "' and 物料名称=N'" & DGV2.Rows(DGV2.CurrentCell.RowIndex).Cells("物料名称").Value & "' ORDER BY   日期 DESC"



                cmd.CommandText = sql


                da.SelectCommand = cmd
                da.Fill(dt1)


                DGV1.DataSource = dt1

            Case "material_use" '------------------领料出库


                sql = "SELECT          日期, 单号, 出入库, 物料名称, 数量, 领料仓库, 手册号
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, CAST(数量 AS decimal(10, 2)) AS 数量, 
                                                        调拨仓库 AS 领料仓库, CASE WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 入库手册号 WHEN 入库手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        入库手册号 IS NULL AND 领料手册号 IS NULL THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 入库手册号 IS NULL 
                                                        THEN 领料手册号 END AS 手册号
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                                                     rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (出入库 = N'领料出库') and (调拨仓库 like N'%车间%')
                            ORDER BY    日期 DESC) AS q where 手册号='" & DGV2.Rows(DGV2.CurrentCell.RowIndex).Cells("手册号").Value & "' and 物料名称=N'" & DGV2.Rows(DGV2.CurrentCell.RowIndex).Cells("物料名称").Value & "' ORDER BY   日期 DESC"



                cmd.CommandText = sql


                da.SelectCommand = cmd
                da.Fill(dt1)


                DGV1.DataSource = dt1



            Case "m_in_process_in"


                sql = "SELECT  日期, 单号, 物料名称, 数量, 仓库, 手册号
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, CAST(数量 AS decimal(10, 2)) AS 数量, 
                                                        调拨仓库 AS 领料仓库,仓库, CASE WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 入库手册号 WHEN 入库手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        入库手册号 IS NULL AND 领料手册号 IS NULL THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 入库手册号 IS NULL 
                                                        THEN 领料手册号 END AS 手册号
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                                                     rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (仓库 = N'在制品仓')
                            ORDER BY    日期 DESC) AS q where 手册号='" & DGV2.Rows(DGV2.CurrentCell.RowIndex).Cells("手册号").Value & "' and 物料名称=N'" & DGV2.Rows(DGV2.CurrentCell.RowIndex).Cells("物料名称").Value & "' ORDER BY   日期 DESC"



                cmd.CommandText = sql


                da.SelectCommand = cmd
                da.Fill(dt1)


                DGV1.DataSource = dt1

            Case "inprocess_out"


                sql = "SELECT  日期, 单号, 物料名称, 数量, 仓库, 手册号
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, CAST(数量 AS decimal(10, 2)) AS 数量, 
                                                        调拨仓库 AS 领料仓库,仓库, CASE WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 入库手册号 WHEN 入库手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        入库手册号 IS NULL AND 领料手册号 IS NULL THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 入库手册号 IS NULL 
                                                        THEN 领料手册号 END AS 手册号
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                                                     rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (仓库 = N'在制品仓') and (单号 like 'sout%')
                            ORDER BY    日期 DESC) AS q where 手册号='" & DGV2.Rows(DGV2.CurrentCell.RowIndex).Cells("手册号").Value & "' and 物料名称=N'" & DGV2.Rows(DGV2.CurrentCell.RowIndex).Cells("物料名称").Value & "' ORDER BY   日期 DESC"



                cmd.CommandText = sql


                da.SelectCommand = cmd
                da.Fill(dt1)


                DGV1.DataSource = dt1




            Case "finish_in" '-----------------------成品入库

                sql = "SELECT          日期, 单号, 出入库, 物料名称, 数量, 领料仓库, 手册号
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, CAST(数量 AS decimal(10, 2)) AS 数量, 
                                                        调拨仓库 AS 领料仓库, CASE WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 入库手册号 WHEN 入库手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        入库手册号 IS NULL AND 领料手册号 IS NULL THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 入库手册号 IS NULL 
                                                        THEN 领料手册号 END AS 手册号
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                                                     rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (出入库 = N'成品入库') and (仓库=N'成品仓')
                            ORDER BY    日期 DESC) AS q where 手册号='" & DGV2.Rows(DGV2.CurrentCell.RowIndex).Cells("手册号").Value & "' and 物料名称=N'" & DGV2.Rows(DGV2.CurrentCell.RowIndex).Cells("物料名称").Value & "' ORDER BY   日期 DESC"



                cmd.CommandText = sql


                da.SelectCommand = cmd
                da.Fill(dt1)


                DGV1.DataSource = dt1
            Case "finish_out" '------------------------------------------成品出库



                sql = "SELECT          日期, 单号, 出入库, 物料名称, 数量, 领料仓库, 手册号
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, CAST(数量 AS decimal(10, 2)) AS 数量, 
                                                        调拨仓库 AS 领料仓库, CASE WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 入库手册号 WHEN 入库手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        入库手册号 IS NULL AND 领料手册号 IS NULL THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 入库手册号 IS NULL 
                                                        THEN 领料手册号 END AS 手册号
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                                                     rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (出入库 = N'成品出库')
                            ORDER BY    日期 DESC) AS q where 手册号='" & DGV2.Rows(DGV2.CurrentCell.RowIndex).Cells("手册号").Value & "' and 物料名称=N'" & DGV2.Rows(DGV2.CurrentCell.RowIndex).Cells("物料名称").Value & "' ORDER BY   日期 DESC"



                cmd.CommandText = sql


                da.SelectCommand = cmd
                da.Fill(dt1)


                DGV1.DataSource = dt1




        End Select




        'With DGV1.Columns("数量").DefaultCellStyle
        '    .Format = "n2"
        '    .Alignment = DataGridViewContentAlignment.MiddleRight

        'End With












    End Sub



    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click '---在制品出库


        If Button5.BackColor = Control.DefaultBackColor Then

            Button5.BackColor = Color.Yellow
            Button3.BackColor = Control.DefaultBackColor
            Button4.BackColor = Control.DefaultBackColor
            Button7.BackColor = Control.DefaultBackColor
            Button6.BackColor = Control.DefaultBackColor
            Button8.BackColor = Control.DefaultBackColor
            Button1.BackColor = Control.DefaultBackColor

        End If



        Label1.Text = "在制品出库"




        io_type = "inprocess_out"



        dt1 = New DataTable
        sql = "SELECT          日期, 单号, 出入库, 物料名称, cast(数量 as decimal(10,2)) as 数量, 仓库,CASE WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                            成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            入库手册号 IS NULL THEN 领料手册号 END AS 手册号
FROM              (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                        CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 
                                                        3) = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'xou' THEN N'成品出库' END AS 出入库,
                                                         rt_t_item.FName AS 物料名称, rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                        rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                        rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                        rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                        rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, 
                                                        rt_stock_bill1.FSCStockID, rt_stock_bill1.FDCStockID
                            FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                        rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                        rt_stock_name AS rt_stock_name_1 ON 
                                                        rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                        rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                        rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                            ORDER BY    日期 DESC) AS p where 调拨仓库=N'在制品仓' and 单号 like '%sout%'
ORDER BY   日期 DESC"

        cmd.CommandText = sql


        da.SelectCommand = cmd
        da.Fill(dt1)


        DGV1.DataSource = dt1

        With DGV1.Columns("数量").DefaultCellStyle
            .Format = "n2"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With





        sql = "SELECT          手册号, 物料名称, SUM(数量) AS 数量
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, 数量, 调拨仓库, 仓库, CASE WHEN 仓库 IS NULL 
                                                        THEN 调拨仓库 ELSE 仓库 END AS 出入库仓库, 报关单号, CASE WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 入库手册号 IS NULL THEN 领料手册号 END AS 手册号, 序号
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                                                     rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID, rt_t_item.serialID AS 序号
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (出入库 = N'成品入库') and (仓库=N'成品仓')
                            ORDER BY    日期 DESC) AS derivedtbl_1
GROUP BY   物料名称, 手册号, 序号
HAVING           (手册号 IS NOT NULL) AND (手册号 <> '')
ORDER BY   手册号 DESC, 序号"

        dt1 = New DataTable
        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(dt1)


        dt1.Columns.Add("成品出库", Type.GetType("System.Decimal"))
        dt1.Columns.Add("结存", Type.GetType("System.Decimal"))


        For X As Integer = 0 To dt1.Rows.Count - 1



            sql = "SELECT  SUM(数量) AS 数量
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, CAST(数量 AS decimal(10, 2)) AS 数量, 
                                                        调拨仓库 AS 领料仓库,仓库, CASE WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 入库手册号 WHEN 入库手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        入库手册号 IS NULL AND 领料手册号 IS NULL THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 入库手册号 IS NULL 
                                                        THEN 领料手册号 END AS 手册号
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'领料出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'成品入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调拨仓库, 
                                                                                     rt_stock_name_1.FName AS 仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (出入库 = N'成品出库')
                            ORDER BY    日期 DESC) AS q where 手册号='" & dt1.Rows(X).Item("手册号") & "' and 物料名称=N'" & dt1.Rows(X).Item("物料名称") & "'"

            cmd.CommandText = sql




            If cmd.ExecuteScalar.ToString = "" Then
                dt1.Rows(X).Item("成品出库") = 0
            Else
                dt1.Rows(X).Item("成品出库") = cmd.ExecuteScalar
            End If
            dt1.Rows(X).Item("结存") = dt1.Rows(X).Item("数量") - dt1.Rows(X).Item("成品出库")

        Next












        DGV2.DataSource = dt1


        With DGV2.Columns("数量").DefaultCellStyle
            .Format = "n2"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With
        With DGV2.Columns("成品出库").DefaultCellStyle
            .Format = "n2"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With DGV2.Columns("结存").DefaultCellStyle
            .Format = "n2"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With


        DGV1.Columns("手册号").Width = 120
        DGV2.Columns("手册号").Width = 120
        Set_grid_color()


    End Sub

    Private Sub shaving(xno)


        a = 0
        xlSheet = xlBook.Worksheets.Add
        xlSheet.Name = "修剪仓"
        xlSheet.Activate()
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(1, 1), Address:="", SubAddress:="总表!A1", TextToDisplay:="总表")

        xlSheet.Cells(1, 2) = "仓库物资帐" & "--RTCP014蓝湿牛二层皮（削匀皮）"
        xlSheet.Cells(1, 2).select
        xlApp.Selection.HorizontalAlignment = Excel.Constants.xlCenter
        xlApp.Selection.VerticalAlignment = Excel.Constants.xlCenter
        xlApp.Selection.Font.Size = 24



        sql2 = sql1 & " And (物料名称= N'蓝湿牛二层皮（削匀皮）')"
        cmd.CommandText = sql2
        da.SelectCommand = cmd
        dt1 = New DataTable
        da.Fill(dt1)











        System.Threading.Thread.Sleep(20)

        DGV1.DataSource = dt1
        DGV1.SelectAll()
        Me.DGV1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.DGV1.RowHeadersVisible = False

        Clipboard.SetDataObject(DGV1.GetClipboardContent().GetData(DataFormats.Text.ToString))
        System.Threading.Thread.Sleep(20)




        xlApp.Columns("B:B").ColumnWidth = 20
        xlApp.Columns("c:c").ColumnWidth = 20
        xlApp.Columns("D:D").ColumnWidth = 20
        xlApp.Columns("e:e").ColumnWidth = 20
        xlApp.Columns("F:F").ColumnWidth = 20
        xlApp.Columns("G:G").ColumnWidth = 20
        xlApp.Columns("H:H").ColumnWidth = 20
        xlApp.Columns("I:I").ColumnWidth = 20
        xlApp.Columns("J:J").ColumnWidth = 20
        xlApp.Columns("k:k").ColumnWidth = 20


        xlApp.Columns("J:J").NumberFormat = "@"









        xlApp.Cells(4, 2).Select()



        If IsDBNull(DGV1.GetClipboardContent().GetData(DataFormats.Text.ToString)) Then


        Else
            xlSheet.PasteSpecial()
            Clipboard.SetDataObject(DBNull.Value)
        End If


        'xlSheet.PasteSpecial()

        'Clipboard.SetDataObject(DBNull.Value)






        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("B4:M" & a + dt1.Rows.Count + 4), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"


        ' xlApp.Range("B4:j" & a + dt1.Rows.Count + 1).Select()
        xlApp.Cells(2, 2).Select()

        xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Clear
        'xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Add2(Key:=xlApp.Range("表1[日期]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= .XlSortDataOption.xlSortNormal)


        xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Clear
        xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Add(Key:=xlApp.Range("表1[日期]"), SortOn:=Excel.XlSortOn.xlSortOnValues, Order:=Excel.XlSortOrder.xlAscending, DataOption:=Excel.XlSortDataOption.xlSortNormal)


        With xlApp.ActiveSheet.ListObjects("表1").Sort
            .Header = Excel.XlYesNoGuess.xlYes
            .MatchCase = False
            .Orientation = Excel.Constants.xlTopToBottom

            .Apply
        End With



        xlSheet.Cells(4, 11) = "结存"

        xlSheet.Range("k5").FormulaR1C1 = "=IF(ISNUMBER(R[-1]C[0]),IF(countif(R[0]C[-7],""*入库""),R[-1]C[0]+R[0]C[-5],R[-1]C[0]-R[0]C[-5]),R[0]C[-5])"
        '  xlApp.Selection.AutoFill(Destination:=xlApp.Range("j6:j" & a + dt1.Rows.Count - 1))

        xlSheet.Range("k5").Select()


        ' xlApp.Selection.AutoFill(Destination:=xlApp.Range("表1[结存]"))

        xlApp.Range(xlApp.Selection, xlApp.ActiveCell.SpecialCells(Excel.Constants.xlLastCell)).Select()
        xlApp.Selection.FillDown


        'xlApp.Range(xlApp.Selection, xlApp.ActiveCell.SpecialCells(Excel.Constants.xlLastCell)).Select()



        xlSheet.Columns("K:K").cut
        xlSheet.Columns("G:G").Select
        xlApp.Selection.Insert(Shift:=Excel.XlDirection.xlToRight)


        xlSheet.Columns("E:g").Select
        xlApp.Selection.NumberFormat = "#,##0.00_);[Red](#,##0.00)"
        xlApp.Range("F4").Copy()

        xlApp.Range("G4").PasteSpecial(Paste:=Excel.XlPasteType.xlPasteFormats)













        xlSheet.Range("E3").FormulaR1C1 = "=SUMIF(R[2]C[-1]:R[10000]C[-1],""*入库"",R[2]C[1]:R[10000]C[1])"
        xlSheet.Range("F3").FormulaR1C1 = "=SUMIF(R[2]C[-2]:R[10000]C,""成品出库"",R[2]C[1]:R[10000]C)"
        xlSheet.Range("G3").FormulaR1C1 = "=RC[-2]-RC[-1]"
        xlSheet.Range("G3").Select()
        xlApp.Selection.NumberFormat = "#,##0.00_);[Red](#,##0.00)"
        xlSheet.Rows("5:5").Select
        xlApp.ActiveWindow.FreezePanes = True


        xlApp.Range("B1:K1").MergeCells = True

        xlApp.Columns("B:K").EntireColumn.AutoFit

        If set_print_format = True Then
            With xlApp.ActiveSheet.PageSetup

                .LeftMargin = xlApp.Application.InchesToPoints(0.15)
                .RightMargin = xlApp.Application.InchesToPoints(0.25)
                .TopMargin = xlApp.Application.InchesToPoints(0.25)
                .BottomMargin = xlApp.Application.InchesToPoints(0.5)
                .HeaderMargin = xlApp.Application.InchesToPoints(0.3)
                .FooterMargin = xlApp.Application.InchesToPoints(0.3)

                .Orientation = Excel.XlPageOrientation.xlLandscape
                .PrintTitleRows = "$1:$4"
                .FitToPagesWide = 1
                .CenterFooter = "第 &P 页，共 &N 页"


            End With
        End If

        xlApp.Columns("B:B").NumberFormat = "yyyy/mm/dd"

        xlApp.Range("f4:g4").Select()

        With xlApp.Selection.Font
            .ThemeColor = Excel.XlThemeColor.xlThemeColorDark1
            .TintAndShade = 0
        End With



        xlSheet = Nothing



    End Sub
    Private Sub crust()


        a = 0
        xlSheet = xlBook.Worksheets.Add
        xlSheet.Name = "保税皮胚仓"
        xlSheet.Activate()
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(1, 1), Address:="", SubAddress:="总表!A1", TextToDisplay:="总表")

        xlSheet.Cells(1, 2) = "仓库物资帐" & "--RTLL015二层牛皮革（坯革）"
        xlSheet.Cells(1, 2).select
        xlApp.Selection.HorizontalAlignment = Excel.Constants.xlCenter
        xlApp.Selection.VerticalAlignment = Excel.Constants.xlCenter
        xlApp.Selection.Font.Size = 24



        sql2 = sql1 & " And (物料名称= N'二层牛皮革（坯革）')"
        cmd.CommandText = sql2
        da.SelectCommand = cmd
        dt1 = New DataTable
        da.Fill(dt1)











        System.Threading.Thread.Sleep(20)

        DGV1.DataSource = dt1
        DGV1.SelectAll()
        Me.DGV1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.DGV1.RowHeadersVisible = False

        Clipboard.SetDataObject(DGV1.GetClipboardContent().GetData(DataFormats.Text.ToString))
        System.Threading.Thread.Sleep(20)




        xlApp.Columns("B:B").ColumnWidth = 20
        xlApp.Columns("c:c").ColumnWidth = 20
        xlApp.Columns("D:D").ColumnWidth = 20
        xlApp.Columns("e:e").ColumnWidth = 20
        xlApp.Columns("F:F").ColumnWidth = 20
        xlApp.Columns("G:G").ColumnWidth = 20
        xlApp.Columns("H:H").ColumnWidth = 20
        xlApp.Columns("I:I").ColumnWidth = 20
        xlApp.Columns("J:J").ColumnWidth = 20
        xlApp.Columns("k:k").ColumnWidth = 20


        xlApp.Columns("J:J").NumberFormat = "@"









        xlApp.Cells(4, 2).Select()



        If IsDBNull(DGV1.GetClipboardContent().GetData(DataFormats.Text.ToString)) Then


        Else
            xlSheet.PasteSpecial()
            Clipboard.SetDataObject(DBNull.Value)
        End If


        'xlSheet.PasteSpecial()

        'Clipboard.SetDataObject(DBNull.Value)






        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("B4:M" & a + dt1.Rows.Count + 4), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"


        ' xlApp.Range("B4:j" & a + dt1.Rows.Count + 1).Select()
        xlApp.Cells(2, 2).Select()

        xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Clear
        'xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Add2(Key:=xlApp.Range("表1[日期]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= .XlSortDataOption.xlSortNormal)


        xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Clear
        xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Add(Key:=xlApp.Range("表1[日期]"), SortOn:=Excel.XlSortOn.xlSortOnValues, Order:=Excel.XlSortOrder.xlAscending, DataOption:=Excel.XlSortDataOption.xlSortNormal)


        With xlApp.ActiveSheet.ListObjects("表1").Sort
            .Header = Excel.XlYesNoGuess.xlYes
            .MatchCase = False
            .Orientation = Excel.Constants.xlTopToBottom

            .Apply
        End With



        xlSheet.Cells(4, 11) = "结存"

        xlSheet.Range("k5").FormulaR1C1 = "=IF(ISNUMBER(R[-1]C[0]),IF(countif(R[0]C[-7],""*入库""),R[-1]C[0]+R[0]C[-5],R[-1]C[0]-R[0]C[-5]),R[0]C[-5])"
        '  xlApp.Selection.AutoFill(Destination:=xlApp.Range("j6:j" & a + dt1.Rows.Count - 1))

        xlSheet.Range("k5").Select()


        ' xlApp.Selection.AutoFill(Destination:=xlApp.Range("表1[结存]"))

        xlApp.Range(xlApp.Selection, xlApp.ActiveCell.SpecialCells(Excel.Constants.xlLastCell)).Select()
        xlApp.Selection.FillDown


        'xlApp.Range(xlApp.Selection, xlApp.ActiveCell.SpecialCells(Excel.Constants.xlLastCell)).Select()



        xlSheet.Columns("K:K").cut
        xlSheet.Columns("G:G").Select
        xlApp.Selection.Insert(Shift:=Excel.XlDirection.xlToRight)


        xlSheet.Columns("E:g").select
        With xlApp.Selection
            .NumberFormat = "#,##0.00_);[Red](#,##0.00)"

        End With


        xlApp.Range("F4").Copy()

        xlApp.Range("G4").PasteSpecial(Paste:=Excel.XlPasteType.xlPasteFormats)













        xlSheet.Range("E3").FormulaR1C1 = "=SUMIF(R[2]C[-1]:R[10000]C[-1],""*入库"",R[2]C[1]:R[10000]C[1])"
        xlSheet.Range("F3").FormulaR1C1 = "=SUMIF(R[2]C[-2]:R[10000]C,""出库"",R[2]C[1]:R[10000]C)"
        xlSheet.Range("G3").FormulaR1C1 = "=RC[-2]-RC[-1]"
        xlSheet.Range("G3").Select()
        xlApp.Selection.NumberFormat = "#,##0.00_);[Red](#,##0.00)"
        xlSheet.Rows("5:5").Select
        xlApp.ActiveWindow.FreezePanes = True


        xlApp.Range("B1:K1").MergeCells = True

        xlApp.Columns("B:K").EntireColumn.AutoFit

        If set_print_format = True Then
            With xlApp.ActiveSheet.PageSetup

                .LeftMargin = xlApp.Application.InchesToPoints(0.15)
                .RightMargin = xlApp.Application.InchesToPoints(0.25)
                .TopMargin = xlApp.Application.InchesToPoints(0.25)
                .BottomMargin = xlApp.Application.InchesToPoints(0.5)
                .HeaderMargin = xlApp.Application.InchesToPoints(0.3)
                .FooterMargin = xlApp.Application.InchesToPoints(0.3)

                .Orientation = Excel.XlPageOrientation.xlLandscape
                .PrintTitleRows = "$1:$4"
                .FitToPagesWide = 1
                .CenterFooter = "第 &P 页，共 &N 页"


            End With
        End If

        xlApp.Columns("B:B").NumberFormat = "yyyy/mm/dd"

        xlApp.Range("f4:g4").Select()

        With xlApp.Selection.Font
            .ThemeColor = Excel.XlThemeColor.xlThemeColorDark1
            .TintAndShade = 0
        End With



        xlSheet = Nothing

    End Sub
    Private Sub finish()


        a = 0
        xlSheet = xlBook.Worksheets.Add
        xlSheet.Name = "产成品-PU牛二层皮6"
        xlSheet.Activate()
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(1, 1), Address:="", SubAddress:="总表!A1", TextToDisplay:="总表")

        xlSheet.Cells(1, 2) = "仓库物资帐" & "--RTCP015 PU牛二层皮6"
        xlSheet.Cells(1, 2).select
        xlApp.Selection.HorizontalAlignment = Excel.Constants.xlCenter
        xlApp.Selection.VerticalAlignment = Excel.Constants.xlCenter
        xlApp.Selection.Font.Size = 24



        sql2 = sql1 & " And (物料名称= N'PU牛二层皮6')"
        cmd.CommandText = sql2
        da.SelectCommand = cmd
        dt1 = New DataTable
        da.Fill(dt1)






        System.Threading.Thread.Sleep(20)

        DGV1.DataSource = dt1
        DGV1.SelectAll()
        Me.DGV1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.DGV1.RowHeadersVisible = False

        Clipboard.SetDataObject(DGV1.GetClipboardContent().GetData(DataFormats.Text.ToString))
        System.Threading.Thread.Sleep(20)




        xlApp.Columns("B:B").ColumnWidth = 20
        xlApp.Columns("c:c").ColumnWidth = 20
        xlApp.Columns("D:D").ColumnWidth = 20
        xlApp.Columns("e:e").ColumnWidth = 20
        xlApp.Columns("F:F").ColumnWidth = 20
        xlApp.Columns("G:G").ColumnWidth = 20
        xlApp.Columns("H:H").ColumnWidth = 20
        xlApp.Columns("I:I").ColumnWidth = 20
        xlApp.Columns("J:J").ColumnWidth = 20
        xlApp.Columns("k:k").ColumnWidth = 20


        xlApp.Columns("J:J").NumberFormat = "@"









        xlApp.Cells(4, 2).Select()



        If IsDBNull(DGV1.GetClipboardContent().GetData(DataFormats.Text.ToString)) Then


        Else
            xlSheet.PasteSpecial()
            Clipboard.SetDataObject(DBNull.Value)
        End If


        'xlSheet.PasteSpecial()

        'Clipboard.SetDataObject(DBNull.Value)






        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("B4:M" & a + dt1.Rows.Count + 4), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"


        ' xlApp.Range("B4:j" & a + dt1.Rows.Count + 1).Select()
        xlApp.Cells(2, 2).Select()

        xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Clear
        'xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Add2(Key:=xlApp.Range("表1[日期]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= .XlSortDataOption.xlSortNormal)


        xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Clear
        xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Add(Key:=xlApp.Range("表1[日期]"), SortOn:=Excel.XlSortOn.xlSortOnValues, Order:=Excel.XlSortOrder.xlAscending, DataOption:=Excel.XlSortDataOption.xlSortNormal)


        With xlApp.ActiveSheet.ListObjects("表1").Sort
            .Header = Excel.XlYesNoGuess.xlYes
            .MatchCase = False
            .Orientation = Excel.Constants.xlTopToBottom

            .Apply
        End With



        xlSheet.Cells(4, 11) = "结存"

        xlSheet.Range("k5").FormulaR1C1 = "=IF(ISNUMBER(R[-1]C[0]),IF(countif(R[0]C[-7],""*入库""),R[-1]C[0]+R[0]C[-5],R[-1]C[0]-R[0]C[-5]),R[0]C[-5])"
        '  xlApp.Selection.AutoFill(Destination:=xlApp.Range("j6:j" & a + dt1.Rows.Count - 1))

        xlSheet.Range("k5").Select()


        ' xlApp.Selection.AutoFill(Destination:=xlApp.Range("表1[结存]"))

        xlApp.Range(xlApp.Selection, xlApp.ActiveCell.SpecialCells(Excel.Constants.xlLastCell)).Select()
        xlApp.Selection.FillDown


        'xlApp.Range(xlApp.Selection, xlApp.ActiveCell.SpecialCells(Excel.Constants.xlLastCell)).Select()



        xlSheet.Columns("K:K").cut
        xlSheet.Columns("G:G").Select
        xlApp.Selection.Insert(Shift:=Excel.XlDirection.xlToRight)


        xlSheet.Columns("E:g").Select
        xlApp.Selection.NumberFormat = "#,##0.00_);[Red](#,##0.00)"
        xlApp.Range("F4").Copy()

        xlApp.Range("G4").PasteSpecial(Paste:=Excel.XlPasteType.xlPasteFormats)













        xlSheet.Range("E3").FormulaR1C1 = "=SUMIF(R[2]C[-1]:R[10000]C[-1],""*入库"",R[2]C[1]:R[10000]C[1])"
        xlSheet.Range("F3").FormulaR1C1 = "=SUMIF(R[2]C[-2]:R[10000]C,""*出库"",R[2]C[1]:R[10000]C)"
        xlSheet.Range("G3").FormulaR1C1 = "=RC[-2]-RC[-1]"
        xlSheet.Range("G3").Select()
        xlApp.Selection.NumberFormat = "#,##0.00_);[Red](#,##0.00)"
        xlSheet.Rows("5:5").Select
        xlApp.ActiveWindow.FreezePanes = True


        xlApp.Range("B1:K1").MergeCells = True

        xlApp.Columns("B:K").EntireColumn.AutoFit

        If set_print_format = True Then
            With xlApp.ActiveSheet.PageSetup

                .LeftMargin = xlApp.Application.InchesToPoints(0.15)
                .RightMargin = xlApp.Application.InchesToPoints(0.25)
                .TopMargin = xlApp.Application.InchesToPoints(0.25)
                .BottomMargin = xlApp.Application.InchesToPoints(0.5)
                .HeaderMargin = xlApp.Application.InchesToPoints(0.3)
                .FooterMargin = xlApp.Application.InchesToPoints(0.3)

                .Orientation = Excel.XlPageOrientation.xlLandscape
                .PrintTitleRows = "$1:$4"
                .FitToPagesWide = 1
                .CenterFooter = "第 &P 页，共 &N 页"


            End With
        End If

        xlApp.Columns("B:B").NumberFormat = "yyyy/mm/dd"

        xlApp.Range("f4:g4").Select()

        With xlApp.Selection.Font
            .ThemeColor = Excel.XlThemeColor.xlThemeColorDark1
            .TintAndShade = 0
        End With



        xlSheet = Nothing

    End Sub



    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click    '------输出EXCEL

        set_print_format = CheckBox1.Checked

        Dim my_xno As String = "(手册号="





        xlApp = CreateObject("Excel.Application")



        xlBook = xlApp.Workbooks.Add

        xlApp.Visible = True
        'xlApp.DisplayAlerts = False

        xlBook.Activate()
        xlBook.Parent.Windows(1).Visible = True

        For x As Integer = 1 To chkb1.CheckedItems.Count

            If x < chkb1.CheckedItems.Count Then
                my_xno = my_xno & "'" & chkb1.CheckedItems(x - 1).ToString & "' Or 手册号 ="
            Else
                my_xno = my_xno & "'" & chkb1.CheckedItems(x - 1).ToString & "')"
                xlBook.SaveAs("d:\" & chkb1.CheckedItems(x - 1).ToString & "_" & String.Format("{0:yyyyMMdd}", dtp1.Value) & "止.xls")
                my_excel_name = chkb1.CheckedItems(x - 1).ToString
            End If


        Next

        '--------------保税仓
        sql1 = "SELECT          日期, 单号, 出入库, 物料名称, 数量, 调出仓库,调入仓库,手册号,报关单号,报关单号 from( SELECT 日期, 单号, 出入库, 物料名称, 数量, 调出仓库, CASE WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                            成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            入库手册号 IS NULL THEN 领料手册号 END AS 手册号,调入仓库,报关单号
FROM              (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                        CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 
                                                        3) = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'sou' THEN N'出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'cin' THEN N'入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'xou' THEN N'成品出库' END AS 出入库,
                                                         rt_t_item.FName AS 物料名称, rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调出仓库, 
                                                        rt_stock_name_1.FName AS 调入仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                        rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                        rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                        rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, 
                                                        rt_stock_bill1.FSCStockID, rt_stock_bill1.FDCStockID
                            FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                        rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                        rt_stock_name AS rt_stock_name_1 ON 
                                                        rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                        rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                        rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                            ORDER BY    日期 DESC) AS p ) as q where " & my_xno & " and 日期<='" & String.Format("{0:d}", dtp1.Value) & "'"


        sql3 = "SELECT          日期, 单号, 出入库, 物料名称, 数量, 调出仓库,调入仓库,手册号 from ( SELECT          日期, 单号, 出入库, 物料名称, 数量, 调出仓库, CASE WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                            成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            入库手册号 IS NULL THEN 领料手册号 END AS 手册号,调入仓库,报关单号
FROM              (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                        CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 
                                                        3) = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'sou' THEN N'出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'cin' THEN N'入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'xou' THEN N'成品出库' END AS 出入库,
                                                         rt_t_item.FName AS 物料名称, rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调出仓库, 
                                                        rt_stock_name_1.FName AS 调入仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                        rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                        rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                        rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, 
                                                        rt_stock_bill1.FSCStockID, rt_stock_bill1.FDCStockID
                            FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                        rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                        rt_stock_name AS rt_stock_name_1 ON 
                                                        rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                        rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                        rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                            ORDER BY    日期 DESC) AS p ) as q where 调出仓库 like N'保税%' and " & my_xno & " and 日期<='" & String.Format("{0:d}", dtp1.Value) & "'"

        crust()

        shaving(111)

        finish()






        start_wh_bao_cal(chkb1.CheckedItems(0).ToString, "蓝湿牛二层皮")
        start_wh_bao_cal(chkb1.CheckedItems(0).ToString, "有机鞣料")
        start_wh_bao_cal(chkb1.CheckedItems(0).ToString, "无机鞣料")
        start_wh_bao_cal(chkb1.CheckedItems(0).ToString, "合成油脂")
        ' start_wh_bao_cal(chkb1.CheckedItems(0).ToString, "合成油脂(矿)")
        start_wh_bao_cal(chkb1.CheckedItems(0).ToString, "皮革整理剂")
        start_wh_bao_cal(chkb1.CheckedItems(0).ToString, "表面活性剂")
        start_wh_bao_cal(chkb1.CheckedItems(0).ToString, "复鞣助剂")
        start_wh_bao_cal(chkb1.CheckedItems(0).ToString, "制革染料")
        start_wh_bao_cal(chkb1.CheckedItems(0).ToString, "聚氨酯混合液")
        start_wh_bao_cal(chkb1.CheckedItems(0).ToString, "PU树脂")
        start_wh_bao_cal(chkb1.CheckedItems(0).ToString, "皮革促进剂")





        '-------------------车间

        sql1 = "SELECT          日期, 单号, 出入库, 物料名称, 数量, 调出仓库,调入仓库,手册号,备注 from( SELECT          日期, 单号, 出入库, 物料名称, 数量, 调出仓库, CASE WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                            成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            入库手册号 IS NULL THEN 领料手册号 END AS 手册号,调入仓库,报关单号 as 备注
FROM              (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                        CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 
                                                        3) = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'sou' THEN N'出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'cin' THEN N'入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'xou' THEN N'成品出库' END AS 出入库,
                                                         rt_t_item.FName AS 物料名称, rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调出仓库, 
                                                        rt_stock_name_1.FName AS 调入仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                        rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                        rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                        rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, 
                                                        rt_stock_bill1.FSCStockID, rt_stock_bill1.FDCStockID
                            FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                        rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                        rt_stock_name AS rt_stock_name_1 ON 
                                                        rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                        rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                        rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                            ORDER BY    日期 DESC) AS p where 单号 like N'%CIN%') as q where " & my_xno & " and 日期<='" & String.Format("{0:d}", dtp1.Value) & "'"


        sql3 = "SELECT          日期, 单号, 出入库, 物料名称, 数量, 调出仓库,手册号,调入仓库,备注 from( SELECT          日期, 单号, 出入库, 物料名称, 数量, 调出仓库, CASE WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                            成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            入库手册号 IS NULL THEN 领料手册号 END AS 手册号,调入仓库,报关单号 as 备注
FROM              (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                        CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 
                                                        3) = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'sou' THEN N'领料' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'cin' THEN N'入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'xou' THEN N'原料出库' END AS 出入库,
                                                         rt_t_item.FName AS 物料名称, rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调出仓库, 
                                                        rt_stock_name_1.FName AS 调入仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                        rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                        rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                        rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, 
                                                        rt_stock_bill1.FSCStockID, rt_stock_bill1.FDCStockID
                            FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                        rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                        rt_stock_name AS rt_stock_name_1 ON 
                                                        rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                        rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                        rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                            ORDER BY    日期 DESC) AS p where 出入库 =N'领料' or 出入库=N'原料出库') as p where (调出仓库 not like N'保税%' or 调出仓库 is null ) and " & my_xno & " and 日期<='" & String.Format("{0:d}", dtp1.Value) & "'"




        start_wh_chi_cal(chkb1.CheckedItems(0).ToString, "蓝湿牛二层皮")
        start_wh_chi_cal(chkb1.CheckedItems(0).ToString, "有机鞣料")
        start_wh_chi_cal(chkb1.CheckedItems(0).ToString, "无机鞣料")
        start_wh_chi_cal(chkb1.CheckedItems(0).ToString, "合成油脂")
        '  start_wh_chi_cal(chkb1.CheckedItems(0).ToString, "合成油脂(矿)")
        start_wh_chi_cal(chkb1.CheckedItems(0).ToString, "皮革整理剂")
        start_wh_chi_cal(chkb1.CheckedItems(0).ToString, "表面活性剂")
        start_wh_chi_cal(chkb1.CheckedItems(0).ToString, "复鞣助剂")
        start_wh_chi_cal(chkb1.CheckedItems(0).ToString, "制革染料")
        start_wh_chi_cal(chkb1.CheckedItems(0).ToString, "聚氨酯混合液")
        start_wh_chi_cal(chkb1.CheckedItems(0).ToString, "PU树脂")
        start_wh_chi_cal(chkb1.CheckedItems(0).ToString, "皮革促进剂")



        '--------------------修剪仓


        sql3 = "SELECT          日期, 单号, 出入库, 物料名称, 数量, 调出仓库,手册号,调入仓库,备注 from( SELECT          日期, 单号, 出入库, 物料名称, 数量, 调出仓库, CASE WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                            成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            入库手册号 IS NULL THEN 领料手册号 END AS 手册号,调入仓库,报关单号 as 备注
FROM              (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                        CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 
                                                        3) = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'sou' THEN N'领料' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'cin' THEN N'入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'xou' THEN N'原料出库' END AS 出入库,
                                                         rt_t_item.FName AS 物料名称, rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调出仓库, 
                                                        rt_stock_name_1.FName AS 调入仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                        rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                        rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                        rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, 
                                                        rt_stock_bill1.FSCStockID, rt_stock_bill1.FDCStockID
                            FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                        rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                        rt_stock_name AS rt_stock_name_1 ON 
                                                        rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                        rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                        rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                            ORDER BY    日期 DESC) AS p where 出入库 =N'领料' or 出入库=N'原料出库') as p where (物料名称=N'蓝湿牛二层皮（削匀皮）' ) and " & my_xno & " and 日期<='" & String.Format("{0:d}", dtp1.Value) & "'"








        '-------------------在制品

        sql1 = "SELECT          日期, 单号, 出入库, 物料名称, 数量, 调出仓库,调入仓库,手册号 from( SELECT          日期, 单号, 出入库, 物料名称, 数量, 调出仓库, CASE WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                            成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            入库手册号 IS NULL THEN 领料手册号 END AS 手册号,调入仓库
FROM              (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                        CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 
                                                        3) = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'sou' THEN N'出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'cin' THEN N'入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'xou' THEN N'成品出库' END AS 出入库,
                                                         rt_t_item.FName AS 物料名称, rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调出仓库, 
                                                        rt_stock_name_1.FName AS 调入仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                        rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                        rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                        rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, 
                                                        rt_stock_bill1.FSCStockID, rt_stock_bill1.FDCStockID
                            FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                        rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                        rt_stock_name AS rt_stock_name_1 ON 
                                                        rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                        rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                        rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                            ORDER BY    日期 DESC) AS p where 单号 like N'%CIN%') as q where " & my_xno & " and 日期<='" & String.Format("{0:d}", dtp1.Value) & "'"


        sql3 = "SELECT          日期, 单号, 出入库, 物料名称, 数量, 调出仓库,调入仓库,手册号 from( SELECT          日期, 单号, 出入库, 物料名称, 数量, 调出仓库, CASE WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                            成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            入库手册号 IS NULL THEN 领料手册号 END AS 手册号,调入仓库
FROM              (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                        CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 
                                                        3) = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'sou' THEN N'出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'cin' THEN N'入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'xou' THEN N'成品出库' END AS 出入库,
                                                         rt_t_item.FName AS 物料名称, rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调出仓库, 
                                                        rt_stock_name_1.FName AS 调入仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                        rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                        rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                        rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, 
                                                        rt_stock_bill1.FSCStockID, rt_stock_bill1.FDCStockID
                            FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                        rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                        rt_stock_name AS rt_stock_name_1 ON 
                                                        rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                        rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                        rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                            ORDER BY    日期 DESC) AS p where 出入库=N'出库' and 调出仓库=N'在制品仓') as q where " & my_xno & " and 日期<='" & String.Format("{0:d}", dtp1.Value) & "'"


        'start_wh_zhai_cal(chkb1.CheckedItems(0).ToString, "牛二层皮1")
        'start_wh_zhai_cal(chkb1.CheckedItems(0).ToString, "牛二层皮2")
        'start_wh_zhai_cal(chkb1.CheckedItems(0).ToString, "牛二层皮3")
        'start_wh_zhai_cal(chkb1.CheckedItems(0).ToString, "牛二层皮4")
        'start_wh_zhai_cal(chkb1.CheckedItems(0).ToString, "牛二层皮5")
        'start_wh_zhai_cal(chkb1.CheckedItems(0).ToString, "牛二层皮6")
        start_wh_zhai_cal(chkb1.CheckedItems(0).ToString, "牛二层皮9")
        start_wh_zhai_cal(chkb1.CheckedItems(0).ToString, "牛二层皮10")


        'start_wh_zhai_cal(chkb1.CheckedItems(0).ToString, "PU牛二层皮")
        'start_wh_zhai_cal(chkb1.CheckedItems(0).ToString, "PU牛二层皮2")
        start_wh_zhai_cal(chkb1.CheckedItems(0).ToString, "PU牛二层皮6")
        start_wh_zhai_cal(chkb1.CheckedItems(0).ToString, "PU牛二层皮7")
        '  start_wh_zhai_cal(chkb1.CheckedItems(0).ToString, "PU牛二层皮5")





        '-------------------成品

        sql1 = "SELECT          日期, 单号, 出入库, 物料名称, 数量, 调出仓库,调入仓库,手册号,报关单号, 客户 from( SELECT          日期, 单号, 出入库, 物料名称, 数量, 调出仓库, CASE WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                            成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            入库手册号 IS NULL THEN 领料手册号 END AS 手册号,调入仓库,报关单号, 客户
FROM              (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                        CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 
                                                        3) = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'sou' THEN N'出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'cin' THEN N'入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'xou' THEN N'出库' END AS 出入库,
                                                         rt_t_item.FName AS 物料名称, rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调出仓库, 
                                                        rt_stock_name_1.FName AS 调入仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                        rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                        rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                        rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, 
                                                        rt_stock_bill1.FSCStockID, rt_stock_bill1.FDCStockID, rt_stock_bill1.FNote AS 客户
                            FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                        rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                        rt_stock_name AS rt_stock_name_1 ON 
                                                        rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                        rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                        rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                            ORDER BY    日期 DESC) AS p where 单号 like N'%cin%') as q where " & my_xno & " and 日期<='" & String.Format("{0:d}", dtp1.Value) & "'"


        sql3 = "SELECT          日期, 单号, 出入库, 物料名称, 数量,调入仓库, 调出仓库,手册号,报关单号, 客户 from( SELECT 日期, 单号, 出入库, 物料名称, 数量, 调出仓库, CASE WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                            成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            入库手册号 IS NULL THEN 领料手册号 END AS 手册号,调入仓库,报关单号, 客户
FROM              (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                        CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 
                                                        3) = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'sou' THEN N'出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'cin' THEN N'入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'xou' THEN N'出库' END AS 出入库,
                                                         rt_t_item.FName AS 物料名称, rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调出仓库, 
                                                        rt_stock_name_1.FName AS 调入仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                        rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                        rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                        rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, 
                                                        rt_stock_bill1.FSCStockID, rt_stock_bill1.FDCStockID, rt_stock_bill1.FNote AS 客户

                            FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                        rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                        rt_stock_name AS rt_stock_name_1 ON 
                                                        rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                        rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                        rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                            ORDER BY    日期 DESC) AS p where (单号 LIKE N'%xout%' OR
                                      单号 LIKE '%sout%') AND (调出仓库 = N'成品仓') OR
                                      (单号 LIKE N'%xout%' OR
                                      单号 LIKE '%sout%') AND (调入仓库 = N'成品仓')) as q where " & my_xno & " and 日期<='" & String.Format("{0:d}", dtp1.Value) & "'"


        'start_wh_cheng_cal(chkb1.CheckedItems(0).ToString, "牛二层皮1")
        'start_wh_cheng_cal(chkb1.CheckedItems(0).ToString, "牛二层皮2")
        'start_wh_cheng_cal(chkb1.CheckedItems(0).ToString, "牛二层皮3")
        'start_wh_cheng_cal(chkb1.CheckedItems(0).ToString, "牛二层皮4")
        'start_wh_cheng_cal(chkb1.CheckedItems(0).ToString, "牛二层皮5")
        'start_wh_cheng_cal(chkb1.CheckedItems(0).ToString, "牛二层皮6")
        start_wh_cheng_cal(chkb1.CheckedItems(0).ToString, "牛二层皮9")
        start_wh_cheng_cal(chkb1.CheckedItems(0).ToString, "牛二层皮10")

        'start_wh_cheng_cal(chkb1.CheckedItems(0).ToString, "PU牛二层皮")
        'start_wh_cheng_cal(chkb1.CheckedItems(0).ToString, "PU牛二层皮2")
        ' start_wh_cheng_cal(chkb1.CheckedItems(0).ToString, "PU牛二层皮6")
        start_wh_cheng_cal(chkb1.CheckedItems(0).ToString, "PU牛二层皮7")
        'start_wh_cheng_cal(chkb1.CheckedItems(0).ToString, "PU牛二层皮5")

        '-------------------边角料

        sql1 = "SELECT          日期, 单号, 出入库, 物料名称, 数量, 调出仓库,调入仓库,手册号 from( SELECT          日期, 单号, 出入库, 物料名称, 数量, 调出仓库, CASE WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                            成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            入库手册号 IS NULL THEN 领料手册号 END AS 手册号,调入仓库
FROM              (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                        CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 
                                                        3) = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'sou' THEN N'出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'cin' THEN N'入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'xou' THEN N'出库' END AS 出入库,
                                                         rt_t_item.FName AS 物料名称, rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调出仓库, 
                                                        rt_stock_name_1.FName AS 调入仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                        rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                        rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                        rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, 
                                                        rt_stock_bill1.FSCStockID, rt_stock_bill1.FDCStockID
                            FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                        rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                        rt_stock_name AS rt_stock_name_1 ON 
                                                        rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                        rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                        rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID WHERE           (rt_t_item.FName LIKE N'%边%') OR
                                                        (rt_t_item.FName LIKE N'%底%') OR
                                                        (rt_t_item.FName LIKE N'%头%')  ORDER BY    日期 DESC) AS p where 单号 like N'%cin%' ) as q where " & my_xno & " and 日期<='" & String.Format("{0:d}", dtp1.Value) & "'"


        sql3 = "SELECT          日期, 单号, 出入库, 物料名称, 数量,调入仓库, 调出仓库,手册号,报关单号 from( SELECT 日期, 单号, 出入库, 物料名称, 数量, 调出仓库, CASE WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                            成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            入库手册号 IS NULL THEN 领料手册号 END AS 手册号,调入仓库,报关单号
FROM              (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                        CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 
                                                        3) = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'sou' THEN N'出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'cin' THEN N'入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'xou' THEN N'出库' END AS 出入库,
                                                         rt_t_item.FName AS 物料名称, rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调出仓库, 
                                                        rt_stock_name_1.FName AS 调入仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                        rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                        rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                        rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, 
                                                        rt_stock_bill1.FSCStockID, rt_stock_bill1.FDCStockID
                            FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                        rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                        rt_stock_name AS rt_stock_name_1 ON 
                                                        rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                        rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                        rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID  WHERE           (rt_t_item.FName LIKE N'%边%') OR
                                                        (rt_t_item.FName LIKE N'%底%') OR
                                                        (rt_t_item.FName LIKE N'%头%')
                            ORDER BY    日期 DESC) AS p where 单号 like N'%out%' )  as q where " & my_xno & " and 日期<='" & String.Format("{0:d}", dtp1.Value) & "'"


        start_wh_bjl_cal(chkb1.CheckedItems(0).ToString, "蓝湿牛二层皮（头部皮）")
        start_wh_bjl_cal(chkb1.CheckedItems(0).ToString, "蓝湿牛二层皮（肚边皮）")
        start_wh_bjl_cal(chkb1.CheckedItems(0).ToString, "蓝湿牛皮（底层皮）")
        start_wh_bjl_cal(chkb1.CheckedItems(0).ToString, "皮革边角废料粉末")




















        sql1 = "SELECT          日期, 单号, 出入库, 物料名称, 数量, 调出仓库,调入仓库,手册号 from( SELECT          日期, 单号, 出入库, 物料名称, 数量, 调出仓库, CASE WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                            成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            入库手册号 IS NULL THEN 领料手册号 END AS 手册号,调入仓库
FROM              (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                        CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 
                                                        3) = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'sou' THEN N'出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'cin' THEN N'入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'xou' THEN N'成品出库' END AS 出入库,
                                                         rt_t_item.FName AS 物料名称, rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调出仓库, 
                                                        rt_stock_name_1.FName AS 调入仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                        rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                        rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                        rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, 
                                                        rt_stock_bill1.FSCStockID, rt_stock_bill1.FDCStockID
                            FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                        rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                        rt_stock_name AS rt_stock_name_1 ON 
                                                        rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                        rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                        rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                            ORDER BY    日期 DESC) AS p ) as q"

        xlSheet = xlBook.Worksheets.Add
        xlSheet.Name = "原始资料"
        xlSheet.Activate()
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(1, 1), Address:="", SubAddress:="总表!A1", TextToDisplay:="总表")

        cmd.CommandText = sql1
        da.SelectCommand = cmd
        dt1 = New DataTable
        da.Fill(dt1)

        DGV1.DataSource = dt1
        DGV1.SelectAll()
        Me.DGV1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.DGV1.RowHeadersVisible = False

        Clipboard.SetDataObject(DGV1.GetClipboardContent())
        System.Threading.Thread.Sleep(1000)
        xlApp.Cells(4, 2).Select()


        xlSheet.PasteSpecial()
        Clipboard.SetDataObject(DBNull.Value)

        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("B4:J" & dt1.Rows.Count + 3 + 1), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"




        xlSheet = xlBook.Worksheets.Add
        xlSheet.Name = "总表"
        xlSheet.Activate()


        xlSheet.Cells(1, 3) = my_excel_name
        xlSheet.Cells(2, 2) = "保税仓"
        xlSheet.Cells(4, 3) = "入库"
        xlSheet.Cells(4, 4) = "出库"
        xlSheet.Cells(4, 5) = "结存"

        xlSheet.Cells(2, 7) = "车间仓"
        xlSheet.Cells(4, 8) = "入库"
        xlSheet.Cells(4, 9) = "出库"
        xlSheet.Cells(4, 10) = "结存"

        xlSheet.Cells(18, 2) = "在制品仓"
        xlSheet.Cells(20, 3) = "入库"
        xlSheet.Cells(20, 4) = "出库"
        xlSheet.Cells(20, 5) = "结存"

        xlSheet.Cells(18, 7) = "成品仓"
        xlSheet.Cells(20, 8) = "入库"
        xlSheet.Cells(20, 9) = "出库"
        xlSheet.Cells(20, 10) = "结存"

        xlSheet.Cells(29, 2) = "边角料仓"
        xlSheet.Cells(30, 3) = "入库"
        xlSheet.Cells(30, 4) = "出库"
        xlSheet.Cells(30, 5) = "结存"

        xlSheet.Cells(29, 7) = "修剪仓"
        xlSheet.Cells(30, 8) = "入库"
        xlSheet.Cells(30, 9) = "出库"
        xlSheet.Cells(30, 10) = "结存"


        xlSheet.Cells(36, 7) = "保税皮胚仓"
        xlSheet.Cells(37, 8) = "入库"
        xlSheet.Cells(37, 9) = "出库"
        xlSheet.Cells(37, 10) = "结存"



        xlSheet.Cells(1, 4) = String.Format("{0:d}", dtp1.Value) & "止"




        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(5, 2), Address:="", SubAddress:="'保税仓-蓝湿牛二层皮'!A1", TextToDisplay:="RTLL001 蓝湿牛二层皮")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(6, 2), Address:="", SubAddress:="'保税仓-有机鞣料'!A1", TextToDisplay:="RTLL002 有机鞣料")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(7, 2), Address:="", SubAddress:="'保税仓-无机鞣料'!A1", TextToDisplay:="RTLL003 无机鞣料")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(8, 2), Address:="", SubAddress:="'保税仓-表面活性剂'!A1", TextToDisplay:="RTLL004 表面活性剂")
        '  xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(9, 2), Address:="", SubAddress:="'保税仓-合成油脂(矿)'!A1", TextToDisplay:="RTLL005 合成油脂(矿)")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(9, 2), Address:="", SubAddress:="'保税仓-合成油脂'!A1", TextToDisplay:="RTLL006 合成油脂")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(10, 2), Address:="", SubAddress:="'保税仓-皮革整理剂'!A1", TextToDisplay:="RTLL008 皮革整理剂")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(11, 2), Address:="", SubAddress:="'保税仓-复鞣助剂'!A1", TextToDisplay:="RTLL009 复鞣助剂")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(12, 2), Address:="", SubAddress:="'保税仓-制革染料'!A1", TextToDisplay:="RTLL010 制革染料")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(13, 2), Address:="", SubAddress:="'保税仓-聚氨酯混合液'!A1", TextToDisplay:="RTLL012 聚氨酯混合液")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(14, 2), Address:="", SubAddress:="'保税仓-PU树脂'!A1", TextToDisplay:="RTLL014 PU树脂")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(15, 2), Address:="", SubAddress:="'保税仓-皮革促进剂'!A1", TextToDisplay:="RTLL013 皮革促进剂")


        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(5, 7), Address:="", SubAddress:="'车间-蓝湿牛二层皮'!A1", TextToDisplay:="RTLL001 蓝湿牛二层皮")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(6, 7), Address:="", SubAddress:="'车间-有机鞣料'!A1", TextToDisplay:="RTLL002 有机鞣料")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(7, 7), Address:="", SubAddress:="'车间-无机鞣料'!A1", TextToDisplay:="RTLL003 无机鞣料")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(8, 7), Address:="", SubAddress:="'车间-表面活性剂'!A1", TextToDisplay:="RTLL004 表面活性剂")
        '  xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(9, 7), Address:="", SubAddress:="'车间-合成油脂(矿)'!A1", TextToDisplay:="RTLL005 合成油脂(矿)")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(9, 7), Address:="", SubAddress:="'车间-合成油脂'!A1", TextToDisplay:="RTLL006 合成油脂")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(10, 7), Address:="", SubAddress:="'车间-皮革整理剂'!A1", TextToDisplay:="RTLL008 皮革整理剂")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(11, 7), Address:="", SubAddress:="'车间-复鞣助剂'!A1", TextToDisplay:="RTLL009 复鞣助剂")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(12, 7), Address:="", SubAddress:="'车间-制革染料'!A1", TextToDisplay:="RTLL010 制革染料")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(13, 7), Address:="", SubAddress:="'车间-聚氨酯混合液'!A1", TextToDisplay:="RTLL012 聚氨酯混合液")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(14, 7), Address:="", SubAddress:="'车间-PU树脂'!A1", TextToDisplay:="RTLL014 PU树脂")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(15, 7), Address:="", SubAddress:="'车间-皮革促进剂'!A1", TextToDisplay:="RTLL013皮革促进剂")









        'xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(21, 2), Address:="", SubAddress:="'在制品-牛二层皮1'!A1", TextToDisplay:="RTCP001 牛二层皮1")
        'xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(22, 2), Address:="", SubAddress:="'在制品-牛二层皮2'!A1", TextToDisplay:="RTCP002 牛二层皮2")
        'xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(23, 2), Address:="", SubAddress:="'在制品-牛二层皮3'!A1", TextToDisplay:="RTCP004 牛二层皮3")
        'xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(24, 2), Address:="", SubAddress:="'在制品-牛二层皮4'!A1", TextToDisplay:="RTCP005 牛二层皮4")
        'xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(25, 2), Address:="", SubAddress:="'在制品-牛二层皮5'!A1", TextToDisplay:="RTCP006 牛二层皮5")
        'xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(26, 2), Address:="", SubAddress:="'在制品-牛二层皮6'!A1", TextToDisplay:="RTCP007 牛二层皮6")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(21, 2), Address:="", SubAddress:="'在制品-牛二层皮9'!A1", TextToDisplay:="RTCP011 牛二层皮9")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(22, 2), Address:="", SubAddress:="'在制品-牛二层皮10'!A1", TextToDisplay:="RTCP012 牛二层皮10")

        'xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(29, 2), Address:="", SubAddress:="'在制品-PU牛二层皮'!A1", TextToDisplay:="RTCP003 PU牛二层皮")
        'xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(30, 2), Address:="", SubAddress:="'在制品-PU牛二层皮2'!A1", TextToDisplay:="RTCP008 PU牛二层皮2")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(23, 2), Address:="", SubAddress:="'在制品-PU牛二层皮6'!A1", TextToDisplay:="RTCP009 PU牛二层皮6")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(24, 2), Address:="", SubAddress:="'在制品-PU牛二层皮7'!A1", TextToDisplay:="RTCP010 PU牛二层皮7")
        ' xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(25, 2), Address:="", SubAddress:="'在制品-PU牛二层皮5'!A1", TextToDisplay:="RTCP013 PU牛二层皮5")
        ' xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(26, 2), Address:="", SubAddress:="'在制品-PU牛二层皮6'!A1", TextToDisplay:="RTCP015 PU牛二层皮6")



        'xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(21, 7), Address:="", SubAddress:="'产成品-牛二层皮1'!A1", TextToDisplay:="RTCP001 牛二层皮1")
        'xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(22, 7), Address:="", SubAddress:="'产成品-牛二层皮2'!A1", TextToDisplay:="RTCP002 牛二层皮2")
        'xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(23, 7), Address:="", SubAddress:="'产成品-牛二层皮3'!A1", TextToDisplay:="RTCP004 牛二层皮3")
        'xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(24, 7), Address:="", SubAddress:="'产成品-牛二层皮4'!A1", TextToDisplay:="RTCP005 牛二层皮4")
        'xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(25, 7), Address:="", SubAddress:="'产成品-牛二层皮5'!A1", TextToDisplay:="RTCP006 牛二层皮5")
        'xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(26, 7), Address:="", SubAddress:="'产成品-牛二层皮6'!A1", TextToDisplay:="RTCP007 牛二层皮6")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(21, 7), Address:="", SubAddress:="'产成品-牛二层皮9'!A1", TextToDisplay:="RTCP011 牛二层皮9")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(22, 7), Address:="", SubAddress:="'产成品-牛二层皮10'!A1", TextToDisplay:="RTCP012 牛二层皮10")

        'xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(29, 7), Address:="", SubAddress:="'产成品-PU牛二层皮'!A1", TextToDisplay:="RTCP003 PU牛二层皮")
        'xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(30, 7), Address:="", SubAddress:="'产成品-PU牛二层皮2'!A1", TextToDisplay:="RTCP008 PU牛二层皮2")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(23, 7), Address:="", SubAddress:="'产成品-PU牛二层皮6'!A1", TextToDisplay:="RTCP009 PU牛二层皮6")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(24, 7), Address:="", SubAddress:="'产成品-PU牛二层皮7'!A1", TextToDisplay:="RTCP010 PU牛二层皮7")
        'xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(25, 7), Address:="", SubAddress:="'产成品-PU牛二层皮5'!A1", TextToDisplay:="RTCP013 PU牛二层皮5")
        'xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(26, 7), Address:="", SubAddress:="'产成品-PU牛二层皮6'!A1", TextToDisplay:="RTCP015 PU牛二层皮6")



        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(31, 2), Address:="", SubAddress:="'边角料-蓝湿牛二层皮（头部皮）'!A1", TextToDisplay:="蓝湿牛二层皮（头部皮）")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(32, 2), Address:="", SubAddress:="'边角料-蓝湿牛二层皮（肚边皮）'!A1", TextToDisplay:="蓝湿牛二层皮（肚边皮）")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(33, 2), Address:="", SubAddress:="'边角料-蓝湿牛皮（底层皮）'!A1", TextToDisplay:="蓝湿牛皮（底层皮）")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(34, 2), Address:="", SubAddress:="'边角料-皮革边角废料粉末'!A1", TextToDisplay:="皮革边角废料粉末")


        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(31, 7), Address:="", SubAddress:="'修剪仓'!A1", TextToDisplay:="蓝湿牛二层皮（削匀皮）")




        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(38, 7), Address:="", SubAddress:="'保税皮胚仓'!A1", TextToDisplay:="保税皮胚仓")



        xlSheet.Cells(5, 3).FormulaR1C1 = "='保税仓-蓝湿牛二层皮'!R[-2]C[2]"
        xlSheet.Cells(6, 3).FormulaR1C1 = "='保税仓-有机鞣料'!R[-3]C[2]"
        xlSheet.Cells(7, 3).FormulaR1C1 = "='保税仓-无机鞣料'!R[-4]C[2]"
        xlSheet.Cells(8, 3).FormulaR1C1 = "='保税仓-表面活性剂'!R[-5]C[2]"
        '  xlSheet.Cells(9, 3).FormulaR1C1 = "='保税仓-合成油脂(矿)'!R[-6]C[2]"
        xlSheet.Cells(9, 3).FormulaR1C1 = "='保税仓-合成油脂'!R[-6]C[2]"
        xlSheet.Cells(10, 3).FormulaR1C1 = "='保税仓-皮革整理剂'!R[-7]C[2]"
        xlSheet.Cells(11, 3).FormulaR1C1 = "='保税仓-复鞣助剂'!R[-8]C[2]"
        xlSheet.Cells(12, 3).FormulaR1C1 = "='保税仓-制革染料'!R[-9]C[2]"
        xlSheet.Cells(13, 3).FormulaR1C1 = "='保税仓-聚氨酯混合液'!R[-10]C[2]"
        xlSheet.Cells(14, 3).FormulaR1C1 = "='保税仓-PU树脂'!R[-11]C[2]"
        xlSheet.Cells(15, 3).FormulaR1C1 = "='保税仓-皮革促进剂'!R[-12]C[2]"


        xlSheet.Cells(5, 4).FormulaR1C1 = "='保税仓-蓝湿牛二层皮'!R[-2]C[2]"
        xlSheet.Cells(6, 4).FormulaR1C1 = "='保税仓-有机鞣料'!R[-3]C[2]"
        xlSheet.Cells(7, 4).FormulaR1C1 = "='保税仓-无机鞣料'!R[-4]C[2]"
        xlSheet.Cells(8, 4).FormulaR1C1 = "='保税仓-表面活性剂'!R[-5]C[2]"
        'xlSheet.Cells(9, 4).FormulaR1C1 = "='保税仓-合成油脂(矿)'!R[-6]C[2]"
        xlSheet.Cells(9, 4).FormulaR1C1 = "='保税仓-合成油脂'!R[-6]C[2]"
        xlSheet.Cells(10, 4).FormulaR1C1 = "='保税仓-皮革整理剂'!R[-7]C[2]"
        xlSheet.Cells(11, 4).FormulaR1C1 = "='保税仓-复鞣助剂'!R[-8]C[2]"
        xlSheet.Cells(12, 4).FormulaR1C1 = "='保税仓-制革染料'!R[-9]C[2]"
        xlSheet.Cells(13, 4).FormulaR1C1 = "='保税仓-聚氨酯混合液'!R[-10]C[2]"
        xlSheet.Cells(14, 4).FormulaR1C1 = "='保税仓-PU树脂'!R[-11]C[2]"
        xlSheet.Cells(15, 4).FormulaR1C1 = "='保税仓-皮革促进剂'!R[-12]C[2]"

        xlSheet.Cells(5, 5).FormulaR1C1 = "='保税仓-蓝湿牛二层皮'!R[-2]C[2]"
        xlSheet.Cells(6, 5).FormulaR1C1 = "='保税仓-有机鞣料'!R[-3]C[2]"
        xlSheet.Cells(7, 5).FormulaR1C1 = "='保税仓-无机鞣料'!R[-4]C[2]"
        xlSheet.Cells(8, 5).FormulaR1C1 = "='保税仓-表面活性剂'!R[-5]C[2]"
        'xlSheet.Cells(9, 5).FormulaR1C1 = "='保税仓-合成油脂(矿)'!R[-6]C[2]"
        xlSheet.Cells(9, 5).FormulaR1C1 = "='保税仓-合成油脂'!R[-6]C[2]"
        xlSheet.Cells(10, 5).FormulaR1C1 = "='保税仓-皮革整理剂'!R[-7]C[2]"
        xlSheet.Cells(11, 5).FormulaR1C1 = "='保税仓-复鞣助剂'!R[-8]C[2]"
        xlSheet.Cells(12, 5).FormulaR1C1 = "='保税仓-制革染料'!R[-9]C[2]"
        xlSheet.Cells(13, 5).FormulaR1C1 = "='保税仓-聚氨酯混合液'!R[-10]C[2]"
        xlSheet.Cells(14, 5).FormulaR1C1 = "='保税仓-PU树脂'!R[-11]C[2]"
        xlSheet.Cells(15, 5).FormulaR1C1 = "='保税仓-皮革促进剂'!R[-12]C[2]"


        'xlSheet.Cells(21, 3).FormulaR1C1 = "='在制品-牛二层皮1'!R[-18]C[2]"
        'xlSheet.Cells(22, 3).FormulaR1C1 = "='在制品-牛二层皮2'!R[-19]C[2]"
        'xlSheet.Cells(23, 3).FormulaR1C1 = "='在制品-牛二层皮3'!R[-20]C[2]"
        'xlSheet.Cells(24, 3).FormulaR1C1 = "='在制品-牛二层皮4'!R[-21]C[2]"
        'xlSheet.Cells(25, 3).FormulaR1C1 = "='在制品-牛二层皮5'!R[-22]C[2]"
        'xlSheet.Cells(26, 3).FormulaR1C1 = "='在制品-牛二层皮6'!R[-23]C[2]"
        xlSheet.Cells(21, 3).FormulaR1C1 = "='在制品-牛二层皮9'!R[-18]C[2]"
        xlSheet.Cells(22, 3).FormulaR1C1 = "='在制品-牛二层皮10'!R[-19]C[2]"

        'xlSheet.Cells(29, 3).FormulaR1C1 = "='在制品-PU牛二层皮'!R[-26]C[2]"
        'xlSheet.Cells(30, 3).FormulaR1C1 = "='在制品-PU牛二层皮2'!R[-27]C[2]"
        xlSheet.Cells(23, 3).FormulaR1C1 = "='在制品-PU牛二层皮6'!R[-20]C[2]"
        xlSheet.Cells(24, 3).FormulaR1C1 = "='在制品-PU牛二层皮7'!R[-21]C[2]"
        '  xlSheet.Cells(25, 3).FormulaR1C1 = "='在制品-PU牛二层皮5'!R[-22]C[2]"
        ' xlSheet.Cells(26, 3).FormulaR1C1 = "='在制品-PU牛二层皮6'!R[-23]C[2]"


        'xlSheet.Cells(21, 4).FormulaR1C1 = "='在制品-牛二层皮1'!R[-18]C[2]"
        'xlSheet.Cells(22, 4).FormulaR1C1 = "='在制品-牛二层皮2'!R[-19]C[2]"
        'xlSheet.Cells(23, 4).FormulaR1C1 = "='在制品-牛二层皮3'!R[-20]C[2]"
        'xlSheet.Cells(24, 4).FormulaR1C1 = "='在制品-牛二层皮4'!R[-21]C[2]"
        'xlSheet.Cells(25, 4).FormulaR1C1 = "='在制品-牛二层皮5'!R[-22]C[2]"
        'xlSheet.Cells(26, 4).FormulaR1C1 = "='在制品-牛二层皮6'!R[-23]C[2]"
        xlSheet.Cells(21, 4).FormulaR1C1 = "='在制品-牛二层皮9'!R[-18]C[2]"
        xlSheet.Cells(22, 4).FormulaR1C1 = "='在制品-牛二层皮10'!R[-19]C[2]"

        'xlSheet.Cells(29, 4).FormulaR1C1 = "='在制品-PU牛二层皮'!R[-26]C[2]"
        'xlSheet.Cells(30, 4).FormulaR1C1 = "='在制品-PU牛二层皮2'!R[-27]C[2]"
        xlSheet.Cells(23, 4).FormulaR1C1 = "='在制品-PU牛二层皮6'!R[-20]C[2]"
        xlSheet.Cells(24, 4).FormulaR1C1 = "='在制品-PU牛二层皮7'!R[-21]C[2]"
        ' xlSheet.Cells(25, 4).FormulaR1C1 = "='在制品-PU牛二层皮5'!R[-22]C[2]"
        '   xlSheet.Cells(26, 4).FormulaR1C1 = "='在制品-PU牛二层皮6'!R[-23]C[2]"

        'xlSheet.Cells(21, 5).FormulaR1C1 = "='在制品-牛二层皮1'!R[-18]C[2]"
        'xlSheet.Cells(22, 5).FormulaR1C1 = "='在制品-牛二层皮2'!R[-19]C[2]"
        'xlSheet.Cells(23, 5).FormulaR1C1 = "='在制品-牛二层皮3'!R[-20]C[2]"
        'xlSheet.Cells(24, 5).FormulaR1C1 = "='在制品-牛二层皮4'!R[-21]C[2]"
        'xlSheet.Cells(25, 5).FormulaR1C1 = "='在制品-牛二层皮5'!R[-22]C[2]"
        'xlSheet.Cells(26, 5).FormulaR1C1 = "='在制品-牛二层皮6'!R[-23]C[2]"
        xlSheet.Cells(21, 5).FormulaR1C1 = "='在制品-牛二层皮9'!R[-18]C[2]"
        xlSheet.Cells(22, 5).FormulaR1C1 = "='在制品-牛二层皮10'!R[-19]C[2]"


        'xlSheet.Cells(29, 5).FormulaR1C1 = "='在制品-PU牛二层皮'!R[-26]C[2]"
        'xlSheet.Cells(30, 5).FormulaR1C1 = "='在制品-PU牛二层皮2'!R[-27]C[2]"
        xlSheet.Cells(23, 5).FormulaR1C1 = "='在制品-PU牛二层皮6'!R[-20]C[2]"
        xlSheet.Cells(24, 5).FormulaR1C1 = "='在制品-PU牛二层皮7'!R[-21]C[2]"
        ' xlSheet.Cells(25, 5).FormulaR1C1 = "='在制品-PU牛二层皮5'!R[-22]C[2]"
        '  xlSheet.Cells(26, 5).FormulaR1C1 = "='在制品-PU牛二层皮6'!R[-23]C[2]"


        xlSheet.Cells(5, 8).FormulaR1C1 = "='车间-蓝湿牛二层皮'!R[-2]C[-3]"
        xlSheet.Cells(6, 8).FormulaR1C1 = "='车间-有机鞣料'!R[-3]c[-3]"
        xlSheet.Cells(7, 8).FormulaR1C1 = "='车间-无机鞣料'!R[-4]c[-3]"
        xlSheet.Cells(8, 8).FormulaR1C1 = "='车间-表面活性剂'!R[-5]c[-3]"
        ' xlSheet.Cells(9, 8).FormulaR1C1 = "='车间-合成油脂(矿)'!R[-6]c[-3]"
        xlSheet.Cells(9, 8).FormulaR1C1 = "='车间-合成油脂'!R[-6]c[-3]"
        xlSheet.Cells(10, 8).FormulaR1C1 = "='车间-皮革整理剂'!R[-7]c[-3]"
        xlSheet.Cells(11, 8).FormulaR1C1 = "='车间-复鞣助剂'!R[-8]c[-3]"
        xlSheet.Cells(12, 8).FormulaR1C1 = "='车间-制革染料'!R[-9]c[-3]"
        xlSheet.Cells(13, 8).FormulaR1C1 = "='车间-聚氨酯混合液'!R[-10]c[-3]"
        xlSheet.Cells(14, 8).FormulaR1C1 = "='车间-PU树脂'!R[-11]c[-3]"
        xlSheet.Cells(15, 8).FormulaR1C1 = "='车间-皮革促进剂'!R[-12]c[-3]"


        xlSheet.Cells(5, 9).FormulaR1C1 = "='车间-蓝湿牛二层皮'!R[-2]c[-3]"
        xlSheet.Cells(6, 9).FormulaR1C1 = "='车间-有机鞣料'!R[-3]c[-3]"
        xlSheet.Cells(7, 9).FormulaR1C1 = "='车间-无机鞣料'!R[-4]c[-3]"
        xlSheet.Cells(8, 9).FormulaR1C1 = "='车间-表面活性剂'!R[-5]c[-3]"
        '  xlSheet.Cells(9, 9).FormulaR1C1 = "='车间-合成油脂(矿)'!R[-6]c[-3]"
        xlSheet.Cells(9, 9).FormulaR1C1 = "='车间-合成油脂'!R[-6]c[-3]"
        xlSheet.Cells(10, 9).FormulaR1C1 = "='车间-皮革整理剂'!R[-7]c[-3]"
        xlSheet.Cells(11, 9).FormulaR1C1 = "='车间-复鞣助剂'!R[-8]c[-3]"
        xlSheet.Cells(12, 9).FormulaR1C1 = "='车间-制革染料'!R[-9]c[-3]"
        xlSheet.Cells(13, 9).FormulaR1C1 = "='车间-聚氨酯混合液'!R[-10]c[-3]"
        xlSheet.Cells(14, 9).FormulaR1C1 = "='车间-PU树脂'!R[-11]c[-3]"
        xlSheet.Cells(15, 9).FormulaR1C1 = "='车间-皮革促进剂'!R[-12]c[-3]"

        xlSheet.Cells(5, 10).FormulaR1C1 = "='车间-蓝湿牛二层皮'!R[-2]c[-3]"
        xlSheet.Cells(6, 10).FormulaR1C1 = "='车间-有机鞣料'!R[-3]c[-3]"
        xlSheet.Cells(7, 10).FormulaR1C1 = "='车间-无机鞣料'!R[-4]c[-3]"
        xlSheet.Cells(8, 10).FormulaR1C1 = "='车间-表面活性剂'!R[-5]c[-3]"
        '  xlSheet.Cells(9, 10).FormulaR1C1 = "='车间-合成油脂(矿)'!R[-6]c[-3]"
        xlSheet.Cells(9, 10).FormulaR1C1 = "='车间-合成油脂'!R[-6]c[-3]"
        xlSheet.Cells(10, 10).FormulaR1C1 = "='车间-皮革整理剂'!R[-7]c[-3]"
        xlSheet.Cells(11, 10).FormulaR1C1 = "='车间-复鞣助剂'!R[-8]c[-3]"
        xlSheet.Cells(12, 10).FormulaR1C1 = "='车间-制革染料'!R[-9]c[-3]"
        xlSheet.Cells(13, 10).FormulaR1C1 = "='车间-聚氨酯混合液'!R[-10]c[-3]"
        xlSheet.Cells(14, 10).FormulaR1C1 = "='车间-PU树脂'!R[-11]c[-3]"
        xlSheet.Cells(15, 10).FormulaR1C1 = "='车间-皮革促进剂'!R[-12]c[-3]"




        'xlSheet.Cells(21, 8).FormulaR1C1 = "='产成品-牛二层皮1'!R[-18]c[-3]"
        'xlSheet.Cells(22, 8).FormulaR1C1 = "='产成品-牛二层皮2'!R[-19]c[-3]"
        'xlSheet.Cells(23, 8).FormulaR1C1 = "='产成品-牛二层皮3'!R[-20]c[-3]"
        'xlSheet.Cells(24, 8).FormulaR1C1 = "='产成品-牛二层皮4'!R[-21]c[-3]"
        'xlSheet.Cells(25, 8).FormulaR1C1 = "='产成品-牛二层皮5'!R[-22]c[-3]"
        'xlSheet.Cells(26, 8).FormulaR1C1 = "='产成品-牛二层皮6'!R[-23]c[-3]"
        xlSheet.Cells(21, 8).FormulaR1C1 = "='产成品-牛二层皮9'!R[-18]c[-3]"
        xlSheet.Cells(22, 8).FormulaR1C1 = "='产成品-牛二层皮10'!R[-19]c[-3]"


        'xlSheet.Cells(29, 8).FormulaR1C1 = "='产成品-PU牛二层皮'!R[-26]c[-3]"
        'xlSheet.Cells(30, 8).FormulaR1C1 = "='产成品-PU牛二层皮2'!R[-27]c[-3]"
        xlSheet.Cells(23, 8).FormulaR1C1 = "='产成品-PU牛二层皮6'!R[-20]c[-3]"
        xlSheet.Cells(24, 8).FormulaR1C1 = "='产成品-PU牛二层皮7'!R[-21]c[-3]"
        'xlSheet.Cells(25, 8).FormulaR1C1 = "='产成品-PU牛二层皮5'!R[-22]c[-3]"
        'xlSheet.Cells(26, 8).FormulaR1C1 = "='产成品-PU牛二层皮6'!R[-23]c[-3]"

        'xlSheet.Cells(21, 9).FormulaR1C1 = "='产成品-牛二层皮1'!R[-18]c[-3]"
        'xlSheet.Cells(22, 9).FormulaR1C1 = "='产成品-牛二层皮2'!R[-19]c[-3]"
        'xlSheet.Cells(23, 9).FormulaR1C1 = "='产成品-牛二层皮3'!R[-20]c[-3]"
        'xlSheet.Cells(24, 9).FormulaR1C1 = "='产成品-牛二层皮4'!R[-21]c[-3]"
        'xlSheet.Cells(25, 9).FormulaR1C1 = "='产成品-牛二层皮5'!R[-22]c[-3]"
        'xlSheet.Cells(26, 9).FormulaR1C1 = "='产成品-牛二层皮6'!R[-23]c[-3]"
        xlSheet.Cells(21, 9).FormulaR1C1 = "='产成品-牛二层皮9'!R[-18]c[-3]"
        xlSheet.Cells(22, 9).FormulaR1C1 = "='产成品-牛二层皮10'!R[-19]c[-3]"


        'xlSheet.Cells(29, 9).FormulaR1C1 = "='产成品-PU牛二层皮'!R[-26]c[-3]"
        'xlSheet.Cells(30, 9).FormulaR1C1 = "='产成品-PU牛二层皮2'!R[-27]c[-3]"
        xlSheet.Cells(23, 9).FormulaR1C1 = "='产成品-PU牛二层皮6'!R[-20]c[-3]"
        xlSheet.Cells(24, 9).FormulaR1C1 = "='产成品-PU牛二层皮7'!R[-21]c[-3]"
        'xlSheet.Cells(25, 9).FormulaR1C1 = "='产成品-PU牛二层皮5'!R[-22]c[-3]"
        'xlSheet.Cells(26, 9).FormulaR1C1 = "='产成品-PU牛二层皮6'!R[-23]c[-3]"


        'xlSheet.Cells(21, 10).FormulaR1C1 = "='产成品-牛二层皮1'!R[-18]c[-3]"
        'xlSheet.Cells(22, 10).FormulaR1C1 = "='产成品-牛二层皮2'!R[-19]c[-3]"
        'xlSheet.Cells(23, 10).FormulaR1C1 = "='产成品-牛二层皮3'!R[-20]c[-3]"
        'xlSheet.Cells(24, 10).FormulaR1C1 = "='产成品-牛二层皮4'!R[-21]c[-3]"
        'xlSheet.Cells(25, 10).FormulaR1C1 = "='产成品-牛二层皮5'!R[-22]c[-3]"
        'xlSheet.Cells(26, 10).FormulaR1C1 = "='产成品-牛二层皮6'!R[-23]c[-3]"
        xlSheet.Cells(21, 10).FormulaR1C1 = "='产成品-牛二层皮9'!R[-18]c[-3]"
        xlSheet.Cells(22, 10).FormulaR1C1 = "='产成品-牛二层皮10'!R[-19]c[-3]"


        'xlSheet.Cells(29, 10).FormulaR1C1 = "='产成品-PU牛二层皮'!R[-26]c[-3]"
        'xlSheet.Cells(30, 10).FormulaR1C1 = "='产成品-PU牛二层皮2'!R[-27]c[-3]"
        xlSheet.Cells(23, 10).FormulaR1C1 = "='产成品-PU牛二层皮6'!R[-20]c[-3]"
        xlSheet.Cells(24, 10).FormulaR1C1 = "='产成品-PU牛二层皮7'!R[-21]c[-3]"
        'xlSheet.Cells(25, 10).FormulaR1C1 = "='产成品-PU牛二层皮5'!R[-22]c[-3]"
        'xlSheet.Cells(26, 10).FormulaR1C1 = "='产成品-PU牛二层皮6'!R[-23]c[-3]"




        xlSheet.Cells(31, 3).FormulaR1C1 = "='边角料-蓝湿牛二层皮（头部皮）'!R[-28]C[2]"
        xlSheet.Cells(32, 3).FormulaR1C1 = "='边角料-蓝湿牛二层皮（肚边皮）'!R[-29]C[2]"
        xlSheet.Cells(33, 3).FormulaR1C1 = "='边角料-蓝湿牛皮（底层皮）'!R[-30]C[2]"
        xlSheet.Cells(34, 3).FormulaR1C1 = "='边角料-皮革边角废料粉末'!R[-31]C[2]"



        xlSheet.Cells(31, 4).FormulaR1C1 = "='边角料-蓝湿牛二层皮（头部皮）'!R[-28]C[2]"
        xlSheet.Cells(32, 4).FormulaR1C1 = "='边角料-蓝湿牛二层皮（肚边皮）'!R[-29]C[2]"
        xlSheet.Cells(33, 4).FormulaR1C1 = "='边角料-蓝湿牛皮（底层皮）'!R[-30]C[2]"
        xlSheet.Cells(34, 4).FormulaR1C1 = "='边角料-皮革边角废料粉末'!R[-31]C[2]"

        xlSheet.Cells(31, 5).FormulaR1C1 = "='边角料-蓝湿牛二层皮（头部皮）'!R[-28]C[2]"
        xlSheet.Cells(32, 5).FormulaR1C1 = "='边角料-蓝湿牛二层皮（肚边皮）'!R[-29]C[2]"
        xlSheet.Cells(33, 5).FormulaR1C1 = "='边角料-蓝湿牛皮（底层皮）'!R[-30]C[2]"
        xlSheet.Cells(34, 5).FormulaR1C1 = "='边角料-皮革边角废料粉末'!R[-31]C[2]"



        xlSheet.Cells(31, 8).FormulaR1C1 = "='修剪仓'!R[-28]C[-3]"


        xlSheet.Cells(31, 9).FormulaR1C1 = "='修剪仓'!R[-28]C[-3]"


        xlSheet.Cells(31, 10).FormulaR1C1 = "='修剪仓'!R[-28]C[-3]"





        xlSheet.Cells(38, 8).FormulaR1C1 = "='保税皮胚仓'!R[-35]C[-3]"


        xlSheet.Cells(38, 9).FormulaR1C1 = "='保税皮胚仓'!R[-35]C[-3]"


        xlSheet.Cells(38, 10).FormulaR1C1 = "='保税皮胚仓'!R[-35]C[-3]"











        xlApp.Range("B2,G2,G18,B18,B29,G29,G36").Select()

        With xlApp.Selection.Interior

            .Color = 65535
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
        xlApp.Range("C4:E4,H4:J4,C20:E20,H20:J20,C30:E30,h30:j30,h37:j37").Select()

        With xlApp.Selection.Interior

            .ThemeColor = Excel.XlThemeColor.xlThemeColorAccent1
            .TintAndShade = 0.399975585192419
            .PatternTintAndShade = 0
        End With


        xlApp.Columns("B:J").select
        xlApp.Selection.ColumnWidth = 19.38



        xlApp.Visible = True


        xlApp.Columns("B:J").Select()
        xlApp.Selection.NumberFormat = "#,##0.00_);[Red](#,##0.00)"
        xlApp.Columns("B:J").EntireColumn.AutoFit



        xlApp = Nothing
        xlSheet = Nothing
        xlBook = Nothing
        xlRange = Nothing







    End Sub

    Private Sub CheckedListBox1_ItemCheck(sender As Object, e As ItemCheckEventArgs) Handles chkb1.ItemCheck

        'If e.NewValue = CheckState.Checked Then

        '    For Each i In chkb1.CheckedIndices

        '        chkb1.SetItemCheckState(i, CheckState.Unchecked)

        '    Next



        'End If


    End Sub
    Private Sub start_wh_bao_cal(xno As String, matl As String)

        a = 0
        xlSheet = xlBook.Worksheets.Add
        xlSheet.Name = "保税仓-" & matl
        xlSheet.Activate()
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(1, 1), Address:="", SubAddress:="总表!A1", TextToDisplay:="总表")





        sql2 = sql1 & " and (出入库=N'采购入库' or 出入库=N'入库') and 调入仓库 like N'%保税%'and (物料名称 =N'" & matl & "')"
        cmd.CommandText = sql2
        da.SelectCommand = cmd
        dt1 = New DataTable
        da.Fill(dt1)






        If matl = "蓝湿牛二层皮" Then

            dt1.Columns.Add("cno")
            dt1.Columns.Add("source")

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

                sql = "select FEntrySelfI0339 as 货柜号,FEntrySelfI0340 as source from rt_icpurchaseentry where fqty='" & dt1.Rows(x).Item("数量") & "' and fentryselfI0337='" & xno & "'"
                cmd.CommandText = sql

                If cmd.ExecuteScalar Is Nothing Then
                Else
                    dt1.Rows(x).Item("cno") = cmd.ExecuteScalar.ToString
                End If


                sql = "select FEntrySelfI0340 as 皮源 from rt_icpurchaseentry where fqty='" & dt1.Rows(x).Item("数量") & "' and FEntrySelfI0337='" & xno & "'"
                cmd.CommandText = sql


                If cmd.ExecuteScalar Is Nothing Then
                Else
                    dt1.Rows(x).Item("source") = cmd.ExecuteScalar.ToString

                End If



            Next




        End If




        System.Threading.Thread.Sleep(20)

        DGV1.DataSource = dt1
        DGV1.SelectAll()
        Me.DGV1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.DGV1.RowHeadersVisible = False

        Clipboard.SetDataObject(DGV1.GetClipboardContent().GetData(DataFormats.Text.ToString))
        System.Threading.Thread.Sleep(20)




        xlApp.Columns("B:B").ColumnWidth = 20
        xlApp.Columns("c:c").ColumnWidth = 20
        xlApp.Columns("D:D").ColumnWidth = 20
        xlApp.Columns("e:e").ColumnWidth = 20
        xlApp.Columns("F:F").ColumnWidth = 20
        xlApp.Columns("G:G").ColumnWidth = 20
        xlApp.Columns("H:H").ColumnWidth = 20
        xlApp.Columns("I:I").ColumnWidth = 20
        xlApp.Columns("J:J").ColumnWidth = 20
        xlApp.Columns("k:k").ColumnWidth = 20


        xlApp.Columns("J:J").NumberFormat = "@"









        xlApp.Cells(4, 2).Select()



        If IsDBNull(DGV1.GetClipboardContent().GetData(DataFormats.Text.ToString)) Then


        Else
            xlSheet.PasteSpecial()
            Clipboard.SetDataObject(DBNull.Value)
        End If


        'xlSheet.PasteSpecial()

        'Clipboard.SetDataObject(DBNull.Value)

        a = 4 + dt1.Rows.Count - 1

        sql4 = sql3 & " and 出入库=N'出库' and (物料名称 =N'" & matl & "')"
        cmd.CommandText = sql4
        da.SelectCommand = cmd
        dt1 = New DataTable
        da.Fill(dt1)






        'If matl = "蓝湿牛二层皮" Then

        '    dt1.Columns.Add("xx")
        '    dt1.Columns.Add("xxx")

        '    dt1.Columns.Add("货柜号")
        '    dt1.Columns.Add("皮源")

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

        '        sql = "select FEntrySelfI0339 as cno,FEntrySelfI0340 as source from rt_icpurchaseentry where fqty='" & dt1.Rows(x).Item("数量") & "' and fentryselfI0337='" & xno & "'"
        '        cmd.CommandText = sql

        '        If cmd.ExecuteScalar Is Nothing Then
        '        Else
        '            dt1.Rows(x).Item("货柜号") = cmd.ExecuteScalar.ToString
        '        End If


        '        sql = "select FEntrySelfI0340 as source from rt_icpurchaseentry where fqty='" & dt1.Rows(x).Item("数量") & "' and FEntrySelfI0337='" & xno & "'"
        '        cmd.CommandText = sql


        '        If cmd.ExecuteScalar Is Nothing Then
        '        Else
        '            dt1.Rows(x).Item("皮源") = cmd.ExecuteScalar.ToString

        '        End If



        '    Next




        'End If








        DGV1.DataSource = dt1
        DGV1.SelectAll()
        Me.DGV1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText

        Me.DGV1.RowHeadersVisible = False

        Clipboard.SetDataObject(DGV1.GetClipboardContent().GetData(DataFormats.Text.ToString), True)
        'System.Threading.Thread.Sleep(200)
        xlApp.Cells(2 + a, 2).Select()

        ' xlSheet.PasteSpecial("Unicode 文本", False, False)


        If IsDBNull(DGV1.GetClipboardContent().GetData(DataFormats.Text.ToString)) Then


        Else
            xlSheet.Paste()
            Clipboard.SetDataObject(DBNull.Value)

        End If






        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("B4:M" & a + dt1.Rows.Count + 1), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"


        ' xlApp.Range("B4:j" & a + dt1.Rows.Count + 1).Select()
        xlApp.Cells(2, 2).Select()

        xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Clear
        'xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Add2(Key:=xlApp.Range("表1[日期]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= .XlSortDataOption.xlSortNormal)


        xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Clear
        xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Add(Key:=xlApp.Range("表1[日期]"), SortOn:=Excel.XlSortOn.xlSortOnValues, Order:=Excel.XlSortOrder.xlAscending, DataOption:=Excel.XlSortDataOption.xlSortNormal)


        With xlApp.ActiveSheet.ListObjects("表1").Sort
            .Header = Excel.XlYesNoGuess.xlYes
            .MatchCase = False
            .Orientation = Excel.Constants.xlTopToBottom

            .Apply
        End With



        xlSheet.Cells(4, 11) = "结存"

        xlSheet.Range("k5").FormulaR1C1 = "=IF(ISNUMBER(R[-1]C[0]),IF(countif(R[0]C[-7],""*入库""),R[-1]C[0]+R[0]C[-5],R[-1]C[0]-R[0]C[-5]),R[0]C[-5])"
        '  xlApp.Selection.AutoFill(Destination:=xlApp.Range("j6:j" & a + dt1.Rows.Count - 1))

        xlSheet.Range("k5").Select()


        ' xlApp.Selection.AutoFill(Destination:=xlApp.Range("表1[结存]"))

        xlApp.Range(xlApp.Selection, xlApp.ActiveCell.SpecialCells(Excel.Constants.xlLastCell)).Select()
        xlApp.Selection.FillDown


        'xlApp.Range(xlApp.Selection, xlApp.ActiveCell.SpecialCells(Excel.Constants.xlLastCell)).Select()



        xlSheet.Columns("K:K").cut
        xlSheet.Columns("G:G").Select
        xlApp.Selection.Insert(Shift:=Excel.XlDirection.xlToRight)


        xlSheet.Columns("E:g").Select
        xlApp.Selection.NumberFormat = "#,##0.00_);[Red](#,##0.00)"
        xlApp.Range("F4").Copy()

        xlApp.Range("G4").PasteSpecial(Paste:=Excel.XlPasteType.xlPasteFormats)





        sql = "select l_no from rt_bg_mtl_name where name =N'" & matl & "'"
        cmd.CommandText = sql


        xlSheet.Cells(1, 2) = "仓库物资帐" & "--保税仓--" & cmd.ExecuteScalar & matl
        xlSheet.Cells(1, 2).select
        xlApp.Selection.HorizontalAlignment = Excel.Constants.xlCenter
        xlApp.Selection.VerticalAlignment = Excel.Constants.xlCenter
        xlApp.Selection.Font.Size = 24






        xlSheet.Range("E3").FormulaR1C1 = "=SUMIF(R[2]C[-1]:R[10000]C[-1],""*入库"",R[2]C[1]:R[10000]C[1])"
        xlSheet.Range("F3").FormulaR1C1 = "=SUMIF(R[2]C[-2]:R[10000]C,""出库"",R[2]C[1]:R[10000]C)"
        xlSheet.Range("G3").FormulaR1C1 = "=RC[-2]-RC[-1]"
        xlSheet.Range("G3").Select()
        xlApp.Selection.NumberFormat = "#,##0.00_);[Red](#,##0.00)"
        xlSheet.Rows("5:5").Select
        xlApp.ActiveWindow.FreezePanes = True


        xlApp.Range("B1:K1").MergeCells = True

        xlApp.Columns("B:K").EntireColumn.AutoFit

        If set_print_format = True Then
            With xlApp.ActiveSheet.PageSetup
                .LeftMargin = xlApp.Application.InchesToPoints(0.15)
                .RightMargin = xlApp.Application.InchesToPoints(0.25)
                .TopMargin = xlApp.Application.InchesToPoints(0.25)
                .BottomMargin = xlApp.Application.InchesToPoints(0.5)
                .HeaderMargin = xlApp.Application.InchesToPoints(0.3)
                .FooterMargin = xlApp.Application.InchesToPoints(0.3)

                .Orientation = Excel.XlPageOrientation.xlLandscape
                .PrintTitleRows = "$1:$4"
                .FitToPagesWide = 1
                .CenterFooter = "第 &P 页，共 &N 页"
            End With
        End If

        xlApp.Columns("B:B").NumberFormat = "yyyy/mm/dd"

        xlApp.Range("f4:g4").Select()

        With xlApp.Selection.Font
            .ThemeColor = Excel.XlThemeColor.xlThemeColorDark1
            .TintAndShade = 0
        End With



        xlSheet = Nothing




    End Sub
    Private Sub start_wh_chi_cal(xno As String, matl As String)

        a = 0
        xlSheet = xlBook.Worksheets.Add
        xlSheet.Name = "车间-" & matl
        xlSheet.Activate()
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(1, 1), Address:="", SubAddress:="总表!A1", TextToDisplay:="总表")

        sql2 = sql1 & " and (调入仓库 like N'%车间%') and (物料名称 =N'" & matl & "')"
        cmd.CommandText = sql2
        da.SelectCommand = cmd
        dt1 = New DataTable
        da.Fill(dt1)

        DGV1.DataSource = dt1
        DGV1.SelectAll()
        Me.DGV1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.DGV1.RowHeadersVisible = False

        Clipboard.SetDataObject(DGV1.GetClipboardContent().GetData(DataFormats.Text.ToString))
        System.Threading.Thread.Sleep(200)
        xlApp.Columns("B:B").ColumnWidth = 20
        xlApp.Columns("c:c").ColumnWidth = 20
        xlApp.Columns("D:D").ColumnWidth = 20
        xlApp.Columns("e:e").ColumnWidth = 20
        xlApp.Columns("F:F").ColumnWidth = 20
        xlApp.Columns("G:G").ColumnWidth = 20
        xlApp.Columns("H:H").ColumnWidth = 20
        xlApp.Columns("I:I").ColumnWidth = 20
        xlApp.Columns("J:J").ColumnWidth = 20
        xlApp.Cells(4, 2).Select()

        ' xlSheet.PasteSpecial("Unicode 文本", False, False)


        If IsDBNull(DGV1.GetClipboardContent().GetData(DataFormats.Text.ToString)) Then


        Else
            xlSheet.PasteSpecial()
            Clipboard.SetDataObject(DBNull.Value)
        End If







        a = 4 + dt1.Rows.Count - 1

        sql4 = sql3 & " and (物料名称 =N'" & matl & "')"
        cmd.CommandText = sql4
        da.SelectCommand = cmd
        dt1 = New DataTable
        da.Fill(dt1)
        DGV1.DataSource = dt1
        DGV1.SelectAll()
        Me.DGV1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText

        Me.DGV1.RowHeadersVisible = False

        Clipboard.SetDataObject(DGV1.GetClipboardContent().GetData(DataFormats.Text.ToString))
        System.Threading.Thread.Sleep(200)
        xlApp.Cells(2 + a, 2).Select()

        ' xlSheet.PasteSpecial("Unicode 文本", False, False)


        If IsDBNull(DGV1.GetClipboardContent().GetData(DataFormats.Text.ToString)) Then


        Else
            xlSheet.PasteSpecial()
            Clipboard.SetDataObject(DBNull.Value)
        End If



        'xlSheet.PasteSpecial()
        'Clipboard.SetDataObject(DBNull.Value)


        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("B4:K" & a + dt1.Rows.Count + 1), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"


        ' xlApp.Range("B4:j" & a + dt1.Rows.Count + 1).Select()
        xlApp.Cells(2, 2).Select()

        xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Clear
        'xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Add2(Key:=xlApp.Range("表1[日期]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= .XlSortDataOption.xlSortNormal)


        xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Clear
        xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Add(Key:=xlApp.Range("表1[日期]"), SortOn:=Excel.XlSortOn.xlSortOnValues, Order:=Excel.XlSortOrder.xlAscending, DataOption:=Excel.XlSortDataOption.xlSortNormal)


        With xlApp.ActiveSheet.ListObjects("表1").Sort
            .Header = Excel.XlYesNoGuess.xlYes
            .MatchCase = False
            .Orientation = Excel.Constants.xlTopToBottom

            .Apply
        End With



        xlSheet.Cells(4, 11) = "结存"

        xlSheet.Range("k6").FormulaR1C1 = "=IF(ISNUMBER(R[-1]C[0]),IF(R[0]C[-7]=""入库"",R[-1]C[0]+R[0]C[-5],R[-1]C[0]-R[0]C[-5]),R[0]C[-5])"
        '  xlApp.Selection.AutoFill(Destination:=xlApp.Range("j6:j" & a + dt1.Rows.Count - 1))

        xlSheet.Range("k6").Select()
        xlApp.Range(xlApp.Selection, xlApp.ActiveCell.SpecialCells(Excel.Constants.xlLastCell)).Select()
        xlApp.Selection.FillDown


        xlApp.Range(xlApp.Selection, xlApp.ActiveCell.SpecialCells(Excel.Constants.xlLastCell)).Select()



        xlSheet.Columns("k:k").cut
        xlSheet.Columns("G:G").Select
        xlApp.Selection.Insert(Shift:=Excel.XlDirection.xlToRight)


        xlSheet.Columns("e:g").Select
        xlApp.Selection.NumberFormat = "#,##0.00_);[Red](#,##0.00)"
        xlApp.Range("F4").Copy()

        xlApp.Range("G4").PasteSpecial(Paste:=Excel.XlPasteType.xlPasteFormats)





        xlApp.Columns("B:B").ColumnWidth = 14
        xlApp.Columns("c:c").ColumnWidth = 14
        xlApp.Columns("D:D").ColumnWidth = 12.13
        xlApp.Columns("e:e").ColumnWidth = 15
        xlApp.Columns("F:F").ColumnWidth = 13.88
        xlApp.Columns("G:G").ColumnWidth = 14.25
        xlApp.Columns("H:H").ColumnWidth = 26.88
        xlApp.Columns("I:I").ColumnWidth = 26.88
        xlApp.Columns("J:J").ColumnWidth = 13.5

        sql = "select l_no from rt_bg_mtl_name where name =N'" & matl & "'"
        cmd.CommandText = sql


        xlSheet.Cells(1, 2) = "仓库物资帐" & "--车间--" & cmd.ExecuteScalar & matl
        xlSheet.Cells(1, 2).select
        xlApp.Selection.HorizontalAlignment = Excel.Constants.xlCenter
        xlApp.Selection.VerticalAlignment = Excel.Constants.xlCenter
        xlApp.Selection.Font.Size = 24





        xlSheet.Range("E3").FormulaR1C1 = "=SUMIF(R[2]C[-1]:R[10000]C[-1],""入库"",R[2]C[1]:R[10000]C[1])"
        xlSheet.Range("F3").FormulaR1C1 = "=SUMIF(R[2]C[-2]:R[10000]C,""领料"",R[2]C[1]:R[10000]C)+SUMIF(R[2]C[-2]:R[10000]C,""原料出库"",R[2]C[1]:R[10000]C)"
        xlSheet.Range("G3").FormulaR1C1 = "=RC[-2]-RC[-1]"
        xlSheet.Range("G3").Select()
        xlApp.Selection.NumberFormat = "#,##0.00_);[Red](#,##0.00)"
        xlSheet.Rows("5:5").Select
        xlApp.ActiveWindow.FreezePanes = True


        xlApp.Range("B1:J1").MergeCells = True
        xlApp.Columns("B:J").EntireColumn.AutoFit
        If set_print_format = True Then
            With xlApp.ActiveSheet.PageSetup

                .LeftMargin = xlApp.Application.InchesToPoints(0.15)
                .RightMargin = xlApp.Application.InchesToPoints(0.25)
                .TopMargin = xlApp.Application.InchesToPoints(0.25)
                .BottomMargin = xlApp.Application.InchesToPoints(0.5)
                .HeaderMargin = xlApp.Application.InchesToPoints(0.3)
                .FooterMargin = xlApp.Application.InchesToPoints(0.3)

                .Orientation = Excel.XlPageOrientation.xlLandscape
                .PrintTitleRows = "$1:$4"
                .FitToPagesWide = 1
                .CenterFooter = "第 &P 页，共 &N 页"


            End With
        End If


        xlApp.Columns("B:B").NumberFormat = "yyyy/mm/dd"

        xlSheet = Nothing











    End Sub

    Private Sub start_wh_zhai_cal(xno As String, matl As String)

        a = 0
        xlSheet = xlBook.Worksheets.Add
        xlSheet.Name = "在制品-" & matl
        xlSheet.Activate()
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(1, 1), Address:="", SubAddress:="总表!A1", TextToDisplay:="总表")

        sql2 = sql1 & "  and 出入库=N'入库' and (物料名称 =N'" & matl & "') and 调入仓库=N'在制品仓'"
        cmd.CommandText = sql2
        da.SelectCommand = cmd
        dt1 = New DataTable
        da.Fill(dt1)

        DGV1.DataSource = dt1
        DGV1.SelectAll()
        Me.DGV1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.DGV1.RowHeadersVisible = False

        Clipboard.SetDataObject(DGV1.GetClipboardContent().GetData(DataFormats.Text.ToString))
        System.Threading.Thread.Sleep(200)
        xlApp.Columns("B:B").ColumnWidth = 20
        xlApp.Columns("c:c").ColumnWidth = 20
        xlApp.Columns("D:D").ColumnWidth = 20
        xlApp.Columns("e:e").ColumnWidth = 20
        xlApp.Columns("F:F").ColumnWidth = 20
        xlApp.Columns("G:G").ColumnWidth = 20
        xlApp.Columns("H:H").ColumnWidth = 20
        xlApp.Columns("I:I").ColumnWidth = 20
        xlApp.Columns("J:J").ColumnWidth = 20
        xlApp.Columns("k:k").ColumnWidth = 20
        xlApp.Cells(4, 2).Select()

        If IsDBNull(DGV1.GetClipboardContent().GetData(DataFormats.Text.ToString)) Then


        Else
            xlSheet.PasteSpecial()
            Clipboard.SetDataObject(DBNull.Value)
        End If



        ' xlSheet.PasteSpecial("Unicode 文本", False, False)
        'xlSheet.PasteSpecial()
        'Clipboard.SetDataObject(DBNull.Value)

        a = 4 + dt1.Rows.Count - 1

        sql4 = sql3 & " and (物料名称 =N'" & matl & "')"
        cmd.CommandText = sql4
        da.SelectCommand = cmd
        dt1 = New DataTable
        da.Fill(dt1)
        DGV1.DataSource = dt1
        DGV1.SelectAll()
        Me.DGV1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText

        Me.DGV1.RowHeadersVisible = False

        Clipboard.SetDataObject(DGV1.GetClipboardContent().GetData(DataFormats.Text.ToString))
        System.Threading.Thread.Sleep(200)
        xlApp.Cells(2 + a, 2).Select()

        ' xlSheet.PasteSpecial("Unicode 文本", False, False)


        If IsDBNull(DGV1.GetClipboardContent().GetData(DataFormats.Text.ToString)) Then


        Else
            xlSheet.PasteSpecial()
            Clipboard.SetDataObject(DBNull.Value)
        End If


        'xlSheet.PasteSpecial()
        'Clipboard.SetDataObject(DBNull.Value)


        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("B4:J" & a + dt1.Rows.Count + 1), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"


        ' xlApp.Range("B4:j" & a + dt1.Rows.Count + 1).Select()
        xlApp.Cells(2, 2).Select()

        xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Clear
        'xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Add2(Key:=xlApp.Range("表1[日期]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= .XlSortDataOption.xlSortNormal)


        xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Clear
        xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Add(Key:=xlApp.Range("表1[日期]"), SortOn:=Excel.XlSortOn.xlSortOnValues, Order:=Excel.XlSortOrder.xlAscending, DataOption:=Excel.XlSortDataOption.xlSortNormal)


        With xlApp.ActiveSheet.ListObjects("表1").Sort
            .Header = Excel.XlYesNoGuess.xlYes
            .MatchCase = False
            .Orientation = Excel.Constants.xlTopToBottom

            .Apply
        End With



        xlSheet.Cells(4, 10) = "结存"

        xlSheet.Range("j6").FormulaR1C1 = "=IF(ISNUMBER(R[-1]C[0]),IF(R[0]C[-6]=""入库"",R[-1]C[0]+R[0]C[-4],R[-1]C[0]-R[0]C[-4]),R[0]C[-4])"
        '  xlApp.Selection.AutoFill(Destination:=xlApp.Range("j6:j" & a + dt1.Rows.Count - 1))

        xlSheet.Range("j6").Select()
        xlApp.Range(xlApp.Selection, xlApp.ActiveCell.SpecialCells(Excel.Constants.xlLastCell)).Select()
        xlApp.Selection.FillDown


        xlApp.Range(xlApp.Selection, xlApp.ActiveCell.SpecialCells(Excel.Constants.xlLastCell)).Select()



        xlSheet.Columns("J:J").cut
        xlSheet.Columns("G:G").Select
        xlApp.Selection.Insert(Shift:=Excel.XlDirection.xlToRight)


        xlSheet.Columns("e:g").Select
        xlApp.Selection.NumberFormat = "#,##0.00_);[Red](#,##0.00)"
        xlApp.Range("F4").Copy()

        xlApp.Range("G4").PasteSpecial(Paste:=Excel.XlPasteType.xlPasteFormats)





        xlApp.Columns("B:B").ColumnWidth = 13.13
        xlApp.Columns("D:D").ColumnWidth = 12.13
        xlApp.Columns("e:e").ColumnWidth = 15
        xlApp.Columns("F:F").ColumnWidth = 13.88
        xlApp.Columns("G:G").ColumnWidth = 14.25
        xlApp.Columns("H:H").ColumnWidth = 26.88
        xlApp.Columns("I:I").ColumnWidth = 26.88
        xlApp.Columns("J:J").ColumnWidth = 12

        sql = "select l_no from rt_bg_mtl_name where name =N'" & matl & "'"
        cmd.CommandText = sql


        xlSheet.Cells(1, 2) = "仓库物资帐" & "--在制品--" & cmd.ExecuteScalar & matl
        xlSheet.Cells(1, 2).select
        xlApp.Selection.HorizontalAlignment = Excel.Constants.xlCenter
        xlApp.Selection.VerticalAlignment = Excel.Constants.xlCenter
        xlApp.Selection.Font.Size = 24



        xlSheet.Range("E3").FormulaR1C1 = "=SUMIF(R[2]C[-1]:R[10000]C[-1],""入库"",R[2]C[1]:R[10000]C[1])"
        xlSheet.Range("F3").FormulaR1C1 = "=SUMIF(R[2]C[-2]:R[10000]C,""出库"",R[2]C[1]:R[10000]C)"
        xlSheet.Range("G3").FormulaR1C1 = "=RC[-2]-RC[-1]"
        xlSheet.Range("G3").Select()
        xlApp.Selection.NumberFormat = "#,##0.00_);[Red](#,##0.00)"
        xlSheet.Rows("5:5").Select
        xlApp.ActiveWindow.FreezePanes = True


        xlApp.Range("B1:J1").MergeCells = True
        xlApp.Columns("B:J").EntireColumn.AutoFit

        If set_print_format = True Then
            With xlApp.ActiveSheet.PageSetup

                .LeftMargin = xlApp.Application.InchesToPoints(0.15)
                .RightMargin = xlApp.Application.InchesToPoints(0.25)
                .TopMargin = xlApp.Application.InchesToPoints(0.25)
                .BottomMargin = xlApp.Application.InchesToPoints(0.5)
                .HeaderMargin = xlApp.Application.InchesToPoints(0.3)
                .FooterMargin = xlApp.Application.InchesToPoints(0.3)

                .Orientation = Excel.XlPageOrientation.xlLandscape
                .PrintTitleRows = "$1:$4"
                .FitToPagesWide = 1
                .CenterFooter = "第 &P 页，共 &N 页"


            End With
        End If






        xlApp.Columns("B:B").NumberFormat = "yyyy/mm/dd"

        xlSheet = Nothing






    End Sub

    Private Sub start_wh_cheng_cal(xno As String, matl As String)

        a = 0
        xlSheet = xlBook.Worksheets.Add
        xlSheet.Name = "产成品-" & matl
        xlSheet.Activate()
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(1, 1), Address:="", SubAddress:="总表!A1", TextToDisplay:="总表")

        sql2 = sql1 & "  and 出入库=N'入库' and (物料名称 =N'" & matl & "') and 调入仓库 like N'%成品仓%'"
        cmd.CommandText = sql2
        da.SelectCommand = cmd
        dt1 = New DataTable
        da.Fill(dt1)

        DGV1.DataSource = dt1
        DGV1.SelectAll()
        Me.DGV1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.DGV1.RowHeadersVisible = False

        Clipboard.SetDataObject(DGV1.GetClipboardContent().GetData(DataFormats.Text.ToString))
        System.Threading.Thread.Sleep(200)
        xlApp.Columns("B:B").ColumnWidth = 20
        xlApp.Columns("c:c").ColumnWidth = 20
        xlApp.Columns("D:D").ColumnWidth = 20
        xlApp.Columns("e:e").ColumnWidth = 20
        xlApp.Columns("F:F").ColumnWidth = 20
        xlApp.Columns("G:G").ColumnWidth = 20
        xlApp.Columns("H:H").ColumnWidth = 20
        xlApp.Columns("I:I").ColumnWidth = 20
        xlApp.Columns("J:J").ColumnWidth = 20

        xlApp.Cells(4, 2).Select()


        If IsDBNull(DGV1.GetClipboardContent().GetData(DataFormats.Text.ToString)) Then


        Else
            xlSheet.PasteSpecial()
            Clipboard.SetDataObject(DBNull.Value)
        End If





        ' xlSheet.PasteSpecial("Unicode 文本", False, False)
        'xlSheet.PasteSpecial()
        'Clipboard.SetDataObject(DBNull.Value)

        a = 4 + dt1.Rows.Count - 1

        sql4 = sql3 & " and (物料名称 =N'" & matl & "')"
        cmd.CommandText = sql4
        da.SelectCommand = cmd
        dt1 = New DataTable
        da.Fill(dt1)
        DGV1.DataSource = dt1
        DGV1.SelectAll()
        Me.DGV1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText

        Me.DGV1.RowHeadersVisible = False

        Clipboard.SetDataObject(DGV1.GetClipboardContent().GetData(DataFormats.Text.ToString))
        System.Threading.Thread.Sleep(200)
        xlApp.Cells(2 + a, 2).Select()

        ' xlSheet.PasteSpecial("Unicode 文本", False, False)

        If IsDBNull(DGV1.GetClipboardContent().GetData(DataFormats.Text.ToString)) Then


        Else
            xlSheet.PasteSpecial()
            Clipboard.SetDataObject(DBNull.Value)
        End If



        'xlSheet.PasteSpecial()
        'Clipboard.SetDataObject(DBNull.Value)


        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("B4:K" & a + dt1.Rows.Count + 1), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"


        ' xlApp.Range("B4:j" & a + dt1.Rows.Count + 1).Select()
        xlApp.Cells(2, 2).Select()

        xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Clear
        'xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Add2(Key:=xlApp.Range("表1[日期]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= .XlSortDataOption.xlSortNormal)


        xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Clear
        xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Add(Key:=xlApp.Range("表1[日期]"), SortOn:=Excel.XlSortOn.xlSortOnValues, Order:=Excel.XlSortOrder.xlAscending, DataOption:=Excel.XlSortDataOption.xlSortNormal)


        With xlApp.ActiveSheet.ListObjects("表1").Sort
            .Header = Excel.XlYesNoGuess.xlYes
            .MatchCase = False
            .Orientation = Excel.Constants.xlTopToBottom

            .Apply
        End With



        xlSheet.Cells(4, 10) = "结存"

        xlSheet.Range("j5").FormulaR1C1 = "=IF(ISNUMBER(R[-1]C[0]),IF(R[0]C[-6]=""入库"",R[-1]C[0]+R[0]C[-4],R[-1]C[0]-R[0]C[-4]),R[0]C[-4])"
        '  xlApp.Selection.AutoFill(Destination:=xlApp.Range("j6:j" & a + dt1.Rows.Count - 1))

        xlSheet.Range("j5").Select()
        xlApp.Range(xlApp.Selection, xlApp.ActiveCell.SpecialCells(Excel.Constants.xlLastCell)).Select()
        xlApp.Selection.FillDown


        xlApp.Range(xlApp.Selection, xlApp.ActiveCell.SpecialCells(Excel.Constants.xlLastCell)).Select()



        xlSheet.Columns("J:J").cut
        xlSheet.Columns("G:G").Select
        xlApp.Selection.Insert(Shift:=Excel.XlDirection.xlToRight)


        xlSheet.Columns("e:g").Select
        xlApp.Selection.NumberFormat = "#,##0.00_);[Red](#,##0.00)"
        xlApp.Range("F4").Copy()

        xlApp.Range("G4").PasteSpecial(Paste:=Excel.XlPasteType.xlPasteFormats)





        xlApp.Columns("B:B").ColumnWidth = 13.13
        xlApp.Columns("D:D").ColumnWidth = 12.13
        xlApp.Columns("e:e").ColumnWidth = 15
        xlApp.Columns("F:F").ColumnWidth = 13.88
        xlApp.Columns("G:G").ColumnWidth = 14.25
        xlApp.Columns("H:H").ColumnWidth = 26.88
        xlApp.Columns("I:I").ColumnWidth = 26.88
        xlApp.Columns("J:J").ColumnWidth = 12
        sql = "select l_no from rt_bg_mtl_name where name =N'" & matl & "'"
        cmd.CommandText = sql


        xlSheet.Cells(1, 2) = "仓库物资帐" & "--产成品--" & cmd.ExecuteScalar & matl
        xlSheet.Cells(1, 2).select
        xlApp.Selection.HorizontalAlignment = Excel.Constants.xlCenter
        xlApp.Selection.VerticalAlignment = Excel.Constants.xlCenter
        xlApp.Selection.Font.Size = 24





        xlSheet.Range("E3").FormulaR1C1 = "=SUMIF(R[2]C[-1]:R[10000]C[-1],""入库"",R[2]C[1]:R[10000]C[1])"
        xlSheet.Range("F3").FormulaR1C1 = "=SUMIF(R[2]C[-2]:R[10000]C,""出库"",R[2]C[1]:R[10000]C)"
        xlSheet.Range("G3").FormulaR1C1 = "=RC[-2]-RC[-1]"
        xlSheet.Range("G3").Select()
        xlApp.Selection.NumberFormat = "#,##0.00_);[Red](#,##0.00)"
        xlSheet.Rows("5:5").Select
        xlApp.ActiveWindow.FreezePanes = True

        xlApp.Range("B1:J1").MergeCells = True
        xlApp.Columns("B:K").EntireColumn.AutoFit
        If set_print_format = True Then
            With xlApp.ActiveSheet.PageSetup

                .LeftMargin = xlApp.Application.InchesToPoints(0.15)
                .RightMargin = xlApp.Application.InchesToPoints(0.25)
                .TopMargin = xlApp.Application.InchesToPoints(0.25)
                .BottomMargin = xlApp.Application.InchesToPoints(0.5)
                .HeaderMargin = xlApp.Application.InchesToPoints(0.3)
                .FooterMargin = xlApp.Application.InchesToPoints(0.3)

                .Orientation = Excel.XlPageOrientation.xlLandscape
                .PrintTitleRows = "$1:$4"
                .FitToPagesWide = 1
                .CenterFooter = "第 &P 页，共 &N 页"


            End With
        End If




        xlApp.Columns("B:B").NumberFormat = "yyyy/mm/dd"

        xlSheet = Nothing








    End Sub
    Private Sub start_wh_bjl_cal(xno As String, matl As String)

        a = 0
        xlSheet = xlBook.Worksheets.Add
        xlSheet.Name = "边角料-" & matl
        xlSheet.Activate()
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(1, 1), Address:="", SubAddress:="总表!A1", TextToDisplay:="总表")

        sql2 = sql1 & "  and 出入库=N'入库' and (物料名称 =N'" & matl & "') and 调入仓库 like N'%边角料仓%'"
        cmd.CommandText = sql2
        da.SelectCommand = cmd
        dt1 = New DataTable
        da.Fill(dt1)

        DGV1.DataSource = dt1
        DGV1.SelectAll()
        Me.DGV1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.DGV1.RowHeadersVisible = False

        Clipboard.SetDataObject(DGV1.GetClipboardContent().GetData(DataFormats.Text.ToString))
        System.Threading.Thread.Sleep(200)
        xlApp.Columns("B:B").ColumnWidth = 20
        xlApp.Columns("c:c").ColumnWidth = 20
        xlApp.Columns("D:D").ColumnWidth = 20
        xlApp.Columns("e:e").ColumnWidth = 20
        xlApp.Columns("F:F").ColumnWidth = 20
        xlApp.Columns("G:G").ColumnWidth = 20
        xlApp.Columns("H:H").ColumnWidth = 20
        xlApp.Columns("I:I").ColumnWidth = 20
        xlApp.Columns("J:J").ColumnWidth = 20
        xlApp.Cells(4, 2).Select()

        ' xlSheet.PasteSpecial("Unicode 文本", False, False)



        If IsDBNull(DGV1.GetClipboardContent().GetData(DataFormats.Text.ToString)) Then


        Else
            xlSheet.PasteSpecial()
            Clipboard.SetDataObject(DBNull.Value)
        End If


        'xlSheet.PasteSpecial()
        'Clipboard.SetDataObject(DBNull.Value)

        a = 4 + dt1.Rows.Count - 1

        sql4 = sql3 & " and (物料名称 =N'" & matl & "')"
        cmd.CommandText = sql4
        da.SelectCommand = cmd
        dt1 = New DataTable
        da.Fill(dt1)
        DGV1.DataSource = dt1
        DGV1.SelectAll()
        Me.DGV1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText

        Me.DGV1.RowHeadersVisible = False

        Clipboard.SetDataObject(DGV1.GetClipboardContent().GetData(DataFormats.Text.ToString))
        System.Threading.Thread.Sleep(200)
        xlApp.Cells(2 + a, 2).Select()

        ' xlSheet.PasteSpecial("Unicode 文本", False, False)

        If IsDBNull(DGV1.GetClipboardContent().GetData(DataFormats.Text.ToString)) Then


        Else
            xlSheet.PasteSpecial()
            Clipboard.SetDataObject(DBNull.Value)
        End If




        'xlSheet.PasteSpecial()
        'Clipboard.SetDataObject(DBNull.Value)


        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("B4:J" & a + dt1.Rows.Count + 1), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"


        ' xlApp.Range("B4:j" & a + dt1.Rows.Count + 1).Select()
        xlApp.Cells(2, 2).Select()

        xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Clear
        'xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Add2(Key:=xlApp.Range("表1[日期]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= .XlSortDataOption.xlSortNormal)


        xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Clear
        xlApp.ActiveSheet.ListObjects("表1").Sort.SortFields.Add(Key:=xlApp.Range("表1[日期]"), SortOn:=Excel.XlSortOn.xlSortOnValues, Order:=Excel.XlSortOrder.xlAscending, DataOption:=Excel.XlSortDataOption.xlSortNormal)


        With xlApp.ActiveSheet.ListObjects("表1").Sort
            .Header = Excel.XlYesNoGuess.xlYes
            .MatchCase = False
            .Orientation = Excel.Constants.xlTopToBottom

            .Apply
        End With



        xlSheet.Cells(4, 10) = "结存"

        xlSheet.Range("j5").FormulaR1C1 = "=IF(ISNUMBER(R[-1]C[0]),IF(R[0]C[-6]=""入库"",R[-1]C[0]+R[0]C[-4],R[-1]C[0]-R[0]C[-4]),R[0]C[-4])"
        '  xlApp.Selection.AutoFill(Destination:=xlApp.Range("j6:j" & a + dt1.Rows.Count - 1))

        xlSheet.Range("j5").Select()
        xlApp.Range(xlApp.Selection, xlApp.ActiveCell.SpecialCells(Excel.Constants.xlLastCell)).Select()
        xlApp.Selection.FillDown


        xlApp.Range(xlApp.Selection, xlApp.ActiveCell.SpecialCells(Excel.Constants.xlLastCell)).Select()



        xlSheet.Columns("J:J").cut
        xlSheet.Columns("G:G").Select
        xlApp.Selection.Insert(Shift:=Excel.XlDirection.xlToRight)


        xlSheet.Columns("e:g").Select
        xlApp.Selection.NumberFormat = "#,##0.00_);[Red](#,##0.00)"
        xlApp.Range("F4").Copy()

        xlApp.Range("G4").PasteSpecial(Paste:=Excel.XlPasteType.xlPasteFormats)





        xlApp.Columns("B:B").ColumnWidth = 13.13
        xlApp.Columns("D:D").ColumnWidth = 12.13
        xlApp.Columns("e:e").ColumnWidth = 15
        xlApp.Columns("F:F").ColumnWidth = 13.88
        xlApp.Columns("G:G").ColumnWidth = 14.25
        xlApp.Columns("H:H").ColumnWidth = 26.88
        xlApp.Columns("I:I").ColumnWidth = 26.88
        xlApp.Columns("J:J").ColumnWidth = 12
        sql = "select l_no from rt_bg_mtl_name where name =N'" & matl & "'"
        cmd.CommandText = sql


        xlSheet.Cells(1, 2) = "仓库物资帐" & "--边角料--" & cmd.ExecuteScalar & matl
        xlSheet.Cells(1, 2).select
        xlApp.Selection.HorizontalAlignment = Excel.Constants.xlCenter
        xlApp.Selection.VerticalAlignment = Excel.Constants.xlCenter
        xlApp.Selection.Font.Size = 24





        xlSheet.Range("E3").FormulaR1C1 = "=SUMIF(R[2]C[-1]:R[10000]C[-1],""入库"",R[2]C[1]:R[10000]C[1])"
        xlSheet.Range("F3").FormulaR1C1 = "=SUMIF(R[2]C[-2]:R[10000]C,""出库"",R[2]C[1]:R[10000]C)"
        xlSheet.Range("G3").FormulaR1C1 = "=RC[-2]-RC[-1]"
        xlSheet.Range("G3").Select()
        xlApp.Selection.NumberFormat = "#,##0.00_);[Red](#,##0.00)"
        xlSheet.Rows("5:5").Select
        xlApp.ActiveWindow.FreezePanes = True

        xlApp.Range("B1:J1").MergeCells = True
        xlApp.Columns("B:J").EntireColumn.AutoFit
        If set_print_format = True Then
            With xlApp.ActiveSheet.PageSetup

                .LeftMargin = xlApp.Application.InchesToPoints(0.15)
                .RightMargin = xlApp.Application.InchesToPoints(0.25)
                .TopMargin = xlApp.Application.InchesToPoints(0.25)
                .BottomMargin = xlApp.Application.InchesToPoints(0.5)
                .HeaderMargin = xlApp.Application.InchesToPoints(0.3)
                .FooterMargin = xlApp.Application.InchesToPoints(0.3)

                .Orientation = Excel.XlPageOrientation.xlLandscape
                .PrintTitleRows = "$1:$4"
                .FitToPagesWide = 1
                .CenterFooter = "第 &P 页，共 &N 页"


            End With
        End If




        xlApp.Columns("B:B").NumberFormat = "yyyy/mm/dd"

        xlSheet = Nothing








    End Sub
    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click

        sql = "SELECT          物料名称, cast(SUM(数量) as decimal(10,3)) AS 数量小计, 调出仓库, 调入仓库
FROM              (SELECT          日期, 单号, 出入库, 物料名称, 数量, 调出仓库, CASE WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 入库手册号 IS NULL THEN 领料手册号 END AS 手册号, 调入仓库
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调出仓库, 
                                                                                     rt_stock_name_1.FName AS 调入仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p) AS q
where 日期 between '" & String.Format("{0:d}", dtp2.Value) & "' and '" & String.Format("{0:d}", dtp3.Value) & "'  GROUP BY   物料名称, 调出仓库, 调入仓库 ORDER BY   物料名称, 调出仓库 DESC"

        cmd.CommandText = sql

        dt1 = New DataTable


        da.SelectCommand = cmd
        da.Fill(dt1)


        DGV1.DataSource = dt1

        DGV1.Columns(0).Width = 180
        DGV1.Columns(1).Width = 130
        DGV1.Columns(2).Width = 180
        DGV1.Columns(3).Width = 180



        sql = "SELECT          物料名称, cast(SUM(数量) as decimal(10,3)) AS 数量小计,count(*) as 笔数, 调出仓库, 调入仓库
FROM              (SELECT          日期, 单号, 出入库, 物料名称, 数量, 调出仓库, CASE WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL 
                                                        AND 领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                                                        出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                                                        THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
                                                        成品入库手册号 IS NULL AND 入库手册号 IS NULL THEN 领料手册号 END AS 手册号, 调入仓库
                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'sou' THEN N'出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'cin' THEN N'入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调出仓库, 
                                                                                     rt_stock_name_1.FName AS 调入仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
                                                                                     rt_stock_bill1.FDCStockID
                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name AS rt_stock_name_1 ON 
                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                                                         ORDER BY    日期 DESC) AS p) AS q
where 手册号 is null and 日期 between '" & String.Format("{0:d}", dtp2.Value) & "' and '" & String.Format("{0:d}", dtp3.Value) & "'  GROUP BY   物料名称, 调出仓库, 调入仓库 ORDER BY   物料名称, 调出仓库 DESC"



        cmd.CommandText = sql

        dt1 = New DataTable


        da.SelectCommand = cmd
        da.Fill(dt1)


        DGV2.DataSource = dt1


        DGV2.Columns(0).Width = 120
        DGV2.Columns(2).Width = 80
        DGV2.Columns(4).Width = 180



    End Sub

    Private Sub DGV2_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles DGV2.CellEndEdit

    End Sub

    Private Sub DGV2_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGV2.CellClick



        'sql = "SELECT 单号,物料名称,cast(数量 as decimal(10,3))as 数量 , 调出仓库, 调入仓库
        'FROM              (SELECT          日期, 单号, 出入库, 物料名称, 数量, 调出仓库, CASE WHEN 调拨手册号 IS NULL AND 
        '                                                        出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
        '                                                        THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL 
        '                                                        AND 领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
        '                                                        成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
        '                                                        出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
        '                                                        THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 
        '                                                        成品入库手册号 IS NULL AND 入库手册号 IS NULL THEN 领料手册号 END AS 手册号, 调入仓库
        '                            FROM               (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
        '                                                                                     CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) 
        '                                                                                     = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
        '                                                                                     = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
        '                                                                                     = 'sou' THEN N'出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
        '                                                                                     = 'cin' THEN N'入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
        '                                                                                     = 'xou' THEN N'成品出库' END AS 出入库, rt_t_item.FName AS 物料名称, 
        '                                                                                     rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调出仓库, 
        '                                                                                     rt_stock_name_1.FName AS 调入仓库, rt_stock_bill.FExplanation AS 报关单号, 
        '                                                                                     rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, 
        '                                                                                     rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
        '                                                                                     rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, 
        '                                                                                     rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
        '                                                                                     rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, 
        '                                                                                     rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, rt_stock_bill1.FSCStockID, 
        '                                                                                     rt_stock_bill1.FDCStockID
        '                                                         FROM               rt_stock_bill1 LEFT OUTER JOIN
        '                                                                                     rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
        '                                                                                     rt_stock_name AS rt_stock_name_1 ON 
        '                                                                                     rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
        '                                                                                     rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
        '                                                                                     rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
        '                                                         ORDER BY    日期 DESC) AS p) AS q
        'where 物料名称=N'" & DGV2.Rows(DGV2.CurrentCell.RowIndex).Cells("物料名称").Value & "' and 手册号 is null and 日期 between '" & String.Format("{0:d}", dtp2.Value) & "' and '" & String.Format("{0:d}", dtp3.Value) & "' and 调入仓库=N'" & DGV2.Rows(DGV2.CurrentCell.RowIndex).Cells("调入仓库").Value & "'"
        'cmd.CommandText = sql

        'dt1 = New DataTable
        'da.SelectCommand = cmd
        'da.Fill(dt1)


        'dgv3.DataSource = dt1

    End Sub

    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click '---原始资料


        DGV1.DataSource = Nothing

        xlApp = CreateObject("Excel.Application")

        xlBook = xlApp.Workbooks.Add
        xlApp.Visible = True
        'xlApp.DisplayAlerts = False

        xlBook.Activate()
        xlBook.Parent.Windows(1).Visible = True


        sql = "SELECT          日期, 单号, 出入库, 物料名称, 数量, 调出仓库,调入仓库,手册号,备注 from( SELECT          日期, 单号, 出入库, 物料名称, 数量, 调出仓库, CASE WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 入库手册号 WHEN 入库手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            领料手册号 IS NULL THEN 调拨手册号 WHEN 调拨手册号 IS NULL AND 入库手册号 IS NULL AND 
                            成品入库手册号 IS NULL AND 领料手册号 IS NULL THEN 出口手册号 WHEN 调拨手册号 IS NULL AND 
                            出口手册号 IS NULL AND 入库手册号 IS NULL AND 领料手册号 IS NULL 
                            THEN 成品入库手册号 WHEN 调拨手册号 IS NULL AND 出口手册号 IS NULL AND 成品入库手册号 IS NULL AND 
                            入库手册号 IS NULL THEN 领料手册号 END AS 手册号,调入仓库,备注
FROM              (SELECT          TOP (100) PERCENT rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                                                        CASE WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'win' THEN N'采购入库' WHEN LEFT(rt_stock_bill.FBillNo, 
                                                        3) = 'chg' THEN N'调拨' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'sou' THEN N'出库' WHEN LEFT(rt_stock_bill.FBillNo, 3) 
                                                        = 'cin' THEN N'入库' WHEN LEFT(rt_stock_bill.FBillNo, 3) = 'xou' THEN N'成品出库' END AS 出入库,
                                                         rt_t_item.FName AS 物料名称, rt_stock_bill1.FQty AS 数量, rt_stock_name.FName AS 调出仓库, 
                                                        rt_stock_name_1.FName AS 调入仓库, rt_stock_bill.FExplanation AS 报关单号, 
                                                        rt_stock_bill1.FEntrySelfD0126 AS 调拨品名, rt_stock_bill1.FEntrySelfD0125 AS 调拨手册号, 
                                                        rt_stock_bill1.FEntrySelfB0138 AS 出口手册号, rt_stock_bill1.FEntrySelfA0231 AS 成品入库手册号, 
                                                        rt_stock_bill1.FEntrySelfB0430 AS 领料手册号, rt_stock_bill1.FEntrySelfA0132 AS 入库手册号, 
                                                        rt_stock_bill1.FSCStockID, rt_stock_bill1.FDCStockID,rt_stock_bill1.fnote as 备注
                            FROM               rt_stock_bill1 LEFT OUTER JOIN
                                                        rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID LEFT OUTER JOIN
                                                        rt_stock_name AS rt_stock_name_1 ON 
                                                        rt_stock_bill1.FDCStockID = rt_stock_name_1.FItemID LEFT OUTER JOIN
                                                        rt_stock_name ON rt_stock_bill1.FSCStockID = rt_stock_name.FItemID RIGHT OUTER JOIN
                                                        rt_stock_bill ON rt_stock_bill1.FInterID = rt_stock_bill.FInterID
                            ORDER BY    日期 DESC) AS p ) as q"

        cmd.CommandText = sql

        dt1 = New DataTable


        da.SelectCommand = cmd
        da.Fill(dt1)


        DGV1.DataSource = dt1


        xlSheet = xlBook.Worksheets.Add

        DGV1.SelectAll()
        Me.DGV1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.DGV1.RowHeadersVisible = False

        Clipboard.SetDataObject(DGV1.GetClipboardContent())
        System.Threading.Thread.Sleep(1000)
        xlApp.Columns("B:k").select
        xlApp.Selection.ColumnWidth = 21


        xlApp.Cells(2, 2).Select()

        ' xlSheet.PasteSpecial("Unicode 文本", False, False)
        xlSheet.PasteSpecial()
        Clipboard.SetDataObject(DBNull.Value)


        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("B2:k" & dt1.Rows.Count + 2), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"






        xlApp = Nothing
        xlSheet = Nothing
        xlBook = Nothing


        MsgBox("输出完成")

    End Sub
End Class