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

Imports System.Data.SqlClient
Imports OfficeOpenXml
Imports OfficeOpenXml.Style

Public Class Frm_ACC_1
    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_xno As String
    Private Sub Set_grid_color(dgv As DataGridView)







        If dgv.Rows.Count < 2 Then Exit Sub

        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(500) As Integer

        Dim x As Integer

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

            If dgv.Rows(x).Cells("手册号").Value.ToString <> dgv.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

                dgv.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
                    dgv.Rows(z).DefaultCellStyle.BackColor = colorArray(cc Mod 5)
                Next
            Next
        End If

    End Sub
    Private Sub query_latest_update_date()



        '------蓝皮入库

        sql = "SELECT          日期
FROM              (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 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
                                                         ) AS p
                            WHERE           (出入库 = N'采购入库')
                            ) AS derivedtbl_1
GROUP BY   日期, 物料名称, 手册号, 序号
 HAVING  " & my_xno & " AND (物料名称 LIKE N'%蓝湿%')
ORDER BY   日期 DESC"
        cmd.CommandText = sql
        txt_wb_in.Text = String.Format("{0:d}", cmd.ExecuteScalar)



        '------化料入库

        sql = "SELECT          日期, 物料名称
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  " & my_xno & " and (物料名称 not LIKE N'%蓝湿%')
ORDER BY   日期 DESC"
        cmd.CommandText = sql
        txt_chem_in.Text = String.Format("{0:d}", cmd.ExecuteScalar)

        '------蓝皮调拨

        sql = "SELECT          日期, 物料名称
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  " & my_xno & "  and (物料名称 LIKE N'%蓝湿%')
ORDER BY   日期 DESC"
        cmd.CommandText = sql
        txt_wb_out.Text = String.Format("{0:d}", cmd.ExecuteScalar)



        '------化工调拨

        sql = "SELECT          日期, 物料名称
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  " & my_xno & "  and (物料名称 not LIKE N'%蓝湿%')
ORDER BY   日期 DESC"
        cmd.CommandText = sql
        txt_chem_out.Text = String.Format("{0:d}", cmd.ExecuteScalar)


        '------在制品入库

        sql = "SELECT          日期, 物料名称
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  " & my_xno & " 
ORDER BY   日期 DESC"
        cmd.CommandText = sql
        txt_inprocess_in.Text = String.Format("{0:d}", cmd.ExecuteScalar)




        '------在制品入库

        sql = "SELECT          日期, 物料名称
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  " & my_xno & "  
ORDER BY   日期 DESC"
        cmd.CommandText = sql
        txt_inprocess_out.Text = String.Format("{0:d}", cmd.ExecuteScalar)




        '------在制品入库

        sql = "SELECT          日期, 物料名称
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  " & my_xno & "  
ORDER BY   日期 DESC"
        cmd.CommandText = sql
        txt_finish_in.Text = String.Format("{0:d}", cmd.ExecuteScalar)




        '------成品出库

        sql = "SELECT          日期, 物料名称
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  " & my_xno & "  
ORDER BY   日期 DESC"
        cmd.CommandText = sql
        txt_finish_out.Text = String.Format("{0:d}", cmd.ExecuteScalar)




        '------蓝皮领料

        sql = "SELECT          日期, 物料名称
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  " & my_xno & "  
ORDER BY   日期 DESC"
        cmd.CommandText = sql
        txt_wb_out1.Text = String.Format("{0:d}", cmd.ExecuteScalar)

        '------化工领料

        sql = "SELECT          日期, 物料名称
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 (物料名称 not like N'%蓝湿%')
                            ORDER BY    日期 DESC) AS derivedtbl_1
GROUP BY   日期, 物料名称, 手册号, 序号
HAVING  " & my_xno & "  
ORDER BY   日期 DESC"
        cmd.CommandText = sql
        txt_chem_out1.Text = String.Format("{0:d}", cmd.ExecuteScalar)

    End Sub

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


        CheckedListBox1.Items.Add("B372719A0008")
        CheckedListBox1.Items.Add("B372720A0006")


        '  Me.MdiParent = FrmMDI

        dtp1.Value = Today

        conn.ConnectionString = connstring
        conn.Open()

        cmd.Connection = conn







        '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-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-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()



































        cal()




    End Sub
    Private Sub check_server_connect()

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



            MessageBox.Show("服务器连线ok")
            update_data()
        Else
            MessageBox.Show("没有网络连线，将使用上次导入数据!!","错误!!")
        End If


    End Sub
    Private Sub update_data()


        sql = "SELECT  name FROM      sys.tables WHERE   (name = 'rt_stock_bill')"
        cmd.CommandText = sql

        If cmd.ExecuteScalar Is Nothing Then

        Else

            sql = "drop table rt_stock_bill"
            cmd.CommandText = sql
            cmd.ExecuteScalar()
        End If



        sql = "SELECT  name FROM      sys.tables WHERE   (name = 'rt_stock_bill1')"
        cmd.CommandText = sql

        If cmd.ExecuteScalar Is Nothing Then


        Else

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




        sql = "SELECT  name FROM      sys.tables WHERE   (name = 'rt_stock_name')"
        cmd.CommandText = sql

        If cmd.ExecuteScalar Is Nothing Then


        Else

            sql = "drop table rt_stock_name"
            cmd.CommandText = sql
            cmd.ExecuteScalar()
        End If


        sql = "SELECT  name FROM sys.tables WHERE   (name = 'rt_t_item')"
        cmd.CommandText = sql

        If cmd.ExecuteScalar Is Nothing Then


        Else

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






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



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

        'sql = "ALTER table rt_stock_bill1 ALTER COLUMN fqty DECIMAL(18, 4)"
        'cmd.CommandText = sql
        'cmd.ExecuteScalar()


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




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

        'sql = "alter table rt_t_item add serialid int"
        'cmd.CommandText = sql
        'cmd.ExecuteScalar()


        sql = "update rt_t_item set serialid=1 where ffullname=N'保税蓝皮_蓝湿牛二层皮'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_t_item set serialid=1 where ffullname=N'车间皮料仓_蓝湿牛二层皮'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_t_item set serialid=2 where ffullname=N'保税化料_有机鞣料'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_t_item set serialid=2 where ffullname=N'水场化料仓_有机鞣料'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_t_item set serialid=3 where ffullname=N'保税化料_无机鞣料'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        sql = "update rt_t_item set serialid=3 where ffullname=N'水场化料仓_无机鞣料'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        sql = "update rt_t_item set serialid=4 where ffullname=N'保税化料_表面活性剂'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_t_item set serialid=4 where ffullname=N'水场化料仓_表面活性剂'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_t_item set serialid=6 where ffullname=N'保税化料_合成油脂'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_t_item set serialid=6 where ffullname=N'水场化料仓_合成油脂'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_t_item set serialid=7 where ffullname=N'保税化料_皮革整理剂'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_t_item set serialid=7 where ffullname=N'水场化料仓_皮革整理剂'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_t_item set serialid=8 where ffullname=N'保税化料_复鞣助剂'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_t_item set serialid=8 where ffullname=N'水场化料仓_复鞣助剂'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_t_item set serialid=9 where ffullname=N'保税化料_制革染料'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_t_item set serialid=9 where ffullname=N'水场化料仓_制革染料'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_t_item set serialid=10 where ffullname=N'保税化料_聚氨酯混合液'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_t_item set serialid=10 where ffullname=N'水场化料仓_聚氨酯混合液'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_t_item set serialid=10 where ffullname=N'反毛喷涂化料_聚氨酯混合液'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()



        sql = "update rt_t_item set serialid=11 where ffullname=N'保税化料_PU树脂'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_t_item set serialid=11 where ffullname=N'水场化料仓_PU树脂'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_t_item set serialid=11 where ffullname=N'PU喷涂化料_PU树脂'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()



        sql = "update rt_t_item set serialid=12 where ffullname=N'保税化料_皮革促进剂'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_t_item set serialid=12 where ffullname=N'水场化料仓_皮革促进剂'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        sql = "update rt_t_item set serialid=12 where ffullname=N'PU喷涂化料_皮革促进剂'"
        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()


    End Sub
    Private Sub cal()


        check_server_connect()





        my_xno = "(手册号 ='B372723A0005' or 手册号 ='B372722A0002' )"




        query_latest_update_date()

        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 = "alter table rt_t_item add columns serialid int(10)"
        '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 = "SELECT          入库手册号 AS 手册号, 物料名称, CAST(- SUM(数量) AS DECIMAL(10, 3)) 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          (数量 < 0) AND (报关单号 LIKE N'%余料结转%') AND (入库手册号 <>'B372722A0002')
GROUP BY   入库手册号, 物料名称
ORDER BY   手册号, 物料名称"


        'dt1 = New DataTable
        'cmd.CommandText = sql


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

        'DGV_UL_OUT.DataSource = dt1

        'Set_grid_color(DGV_UL_OUT)



        sql = "SELECT          入库手册号 AS 手册号, 物料名称, CAST( SUM(数量) AS DECIMAL(10, 3)) 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          (数量 > 0) AND (报关单号 LIKE N'%余料结转%') AND (入库手册号 = 'b372722a0002')
GROUP BY   入库手册号, 物料名称
ORDER BY   手册号, 物料名称"


        'dt1 = New DataTable
        'cmd.CommandText = sql


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

        'DGV_UL_IN.DataSource = dt1



        'Set_grid_color(DGV_UL_IN)



        '-------------------------------------------------------------------------------------征税内销转出
        sql = "SELECT          日期,入库手册号 AS 手册号, 物料名称, CAST(- SUM(数量) AS DECIMAL(10, 3)) 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          (数量 < 0) AND (报关单号 LIKE N'%内销%') AND (入库手册号 ='B372720A0006' or 入库手册号 ='B372721A0003' or 入库手册号 ='B372722A0002')
GROUP BY   日期,入库手册号, 物料名称
ORDER BY   日期,手册号, 物料名称"


        dt1 = New DataTable
        cmd.CommandText = sql


        da.SelectCommand = cmd
        da.Fill(dt1)


        sql = "SELECT 日期,手册号,物料名称,CAST(数量 AS DECIMAL(10,3)) 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 WHERE (rt_stock_bill1.FNote LIKE N'%税内销%')          ORDER BY    日期 DESC) AS p   WHERE   (出入库 LIKE N'%出库%') AND 数量>0  and 物料名称=N'蓝湿牛二层皮'  ORDER BY    日期 DESC) AS derivedtbl_1 where 手册号='B372720A0006'"
        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(dt1)





        dt1.DefaultView.Sort = "日期"


        dgv_tax.DataSource = dt1

        Set_grid_color(dgv_tax)












        '------保税入库

        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 WHERE rt_stock_bill.FDate<='" & String.Format("{0:d}", dtp1.Value) & "'  ORDER BY    日期 DESC) AS p   WHERE   ((出入库 = N'采购入库' or 出入库 = N'成品入库') and 仓库 like N'%保税%') AND 数量>0  ORDER BY    日期 DESC) AS derivedtbl_1 GROUP BY   物料名称, 手册号,序号 HAVING  " & my_xno & " ORDER BY   手册号 DESC,序号"


        '--- AND (物料名称<>N'牛二层皮5' AND 物料名称<>N'牛二层皮6' AND 物料名称<>N'PU牛二层皮2' AND  物料名称<>N'蓝湿牛二层皮（头部皮）' AND  物料名称<>N'蓝湿牛二层皮（边角料）'  AND  物料名称<>N'蓝湿牛皮（底层皮）' AND  物料名称<>N'皮革边角废料粉末')                       


        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"))
        dt1.Columns.Add("余料结转", Type.GetType("System.Decimal"))

        dt1.Columns.Add("征税内销", Type.GetType("System.Decimal"))

        dt1.Columns.Add("结存", Type.GetType("System.Decimal"))




















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



            'If dt1.Rows(X).Item("手册号") = "B372719A0008" And dt1.Rows(X).Item("物料名称") = "蓝湿牛二层皮" Then

            '    dt1.Rows(X).Item("进口数量") = dt1.Rows(X).Item("进口数量") - 54956

            'End If


            sql = "SELECT  SUM(数量) AS 数量
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, 数量 , 
                                                        调拨仓库 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 WHERE rt_stock_bill.FDate<='" & String.Format("{0:d}", dtp1.Value) & "' 
                                                        ) AS p
                            WHERE    (出入库 like N'%出库%') AND (调拨仓库 like N'%保税%')) 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





            sql = "SELECT  -SUM(数量) AS 数量
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, 数量 , 
                                                        调拨仓库 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     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_stock_bill.FDate<='" & String.Format("{0:d}", dtp1.Value) & "' and (rt_stock_bill.FBillNo LIKE '%cin%') AND (rt_stock_bill1.FQty < 0) and (rt_stock_bill1.fnote not like N'%余料%')                                                       ) AS p
                            WHERE    (出入库 like N'%入库%') and (仓库 like N'%保税%')) 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



            sql = "SELECT  -SUM(数量) AS 数量
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, 数量 , 
                                                        调拨仓库 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     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_stock_bill.FDate<='" & String.Format("{0:d}", dtp1.Value) & "' and (rt_stock_bill.FBillNo LIKE '%cin%') AND (rt_stock_bill1.FQty < 0) and (rt_stock_bill1.fnote like N'%余料%')
 
                                                        ) AS p
                            WHERE    (出入库 like N'%入库%') and (仓库 like N'%保税%')) 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


















            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 WHERE rt_stock_bill.FDate<='" & String.Format("{0:d}", dtp1.Value) & "' ORDER BY    日期 DESC) AS p   WHERE   (出入库 = N'采购入库') AND 数量<0  and 物料名称=N'" & dt1.Rows(X).Item("物料名称") & "' ORDER BY    日期 DESC) AS derivedtbl_1 GROUP BY   物料名称, 手册号,序号 HAVING  手册号='" & dt1.Rows(X).Item("手册号") & "' ORDER BY   手册号 DESC,序号"
            cmd.CommandText = sql






            If cmd.ExecuteScalar Is Nothing 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("调拨出库") - dt1.Rows(X).Item("红字入库") - dt1.Rows(X).Item("余料结转") - dt1.Rows(X).Item("征税内销")



















        Next



        DGV1.DataSource = dt1
        Set_grid_color(DGV1)







        With DGV1.Columns("征税内销").DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With















        '-------------------------------------------------------------调拨入库

        sql = "SELECT  手册号,物料名称,sum(数量) as 调拨数量
FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称,数量, 
                                                        调拨仓库 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 WHERE rt_stock_bill.FDate<='" & String.Format("{0:d}", dtp1.Value) & "'  
                                                         ORDER BY    日期 DESC) AS p
                            WHERE    (出入库 like N'%入库%') AND (仓库 like N'%车间%') and 数量>0 ORDER BY    日期 DESC) AS q group by 手册号,物料名称,序号 HAVING  " & my_xno & "  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"))
        dt1.Columns.Add("余料结转", Type.GetType("System.Decimal"))
        dt1.Columns.Add("征税内销", Type.GetType("System.Int32"))
        dt1.Columns.Add("结存", Type.GetType("System.Decimal"))





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


            sql = "SELECT  cast(SUM(数量) as numeric(10,0)) AS 调拨数量
            FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, 数量, 
                                                                    调拨仓库 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 WHERE rt_stock_bill.FDate<='" & String.Format("{0:d}", dtp1.Value) & "' and (rt_stock_bill1.fnote not like N'%内销%') 
                                                                     ORDER BY    日期 DESC) AS p
                                        WHERE           (出入库 = N'领料出库')  ORDER BY    日期 DESC) AS q where 手册号='" & dt1.Rows(X).Item("手册号") & "' and 物料名称 =N'" & dt1.Rows(X).Item("物料名称") & "' and 领料仓库 like N'%车间%'"

            cmd.CommandText = sql


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



            '------红色入库
            sql = "SELECT  -cast(SUM(数量) as numeric(10,0)) AS 调拨数量
            FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, 数量, 
                                                                    调拨仓库 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 WHERE rt_stock_bill.FDate<='" & String.Format("{0:d}", dtp1.Value) & "' and (rt_stock_bill1.fnote not like N'%余料%') 
                                                                     ORDER BY    日期 DESC) AS p
                                        WHERE           (单号 like N'cin%') and 数量<0  ORDER BY    日期 DESC) AS q where 手册号='" & dt1.Rows(X).Item("手册号") & "' and 物料名称 =N'" & dt1.Rows(X).Item("物料名称") & "' and 仓库 like N'%车间%'"

            cmd.CommandText = sql


            If cmd.ExecuteScalar.ToString = "" Then
                dt1.Rows(X).Item("红字入库") = 0
            Else
                dt1.Rows(X).Item("红字入库") = cmd.ExecuteScalar
            End If




            '------余料结转
            sql = "SELECT  -cast(SUM(数量) as numeric(10,0)) AS 调拨数量
            FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, 数量, 
                                                                    调拨仓库 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 WHERE rt_stock_bill.FDate<='" & String.Format("{0:d}", dtp1.Value) & "' and (rt_stock_bill1.fnote like N'%余料%') 
                                                                     ORDER BY    日期 DESC) AS p
                                        WHERE           (单号 like N'cin%') and 数量<0  ORDER BY    日期 DESC) AS q where 手册号='" & dt1.Rows(X).Item("手册号") & "' and 物料名称 =N'" & dt1.Rows(X).Item("物料名称") & "' and 仓库 like N'%车间%'"

            cmd.CommandText = sql


            If cmd.ExecuteScalar.ToString = "" Then
                dt1.Rows(X).Item("余料结转") = 0
            Else
                dt1.Rows(X).Item("余料结转") = cmd.ExecuteScalar
            End If






            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 WHERE rt_stock_bill.FDate<='" & String.Format("{0:d}", dtp1.Value) & "' AND (rt_stock_bill1.FNote LIKE N'%税内销%')          ORDER BY    日期 DESC) AS p   WHERE   (出入库 LIKE N'%出库%') AND 数量>0  and 物料名称=N'" & dt1.Rows(X).Item("物料名称") & "'  ORDER BY    日期 DESC) AS derivedtbl_1 where 手册号='" & dt1.Rows(X).Item("手册号") & "'"
            cmd.CommandText = sql



            If dt1.Rows(X).Item("物料名称") = "蓝湿牛二层皮" Then



                If cmd.ExecuteScalar Is Nothing Or cmd.ExecuteScalar.ToString = "" Then
                    dt1.Rows(X).Item("征税内销") = 0
                Else

                    dt1.Rows(X).Item("征税内销") = cmd.ExecuteScalar
                End If

            Else

                dt1.Rows(X).Item("征税内销") = 0


            End If



            dt1.Rows(X).Item("结存") = dt1.Rows(X).Item("调拨数量") - dt1.Rows(X).Item("生产领料") - dt1.Rows(X).Item("红字入库") - dt1.Rows(X).Item("余料结转") - dt1.Rows(X).Item("征税内销")





            '--------征稅內銷(XOUT)


            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 WHERE rt_stock_bill.FDate<='" & String.Format("{0:d}", dtp1.Value) & "'  ORDER BY    日期 DESC) AS p   WHERE   (出入库 LIKE N'%成品出库%') AND 数量>0  and 物料名称=N'" & dt1.Rows(X).Item("物料名称") & "'  ORDER BY    日期 DESC) AS derivedtbl_1 where 手册号='" & dt1.Rows(X).Item("手册号") & "'"
            cmd.CommandText = sql



            If cmd.ExecuteScalar Is Nothing Or cmd.ExecuteScalar.ToString = "" Then
                dt1.Rows(X).Item("征税内销") = dt1.Rows(X).Item("征税内销")
            Else

                dt1.Rows(X).Item("征税内销") = dt1.Rows(X).Item("征税内销") + cmd.ExecuteScalar
            End If





            dt1.Rows(X).Item("结存") = dt1.Rows(X).Item("调拨数量") - dt1.Rows(X).Item("生产领料") - dt1.Rows(X).Item("红字入库") - dt1.Rows(X).Item("余料结转") - dt1.Rows(X).Item("征税内销")





        Next

        DGV2.DataSource = dt1
        Set_grid_color(DGV2)


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



        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 WHERE rt_stock_bill.FDate<='" & String.Format("{0:d}", dtp1.Value) & "' 
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (仓库 = N'在制品仓')
                            ORDER BY    日期 DESC) AS derivedtbl_1
GROUP BY   物料名称, 手册号, 序号
HAVING  " & my_xno & " 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"))
        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 WHERE rt_stock_bill.FDate<='" & String.Format("{0:d}", dtp1.Value) & "' 
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (调拨仓库 = N'在制品仓') AND (出入库=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("产品完工")


            dt1.Rows(X).Item("折成品") = dt1.Rows(X).Item("产品完工") * 0.58

        Next




        DGV3.DataSource = dt1
        Set_grid_color(DGV3)


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


        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 WHERE rt_stock_bill.FDate<='" & String.Format("{0:d}", dtp1.Value) & "' 
                                                         ORDER BY    日期 DESC) AS p
                            WHERE           (出入库 = N'成品入库') and (仓库=N'成品仓')
                            ORDER BY    日期 DESC) AS derivedtbl_1 where " & my_xno & "
GROUP BY   物料名称, 手册号, 序号 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"))
        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 WHERE rt_stock_bill.FDate<='" & String.Format("{0:d}", dtp1.Value) & "' 
                                                         ORDER BY    日期 DESC) AS p
                            WHERE          ( (出入库 = N'成品出库') OR (出入库=N'调拨出库') ) and ((调拨仓库=N'成品仓') or(仓库=N'成品仓') )                          ORDER BY    日期 DESC) AS q where 手册号='" & dt1.Rows(X).Item("手册号") & "' and 物料名称=N'" & dt1.Rows(X).Item("物料名称") & "'"

            cmd.CommandText = sql


            dt1.Rows(X).Item("折心皮") = Math.Round(dt1.Rows(X).Item("入库数量") / 0.58, 2)

            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
        DGV4.DataSource = dt1
        Set_grid_color(DGV4)


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


        ''        sql = "SELECT          手册号, 物料名称, cast(SUM(数量) as decimal(10,2)) 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 WHERE rt_stock_bill.FDate <'2021/1/1') AS p
        ''                            WHERE           (出入库 = N'成品入库') and (仓库=N'成品仓')
        ''                            ORDER BY    日期 DESC) AS derivedtbl_1 where " & my_xno & "
        ''GROUP BY   物料名称, 手册号, 序号

        ''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"))
        ''        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 
        ''                                                          where rt_stock_bill.FDate <'2021/1/1') AS p
        ''                            WHERE           (出入库 = N'成品出库')
        ''                            ORDER BY    日期 DESC) AS q where 手册号='" & dt1.Rows(X).Item("手册号") & "' and 物料名称=N'" & dt1.Rows(X).Item("物料名称") & "'"

        ''            cmd.CommandText = sql


        ''            dt1.Rows(X).Item("折心皮") = Math.Round(dt1.Rows(X).Item("入库数量") / 0.58, 2)

        ''            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
        ''        dgv4_1.DataSource = dt1
        ''        Set_grid_color(dgv4_1)




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


        ''        sql = "SELECT          手册号, 物料名称, cast(SUM(数量) as decimal(10,2)) 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
        ''                                                         where rt_stock_bill.FDate >='2021/1/1' and rt_stock_bill.FDate<='" & String.Format("{0:d}", dtp1.Value) & "' ) AS p
        ''                            WHERE           (出入库 = N'成品入库') and (仓库=N'成品仓')
        ''                            ORDER BY    日期 DESC) AS derivedtbl_1 where  " & my_xno & "
        ''GROUP BY   物料名称, 手册号, 序号

        ''ORDER BY   手册号 DESC,序号"


        ''        dt1 = New DataTable
        ''        cmd.CommandText = sql

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

        ''        dt1.Columns.Add("折心皮", Type.GetType("System.Decimal"))





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

        ''            dt1.Rows(X).Item("折心皮") = Math.Round(dt1.Rows(X).Item("入库数量") / 0.58, 2)



        ''        Next
        ''        dgv4_2.DataSource = dt1
        ''        Set_grid_color(dgv4_2)







        '''---------原保税仓领料

        ''sql = "SELECT          手册号, 物料名称, SUM(数量) AS 领料数量
        ''FROM              (SELECT          TOP (100) PERCENT 日期, 单号, 出入库, 物料名称, CAST(数量 AS decimal(10, 3)) 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 手册号, serialID
        ''                            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
        ''                                                         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           (LEFT(rt_stock_bill.FBillNo, 3) = 'sou') AND (rt_stock_name.FName = N'保税化料仓' OR
        ''                                                                                     rt_stock_name.FName = N'保税蓝皮仓') AND 
        ''                                                                                     (rt_stock_bill.FDate < '2021/1/1')
        ''                                                         ORDER BY    领料手册号 DESC, rt_t_item.serialID) AS p
        ''                            WHERE           (出入库 = N'领料出库')
        ''                            ORDER BY    日期 DESC) AS derivedtbl_1
        ''GROUP BY   手册号, 物料名称, serialID HAVING (手册号 = 'B372719A0008')
        ''ORDER BY   手册号 DESC, serialID"



        ''dt1 = New DataTable
        ''cmd.CommandText = sql

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



        ''DGV5.DataSource = dt1




        '-----调拨回保税仓
        sql = "SELECT        rt_stock_bill1.FEntrySelfD0125 AS 手册号,rt_t_item.FName AS 物料名称,cast(rt_stock_bill1.FQty AS decimal(10,3)) as 调拨数量,rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号,  
                             rt_stock_name.FName AS 调出仓库, rt_stock_name_1.FName 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
WHERE          (rt_stock_name.FName LIKE N'车间%') AND (rt_stock_bill.FBillNo LIKE '%CHG%')
ORDER BY   日期 DESC"

        sql = "SELECT        rt_stock_bill1.FEntrySelfD0125 AS 手册号,rt_t_item.FName AS 物料名称,cast(rt_stock_bill1.FQty AS decimal(10,3)) as  调拨数量,rt_stock_bill.FBillNo 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
WHERE          (rt_stock_name.FName LIKE N'车间%') AND (rt_stock_bill.FBillNo LIKE '%CHG%')
"


        dt1 = New DataTable
        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(dt1)



        DGV6.DataSource = dt1



        '-----成品出库
        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
GROUP BY   物料名称"

        dt1 = New DataTable
        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(dt1)



        dgv7.DataSource = dt1




        With DGV1.Columns("进口数量").DefaultCellStyle
            .Format = "n3"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With


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

        End With
        With DGV1.Columns("结存").DefaultCellStyle
            .Format = "n3"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With dgv_tax.Columns("数量").DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With


        With DGV2.Columns("调拨数量").DefaultCellStyle
            .Format = "n3"
            .Alignment = DataGridViewContentAlignment.MiddleRight

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

        End With

        With DGV2.Columns("征税内销").DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

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

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

        End With
        With DGV3.Columns("产品完工").DefaultCellStyle
            .Format = "n3"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With
        With DGV3.Columns("结存").DefaultCellStyle
            .Format = "n3"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With
        With DGV3.Columns("折成品").DefaultCellStyle
            .Format = "n2"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With
        With DGV4.Columns("入库数量").DefaultCellStyle
            .Format = "n3"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With
        With DGV4.Columns("折心皮").DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

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

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

        End With




        'With dgv4_1.Columns("入库数量").DefaultCellStyle
        '    .Format = "n3"
        '    .Alignment = DataGridViewContentAlignment.MiddleRight

        'End With
        'With dgv4_1.Columns("折心皮").DefaultCellStyle
        '    .Format = "n0"
        '    .Alignment = DataGridViewContentAlignment.MiddleRight

        'End With
        'With dgv4_1.Columns("成品出库").DefaultCellStyle
        '    .Format = "n3"
        '    .Alignment = DataGridViewContentAlignment.MiddleRight

        'End With
        'With dgv4_1.Columns("结存").DefaultCellStyle
        '    .Format = "n2"
        '    .Alignment = DataGridViewContentAlignment.MiddleRight

        'End With

        'With dgv4_2.Columns("入库数量").DefaultCellStyle
        '    .Format = "n3"
        '    .Alignment = DataGridViewContentAlignment.MiddleRight

        'End With
        'With dgv4_2.Columns("折心皮").DefaultCellStyle
        '    .Format = "n3"
        '    .Alignment = DataGridViewContentAlignment.MiddleRight

        'End With


        'With DGV5.Columns("领料数量").DefaultCellStyle
        '.Format = "n3"
        '    .Alignment = DataGridViewContentAlignment.MiddleRight

        'End With
        With DGV6.Columns("调拨数量").DefaultCellStyle
            .Format = "n3"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With


        adjust()
        adjust1()

        DGV1.AllowUserToAddRows = False
        DGV2.AllowUserToAddRows = False
        DGV3.AllowUserToAddRows = False
        DGV4.AllowUserToAddRows = False
        dgv4_1.AllowUserToAddRows = False
        dgv4_2.AllowUserToAddRows = False

        DGV4.AllowUserToAddRows = False
        DGV5.AllowUserToAddRows = False
        DGV6.AllowUserToAddRows = False
        dgv7.AllowUserToAddRows = False







        cal_chem()
        cal_chem1()







    End Sub

    Private Sub cal_chem()

        dt1 = New DataTable
        sql = "SELECT NAME AS 品名 FROM RT_BG_MTL_NAME WHERE SERIAL <17 ORDER BY SERIAL"
        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(dt1)



        dt1.Columns.Add("反毛单耗", Type.GetType("System.Decimal"))
        dt1.Columns.Add("PU单耗", Type.GetType("System.Decimal"))
        dt1.Columns.Add("反毛", Type.GetType("System.Decimal"))
        dt1.Columns.Add("PU", Type.GetType("System.Decimal"))
        dt1.Columns.Add("反毛耗用", Type.GetType("System.Decimal"))
        dt1.Columns.Add("PU耗用", Type.GetType("System.Decimal"))
        dt1.Columns.Add("耗用", Type.GetType("System.Decimal"))




        Dim my_fm As Double = 0
        Dim my_pu As Double = 0




        For x As Integer = 0 To DGV3.Rows.Count - 1
            If DGV3.Rows(x).Cells("手册号").Value = "B372720A0006" And DGV3.Rows(x).Cells("物料名称").Value Like "牛二层皮*" Then
                my_fm = my_fm + DGV3.Rows(x).Cells("入库数量").Value

            ElseIf DGV3.Rows(x).Cells("手册号").Value = "B372720A0006" And DGV3.Rows(x).Cells("物料名称").Value Like "PU牛二层*" Then
                my_pu = my_pu + DGV3.Rows(x).Cells("入库数量").Value
            End If
        Next



        For x As Integer = 0 To dt1.Rows.Count - 1
            sql = "select cast(percents as decimal(10,4)) as percents from rt_bg_com where xno='B372723A0002' and product like N'反毛%' and name=N'" & dt1.Rows(x).Item("品名") & "'"  '----反毛单耗
            cmd.CommandText = sql

            If Not (IsNothing(cmd.ExecuteScalar)) Then

                dt1.Rows(x).Item("反毛单耗") = cmd.ExecuteScalar
            Else
                dt1.Rows(x).Item("反毛单耗") = 0

            End If

            sql = "select cast(percents as decimal(10,4)) from rt_bg_com where xno='B372723A0002' and product like N'pu%' and name=N'" & dt1.Rows(x).Item("品名") & "'"  '----PU单耗
            cmd.CommandText = sql


            If Not (IsNothing(cmd.ExecuteScalar)) Then

                dt1.Rows(x).Item("pu单耗") = cmd.ExecuteScalar
            Else
                dt1.Rows(x).Item("PU单耗") = 0

            End If


            dt1.Rows(x).Item("反毛") = my_fm
            dt1.Rows(x).Item("PU") = my_pu

            dt1.Rows(x).Item("反毛耗用") = dt1.Rows(x).Item("反毛单耗") * dt1.Rows(x).Item("反毛") * 0.58
            dt1.Rows(x).Item("pu耗用") = dt1.Rows(x).Item("pu单耗") * dt1.Rows(x).Item("pu") * 0.58
            dt1.Rows(x).Item("耗用") = Val(dt1.Rows(x).Item("反毛耗用")) + Val(dt1.Rows(x).Item("pu耗用"))

        Next









        dgv_chem.DataSource = dt1

        dgv_chem.AllowUserToAddRows = False

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


            If dgv_chem.Rows(x).Cells("反毛单耗").Value = 0 And dgv_chem.Rows(x).Cells("PU单耗").Value = 0 Then

                dgv_chem.Rows(x).Visible = False

            End If

        Next

        ' dgv_chem.Columns("反毛").Visible = False
        'dgv_chem.Columns("PU").Visible = False



        With dgv_chem.Columns("反毛耗用").DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With dgv_chem.Columns("PU耗用").DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With dgv_chem.Columns("耗用").DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With dgv_chem.Columns("反毛").DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With dgv_chem.Columns("PU").DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With




        dgv_chem.Columns(0).Width = 90
        dgv_chem.Columns(1).Width = 60
        dgv_chem.Columns(2).Width = 60
        dgv_chem.Columns(3).Width = 80
        dgv_chem.Columns(4).Width = 80
        dgv_chem.Columns(5).Width = 100
        dgv_chem.Columns(6).Width = 100
        dgv_chem.Columns(7).Width = 100





    End Sub

    Private Sub cal_chem1()

        dt1 = New DataTable
        sql = "SELECT NAME AS 品名 FROM RT_BG_MTL_NAME WHERE SERIAL <17 ORDER BY SERIAL"
        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(dt1)



        dt1.Columns.Add("反毛7单耗", Type.GetType("System.Decimal"))
        dt1.Columns.Add("反毛8单耗", Type.GetType("System.Decimal"))
        dt1.Columns.Add("反毛9单耗", Type.GetType("System.Decimal"))
        dt1.Columns.Add("反毛10单耗", Type.GetType("System.Decimal"))
        dt1.Columns.Add("PU3单耗", Type.GetType("System.Decimal"))
        dt1.Columns.Add("PU4单耗", Type.GetType("System.Decimal"))
        dt1.Columns.Add("PU5单耗", Type.GetType("System.Decimal"))
        dt1.Columns.Add("PU7单耗", Type.GetType("System.Decimal"))
        dt1.Columns.Add("反毛", Type.GetType("System.Decimal"))
        dt1.Columns.Add("PU", Type.GetType("System.Decimal"))
        dt1.Columns.Add("反毛耗用", Type.GetType("System.Decimal"))
        dt1.Columns.Add("PU耗用", Type.GetType("System.Decimal"))
        dt1.Columns.Add("耗用", Type.GetType("System.Decimal"))




        Dim my_fm7 As Double = 0
        Dim my_fm8 As Double = 0
        Dim my_fm9 As Double = 0
        Dim my_fm10 As Double = 0
        Dim my_pu5 As Double = 0
        Dim my_pu3 As Double = 0
        Dim my_pu4 As Double = 0
        Dim my_pu7 As Double = 0




        For x As Integer = 0 To DGV3.Rows.Count - 1
            If DGV3.Rows(x).Cells("手册号").Value = "B372722A0002" And DGV3.Rows(x).Cells("物料名称").Value Like "牛二层皮7" Then
                my_fm7 = my_fm7 + DGV3.Rows(x).Cells("入库数量").Value

            ElseIf DGV3.Rows(x).Cells("手册号").Value = "B372722A0002" And DGV3.Rows(x).Cells("物料名称").Value Like "牛二层皮8" Then
                my_fm8 = my_fm8 + DGV3.Rows(x).Cells("入库数量").Value
            ElseIf DGV3.Rows(x).Cells("手册号").Value = "B372723A0005" And DGV3.Rows(x).Cells("物料名称").Value Like "牛二层皮9" Then
                my_fm9 = my_fm8 + DGV3.Rows(x).Cells("入库数量").Value
            ElseIf DGV3.Rows(x).Cells("手册号").Value = "B372723A0005" And DGV3.Rows(x).Cells("物料名称").Value Like "牛二层皮10" Then
                my_fm10 = my_fm8 + DGV3.Rows(x).Cells("入库数量").Value
            ElseIf DGV3.Rows(x).Cells("手册号").Value = "B372722A0002" And DGV3.Rows(x).Cells("物料名称").Value Like "PU牛二层皮3" Then
                my_pu3 = my_pu3 + DGV3.Rows(x).Cells("入库数量").Value

            ElseIf DGV3.Rows(x).Cells("手册号").Value = "B372722A0002" And DGV3.Rows(x).Cells("物料名称").Value Like "PU牛二层皮4" Then
                my_pu4 = my_pu4 + DGV3.Rows(x).Cells("入库数量").Value

            ElseIf DGV3.Rows(x).Cells("手册号").Value = "B372722A0002" And DGV3.Rows(x).Cells("物料名称").Value Like "PU牛二层皮5" Then
                my_pu5 = my_pu5 + DGV3.Rows(x).Cells("入库数量").Value
            ElseIf DGV3.Rows(x).Cells("手册号").Value = "B372723A0005" And DGV3.Rows(x).Cells("物料名称").Value Like "PU牛二层皮7" Then
                my_pu7 = my_pu7 + DGV3.Rows(x).Cells("入库数量").Value
            End If
        Next



        For x As Integer = 0 To dt1.Rows.Count - 1
            sql = "select cast(percents as decimal(10,4)) as percents from rt_bg_com where xno='B372722A0002' and product like N'反毛7%' and name=N'" & dt1.Rows(x).Item("品名") & "'"  '----反毛单耗
            cmd.CommandText = sql

            If Not (IsNothing(cmd.ExecuteScalar)) Then

                dt1.Rows(x).Item("反毛7单耗") = cmd.ExecuteScalar
            Else
                dt1.Rows(x).Item("反毛7单耗") = 0

            End If

            sql = "select cast(percents as decimal(10,4)) as percents from rt_bg_com where xno='B372722A0002' and product like N'反毛8%' and name=N'" & dt1.Rows(x).Item("品名") & "'"  '----反毛单耗
            cmd.CommandText = sql

            If Not (IsNothing(cmd.ExecuteScalar)) Then

                dt1.Rows(x).Item("反毛8单耗") = cmd.ExecuteScalar
            Else
                dt1.Rows(x).Item("反毛8单耗") = 0

            End If

            sql = "select cast(percents as decimal(10,4)) as percents from rt_bg_com where xno='B372723A0005' and product like N'反毛9%' and name=N'" & dt1.Rows(x).Item("品名") & "'"  '----反毛单耗
            cmd.CommandText = sql

            If Not (IsNothing(cmd.ExecuteScalar)) Then

                dt1.Rows(x).Item("反毛9单耗") = cmd.ExecuteScalar
            Else
                dt1.Rows(x).Item("反毛9单耗") = 0

            End If


            sql = "select cast(percents as decimal(10,4)) as percents from rt_bg_com where xno='B372723A0005' and product like N'反毛10%' and name=N'" & dt1.Rows(x).Item("品名") & "'"  '----反毛单耗
            cmd.CommandText = sql

            If Not (IsNothing(cmd.ExecuteScalar)) Then

                dt1.Rows(x).Item("反毛10单耗") = cmd.ExecuteScalar
            Else
                dt1.Rows(x).Item("反毛10单耗") = 0

            End If



            sql = "select cast(percents as decimal(10,4)) from rt_bg_com where xno='B372722A0002' and product like N'pu3%' and name=N'" & dt1.Rows(x).Item("品名") & "'"  '----PU单耗
            cmd.CommandText = sql


            If Not (IsNothing(cmd.ExecuteScalar)) Then

                dt1.Rows(x).Item("pu3单耗") = cmd.ExecuteScalar
            Else
                dt1.Rows(x).Item("PU3单耗") = 0

            End If

            sql = "select cast(percents as decimal(10,4)) from rt_bg_com where xno='B372722A0002' and product like N'pu4%' and name=N'" & dt1.Rows(x).Item("品名") & "'"  '----PU单耗
            cmd.CommandText = sql


            If Not (IsNothing(cmd.ExecuteScalar)) Then

                dt1.Rows(x).Item("pu4单耗") = cmd.ExecuteScalar
            Else
                dt1.Rows(x).Item("PU4单耗") = 0

            End If
            sql = "select cast(percents as decimal(10,4)) from rt_bg_com where xno='B372722A0002' and product like N'pu5%' and name=N'" & dt1.Rows(x).Item("品名") & "'"  '----PU单耗
            cmd.CommandText = sql


            If Not (IsNothing(cmd.ExecuteScalar)) Then

                dt1.Rows(x).Item("pu5单耗") = cmd.ExecuteScalar
            Else
                dt1.Rows(x).Item("PU5单耗") = 0

            End If



            sql = "select cast(percents as decimal(10,4)) from rt_bg_com where xno='B372723A0005' and product like N'pu7%' and name=N'" & dt1.Rows(x).Item("品名") & "'"  '----PU单耗
            cmd.CommandText = sql


            If Not (IsNothing(cmd.ExecuteScalar)) Then

                dt1.Rows(x).Item("pu7单耗") = cmd.ExecuteScalar
            Else
                dt1.Rows(x).Item("PU7单耗") = 0

            End If


            dt1.Rows(x).Item("反毛") = my_fm7 + my_fm8
            dt1.Rows(x).Item("PU") = my_pu5 + my_pu3 + my_pu4

            dt1.Rows(x).Item("反毛耗用") = dt1.Rows(x).Item("反毛7单耗") * my_fm7 * 0.58 + dt1.Rows(x).Item("反毛8单耗") * my_fm8 * 0.58 + dt1.Rows(x).Item("反毛9单耗") * my_fm9 * 0.58 + dt1.Rows(x).Item("反毛10单耗") * my_fm10 * 0.58
            dt1.Rows(x).Item("pu耗用") = dt1.Rows(x).Item("pu3单耗") * my_pu3 * 0.58 + dt1.Rows(x).Item("pu4单耗") * my_pu4 * 0.58 + dt1.Rows(x).Item("pu5单耗") * my_pu5 * 0.58 + dt1.Rows(x).Item("pu7单耗") * my_pu7 * 0.58
            dt1.Rows(x).Item("耗用") = Val(dt1.Rows(x).Item("反毛耗用")) + Val(dt1.Rows(x).Item("pu耗用"))

        Next









        dgv_chem1.DataSource = dt1

        dgv_chem1.AllowUserToAddRows = False

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


            If dgv_chem.Rows(x).Cells("反毛单耗").Value = 0 And dgv_chem.Rows(x).Cells("PU单耗").Value = 0 Then

                dgv_chem.Rows(x).Visible = False

            End If

        Next

        ' dgv_chem.Columns("反毛").Visible = False
        'dgv_chem.Columns("PU").Visible = False



        With dgv_chem1.Columns("反毛耗用").DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With dgv_chem1.Columns("PU耗用").DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With dgv_chem1.Columns("耗用").DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With dgv_chem1.Columns("反毛").DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With dgv_chem1.Columns("PU").DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With




        dgv_chem1.Columns(0).Width = 90
        dgv_chem1.Columns(1).Width = 80
        dgv_chem1.Columns(2).Width = 80
        dgv_chem1.Columns(3).Width = 80
        dgv_chem1.Columns(4).Width = 80
        dgv_chem1.Columns(5).Width = 100
        dgv_chem1.Columns(6).Width = 100
        dgv_chem1.Columns(7).Width = 100





    End Sub
    Private Sub cal_chem_08()

        dt1 = New DataTable
        sql = "SELECT NAME AS 品名 FROM RT_BG_MTL_NAME WHERE SERIAL <17 ORDER BY SERIAL"
        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(dt1)



        dt1.Columns.Add("反毛单耗12", Type.GetType("System.Decimal"))
        dt1.Columns.Add("反毛单耗3", Type.GetType("System.Decimal"))
        dt1.Columns.Add("PU单耗", Type.GetType("System.Decimal"))
        dt1.Columns.Add("反毛12", Type.GetType("System.Decimal"))
        dt1.Columns.Add("反毛3", Type.GetType("System.Decimal"))
        dt1.Columns.Add("PU", Type.GetType("System.Decimal"))
        dt1.Columns.Add("反毛12耗用", Type.GetType("System.Decimal"))
        dt1.Columns.Add("反毛3耗用", Type.GetType("System.Decimal"))
        dt1.Columns.Add("PU耗用", Type.GetType("System.Decimal"))
        dt1.Columns.Add("耗用", Type.GetType("System.Decimal"))




        Dim my_fm As Double = 0
        Dim my_pu As Double = 0




        For x As Integer = 0 To DGV3.Rows.Count - 1
            If DGV3.Rows(x).Cells("手册号").Value = "B372719A0008" And DGV3.Rows(x).Cells("物料名称").Value Like "牛二层皮*" Then
                my_fm = my_fm + DGV3.Rows(x).Cells("入库数量").Value

            ElseIf DGV3.Rows(x).Cells("手册号").Value = "B372719A0008" And DGV3.Rows(x).Cells("物料名称").Value Like "PU牛二层*" Then
                my_pu = my_pu + DGV3.Rows(x).Cells("入库数量").Value
            End If
        Next



        For x As Integer = 0 To dt1.Rows.Count - 1
            sql = "select cast(percents as decimal(10,4)) as percents from rt_bg_com where xno='B372719A0008' and product like N'反毛%' and name=N'" & dt1.Rows(x).Item("品名") & "'"  '----反毛单耗
            cmd.CommandText = sql

            If Not (IsNothing(cmd.ExecuteScalar)) Then

                dt1.Rows(x).Item("反毛单耗") = cmd.ExecuteScalar
            Else
                dt1.Rows(x).Item("反毛单耗") = 0

            End If

            sql = "select cast(percents as decimal(10,4)) from rt_bg_com where xno='B372719A0008' and product like N'pu%' and name=N'" & dt1.Rows(x).Item("品名") & "'"  '----PU单耗
            cmd.CommandText = sql


            If Not (IsNothing(cmd.ExecuteScalar)) Then

                dt1.Rows(x).Item("pu单耗") = cmd.ExecuteScalar
            Else
                dt1.Rows(x).Item("PU单耗") = 0

            End If


            dt1.Rows(x).Item("反毛") = my_fm
            dt1.Rows(x).Item("PU") = my_pu

            dt1.Rows(x).Item("反毛耗用") = dt1.Rows(x).Item("反毛单耗") * dt1.Rows(x).Item("反毛")
            dt1.Rows(x).Item("pu耗用") = dt1.Rows(x).Item("pu单耗") * dt1.Rows(x).Item("pu")
            dt1.Rows(x).Item("耗用") = Val(dt1.Rows(x).Item("反毛耗用")) + Val(dt1.Rows(x).Item("pu耗用"))

        Next









        dgv_chem.DataSource = dt1

        dgv_chem.AllowUserToAddRows = False

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


            If dgv_chem.Rows(x).Cells("反毛单耗").Value = 0 And dgv_chem.Rows(x).Cells("PU单耗").Value = 0 Then

                dgv_chem.Rows(x).Visible = False

            End If

        Next

        ' dgv_chem.Columns("反毛").Visible = False
        'dgv_chem.Columns("PU").Visible = False



        With dgv_chem.Columns("反毛耗用").DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With dgv_chem.Columns("PU耗用").DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With dgv_chem.Columns("耗用").DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With dgv_chem.Columns("反毛").DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With dgv_chem.Columns("PU").DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With




        dgv_chem.Columns(0).Width = 90
        dgv_chem.Columns(1).Width = 60
        dgv_chem.Columns(2).Width = 60
        dgv_chem.Columns(3).Width = 80
        dgv_chem.Columns(4).Width = 80
        dgv_chem.Columns(5).Width = 100
        dgv_chem.Columns(6).Width = 100
        dgv_chem.Columns(7).Width = 100





    End Sub
    Private Sub adjust()

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


        '    For y As Integer = 0 To DGV5.Rows.Count - 1


        '        If DGV5.Rows(y).Cells("手册号").Value = DGV2.Rows(x).Cells("手册号").Value And DGV2.Rows(x).Cells("物料名称").Value = DGV5.Rows(y).Cells("物料名称").Value Then


        '            DGV2.Rows(x).Cells("生产领料").Value = DGV2.Rows(x).Cells("生产领料").Value - DGV5.Rows(y).Cells("领料数量").Value
        '            DGV2.Rows(x).Cells("结存").Value = DGV2.Rows(x).Cells("结存").Value + DGV5.Rows(y).Cells("领料数量").Value


        '        End If




        '    Next





        'Next





    End Sub
    Private Sub adjust1()

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


        '    For y As Integer = 0 To DGV5.Rows.Count - 1


        '        If DGV5.Rows(y).Cells("手册号").Value = DGV1.Rows(x).Cells("手册号").Value And DGV1.Rows(x).Cells("物料名称").Value = DGV5.Rows(y).Cells("物料名称").Value Then


        '            DGV1.Rows(x).Cells("调拨出库").Value = DGV1.Rows(x).Cells("调拨出库").Value + DGV5.Rows(y).Cells("领料数量").Value
        '            DGV1.Rows(x).Cells("结存").Value = DGV1.Rows(x).Cells("结存").Value - DGV5.Rows(y).Cells("领料数量").Value


        '        End If




        '    Next





        'Next



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


        '    If DGV1.Rows(x).Cells("手册号").Value = "B372719A0008" And DGV1.Rows(x).Cells("物料名称").Value = "蓝湿牛二层皮" Then

        '        DGV1.Rows(x).Cells("调拨出库").Value = DGV1.Rows(x).Cells("调拨出库").Value - 54956
        '        DGV1.Rows(x).Cells("结存").Value = DGV1.Rows(x).Cells("结存").Value - 54956

        '    End If

        'Next



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


        '    If DGV2.Rows(x).Cells("手册号").Value = "B372719A0008" And DGV2.Rows(x).Cells("物料名称").Value = "蓝湿牛二层皮" Then

        '        DGV2.Rows(x).Cells("调拨数量").Value = DGV2.Rows(x).Cells("调拨数量").Value - 54956
        '        DGV2.Rows(x).Cells("结存").Value = DGV2.Rows(x).Cells("结存").Value - 54956

        '    End If

        'Next





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


        '    For y As Integer = 0 To DGV5.Rows.Count - 1


        '        If DGV5.Rows(y).Cells("手册号").Value = DGV2.Rows(x).Cells("手册号").Value And DGV2.Rows(x).Cells("物料名称").Value = DGV5.Rows(y).Cells("物料名称").Value Then


        '            DGV2.Rows(x).Cells("调拨数量").Value = DGV2.Rows(x).Cells("调拨数量").Value - DGV5.Rows(y).Cells("领料数量").Value
        '            DGV2.Rows(x).Cells("结存").Value = DGV2.Rows(x).Cells("结存").Value - DGV5.Rows(y).Cells("领料数量").Value


        '        End If




        '    Next





        ' Next










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




    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '-----日期查询



        cal()



    End Sub


End Class