HF-MIS-SYS--LEEHSIEHJUI/WindowsApp1/02、皮料管理/FrmTienMei_spray_mill.vb

Imports System.Data.SqlClient
Imports System.Net

Public Class FrmTienMei_spray_mill
    Dim cmd As New SqlCommand
    Dim da As New SqlDataAdapter
    Dim dt As New DataTable
    Dim sql As String
    Dim conn As New SqlConnection
    Private dateTimePicker1 As DateTimePicker
    Dim p() As String
    Dim my_cust As String = ""
    Dim colorArray(10) As Color
    Dim sql_retan As String = ""
    Dim sql_retan_re As String = ""
    Dim sql_spray As String = ""
    Dim sql_buff As String = ""
    Dim dt_retan As DataTable
    Dim dt_retan_re As DataTable
    Dim dt_spray As DataTable
    Dim dt_buff As DataTable
    Private Sub FrmTienMei_spray_mill_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        conn.ConnectionString = connstring
        conn.Open()

        cmd.Connection = conn

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


        dt = New DataTable
        sql = "SELECT  date1 AS 日期, card AS 卡号, Expr1/2 AS 公斤
FROM      (SELECT  date1, card, COUNT(*) AS times, AVG(weight) AS Expr1, AVG(weight1) AS Expr2
                   FROM       (SELECT  TOP (100) PERCENT serial, local, month, date1, dep, card, card1, cust, color, word, weight, weight1, 
                                                          price, commentB, comment, commentC, weight2, p, date1 AS Expr1, p2, date2, g, weight3, p3, 
                                                          commentd, [11], [22], [33], [44]
                                       FROM       rt_mill_spray_daily
                                       WHERE    (date1 BETWEEN '2024/6/1' AND '2024/6/30')) AS p
                   GROUP BY card, date1) AS q
ORDER BY 日期 DESC"
        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(dt)

        dgv1.DataSource = dt


        dgv1.Columns(0).Width = 80
        dgv1.Columns(1).Width = 120




        sql = "SELECT  top(1) date1 AS 日期, card AS 卡号, Expr1 AS 重量
FROM      (SELECT  date1, card, COUNT(*) AS times, AVG(weight) AS Expr1, AVG(weight1) AS Expr2
                   FROM       (SELECT  TOP (100) PERCENT serial, local, month, date1, dep, card, card1, cust, color, word, weight, weight1, 
                                                          price, commentB, comment, commentC, weight2, p, date1 AS Expr1, p2, date2, g, weight3, p3, 
                                                          commentd, [11], [22], [33], [44]
                                       FROM       rt_mill_spray_daily
                                       WHERE    (date1 BETWEEN '2024/6/1' AND '2024/6/30')) AS p
                   GROUP BY card, date1) AS q
ORDER BY 日期 DESC"
        cmd.CommandText = sql

        DateTimePicker3.Value = cmd.ExecuteScalar.ToString






        sql = "select sum(expr1) as 重量 from (SELECT  card, count(*) as times,AVG(weight) AS Expr1, AVG(weight1) AS Expr2
FROM      (SELECT  TOP (100) PERCENT serial, local, month, date, dep, card, card1, cust, color, word, weight, weight1, price, 
                                      commentB, comment, commentC, weight2, p, date1, p2, date2, g, weight3, p3, commentd, [11], [22], [33], [44]
                   FROM       rt_mill_spray_daily
                   WHERE    (date1 BETWEEN '2024/6/1' AND '2024/6/30')
                   ORDER BY date1 DESC, card) AS p group by card ) as q"
        cmd.CommandText = sql

        TextBox1.Text = cmd.ExecuteScalar
        TextBox2.Text = cmd.ExecuteScalar / 2




        dt = New DataTable
        sql = "SELECT  dep as 交货单位, wh as 收货仓库,left(code,3) as 物料, cast(SUM(qty) as numeric(10,1)) AS 数量 FROM rt_TienMei_In where dep is not null GROUP BY dep, wh,left(code,3)"
        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(dt)






        dgvk3.DataSource = dt


        dgvk3.Columns(0).Width = 100
        dgvk3.Columns(1).Width = 100
        dgvk3.Columns(2).Width = 65



        sql = "select card as 卡号, cast(avg(weight) as numeric(10,0)) as 数量 ,count(*) as 次数 FROM rt_clean_daily WHERE   (date BETWEEN '2024/6/1' AND '2024/6/30')  group by card order by count(*) desc" '-扫灰
        cmd.CommandText = sql


        dt = New DataTable
        da.SelectCommand = cmd
        da.Fill(dt)

        dgv_buff.DataSource = dt


        dgv_buff.Columns(0).Width = 120
        dgv_buff.Columns(1).Width = 65
        dgv_buff.Columns(2).Width = 65


        sql = "select sum(weight) FROM rt_clean_daily WHERE   (date BETWEEN '2024/6/1' AND '2024/6/30')"
        cmd.CommandText = sql

        TextBox4.Text = cmd.ExecuteScalar

        sql = "select sum(weight1) FROM rt_clean_daily WHERE   (date BETWEEN '2024/6/1' AND '2024/6/30')"
        cmd.CommandText = sql

        TextBox3.Text = cmd.ExecuteScalar


        sql = "select sum(weight) from ( select card, avg(weight) as weight,count(*) as count FROM rt_clean_daily
WHERE   (date BETWEEN '2024/6/1' AND '2024/6/30') and card is not null group by card) as p"

        cmd.CommandText = sql

        TextBox6.Text = cmd.ExecuteScalar
        TextBox7.Text = cmd.ExecuteScalar / 2




        sql = "SELECT  CARD as 卡号, card2 as 卡号1, 类别, type as 类别1, AVG(下鼓重) AS 下鼓重, cast(AVG(price) as numeric(10,2)) AS 单价, code, 选级, card_shaving as 出库卡, CUST as 客户, COLOR as 颜色, source as 皮源, 
                   DATE as 日期, 厚度, dd as 技术员, 皮源1, 皮源代码, AVG(挑级仓出库重) AS 出库重, SUM(chem) AS 化工成本, cast(SUM(chem) 
                   / AVG(投鼓重) / 6 as numeric(10,2)) AS 每尺化工
FROM      (SELECT  TOP (100) PERCENT p.CARD, CASE WHEN substring(p.CARD, 3, 1) = 'F' THEN substring(p.CARD, 4, 10) 
                                      + 'F' ELSE substring(p.CARD, 4, 10) + 'P' END AS card2, CASE WHEN substring(p.card, 3, 1) 
                                      = 'P' THEN N'贴膜' WHEN substring(p.card, 3, 1) = 'F' THEN '反毛' ELSE '其他' END AS 类别, p.type, 
                                      AVG(p.WEIGHT) / 2 AS 下鼓重, COUNT(*) AS Expr2, CASE WHEN rt_shaving_out.price IS NULL 
                                      THEN 30 ELSE rt_shaving_out.price END AS price, CASE WHEN rt_shaving_out.weight IS NULL 
                                      THEN AVG(p.WEIGHT) / 2 ELSE rt_shaving_out.weight END AS weight, CASE WHEN rt_shaving_out.code IS NULL 
                                      THEN '212F.XX.2.1' ELSE rt_shaving_out.code END AS code, CASE WHEN rt_shaving_out.name IS NULL 
                                      THEN N'D级' ELSE rt_shaving_out.name END AS 选级, rt_shaving_out.card1, 
                                      rt_shaving_out.card AS card_shaving, p.CUST, p.COLOR, p.source, CASE WHEN rt_wetblue_name.code IS NULL 
                                      THEN '212F.XX' ELSE rt_wetblue_name.code END AS 编码, CASE WHEN rt_wetblue_name.name IS NULL 
                                      THEN N'杂皮 二层' ELSE rt_wetblue_name.name END AS 皮源, p.DATE, 
                                      CASE WHEN substring(rt_shaving_out.code, 13, 1) = '1' THEN '1.02' WHEN substring(rt_shaving_out.code, 13, 1) 
                                      = '2' THEN '1.24' WHEN substring(rt_shaving_out.code, 13, 1) 
                                      = '3' THEN '1.46' WHEN substring(rt_shaving_out.code, 13, 1) 
                                      = '4' THEN '1.68' WHEN substring(rt_shaving_out.code, 13, 1) IS NULL THEN '1.24' END AS 厚度, p.dd, 
                                      CASE WHEN rt_shaving_out.card1 IS NULL AND 
                                      p.type = N'套染' THEN N'套染' WHEN rt_shaving_out.price IS NULL AND 
                                      p.type = N'打底' THEN N'回鼓' ELSE N'打底' END AS 备注, 
                                      CASE WHEN p.source LIKE N'%无铬鞣%' THEN N'无铬鞣 二层' WHEN p.source LIKE N'%阿根廷%' THEN N'阿根廷 二层'
                                       WHEN p.source LIKE N'%澳%' THEN N'澳大利亚 二层' WHEN (p.source LIKE N'%巴西%' OR
                                      p.source LIKE N'%bx%') 
                                      THEN N'巴西 二层' WHEN p.source LIKE N'%智利%' THEN N'智利 二层' WHEN p.source LIKE N'%德国%' THEN N'德国 二层'
                                       WHEN p.source LIKE N'%西班牙%' THEN N'西班牙 二层' WHEN p.source LIKE N'%欧洲%' THEN N'欧洲 二层' WHEN
                                       p.source LIKE N'%法国%' THEN N'法国 二层' WHEN p.source LIKE N'%爱尔兰%' THEN N'爱尔兰 二层' WHEN p.source
                                       LIKE N'%APP%' THEN N'美国 二层' WHEN p.source LIKE N'%日本%' THEN N'日本 二层' WHEN p.source LIKE N'%美国%'
                                       THEN N'美国 二层' WHEN p.source LIKE N'%新西兰%' THEN N'新西兰 二层' WHEN p.source LIKE N'%小皮%' THEN
                                       N'小皮 二层' WHEN p.source LIKE N'%英国%' THEN N'英国 二层' WHEN p.source LIKE N'%墨西哥%' THEN N'墨西哥 二层'
                                       WHEN p.source LIKE N'%乌拉圭%' THEN N'乌拉圭 二层' WHEN p.source LIKE N'%南非%' THEN N'南非 二层' WHEN
                                       p.source LIKE N'%孟加拉%' THEN N'孟加拉 二层' WHEN p.source LIKE N'%泰国%' THEN N'泰国 二层' ELSE N'杂皮 二层'
                                       END AS 皮源1, 
                                      CASE WHEN p.source LIKE N'%无铬鞣%' THEN N'CT' WHEN p.source LIKE N'%阿根廷%' THEN N'AR' WHEN p.source
                                       LIKE N'%澳%' THEN N'AU' WHEN (p.source LIKE N'%巴西%' OR
                                      p.source LIKE N'%bx%') 
                                      THEN N'BR' WHEN p.source LIKE N'%智利%' THEN N'CL' WHEN p.source LIKE N'%德国%' THEN N'DE' WHEN p.source
                                       LIKE N'%西班牙%' THEN N'ES' WHEN p.source LIKE N'%欧洲%' THEN N'EU' WHEN p.source LIKE N'%法国%' THEN
                                       N'FR' WHEN p.source LIKE N'%爱尔兰%' THEN N'IE' WHEN p.source LIKE N'%日本%' THEN N'JP' WHEN p.source LIKE
                                       N'%越南APP%' THEN N'US' WHEN p.source LIKE N'%美国%' THEN N'US' WHEN p.source LIKE N'%新西兰%' THEN N'NZ'
                                       WHEN p.source LIKE N'%小皮%' THEN N'SS' WHEN p.source LIKE N'%英国%' THEN N'UK' WHEN p.source LIKE N'%墨西哥%'
                                       THEN N'MX' WHEN p.source LIKE N'%乌拉圭%' THEN N'UY' WHEN p.source LIKE N'%南非%' THEN N'ZA' WHEN p.source
                                       LIKE N'%孟加拉%' THEN N'BD' WHEN p.source LIKE N'%泰国%' THEN N'TH' ELSE N'XX' END AS 皮源代码, 
                                      rt_shaving_out.weight AS 挑级仓出库重, CASE WHEN rt_shaving_out.weight IS NULL THEN AVG(p.weight) 
                                      / 2 ELSE rt_shaving_out.weight END AS 投鼓重, RT_SYS_CHEM_OUT.CODE AS Expr1, 
                                      RT_SYS_CHEM_OUT.NAME, rt_chem_price_li.price1 AS chemprice, 
                                      RT_SYS_CHEM_OUT.WEIGHT AS chemweight, CASE WHEN rt_chem_price_li.price1 IS NULL 
                                      THEN 0 ELSE rt_chem_price_li.price1 * rt_sys_chem_out.weight END AS chem
                   FROM       RT_SYS_CHEM_OUT INNER JOIN
                                      rt_chem_price_li ON RT_SYS_CHEM_OUT.CODE = rt_chem_price_li.code RIGHT OUTER JOIN
                                          (SELECT  NO, AREA, MONTH, HEADER, HEADER2, DATE, CARD, CARD1, CUST, COLOR, W1, P1, A1, W2, P2, A2, 
                                                              W3, P3, A3, W4, P4, A4, source, TOTAL, class, type, DATE1, WEIGHT, P, COMa, COMb, COMc, dd, ee, ff, 
                                                              gg, hh, Dep
                                           FROM       RT_RETAN_RECORD_D
                                           WHERE    (DATE BETWEEN '2024/6/1' AND '2024/6/30') AND (COMa NOT LIKE N'%叠皮%') AND 
                                                              (WEIGHT IS NOT NULL)) AS p ON RT_SYS_CHEM_OUT.CARD = p.CARD LEFT OUTER JOIN
                                      rt_wetblue_name RIGHT OUTER JOIN
                                      rt_shaving_out ON LEFT(rt_wetblue_name.code, 7) = LEFT(rt_shaving_out.code, 7) ON 
                                      p.CARD = rt_shaving_out.card1
                   GROUP BY p.type, p.CARD, p.CARD1, rt_shaving_out.price, rt_shaving_out.weight, rt_shaving_out.code, 
                                      rt_shaving_out.name, rt_shaving_out.card1, rt_shaving_out.card, p.CUST, p.COLOR, p.source, 
                                      rt_wetblue_name.code, rt_wetblue_name.name, p.DATE, p.dd, RT_SYS_CHEM_OUT.CODE, 
                                      RT_SYS_CHEM_OUT.NAME, rt_chem_price_li.price1, RT_SYS_CHEM_OUT.WEIGHT
                   ORDER BY p.CARD) AS s
GROUP BY CARD, card2, 类别, type, 下鼓重, code, 选级, card1, card_shaving, CUST, COLOR, source, 编码, 皮源, DATE, 厚度, dd, 
                   备注, 皮源1, 皮源代码
HAVING  (type = N'打底') and card_shaving is not null"   ''----蓝皮下鼓




        cmd.CommandText = sql

        dt_retan = New DataTable
        da.SelectCommand = cmd
        da.Fill(dt_retan)

        dgv_retan.DataSource = dt_retan

        dgv_retan.Columns(0).Width = 120
        dgv_retan.Columns(1).Width = 100
        dgv_retan.Columns(2).Width = 70
        dgv_retan.Columns(3).Width = 70
        '  dgv_retan.Columns(4).Width = 75
        dgv_retan.Columns(5).Width = 75
        dgv_retan.Columns(6).Width = 120
        dgv_retan.Columns(7).Width = 70
        dgv_retan.Columns(8).Width = 100
        dgv_retan.Columns(9).Width = 80
        dgv_retan.Columns(10).Width = 80
        dgv_retan.Columns(11).Width = 80
        dgv_retan.Columns(12).Width = 100
        dgv_retan.Columns(13).Width = 70
        dgv_retan.Columns(14).Width = 80
        dgv_retan.Columns(15).Width = 80
        '   dgv_retan.Columns(16).Width = 90
        dgv_retan.Columns(17).Width = 80






        sql = "SELECT  CARD, card2, 类别, type, AVG(下鼓重) AS 下鼓重, AVG(price) AS price, code, 选级, card_shaving, CUST, COLOR, source, 
                   DATE, 厚度, dd, 皮源1, 皮源代码, AVG(挑级仓出库重) AS 出库重, SUM(chem) AS 化工成本, SUM(chem) 
                   / AVG(投鼓重) / 6 AS 每尺化工
FROM      (SELECT  TOP (100) PERCENT p.CARD, CASE WHEN substring(p.CARD, 3, 1) = 'F' THEN substring(p.CARD, 4, 10) 
                                      + 'F' ELSE substring(p.CARD, 4, 10) + 'P' END AS card2, CASE WHEN substring(p.card, 3, 1) 
                                      = 'P' THEN N'贴膜' WHEN substring(p.card, 3, 1) = 'F' THEN '反毛' ELSE '其他' END AS 类别, p.type, 
                                      AVG(p.WEIGHT) / 2 AS 下鼓重, COUNT(*) AS Expr2, CASE WHEN rt_shaving_out.price IS NULL 
                                      THEN 30 ELSE rt_shaving_out.price END AS price, CASE WHEN rt_shaving_out.weight IS NULL 
                                      THEN AVG(p.WEIGHT) / 2 ELSE rt_shaving_out.weight END AS weight, CASE WHEN rt_shaving_out.code IS NULL 
                                      THEN '212F.XX.2.1' ELSE rt_shaving_out.code END AS code, CASE WHEN rt_shaving_out.name IS NULL 
                                      THEN N'D级' ELSE rt_shaving_out.name END AS 选级, rt_shaving_out.card1, 
                                      rt_shaving_out.card AS card_shaving, p.CUST, p.COLOR, p.source, CASE WHEN rt_wetblue_name.code IS NULL 
                                      THEN '212F.XX' ELSE rt_wetblue_name.code END AS 编码, CASE WHEN rt_wetblue_name.name IS NULL 
                                      THEN N'杂皮 二层' ELSE rt_wetblue_name.name END AS 皮源, p.DATE, 
                                      CASE WHEN substring(rt_shaving_out.code, 13, 1) = '1' THEN '1.02' WHEN substring(rt_shaving_out.code, 13, 1) 
                                      = '2' THEN '1.24' WHEN substring(rt_shaving_out.code, 13, 1) 
                                      = '3' THEN '1.46' WHEN substring(rt_shaving_out.code, 13, 1) 
                                      = '4' THEN '1.68' WHEN substring(rt_shaving_out.code, 13, 1) IS NULL THEN '1.24' END AS 厚度, p.dd, 
                                      CASE WHEN rt_shaving_out.card1 IS NULL AND 
                                      p.type = N'套染' THEN N'套染' WHEN rt_shaving_out.price IS NULL AND 
                                      p.type = N'打底' THEN N'回鼓' ELSE N'打底' END AS 备注, 
                                      CASE WHEN p.source LIKE N'%无铬鞣%' THEN N'无铬鞣 二层' WHEN p.source LIKE N'%阿根廷%' THEN N'阿根廷 二层'
                                       WHEN p.source LIKE N'%澳%' THEN N'澳大利亚 二层' WHEN (p.source LIKE N'%巴西%' OR
                                      p.source LIKE N'%bx%') 
                                      THEN N'巴西 二层' WHEN p.source LIKE N'%智利%' THEN N'智利 二层' WHEN p.source LIKE N'%德国%' THEN N'德国 二层'
                                       WHEN p.source LIKE N'%西班牙%' THEN N'西班牙 二层' WHEN p.source LIKE N'%欧洲%' THEN N'欧洲 二层' WHEN
                                       p.source LIKE N'%法国%' THEN N'法国 二层' WHEN p.source LIKE N'%爱尔兰%' THEN N'爱尔兰 二层' WHEN p.source
                                       LIKE N'%APP%' THEN N'美国 二层' WHEN p.source LIKE N'%日本%' THEN N'日本 二层' WHEN p.source LIKE N'%美国%'
                                       THEN N'美国 二层' WHEN p.source LIKE N'%新西兰%' THEN N'新西兰 二层' WHEN p.source LIKE N'%小皮%' THEN
                                       N'小皮 二层' WHEN p.source LIKE N'%英国%' THEN N'英国 二层' WHEN p.source LIKE N'%墨西哥%' THEN N'墨西哥 二层'
                                       WHEN p.source LIKE N'%乌拉圭%' THEN N'乌拉圭 二层' WHEN p.source LIKE N'%南非%' THEN N'南非 二层' WHEN
                                       p.source LIKE N'%孟加拉%' THEN N'孟加拉 二层' WHEN p.source LIKE N'%泰国%' THEN N'泰国 二层' ELSE N'杂皮 二层'
                                       END AS 皮源1, 
                                      CASE WHEN p.source LIKE N'%无铬鞣%' THEN N'CT' WHEN p.source LIKE N'%阿根廷%' THEN N'AR' WHEN p.source
                                       LIKE N'%澳%' THEN N'AU' WHEN (p.source LIKE N'%巴西%' OR
                                      p.source LIKE N'%bx%') 
                                      THEN N'BR' WHEN p.source LIKE N'%智利%' THEN N'CL' WHEN p.source LIKE N'%德国%' THEN N'DE' WHEN p.source
                                       LIKE N'%西班牙%' THEN N'ES' WHEN p.source LIKE N'%欧洲%' THEN N'EU' WHEN p.source LIKE N'%法国%' THEN
                                       N'FR' WHEN p.source LIKE N'%爱尔兰%' THEN N'IE' WHEN p.source LIKE N'%日本%' THEN N'JP' WHEN p.source LIKE
                                       N'%越南APP%' THEN N'US' WHEN p.source LIKE N'%美国%' THEN N'US' WHEN p.source LIKE N'%新西兰%' THEN N'NZ'
                                       WHEN p.source LIKE N'%小皮%' THEN N'SS' WHEN p.source LIKE N'%英国%' THEN N'UK' WHEN p.source LIKE N'%墨西哥%'
                                       THEN N'MX' WHEN p.source LIKE N'%乌拉圭%' THEN N'UY' WHEN p.source LIKE N'%南非%' THEN N'ZA' WHEN p.source
                                       LIKE N'%孟加拉%' THEN N'BD' WHEN p.source LIKE N'%泰国%' THEN N'TH' ELSE N'XX' END AS 皮源代码, 
                                      rt_shaving_out.weight AS 挑级仓出库重, CASE WHEN rt_shaving_out.weight IS NULL THEN AVG(p.weight) 
                                      / 2 ELSE rt_shaving_out.weight END AS 投鼓重, RT_SYS_CHEM_OUT.CODE AS Expr1, 
                                      RT_SYS_CHEM_OUT.NAME, rt_chem_price_li.price1 AS chemprice, 
                                      RT_SYS_CHEM_OUT.WEIGHT AS chemweight, CASE WHEN rt_chem_price_li.price1 IS NULL 
                                      THEN 0 ELSE rt_chem_price_li.price1 * rt_sys_chem_out.weight END AS chem
                   FROM       RT_SYS_CHEM_OUT INNER JOIN
                                      rt_chem_price_li ON RT_SYS_CHEM_OUT.CODE = rt_chem_price_li.code RIGHT OUTER JOIN
                                          (SELECT  NO, AREA, MONTH, HEADER, HEADER2, DATE, CARD, CARD1, CUST, COLOR, W1, P1, A1, W2, P2, A2, 
                                                              W3, P3, A3, W4, P4, A4, source, TOTAL, class, type, DATE1, WEIGHT, P, COMa, COMb, COMc, dd, ee, ff, 
                                                              gg, hh, Dep
                                           FROM       RT_RETAN_RECORD_D
                                           WHERE    (DATE BETWEEN '2024/6/1' AND '2024/6/30') AND (COMa NOT LIKE N'%叠皮%') AND 
                                                              (WEIGHT IS NOT NULL)) AS p ON RT_SYS_CHEM_OUT.CARD = p.CARD LEFT OUTER JOIN
                                      rt_wetblue_name RIGHT OUTER JOIN
                                      rt_shaving_out ON LEFT(rt_wetblue_name.code, 7) = LEFT(rt_shaving_out.code, 7) ON 
                                      p.CARD = rt_shaving_out.card1
                   GROUP BY p.type, p.CARD, p.CARD1, rt_shaving_out.price, rt_shaving_out.weight, rt_shaving_out.code, 
                                      rt_shaving_out.name, rt_shaving_out.card1, rt_shaving_out.card, p.CUST, p.COLOR, p.source, 
                                      rt_wetblue_name.code, rt_wetblue_name.name, p.DATE, p.dd, RT_SYS_CHEM_OUT.CODE, 
                                      RT_SYS_CHEM_OUT.NAME, rt_chem_price_li.price1, RT_SYS_CHEM_OUT.WEIGHT
                   ORDER BY p.CARD) AS s
GROUP BY CARD, card2, 类别, type, 下鼓重, code, 选级, card1, card_shaving, CUST, COLOR, source, 编码, 皮源, DATE, 厚度, dd, 
                   备注, 皮源1, 皮源代码
HAVING  (type = N'打底') and card_shaving is null"   '---改色




        cmd.CommandText = sql

        dt = New DataTable
        da.SelectCommand = cmd
        da.Fill(dt)

        DGV_change.DataSource = dt_retan

        DGV_change.Columns(0).Width = 100
        DGV_change.Columns(1).Width = 100
        DGV_change.Columns(2).Width = 100




























        sql = "select sum(weight) from (SELECT  p.CARD, CASE WHEN substring(p.CARD, 3, 1) = 'F' THEN substring(p.card, 4, 10) + 'F' ELSE substring(p.card, 4, 10) 
                   + 'P' END AS card1, CASE WHEN AVG(p.WEIGHT) IS NULL THEN 0 ELSE AVG(p.WEIGHT) END AS weight, COUNT(*) 
                   AS count, RT_RETAN_RECORD.color, RT_RETAN_RECORD.source, 
                   CASE WHEN RT_RETAN_RECORD.source LIKE N'%无铬鞣%' THEN N'无铬鞣 二层' WHEN RT_RETAN_RECORD.source LIKE
                    N'%阿根廷%' THEN N'阿根廷 二层' WHEN RT_RETAN_RECORD.source LIKE N'%澳%' THEN N'澳大利亚 二层' WHEN (RT_RETAN_RECORD.source
                    LIKE N'%巴西%' OR
                   RT_RETAN_RECORD.source LIKE N'%bx%') 
                   THEN N'巴西 二层' WHEN RT_RETAN_RECORD.source LIKE N'%智利%' THEN N'智利 二层' WHEN RT_RETAN_RECORD.source
                    LIKE N'%德国%' THEN N'德国 二层' WHEN RT_RETAN_RECORD.source LIKE N'%西班牙%' THEN N'西班牙 二层' WHEN RT_RETAN_RECORD.source
                    LIKE N'%欧洲%' THEN N'欧洲 二层' WHEN RT_RETAN_RECORD.source LIKE N'%法国%' THEN N'法国 二层' WHEN RT_RETAN_RECORD.source
                    LIKE N'%爱尔兰%' THEN N'爱尔兰 二层' WHEN RT_RETAN_RECORD.source LIKE N'%APP%' THEN N'美国 二层' WHEN RT_RETAN_RECORD.source
                    LIKE N'%日本%' THEN N'日本 二层' WHEN RT_RETAN_RECORD.source LIKE N'%美国%' THEN N'美国 二层' WHEN RT_RETAN_RECORD.source
                    LIKE N'%新西兰%' THEN N'新西兰 二层' WHEN RT_RETAN_RECORD.source LIKE N'%小皮%' THEN N'小皮 二层' WHEN RT_RETAN_RECORD.source
                    LIKE N'%英国%' THEN N'英国 二层' WHEN RT_RETAN_RECORD.source LIKE N'%墨西哥%' THEN N'墨西哥 二层' WHEN RT_RETAN_RECORD.source
                    LIKE N'%乌拉圭%' THEN N'乌拉圭 二层' WHEN RT_RETAN_RECORD.source LIKE N'%南非%' THEN N'南非 二层' WHEN RT_RETAN_RECORD.source
                    LIKE N'%孟加拉%' THEN N'孟加拉 二层' WHEN RT_RETAN_RECORD.source LIKE N'%泰国%' THEN N'泰国 二层' ELSE N'杂皮 二层'
                    END AS 皮源, 
                   CASE WHEN RT_RETAN_RECORD.source LIKE N'%无铬鞣%' THEN N'CT' WHEN RT_RETAN_RECORD.source LIKE N'%阿根廷%'
                    THEN N'AR' WHEN RT_RETAN_RECORD.source LIKE N'%澳%' THEN N'AU' WHEN (RT_RETAN_RECORD.source LIKE N'%巴西%'
                    OR
                   RT_RETAN_RECORD.source LIKE N'%bx%') 
                   THEN N'BR' WHEN RT_RETAN_RECORD.source LIKE N'%智利%' THEN N'CL' WHEN RT_RETAN_RECORD.source LIKE N'%德国%'
                    THEN N'DE' WHEN RT_RETAN_RECORD.source LIKE N'%西班牙%' THEN N'ES' WHEN RT_RETAN_RECORD.source LIKE N'%欧洲%'
                    THEN N'EU' WHEN RT_RETAN_RECORD.source LIKE N'%法国%' THEN N'FR' WHEN RT_RETAN_RECORD.source LIKE N'%爱尔兰%'
                    THEN N'IE' WHEN RT_RETAN_RECORD.source LIKE N'%日本%' THEN N'JP' WHEN RT_RETAN_RECORD.source LIKE N'%越南APP%'
                    THEN N'US' WHEN RT_RETAN_RECORD.source LIKE N'%美国%' THEN N'US' WHEN RT_RETAN_RECORD.source LIKE N'%新西兰%'
                    THEN N'NZ' WHEN RT_RETAN_RECORD.source LIKE N'%小皮%' THEN N'SS' WHEN RT_RETAN_RECORD.source LIKE N'%英国%'
                    THEN N'UK' WHEN RT_RETAN_RECORD.source LIKE N'%墨西哥%' THEN N'MX' WHEN RT_RETAN_RECORD.source LIKE N'%乌拉圭%'
                    THEN N'UY' WHEN RT_RETAN_RECORD.source LIKE N'%南非%' THEN N'ZA' WHEN RT_RETAN_RECORD.source LIKE N'%孟加拉%'
                    THEN N'BD' WHEN RT_RETAN_RECORD.source LIKE N'%泰国%' THEN N'TH' ELSE N'XX' END AS 皮源代码
FROM      (SELECT  NO, AREA, MONTH, HEADER, HEADER2, DATE, CARD, CARD1, CUST, COLOR, W1, P1, A1, W2, P2, A2, W3, P3, A3, 
                                      W4, P4, A4, source, TOTAL, class, type, DATE1, WEIGHT, P, COMa, COMb, COMc, dd, ee, ff, gg, hh, Dep
                   FROM       RT_RETAN_RECORD_D
                   WHERE    (DATE BETWEEN '2024/6/1' AND '2024/6/30') AND (type = N'打底') AND (COMa NOT LIKE N'%叠皮%')) 
                   AS p LEFT OUTER JOIN
                   RT_RETAN_RECORD ON p.CARD = RT_RETAN_RECORD.card
GROUP BY p.CARD, RT_RETAN_RECORD.color, RT_RETAN_RECORD.source
) as r"

        cmd.CommandText = sql

        TextBox9.Text = cmd.ExecuteScalar
        TextBox10.Text = cmd.ExecuteScalar / 2






        sql = "SELECT  CARD, card2, 类别, type, AVG(下鼓重) AS 下鼓重, AVG(price) AS price, AVG(weight) AS weight, code, 选级, card1, 
                   card_shaving, CUST, COLOR, source, 编码, 皮源, DATE, 厚度, dd, 备注, 皮源1, 皮源代码, AVG(挑级仓出库重) 
                   AS 出库重, AVG(投鼓重) AS 投鼓重, SUM(chem) AS 化工成本, SUM(chem) / AVG(投鼓重) / 6 AS 每尺化工
FROM      (SELECT  TOP (100) PERCENT p.CARD, CASE WHEN substring(p.CARD, 3, 1) = 'F' THEN substring(p.CARD, 4, 10) 
                                      + 'F' ELSE substring(p.CARD, 4, 10) + 'P' END AS card2, CASE WHEN substring(p.card, 3, 1) 
                                      = 'P' THEN N'贴膜' WHEN substring(p.card, 3, 1) = 'F' THEN '反毛' ELSE '其他' END AS 类别, p.type, 
                                      AVG(p.WEIGHT) / 2 AS 下鼓重, COUNT(*) AS Expr2, CASE WHEN rt_shaving_out.price IS NULL 
                                      THEN 30 ELSE rt_shaving_out.price END AS price, CASE WHEN rt_shaving_out.weight IS NULL 
                                      THEN AVG(p.WEIGHT) / 2 ELSE rt_shaving_out.weight END AS weight, CASE WHEN rt_shaving_out.code IS NULL 
                                      THEN '212F.XX.2.1' ELSE rt_shaving_out.code END AS code, CASE WHEN rt_shaving_out.name IS NULL 
                                      THEN N'D级' ELSE rt_shaving_out.name END AS 选级, rt_shaving_out.card1, 
                                      rt_shaving_out.card AS card_shaving, p.CUST, p.COLOR, p.source, CASE WHEN rt_wetblue_name.code IS NULL 
                                      THEN '212F.XX' ELSE rt_wetblue_name.code END AS 编码, CASE WHEN rt_wetblue_name.name IS NULL 
                                      THEN N'杂皮 二层' ELSE rt_wetblue_name.name END AS 皮源, p.DATE, 
                                      CASE WHEN substring(rt_shaving_out.code, 13, 1) = '1' THEN '1.02' WHEN substring(rt_shaving_out.code, 13, 1) 
                                      = '2' THEN '1.24' WHEN substring(rt_shaving_out.code, 13, 1) 
                                      = '3' THEN '1.46' WHEN substring(rt_shaving_out.code, 13, 1) 
                                      = '4' THEN '1.68' WHEN substring(rt_shaving_out.code, 13, 1) IS NULL THEN '1.24' END AS 厚度, p.dd, 
                                      CASE WHEN rt_shaving_out.card1 IS NULL AND 
                                      p.type = N'套染' THEN N'套染' WHEN rt_shaving_out.price IS NULL AND 
                                      p.type = N'打底' THEN N'回鼓' ELSE N'打底' END AS 备注, 
                                      CASE WHEN p.source LIKE N'%无铬鞣%' THEN N'无铬鞣 二层' WHEN p.source LIKE N'%阿根廷%' THEN N'阿根廷 二层'
                                       WHEN p.source LIKE N'%澳%' THEN N'澳大利亚 二层' WHEN (p.source LIKE N'%巴西%' OR
                                      p.source LIKE N'%bx%') 
                                      THEN N'巴西 二层' WHEN p.source LIKE N'%智利%' THEN N'智利 二层' WHEN p.source LIKE N'%德国%' THEN N'德国 二层'
                                       WHEN p.source LIKE N'%西班牙%' THEN N'西班牙 二层' WHEN p.source LIKE N'%欧洲%' THEN N'欧洲 二层' WHEN
                                       p.source LIKE N'%法国%' THEN N'法国 二层' WHEN p.source LIKE N'%爱尔兰%' THEN N'爱尔兰 二层' WHEN p.source
                                       LIKE N'%APP%' THEN N'美国 二层' WHEN p.source LIKE N'%日本%' THEN N'日本 二层' WHEN p.source LIKE N'%美国%'
                                       THEN N'美国 二层' WHEN p.source LIKE N'%新西兰%' THEN N'新西兰 二层' WHEN p.source LIKE N'%小皮%' THEN
                                       N'小皮 二层' WHEN p.source LIKE N'%英国%' THEN N'英国 二层' WHEN p.source LIKE N'%墨西哥%' THEN N'墨西哥 二层'
                                       WHEN p.source LIKE N'%乌拉圭%' THEN N'乌拉圭 二层' WHEN p.source LIKE N'%南非%' THEN N'南非 二层' WHEN
                                       p.source LIKE N'%孟加拉%' THEN N'孟加拉 二层' WHEN p.source LIKE N'%泰国%' THEN N'泰国 二层' ELSE N'杂皮 二层'
                                       END AS 皮源1, 
                                      CASE WHEN p.source LIKE N'%无铬鞣%' THEN N'CT' WHEN p.source LIKE N'%阿根廷%' THEN N'AR' WHEN p.source
                                       LIKE N'%澳%' THEN N'AU' WHEN (p.source LIKE N'%巴西%' OR
                                      p.source LIKE N'%bx%') 
                                      THEN N'BR' WHEN p.source LIKE N'%智利%' THEN N'CL' WHEN p.source LIKE N'%德国%' THEN N'DE' WHEN p.source
                                       LIKE N'%西班牙%' THEN N'ES' WHEN p.source LIKE N'%欧洲%' THEN N'EU' WHEN p.source LIKE N'%法国%' THEN
                                       N'FR' WHEN p.source LIKE N'%爱尔兰%' THEN N'IE' WHEN p.source LIKE N'%日本%' THEN N'JP' WHEN p.source LIKE
                                       N'%越南APP%' THEN N'US' WHEN p.source LIKE N'%美国%' THEN N'US' WHEN p.source LIKE N'%新西兰%' THEN N'NZ'
                                       WHEN p.source LIKE N'%小皮%' THEN N'SS' WHEN p.source LIKE N'%英国%' THEN N'UK' WHEN p.source LIKE N'%墨西哥%'
                                       THEN N'MX' WHEN p.source LIKE N'%乌拉圭%' THEN N'UY' WHEN p.source LIKE N'%南非%' THEN N'ZA' WHEN p.source
                                       LIKE N'%孟加拉%' THEN N'BD' WHEN p.source LIKE N'%泰国%' THEN N'TH' ELSE N'XX' END AS 皮源代码, 
                                      rt_shaving_out.weight AS 挑级仓出库重, CASE WHEN rt_shaving_out.weight IS NULL THEN AVG(p.weight) 
                                      / 2 ELSE rt_shaving_out.weight END AS 投鼓重, RT_SYS_CHEM_OUT.CODE AS Expr1, 
                                      RT_SYS_CHEM_OUT.NAME, rt_chem_price_li.price1 AS chemprice, 
                                      RT_SYS_CHEM_OUT.WEIGHT AS chemweight, CASE WHEN rt_chem_price_li.price1 IS NULL 
                                      THEN 0 ELSE rt_chem_price_li.price1 * rt_sys_chem_out.weight END AS chem
                   FROM       RT_SYS_CHEM_OUT INNER JOIN
                                      rt_chem_price_li ON RT_SYS_CHEM_OUT.CODE = rt_chem_price_li.code RIGHT OUTER JOIN
                                          (SELECT  NO, AREA, MONTH, HEADER, HEADER2, DATE, CARD, CARD1, CUST, COLOR, W1, P1, A1, W2, P2, A2, 
                                                              W3, P3, A3, W4, P4, A4, source, TOTAL, class, type, DATE1, WEIGHT, P, COMa, COMb, COMc, dd, ee, ff, 
                                                              gg, hh, Dep
                                           FROM       RT_RETAN_RECORD_D
                                           WHERE    (DATE BETWEEN '2024/6/1' AND '2024/6/30') AND (COMa NOT LIKE N'%叠皮%') AND 
                                                              (WEIGHT IS NOT NULL)) AS p ON RT_SYS_CHEM_OUT.CARD = p.CARD LEFT OUTER JOIN
                                      rt_wetblue_name RIGHT OUTER JOIN
                                      rt_shaving_out ON LEFT(rt_wetblue_name.code, 7) = LEFT(rt_shaving_out.code, 7) ON 
                                      p.CARD = rt_shaving_out.card1
                   GROUP BY p.type, p.CARD, p.CARD1, rt_shaving_out.price, rt_shaving_out.weight, rt_shaving_out.code, 
                                      rt_shaving_out.name, rt_shaving_out.card1, rt_shaving_out.card, p.CUST, p.COLOR, p.source, 
                                      rt_wetblue_name.code, rt_wetblue_name.name, p.DATE, p.dd, RT_SYS_CHEM_OUT.CODE, 
                                      RT_SYS_CHEM_OUT.NAME, rt_chem_price_li.price1, RT_SYS_CHEM_OUT.WEIGHT
                   ORDER BY p.CARD) AS s
GROUP BY CARD, card2, 类别, type, 下鼓重, code, 选级, card1, card_shaving, CUST, COLOR, source, 编码, 皮源, DATE, 厚度, dd, 
                   备注, 皮源1, 皮源代码
HAVING  (type = N'套染')"



        cmd.CommandText = sql



        dt_retan_re = New DataTable
        da.SelectCommand = cmd
        da.Fill(dt_retan_re)

        dgv_re_retan.DataSource = dt_retan_re


        sql = "SELECT  SUM(weight) AS Expr1
FROM      (SELECT  AVG(weight) AS weight, CARD
                   FROM       (SELECT  TOP (100) PERCENT p.CARD, p.CUST, p.COLOR, RT_RETAN_RECORD_D_1.DATE, 
                                                          RT_RETAN_RECORD_D_1.class, RT_RETAN_RECORD_D_1.type, RT_RETAN_RECORD_D_1.dd, 
                                                          p.weight
                                       FROM       (SELECT  CARD, CUST, COLOR, COMa, AVG(WEIGHT) AS weight
                                                           FROM       RT_RETAN_RECORD_D
                                                           WHERE    (DATE BETWEEN '2024/6/1' AND '2024/6/30') AND (COMa NOT LIKE '%叠%')
                                                           GROUP BY CARD, CUST, COLOR, COMa
                                                           HAVING   (COUNT(*) > 1)) AS p INNER JOIN
                                                          RT_RETAN_RECORD_D AS RT_RETAN_RECORD_D_1 ON 
                                                          p.CARD = RT_RETAN_RECORD_D_1.CARD
                                       ORDER BY p.CARD, RT_RETAN_RECORD_D_1.DATE) AS r
                   GROUP BY CARD) AS s "
        sql = "select card,avg(weight),count(*) from (SELECT  NO, AREA, MONTH, HEADER, HEADER2, DATE, CARD, CARD1, CUST, COLOR, W1, P1, A1, W2, P2, A2, W3, P3, A3, W4, P4, A4, 
                   source, TOTAL, class, type, DATE1, WEIGHT, P, COMa, COMb, COMc, dd, ee, ff, gg, hh, Dep
FROM      RT_RETAN_RECORD_D
WHERE   (DATE BETWEEN '2024/6/1' AND '2024/6/30') and type=N'打底' and coma not like N'%叠皮%' ) as p group by card order by count(*) desc"

        sql = "select sum(weight) from (SELECT  p.CARD, CASE WHEN substring(p.CARD, 3, 1) = 'F' THEN substring(p.card, 4, 10) + 'F' ELSE substring(p.card, 4, 10) 
                   + 'P' END AS card1, CASE WHEN AVG(p.WEIGHT) IS NULL THEN 0 ELSE AVG(p.WEIGHT) END AS weight, COUNT(*) 
                   AS count, RT_RETAN_RECORD.color, RT_RETAN_RECORD.source, 
                   CASE WHEN RT_RETAN_RECORD.source LIKE N'%无铬鞣%' THEN N'无铬鞣 二层' WHEN RT_RETAN_RECORD.source LIKE
                    N'%阿根廷%' THEN N'阿根廷 二层' WHEN RT_RETAN_RECORD.source LIKE N'%澳%' THEN N'澳大利亚 二层' WHEN (RT_RETAN_RECORD.source
                    LIKE N'%巴西%' OR RT_RETAN_RECORD.source LIKE N'%bx%') 
                   THEN N'巴西 二层' WHEN RT_RETAN_RECORD.source LIKE N'%智利%' THEN N'智利 二层' WHEN RT_RETAN_RECORD.source
                    LIKE N'%德国%' THEN N'德国 二层' WHEN RT_RETAN_RECORD.source LIKE N'%西班牙%' THEN N'西班牙 二层' WHEN RT_RETAN_RECORD.source
                    LIKE N'%欧洲%' THEN N'欧洲 二层' WHEN RT_RETAN_RECORD.source LIKE N'%法国%' THEN N'法国 二层' WHEN RT_RETAN_RECORD.source
                    LIKE N'%爱尔兰%' THEN N'爱尔兰 二层' WHEN RT_RETAN_RECORD.source LIKE N'%APP%' THEN N'美国 二层' WHEN RT_RETAN_RECORD.source
                    LIKE N'%日本%' THEN N'日本 二层' WHEN RT_RETAN_RECORD.source LIKE N'%美国%' THEN N'美国 二层' WHEN RT_RETAN_RECORD.source
                    LIKE N'%新西兰%' THEN N'新西兰 二层' WHEN RT_RETAN_RECORD.source LIKE N'%小皮%' THEN N'小皮 二层' WHEN RT_RETAN_RECORD.source
                    LIKE N'%英国%' THEN N'英国 二层' WHEN RT_RETAN_RECORD.source LIKE N'%墨西哥%' THEN N'墨西哥 二层' WHEN RT_RETAN_RECORD.source
                    LIKE N'%乌拉圭%' THEN N'乌拉圭 二层' WHEN RT_RETAN_RECORD.source LIKE N'%南非%' THEN N'南非 二层' WHEN RT_RETAN_RECORD.source
                    LIKE N'%孟加拉%' THEN N'孟加拉 二层' WHEN RT_RETAN_RECORD.source LIKE N'%泰国%' THEN N'泰国 二层' ELSE N'杂皮 二层'
                    END AS 皮源, 
                   CASE WHEN RT_RETAN_RECORD.source LIKE N'%无铬鞣%' THEN N'CT' WHEN RT_RETAN_RECORD.source LIKE N'%阿根廷%'
                    THEN N'AR' WHEN RT_RETAN_RECORD.source LIKE N'%澳%' THEN N'AU' WHEN (RT_RETAN_RECORD.source LIKE N'%巴西%'
                    OR
                   RT_RETAN_RECORD.source LIKE N'%bx%') 
                   THEN N'BR' WHEN RT_RETAN_RECORD.source LIKE N'%智利%' THEN N'CL' WHEN RT_RETAN_RECORD.source LIKE N'%德国%'
                    THEN N'DE' WHEN RT_RETAN_RECORD.source LIKE N'%西班牙%' THEN N'ES' WHEN RT_RETAN_RECORD.source LIKE N'%欧洲%'
                    THEN N'EU' WHEN RT_RETAN_RECORD.source LIKE N'%法国%' THEN N'FR' WHEN RT_RETAN_RECORD.source LIKE N'%爱尔兰%'
                    THEN N'IE' WHEN RT_RETAN_RECORD.source LIKE N'%日本%' THEN N'JP' WHEN RT_RETAN_RECORD.source LIKE N'%越南APP%'
                    THEN N'US' WHEN RT_RETAN_RECORD.source LIKE N'%美国%' THEN N'US' WHEN RT_RETAN_RECORD.source LIKE N'%新西兰%'
                    THEN N'NZ' WHEN RT_RETAN_RECORD.source LIKE N'%小皮%' THEN N'SS' WHEN RT_RETAN_RECORD.source LIKE N'%英国%'
                    THEN N'UK' WHEN RT_RETAN_RECORD.source LIKE N'%墨西哥%' THEN N'MX' WHEN RT_RETAN_RECORD.source LIKE N'%乌拉圭%'
                    THEN N'UY' WHEN RT_RETAN_RECORD.source LIKE N'%南非%' THEN N'ZA' WHEN RT_RETAN_RECORD.source LIKE N'%孟加拉%'
                    THEN N'BD' WHEN RT_RETAN_RECORD.source LIKE N'%泰国%' THEN N'TH' ELSE N'XX' END AS 皮源代码
FROM      (SELECT  NO, AREA, MONTH, HEADER, HEADER2, DATE, CARD, CARD1, CUST, COLOR, W1, P1, A1, W2, P2, A2, W3, P3, A3, 
                                      W4, P4, A4, source, TOTAL, class, type, DATE1, WEIGHT, P, COMa, COMb, COMc, dd, ee, ff, gg, hh, Dep
                   FROM       RT_RETAN_RECORD_D
                   WHERE    (DATE BETWEEN '2024/6/1' AND '2024/6/30') AND (type = N'套染' or type = N'回鼓') AND (COMa NOT LIKE N'%叠皮%')) 
                   AS p LEFT OUTER JOIN
                   RT_RETAN_RECORD ON p.CARD = RT_RETAN_RECORD.card
GROUP BY p.CARD, RT_RETAN_RECORD.color, RT_RETAN_RECORD.source
) as r "
        cmd.CommandText = sql

        TextBox11.Text = cmd.ExecuteScalar
        TextBox12.Text = cmd.ExecuteScalar / 2

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click '下鼓

        Dim aa As String
        Dim my_card As String = ""
        Dim my_date As Date

        aa = TextBox8.Text

        If aa = "" Then
            MsgBox("请输入起始单号")
            Exit Sub
        End If



        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 xlSheet2 As Microsoft.Office.Interop.Excel.Worksheet




        Dim file_name As String = ""
        Dim file_name1 As String = ""
        Dim my_weight As Double = 0
        Dim a As Integer = 0
        Dim my_count As Integer = 0
        Dim my_x As Integer = 0



        xlApp = CreateObject("Excel.Application")
        xlApp.Visible = True
        xlApp.DisplayAlerts = False


        xlBook = xlApp.Workbooks.Open("D:\K3\k3表格模板\下鼓染色入库.xls",, True)

        xlBook.Activate()

        Dim dt2 As New DataTable


        For i = 1 To xlApp.Worksheets.Count

            If xlApp.Workbooks(1).Worksheets(i).name = "Page1" Then
                xlSheet = xlApp.Workbooks(1).Worksheets(i)
                xlSheet.Activate()
                Exit For
            End If


        Next


        Dim my_no As String = "CPRK"
        Dim yy As Integer = 1
        Dim x As Integer = 0




        For x = 0 To dt_retan.Rows.Count - 1         '-----------loop



            If (my_card = dt_retan.Rows(x).Item("下号") And my_date = dt_retan.Rows(x).Item("日期")) Then GoTo OK : 

            xlSheet.Cells(my_x + 2, 1) = dt_retan.Rows(x).Item("日期")
            xlSheet.Cells(my_x + 2, 2) = dt_retan.Rows(x).Item("日期")
            xlSheet.Cells(my_x + 2, 3) = "'郑笔成"
            xlSheet.Cells(my_x + 2, 4) = "'" & my_no & aa
            xlSheet.Cells(my_x + 2, 5) = "'zhang"
            xlSheet.Cells(my_x + 2, 6) = "'1"
            xlSheet.Cells(my_x + 2, 7) = "'2"
            xlSheet.Cells(my_x + 2, 8) = "'165701"


            xlSheet.Cells(my_x + 2, 9) = "'607-R"
            xlSheet.Cells(my_x + 2, 10) = "'挑选等级-R"

            xlSheet.Cells(my_x + 2, 11) = "'103"
            xlSheet.Cells(my_x + 2, 12) = "'曾添梅"
            xlSheet.Cells(my_x + 2, 13) = "'103"
            xlSheet.Cells(my_x + 2, 14) = "'曾添梅"
            xlSheet.Cells(my_x + 2, 15) = "'85"




            For i = 1 To xlApp.Worksheets.Count

                If xlApp.Workbooks(1).Worksheets(i).name = "Page2" Then
                    xlSheet2 = xlApp.Workbooks(1).Worksheets(i)
                    xlSheet2.Activate()
                    Exit For
                End If

            Next




            sql = "SELECT  TOP (100) PERCENT p.CARD, CASE WHEN substring(p.CARD, 3, 1) = 'F' THEN substring(p.CARD, 4, 10) 
                   + 'F' ELSE substring(p.CARD, 4, 10) + 'P' END AS card2, CASE WHEN substring(p.card, 3, 1) 
                   = 'P' THEN N'贴膜' WHEN substring(p.card, 3, 1) = 'F' THEN '反毛' ELSE '其他' END AS 类别, p.type, AVG(p.WEIGHT) 
                   / 2 AS 下鼓重, COUNT(*) AS Expr2, CASE WHEN rt_shaving_out.price IS NULL 
                   THEN 30 ELSE rt_shaving_out.price END AS price, CASE WHEN rt_shaving_out.weight IS NULL THEN AVG(p.WEIGHT) 
                   / 2 ELSE rt_shaving_out.weight END AS weight, CASE WHEN rt_shaving_out.code IS NULL 
                   THEN '212F.XX.2.1' ELSE rt_shaving_out.code END AS code, CASE WHEN rt_shaving_out.name IS NULL 
                   THEN N'D级' ELSE rt_shaving_out.name END AS 选级, rt_shaving_out.card1, rt_shaving_out.card AS Expr3, p.CUST, 
                   p.COLOR, p.source, CASE WHEN rt_wetblue_name.code IS NULL 
                   THEN '212F.XX' ELSE rt_wetblue_name.code END AS 编码, CASE WHEN rt_wetblue_name.name IS NULL 
                   THEN N'杂皮 二层' ELSE rt_wetblue_name.name END AS 皮源, p.DATE, CASE WHEN substring(rt_shaving_out.code, 13, 1) 
                   = '1' THEN '1.02' WHEN substring(rt_shaving_out.code, 13, 1) = '2' THEN '1.24' WHEN substring(rt_shaving_out.code, 13, 1) 
                   = '3' THEN '1.46' WHEN substring(rt_shaving_out.code, 13, 1) = '4' THEN '1.68' WHEN substring(rt_shaving_out.code, 13, 1) 
                   IS NULL THEN '1.24' END AS 厚度, p.dd, CASE WHEN rt_shaving_out.card1 IS NULL AND 
                   p.type = N'套染' THEN N'套染' WHEN rt_shaving_out.price IS NULL AND 
                   p.type = N'打底' THEN N'回鼓' ELSE N'打底' END AS 备注, 
                   CASE WHEN p.source LIKE N'%无铬鞣%' THEN N'无铬鞣 二层' WHEN p.source LIKE N'%阿根廷%' THEN N'阿根廷 二层' WHEN
                    p.source LIKE N'%澳%' THEN N'澳大利亚 二层' WHEN (p.source LIKE N'%巴西%' OR
                   p.source LIKE N'%bx%') 
                   THEN N'巴西 二层' WHEN p.source LIKE N'%智利%' THEN N'智利 二层' WHEN p.source LIKE N'%德国%' THEN N'德国 二层' WHEN
                    p.source LIKE N'%西班牙%' THEN N'西班牙 二层' WHEN p.source LIKE N'%欧洲%' THEN N'欧洲 二层' WHEN p.source LIKE N'%法国%'
                    THEN N'法国 二层' WHEN p.source LIKE N'%爱尔兰%' THEN N'爱尔兰 二层' WHEN p.source LIKE N'%APP%' THEN N'美国 二层'
                    WHEN p.source LIKE N'%日本%' THEN N'日本 二层' WHEN p.source LIKE N'%美国%' THEN N'美国 二层' WHEN p.source LIKE
                    N'%新西兰%' THEN N'新西兰 二层' WHEN p.source LIKE N'%小皮%' THEN N'小皮 二层' WHEN p.source LIKE N'%英国%' THEN
                    N'英国 二层' WHEN p.source LIKE N'%墨西哥%' THEN N'墨西哥 二层' WHEN p.source LIKE N'%乌拉圭%' THEN N'乌拉圭 二层'
                    WHEN p.source LIKE N'%南非%' THEN N'南非 二层' WHEN p.source LIKE N'%孟加拉%' THEN N'孟加拉 二层' WHEN p.source
                    LIKE N'%泰国%' THEN N'泰国 二层' ELSE N'杂皮 二层' END AS 皮源1, 
                   CASE WHEN p.source LIKE N'%无铬鞣%' THEN N'CT' WHEN p.source LIKE N'%阿根廷%' THEN N'AR' WHEN p.source LIKE N'%澳%'
                    THEN N'AU' WHEN (p.source LIKE N'%巴西%' OR
                   p.source LIKE N'%bx%') 
                   THEN N'BR' WHEN p.source LIKE N'%智利%' THEN N'CL' WHEN p.source LIKE N'%德国%' THEN N'DE' WHEN p.source LIKE N'%西班牙%'
                    THEN N'ES' WHEN p.source LIKE N'%欧洲%' THEN N'EU' WHEN p.source LIKE N'%法国%' THEN N'FR' WHEN p.source LIKE N'%爱尔兰%'
                    THEN N'IE' WHEN p.source LIKE N'%日本%' THEN N'JP' WHEN p.source LIKE N'%APP%' THEN N'US' WHEN p.source LIKE
                    N'%美国%' THEN N'US' WHEN p.source LIKE N'%新西兰%' THEN N'NZ' WHEN p.source LIKE N'%小皮%' THEN N'SS' WHEN p.source
                    LIKE N'%英国%' THEN N'UK' WHEN p.source LIKE N'%墨西哥%' THEN N'MX' WHEN p.source LIKE N'%乌拉圭%' THEN N'UY' WHEN
                    p.source LIKE N'%南非%' THEN N'ZA' WHEN p.source LIKE N'%孟加拉%' THEN N'BD' WHEN p.source LIKE N'%泰国%' THEN
                    N'TH' ELSE N'XX' END AS 皮源代码, rt_shaving_out.weight AS 挑级仓出库重, CASE WHEN rt_shaving_out.weight IS NULL
                    THEN AVG(p.weight) / 2 ELSE rt_shaving_out.weight END AS 投鼓重
FROM      rt_wetblue_name RIGHT OUTER JOIN
                   rt_shaving_out ON LEFT(rt_wetblue_name.code, 7) = LEFT(rt_shaving_out.code, 7) RIGHT OUTER JOIN
                       (SELECT  NO, AREA, MONTH, HEADER, HEADER2, DATE, CARD, CARD1, CUST, COLOR, W1, P1, A1, W2, P2, A2, W3, P3, 
                                           A3, W4, P4, A4, source, TOTAL, class, type, DATE1, WEIGHT, P, COMa, COMb, COMc, dd, ee, ff, gg, hh, Dep
                        FROM       RT_RETAN_RECORD_D
                        WHERE    (DATE BETWEEN '2024/6/1' AND '2024/6/30') AND (COMa NOT LIKE N'%叠皮%') AND (WEIGHT IS NOT NULL)  and card=N'" & dt_retan.Rows(x).Item("卡号") & "'And date=N'" & dt_retan.Rows(x).Item("日期") & "') AS p 
                    ON rt_shaving_out.card1 = p.CARD
GROUP BY p.type, p.CARD, p.CARD1, rt_shaving_out.price, rt_shaving_out.weight, rt_shaving_out.code, rt_shaving_out.name, 
                   rt_shaving_out.card1, rt_shaving_out.card, p.CUST, p.COLOR, p.source, rt_wetblue_name.code, rt_wetblue_name.name, 
                   p.DATE, p.dd
ORDER BY p.CARD"


            dt2 = New DataTable
            cmd.CommandText = sql
            da.SelectCommand = cmd
            da.Fill(dt2)





            Dim serial As Integer = 1

            For y = 0 To dt2.Rows.Count - 1

                xlSheet2.Cells(yy + 1 + y, 2) = "'" & serial  '行号
                xlSheet2.Cells(yy + 1 + y, 3) = "'" & my_no & aa


                xlSheet2.Cells(yy + 1 + y, 5) = "112." & dt2.Rows(y).Item("皮源代码")
                xlSheet2.Cells(yy + 1 + y, 6) = dt2.Rows(y).Item("皮源1")

                xlSheet2.Cells(yy + 1 + y, 45) = dt2.Rows(y).Item("选级")

                xlSheet2.Cells(yy + 1 + y, 14) = dt2.Rows(y).Item("投鼓重")
                xlSheet2.Cells(yy + 1 + y, 15) = dt2.Rows(y).Item("price")
                xlSheet2.Cells(yy + 1 + y, 16) = dt2.Rows(y).Item("投鼓重") * dt2.Rows(y).Item("price")
                xlSheet2.Cells(yy + 1 + y, 17) = dt2.Rows(y).Item("card2")
                xlSheet2.Cells(yy + 1 + y, 17) = dt2.Rows(y).Item("type")

                xlSheet2.Cells(yy + 1 + y, 25) = "'213A-R"
                xlSheet2.Cells(yy + 1 + y, 26) = "染色仓/赤湖"

                xlSheet2.Cells(yy + 1 + y, 38) = dt2.Rows(y).Item("类别")
                xlSheet2.Cells(yy + 1 + y, 39) = "'" & dt2.Rows(y).Item("cust")
                xlSheet2.Cells(yy + 1 + y, 40) = dt2.Rows(y).Item("dd")

                xlSheet2.Cells(yy + 1 + y, 41) = dt2.Rows(y).Item("source")
                xlSheet2.Cells(yy + 1 + y, 42) = dt2.Rows(y).Item("color")
                xlSheet2.Cells(yy + 1 + y, 43) = dt2.Rows(y).Item("厚度")
                xlSheet2.Cells(yy + 1 + y, 44) = dt2.Rows(y).Item("card")





                serial = serial + 1

            Next

            yy = yy + dt2.Rows.Count


            aa = aa + 1
            my_x = my_x + 1
            my_card = dt_retan.Rows(x).Item("卡号")
            my_date = dt_retan.Rows(x).Item("日期")

OK:
        Next

        xlSheet2.Range("A2:A" & x + 1).FillDown()
        'xlSheet2.Range("B2:B" & x + 1).FillDown()
        xlSheet2.Range("D2:D" & x + 1).FillDown()
        xlSheet2.Range("J2:J" & x + 1).FillDown()
        xlSheet2.Range("L2:L" & x + 1).FillDown()
        xlSheet2.Range("M2:M" & x + 1).FillDown()
        'xlSheet2.Range("O2:O" & x + 1).FillDown()
        'xlSheet2.Range("P2:P" & x + 1).FillDown()





        MsgBox("")




    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click  '---在制品导入k3

        Dim aa As String
        Dim my_card As String = ""
        Dim my_date As Date

        aa = TextBox8.Text

        If aa = "" Then
            MsgBox("请输入起始单号")
            Exit Sub
        End If



        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 xlSheet2 As Microsoft.Office.Interop.Excel.Worksheet




        Dim file_name As String = ""
        Dim file_name1 As String = ""
        Dim my_weight As Double = 0
        Dim a As Integer = 0
        Dim my_count As Integer = 0
        Dim my_x As Integer = 0



        xlApp = CreateObject("Excel.Application")
        xlApp.Visible = True
        xlApp.DisplayAlerts = False


        xlBook = xlApp.Workbooks.Open("D:\K3\k3表格模板\下鼓染色入库.xls",, True)

        xlBook.Activate()

        Dim dt2 As New DataTable


        For i = 1 To xlApp.Worksheets.Count

            If xlApp.Workbooks(1).Worksheets(i).name = "Page1" Then
                xlSheet = xlApp.Workbooks(1).Worksheets(i)
                xlSheet.Activate()
                Exit For
            End If


        Next


        Dim my_no As String = "CPRK"
        Dim yy As Integer = 1
        Dim x As Integer = 0

        Dim dt_inprocess As New DataTable


        sql = "select * from rt_tm_in_0601"

        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(dt_inprocess)







        For x = 0 To dt_inprocess.Rows.Count - 1         '-----------loop





            xlSheet.Cells(my_x + 2, 1) = "2024/06/01"
            xlSheet.Cells(my_x + 2, 2) = "2024/06/01"
            xlSheet.Cells(my_x + 2, 3) = "'曾添梅"
            xlSheet.Cells(my_x + 2, 4) = "'" & my_no & aa
            xlSheet.Cells(my_x + 2, 5) = "'zhang"
            xlSheet.Cells(my_x + 2, 6) = "'1"
            xlSheet.Cells(my_x + 2, 7) = "'2"
            xlSheet.Cells(my_x + 2, 8) = "'165701"


            xlSheet.Cells(my_x + 2, 9) = "'607-R"
            xlSheet.Cells(my_x + 2, 10) = "'挑选等级-R"

            xlSheet.Cells(my_x + 2, 11) = "'103"
            xlSheet.Cells(my_x + 2, 12) = "'曾添梅"
            xlSheet.Cells(my_x + 2, 13) = "'103"
            xlSheet.Cells(my_x + 2, 14) = "'曾添梅"
            xlSheet.Cells(my_x + 2, 15) = "'85"




            For i = 1 To xlApp.Worksheets.Count

                If xlApp.Workbooks(1).Worksheets(i).name = "Page2" Then
                    xlSheet2 = xlApp.Workbooks(1).Worksheets(i)
                    xlSheet2.Activate()
                    Exit For
                End If

            Next




            sql = "SELECT  TOP (100) PERCENT p.CARD, CASE WHEN substring(p.CARD, 3, 1) = 'F' THEN substring(p.CARD, 4, 10) 
                   + 'F' ELSE substring(p.CARD, 4, 10) + 'P' END AS card2, CASE WHEN substring(p.card, 3, 1) 
                   = 'P' THEN N'贴膜' WHEN substring(p.card, 3, 1) = 'F' THEN '反毛' ELSE '其他' END AS 类别, p.type, AVG(p.WEIGHT) 
                   / 2 AS 下鼓重, COUNT(*) AS Expr2, CASE WHEN rt_shaving_out.price IS NULL 
                   THEN 30 ELSE rt_shaving_out.price END AS price, CASE WHEN rt_shaving_out.weight IS NULL THEN AVG(p.WEIGHT) 
                   / 2 ELSE rt_shaving_out.weight END AS weight, CASE WHEN rt_shaving_out.code IS NULL 
                   THEN '212F.XX.2.1' ELSE rt_shaving_out.code END AS code, CASE WHEN rt_shaving_out.name IS NULL 
                   THEN N'D级' ELSE rt_shaving_out.name END AS 选级, rt_shaving_out.card1, rt_shaving_out.card AS Expr3, p.CUST, 
                   p.COLOR, p.source, CASE WHEN rt_wetblue_name.code IS NULL 
                   THEN '212F.XX' ELSE rt_wetblue_name.code END AS 编码, CASE WHEN rt_wetblue_name.name IS NULL 
                   THEN N'杂皮 二层' ELSE rt_wetblue_name.name END AS 皮源, p.DATE, CASE WHEN substring(rt_shaving_out.code, 13, 1) 
                   = '1' THEN '1.02' WHEN substring(rt_shaving_out.code, 13, 1) = '2' THEN '1.24' WHEN substring(rt_shaving_out.code, 13, 1) 
                   = '3' THEN '1.46' WHEN substring(rt_shaving_out.code, 13, 1) = '4' THEN '1.68' WHEN substring(rt_shaving_out.code, 13, 1) 
                   IS NULL THEN '1.24' END AS 厚度, p.dd, CASE WHEN rt_shaving_out.card1 IS NULL AND 
                   p.type = N'套染' THEN N'套染' WHEN rt_shaving_out.price IS NULL AND 
                   p.type = N'打底' THEN N'回鼓' ELSE N'打底' END AS 备注, 
                   CASE WHEN p.source LIKE N'%无铬鞣%' THEN N'无铬鞣 二层' WHEN p.source LIKE N'%阿根廷%' THEN N'阿根廷 二层' WHEN
                    p.source LIKE N'%澳%' THEN N'澳大利亚 二层' WHEN (p.source LIKE N'%巴西%' OR
                   p.source LIKE N'%bx%') 
                   THEN N'巴西 二层' WHEN p.source LIKE N'%智利%' THEN N'智利 二层' WHEN p.source LIKE N'%德国%' THEN N'德国 二层' WHEN
                    p.source LIKE N'%西班牙%' THEN N'西班牙 二层' WHEN p.source LIKE N'%欧洲%' THEN N'欧洲 二层' WHEN p.source LIKE N'%法国%'
                    THEN N'法国 二层' WHEN p.source LIKE N'%爱尔兰%' THEN N'爱尔兰 二层' WHEN p.source LIKE N'%APP%' THEN N'美国 二层'
                    WHEN p.source LIKE N'%日本%' THEN N'日本 二层' WHEN p.source LIKE N'%美国%' THEN N'美国 二层' WHEN p.source LIKE
                    N'%新西兰%' THEN N'新西兰 二层' WHEN p.source LIKE N'%小皮%' THEN N'小皮 二层' WHEN p.source LIKE N'%英国%' THEN
                    N'英国 二层' WHEN p.source LIKE N'%墨西哥%' THEN N'墨西哥 二层' WHEN p.source LIKE N'%乌拉圭%' THEN N'乌拉圭 二层'
                    WHEN p.source LIKE N'%南非%' THEN N'南非 二层' WHEN p.source LIKE N'%孟加拉%' THEN N'孟加拉 二层' WHEN p.source
                    LIKE N'%泰国%' THEN N'泰国 二层' ELSE N'杂皮 二层' END AS 皮源1, 
                   CASE WHEN p.source LIKE N'%无铬鞣%' THEN N'CT' WHEN p.source LIKE N'%阿根廷%' THEN N'AR' WHEN p.source LIKE N'%澳%'
                    THEN N'AU' WHEN (p.source LIKE N'%巴西%' OR
                   p.source LIKE N'%bx%') 
                   THEN N'BR' WHEN p.source LIKE N'%智利%' THEN N'CL' WHEN p.source LIKE N'%德国%' THEN N'DE' WHEN p.source LIKE N'%西班牙%'
                    THEN N'ES' WHEN p.source LIKE N'%欧洲%' THEN N'EU' WHEN p.source LIKE N'%法国%' THEN N'FR' WHEN p.source LIKE N'%爱尔兰%'
                    THEN N'IE' WHEN p.source LIKE N'%日本%' THEN N'JP' WHEN p.source LIKE N'%APP%' THEN N'US' WHEN p.source LIKE
                    N'%美国%' THEN N'US' WHEN p.source LIKE N'%新西兰%' THEN N'NZ' WHEN p.source LIKE N'%小皮%' THEN N'SS' WHEN p.source
                    LIKE N'%英国%' THEN N'UK' WHEN p.source LIKE N'%墨西哥%' THEN N'MX' WHEN p.source LIKE N'%乌拉圭%' THEN N'UY' WHEN
                    p.source LIKE N'%南非%' THEN N'ZA' WHEN p.source LIKE N'%孟加拉%' THEN N'BD' WHEN p.source LIKE N'%泰国%' THEN
                    N'TH' ELSE N'XX' END AS 皮源代码, rt_shaving_out.weight AS 挑级仓出库重, CASE WHEN rt_shaving_out.weight IS NULL
                    THEN AVG(p.weight) / 2 ELSE rt_shaving_out.weight END AS 投鼓重
FROM      rt_wetblue_name RIGHT OUTER JOIN
                   rt_shaving_out ON LEFT(rt_wetblue_name.code, 7) = LEFT(rt_shaving_out.code, 7) RIGHT OUTER JOIN
                       (SELECT  NO, AREA, MONTH, HEADER, HEADER2, DATE, CARD, CARD1, CUST, COLOR, W1, P1, A1, W2, P2, A2, W3, P3, 
                                           A3, W4, P4, A4, source, TOTAL, class, type, DATE1, WEIGHT, P, COMa, COMb, COMc, dd, ee, ff, gg, hh, Dep
                        FROM       RT_RETAN_RECORD_D
                        WHERE    (DATE BETWEEN '2024/6/1' AND '2024/6/30') AND (COMa NOT LIKE N'%叠皮%') AND (WEIGHT IS NOT NULL)  and card=N'" & dt_retan.Rows(x).Item("卡号") & "'And date=N'" & dt_retan.Rows(x).Item("日期") & "') AS p 
                    ON rt_shaving_out.card1 = p.CARD
GROUP BY p.type, p.CARD, p.CARD1, rt_shaving_out.price, rt_shaving_out.weight, rt_shaving_out.code, rt_shaving_out.name, 
                   rt_shaving_out.card1, rt_shaving_out.card, p.CUST, p.COLOR, p.source, rt_wetblue_name.code, rt_wetblue_name.name, 
                   p.DATE, p.dd
ORDER BY p.CARD"


            dt2 = New DataTable
            cmd.CommandText = sql
            da.SelectCommand = cmd
            da.Fill(dt2)





            Dim serial As Integer = 1

            For y = 0 To dt2.Rows.Count - 1

                xlSheet2.Cells(yy + 1 + y, 2) = "'" & serial  '行号
                xlSheet2.Cells(yy + 1 + y, 3) = "'" & my_no & aa


                xlSheet2.Cells(yy + 1 + y, 5) = "112." & dt2.Rows(y).Item("皮源代码")
                xlSheet2.Cells(yy + 1 + y, 6) = dt2.Rows(y).Item("皮源1")

                xlSheet2.Cells(yy + 1 + y, 45) = dt2.Rows(y).Item("选级")

                xlSheet2.Cells(yy + 1 + y, 14) = dt2.Rows(y).Item("投鼓重")
                xlSheet2.Cells(yy + 1 + y, 15) = dt2.Rows(y).Item("price")
                xlSheet2.Cells(yy + 1 + y, 16) = dt2.Rows(y).Item("投鼓重") * dt2.Rows(y).Item("price")
                xlSheet2.Cells(yy + 1 + y, 17) = dt2.Rows(y).Item("card2")
                xlSheet2.Cells(yy + 1 + y, 17) = dt2.Rows(y).Item("type")

                xlSheet2.Cells(yy + 1 + y, 25) = "'213A-R"
                xlSheet2.Cells(yy + 1 + y, 26) = "染色仓/赤湖"

                xlSheet2.Cells(yy + 1 + y, 38) = dt2.Rows(y).Item("类别")
                xlSheet2.Cells(yy + 1 + y, 39) = "'" & dt2.Rows(y).Item("cust")
                xlSheet2.Cells(yy + 1 + y, 40) = dt2.Rows(y).Item("dd")

                xlSheet2.Cells(yy + 1 + y, 41) = dt2.Rows(y).Item("source")
                xlSheet2.Cells(yy + 1 + y, 42) = dt2.Rows(y).Item("color")
                xlSheet2.Cells(yy + 1 + y, 43) = dt2.Rows(y).Item("厚度")
                xlSheet2.Cells(yy + 1 + y, 44) = dt2.Rows(y).Item("card")





                serial = serial + 1

            Next

            yy = yy + dt2.Rows.Count


            aa = aa + 1
            my_x = my_x + 1
            my_card = dt_retan.Rows(x).Item("卡号")
            my_date = dt_retan.Rows(x).Item("日期")


        Next

        xlSheet2.Range("A2:A" & x + 1).FillDown()
        'xlSheet2.Range("B2:B" & x + 1).FillDown()
        xlSheet2.Range("D2:D" & x + 1).FillDown()
        xlSheet2.Range("J2:J" & x + 1).FillDown()
        xlSheet2.Range("L2:L" & x + 1).FillDown()
        xlSheet2.Range("M2:M" & x + 1).FillDown()
        'xlSheet2.Range("O2:O" & x + 1).FillDown()
        'xlSheet2.Range("P2:P" & x + 1).FillDown()





        MsgBox("")

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim aa As String
        Dim my_card As String = ""
        Dim my_date As Date

        aa = TextBox8.Text

        If aa = "" Then
            MsgBox("请输入起始单号")
            Exit Sub
        End If



        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 xlSheet2 As Microsoft.Office.Interop.Excel.Worksheet




        Dim file_name As String = ""
        Dim file_name1 As String = ""
        Dim my_weight As Double = 0
        Dim a As Integer = 0
        Dim my_count As Integer = 0
        Dim my_x As Integer = 0



        xlApp = CreateObject("Excel.Application")
        xlApp.Visible = True
        xlApp.DisplayAlerts = False


        xlBook = xlApp.Workbooks.Open("D:\K3\k3表格模板\下鼓染色入库.xls",, True)

        xlBook.Activate()

        Dim dt2 As New DataTable


        For i = 1 To xlApp.Worksheets.Count

            If xlApp.Workbooks(1).Worksheets(i).name = "Page1" Then
                xlSheet = xlApp.Workbooks(1).Worksheets(i)
                xlSheet.Activate()
                Exit For
            End If


        Next


        Dim my_no As String = "CPRK"
        Dim yy As Integer = 1
        Dim x As Integer = 0


        sql = "SELECT  CARD as 卡号, card2 as 卡号1, 类别, type , AVG(下鼓重) AS 下鼓重, cast(AVG(price) as numeric(10,2)) AS 单价, code, 选级, card_shaving, CUST as 客户, COLOR as 颜色, source as 皮源, 
                   DATE as 日期, 厚度, dd as 技术员, 皮源1, 皮源代码, AVG(挑级仓出库重) AS 出库重, SUM(chem) AS 化工成本, cast(SUM(chem) 
                   / AVG(投鼓重) / 6 as numeric(10,2)) AS 每尺化工
FROM      (SELECT  TOP (100) PERCENT p.CARD, CASE WHEN substring(p.CARD, 3, 1) = 'F' THEN substring(p.CARD, 4, 10) 
                                      + 'F' ELSE substring(p.CARD, 4, 10) + 'P' END AS card2, CASE WHEN substring(p.card, 3, 1) 
                                      = 'P' THEN N'贴膜' WHEN substring(p.card, 3, 1) = 'F' THEN '反毛' ELSE '其他' END AS 类别, p.type, 
                                      AVG(p.WEIGHT) / 2 AS 下鼓重, COUNT(*) AS Expr2, CASE WHEN rt_shaving_out.price IS NULL 
                                      THEN 30 ELSE rt_shaving_out.price END AS price, CASE WHEN rt_shaving_out.weight IS NULL 
                                      THEN AVG(p.WEIGHT) / 2 ELSE rt_shaving_out.weight END AS weight, CASE WHEN rt_shaving_out.code IS NULL 
                                      THEN '212F.XX.2.1' ELSE rt_shaving_out.code END AS code, CASE WHEN rt_shaving_out.name IS NULL 
                                      THEN N'D级' ELSE rt_shaving_out.name END AS 选级, rt_shaving_out.card1, 
                                      rt_shaving_out.card AS card_shaving, p.CUST, p.COLOR, p.source, CASE WHEN rt_wetblue_name.code IS NULL 
                                      THEN '212F.XX' ELSE rt_wetblue_name.code END AS 编码, CASE WHEN rt_wetblue_name.name IS NULL 
                                      THEN N'杂皮 二层' ELSE rt_wetblue_name.name END AS 皮源, p.DATE, 
                                      CASE WHEN substring(rt_shaving_out.code, 13, 1) = '1' THEN '1.02' WHEN substring(rt_shaving_out.code, 13, 1) 
                                      = '2' THEN '1.24' WHEN substring(rt_shaving_out.code, 13, 1) 
                                      = '3' THEN '1.46' WHEN substring(rt_shaving_out.code, 13, 1) 
                                      = '4' THEN '1.68' WHEN substring(rt_shaving_out.code, 13, 1) IS NULL THEN '1.24' END AS 厚度, p.dd, 
                                      CASE WHEN rt_shaving_out.card1 IS NULL AND 
                                      p.type = N'套染' THEN N'套染' WHEN rt_shaving_out.price IS NULL AND 
                                      p.type = N'打底' THEN N'回鼓' ELSE N'打底' END AS 备注, 
                                      CASE WHEN p.source LIKE N'%无铬鞣%' THEN N'无铬鞣 二层' WHEN p.source LIKE N'%阿根廷%' THEN N'阿根廷 二层'
                                       WHEN p.source LIKE N'%澳%' THEN N'澳大利亚 二层' WHEN (p.source LIKE N'%巴西%' OR
                                      p.source LIKE N'%bx%') 
                                      THEN N'巴西 二层' WHEN p.source LIKE N'%智利%' THEN N'智利 二层' WHEN p.source LIKE N'%德国%' THEN N'德国 二层'
                                       WHEN p.source LIKE N'%西班牙%' THEN N'西班牙 二层' WHEN p.source LIKE N'%欧洲%' THEN N'欧洲 二层' WHEN
                                       p.source LIKE N'%法国%' THEN N'法国 二层' WHEN p.source LIKE N'%爱尔兰%' THEN N'爱尔兰 二层' WHEN p.source
                                       LIKE N'%APP%' THEN N'美国 二层' WHEN p.source LIKE N'%日本%' THEN N'日本 二层' WHEN p.source LIKE N'%美国%'
                                       THEN N'美国 二层' WHEN p.source LIKE N'%新西兰%' THEN N'新西兰 二层' WHEN p.source LIKE N'%小皮%' THEN
                                       N'小皮 二层' WHEN p.source LIKE N'%英国%' THEN N'英国 二层' WHEN p.source LIKE N'%墨西哥%' THEN N'墨西哥 二层'
                                       WHEN p.source LIKE N'%乌拉圭%' THEN N'乌拉圭 二层' WHEN p.source LIKE N'%南非%' THEN N'南非 二层' WHEN
                                       p.source LIKE N'%孟加拉%' THEN N'孟加拉 二层' WHEN p.source LIKE N'%泰国%' THEN N'泰国 二层' ELSE N'杂皮 二层'
                                       END AS 皮源1, 
                                      CASE WHEN p.source LIKE N'%无铬鞣%' THEN N'CT' WHEN p.source LIKE N'%阿根廷%' THEN N'AR' WHEN p.source
                                       LIKE N'%澳%' THEN N'AU' WHEN (p.source LIKE N'%巴西%' OR
                                      p.source LIKE N'%bx%') 
                                      THEN N'BR' WHEN p.source LIKE N'%智利%' THEN N'CL' WHEN p.source LIKE N'%德国%' THEN N'DE' WHEN p.source
                                       LIKE N'%西班牙%' THEN N'ES' WHEN p.source LIKE N'%欧洲%' THEN N'EU' WHEN p.source LIKE N'%法国%' THEN
                                       N'FR' WHEN p.source LIKE N'%爱尔兰%' THEN N'IE' WHEN p.source LIKE N'%日本%' THEN N'JP' WHEN p.source LIKE
                                       N'%APP%' THEN N'US' WHEN p.source LIKE N'%美国%' THEN N'US' WHEN p.source LIKE N'%新西兰%' THEN N'NZ'
                                       WHEN p.source LIKE N'%小皮%' THEN N'SS' WHEN p.source LIKE N'%英国%' THEN N'UK' WHEN p.source LIKE N'%墨西哥%'
                                       THEN N'MX' WHEN p.source LIKE N'%乌拉圭%' THEN N'UY' WHEN p.source LIKE N'%南非%' THEN N'ZA' WHEN p.source
                                       LIKE N'%孟加拉%' THEN N'BD' WHEN p.source LIKE N'%泰国%' THEN N'TH' ELSE N'XX' END AS 皮源代码, 
                                      rt_shaving_out.weight AS 挑级仓出库重, CASE WHEN rt_shaving_out.weight IS NULL THEN AVG(p.weight) 
                                      / 2 ELSE rt_shaving_out.weight END AS 投鼓重, RT_SYS_CHEM_OUT.CODE AS Expr1, 
                                      RT_SYS_CHEM_OUT.NAME, rt_chem_price_li.price1 AS chemprice, 
                                      RT_SYS_CHEM_OUT.WEIGHT AS chemweight, CASE WHEN rt_chem_price_li.price1 IS NULL 
                                      THEN 0 ELSE rt_chem_price_li.price1 * rt_sys_chem_out.weight END AS chem
                   FROM       RT_SYS_CHEM_OUT INNER JOIN
                                      rt_chem_price_li ON RT_SYS_CHEM_OUT.CODE = rt_chem_price_li.code RIGHT OUTER JOIN
                                          (SELECT  NO, AREA, MONTH, HEADER, HEADER2, DATE, CARD, CARD1, CUST, COLOR, W1, P1, A1, W2, P2, A2, 
                                                              W3, P3, A3, W4, P4, A4, source, TOTAL, class, type, DATE1, WEIGHT, P, COMa, COMb, COMc, dd, ee, ff, 
                                                              gg, hh, Dep
                                           FROM       RT_RETAN_RECORD_D
                                           WHERE    (DATE BETWEEN '2024/7/1' AND '2024/7/31') AND (COMa NOT LIKE N'%叠皮%') AND 
                                                              (WEIGHT IS NOT NULL)) AS p ON RT_SYS_CHEM_OUT.CARD = p.CARD LEFT OUTER JOIN
                                      rt_wetblue_name RIGHT OUTER JOIN
                                      rt_shaving_out ON LEFT(rt_wetblue_name.code, 7) = LEFT(rt_shaving_out.code, 7) ON 
                                      p.CARD = rt_shaving_out.card1
                   GROUP BY p.type, p.CARD, p.CARD1, rt_shaving_out.price, rt_shaving_out.weight, rt_shaving_out.code, 
                                      rt_shaving_out.name, rt_shaving_out.card1, rt_shaving_out.card, p.CUST, p.COLOR, p.source, 
                                      rt_wetblue_name.code, rt_wetblue_name.name, p.DATE, p.dd, RT_SYS_CHEM_OUT.CODE, 
                                      RT_SYS_CHEM_OUT.NAME, rt_chem_price_li.price1, RT_SYS_CHEM_OUT.WEIGHT
                   ORDER BY p.CARD) AS s
GROUP BY CARD, card2, 类别, type, 下鼓重, code, 选级, card1, card_shaving, CUST, COLOR, source, 编码, 皮源, DATE, 厚度, dd, 
                   备注, 皮源1, 皮源代码"   ''----下鼓


        Dim dt_out As DataTable

        cmd.CommandText = sql

        dt_out = New DataTable
        da.SelectCommand = cmd
        da.Fill(dt_out)




        For x = 0 To dt_out.Rows.Count - 1         '-----------loop



            If (my_card = dt_out.Rows(x).Item("卡号") And my_date = dt_out.Rows(x).Item("日期")) Then GoTo OK : 

            xlSheet.Cells(my_x + 2, 1) = dt_out.Rows(x).Item("日期")
            xlSheet.Cells(my_x + 2, 2) = dt_out.Rows(x).Item("日期")
            xlSheet.Cells(my_x + 2, 3) = "'郑笔成"
            xlSheet.Cells(my_x + 2, 4) = "'" & my_no & aa
            xlSheet.Cells(my_x + 2, 5) = "'zhang"
            xlSheet.Cells(my_x + 2, 6) = "'1"
            xlSheet.Cells(my_x + 2, 7) = "'2"
            xlSheet.Cells(my_x + 2, 8) = "'165701"

            If dt_out.Rows(x).Item("type") = "打底" And Not (IsDBNull(dt_out.Rows(x).Item("card_shaving"))) Then

                xlSheet.Cells(my_x + 2, 9) = "'607-R"
                xlSheet.Cells(my_x + 2, 10) = "'挑选等级-R"


            Else
                xlSheet.Cells(my_x + 2, 9) = "'621-R"
                xlSheet.Cells(my_x + 2, 10) = "'染色-R"



            End If


            xlSheet.Cells(my_x + 2, 11) = "'103"
            xlSheet.Cells(my_x + 2, 12) = "'曾添梅"
            xlSheet.Cells(my_x + 2, 13) = "'103"
            xlSheet.Cells(my_x + 2, 14) = "'曾添梅"
            xlSheet.Cells(my_x + 2, 15) = "'85"




            For i = 1 To xlApp.Worksheets.Count

                If xlApp.Workbooks(1).Worksheets(i).name = "Page2" Then
                    xlSheet2 = xlApp.Workbooks(1).Worksheets(i)
                    xlSheet2.Activate()
                    Exit For
                End If

            Next





            sql = "SELECT  CARD, card2, 类别, type, AVG(下鼓重) AS 下鼓重, AVG(price) AS price, code, 选级, card_shaving, CUST, COLOR, source, 
                   DATE, 厚度, dd, 皮源1, 皮源代码, case when AVG(出库重) is null then AVG(下鼓重) else AVG(出库重) end  AS 出库重, SUM(chem) AS 化工成本, SUM(chem) 
                   / AVG(投鼓重) / 6 AS 每尺化工
FROM      (SELECT  TOP (100) PERCENT p.CARD, CASE WHEN substring(p.CARD, 3, 1) = 'F' THEN substring(p.CARD, 4, 10) 
                                      + 'F' ELSE substring(p.CARD, 4, 10) + 'P' END AS card2, CASE WHEN substring(p.card, 3, 1) 
                                      = 'P' THEN N'贴膜' WHEN substring(p.card, 3, 1) = 'F' THEN '反毛' ELSE '其他' END AS 类别, p.type, 
                                      AVG(p.WEIGHT) / 2 AS 下鼓重, COUNT(*) AS Expr2, CASE WHEN rt_shaving_out.price IS NULL 
                                      THEN 30 ELSE rt_shaving_out.price END AS price, CASE WHEN rt_shaving_out.weight IS NULL 
                                      THEN AVG(p.WEIGHT) / 2 ELSE rt_shaving_out.weight END AS weight, CASE WHEN rt_shaving_out.code IS NULL 
                                      THEN '212F.XX.2.1' ELSE rt_shaving_out.code END AS code, CASE WHEN rt_shaving_out.name IS NULL 
                                      THEN N'D级' ELSE rt_shaving_out.name END AS 选级, rt_shaving_out.card1, 
                                      rt_shaving_out.card AS card_shaving, p.CUST, p.COLOR, p.source, CASE WHEN rt_wetblue_name.code IS NULL 
                                      THEN '212F.XX' ELSE rt_wetblue_name.code END AS 编码, CASE WHEN rt_wetblue_name.name IS NULL 
                                      THEN N'杂皮 二层' ELSE rt_wetblue_name.name END AS 皮源, p.DATE, 
                                      CASE WHEN substring(rt_shaving_out.code, 13, 1) = '1' THEN '1.02' WHEN substring(rt_shaving_out.code, 13, 1) 
                                      = '2' THEN '1.24' WHEN substring(rt_shaving_out.code, 13, 1) 
                                      = '3' THEN '1.46' WHEN substring(rt_shaving_out.code, 13, 1) 
                                      = '4' THEN '1.68' WHEN substring(rt_shaving_out.code, 13, 1) IS NULL THEN '1.24' END AS 厚度, p.dd, 
                                      CASE WHEN rt_shaving_out.card1 IS NULL AND 
                                      p.type = N'套染' THEN N'套染' WHEN rt_shaving_out.price IS NULL AND 
                                      p.type = N'打底' THEN N'回鼓' ELSE N'打底' END AS 备注, 
                                      CASE WHEN p.source LIKE N'%无铬鞣%' THEN N'无铬鞣 二层' WHEN p.source LIKE N'%阿根廷%' THEN N'阿根廷 二层'
                                       WHEN p.source LIKE N'%澳%' THEN N'澳大利亚 二层' WHEN (p.source LIKE N'%巴西%' OR
                                      p.source LIKE N'%bx%') 
                                      THEN N'巴西 二层' WHEN p.source LIKE N'%智利%' THEN N'智利 二层' WHEN p.source LIKE N'%德国%' THEN N'德国 二层'
                                       WHEN p.source LIKE N'%西班牙%' THEN N'西班牙 二层' WHEN p.source LIKE N'%欧洲%' THEN N'欧洲 二层' WHEN
                                       p.source LIKE N'%法国%' THEN N'法国 二层' WHEN p.source LIKE N'%爱尔兰%' THEN N'爱尔兰 二层' WHEN p.source
                                       LIKE N'%APP%' THEN N'美国 二层' WHEN p.source LIKE N'%日本%' THEN N'日本 二层' WHEN p.source LIKE N'%美国%'
                                       THEN N'美国 二层' WHEN p.source LIKE N'%新西兰%' THEN N'新西兰 二层' WHEN p.source LIKE N'%小皮%' THEN
                                       N'小皮 二层' WHEN p.source LIKE N'%英国%' THEN N'英国 二层' WHEN p.source LIKE N'%墨西哥%' THEN N'墨西哥 二层'
                                       WHEN p.source LIKE N'%乌拉圭%' THEN N'乌拉圭 二层' WHEN p.source LIKE N'%南非%' THEN N'南非 二层' WHEN
                                       p.source LIKE N'%孟加拉%' THEN N'孟加拉 二层' WHEN p.source LIKE N'%泰国%' THEN N'泰国 二层' ELSE N'杂皮 二层'
                                       END AS 皮源1, 
                                      CASE WHEN p.source LIKE N'%无铬鞣%' THEN N'CT' WHEN p.source LIKE N'%阿根廷%' THEN N'AR' WHEN p.source
                                       LIKE N'%澳%' THEN N'AU' WHEN (p.source LIKE N'%巴西%' OR
                                      p.source LIKE N'%bx%') 
                                      THEN N'BR' WHEN p.source LIKE N'%智利%' THEN N'CL' WHEN p.source LIKE N'%德国%' THEN N'DE' WHEN p.source
                                       LIKE N'%西班牙%' THEN N'ES' WHEN p.source LIKE N'%欧洲%' THEN N'EU' WHEN p.source LIKE N'%法国%' THEN
                                       N'FR' WHEN p.source LIKE N'%爱尔兰%' THEN N'IE' WHEN p.source LIKE N'%日本%' THEN N'JP' WHEN p.source LIKE
                                       N'%APP%' THEN N'US' WHEN p.source LIKE N'%美国%' THEN N'US' WHEN p.source LIKE N'%新西兰%' THEN N'NZ'
                                       WHEN p.source LIKE N'%小皮%' THEN N'SS' WHEN p.source LIKE N'%英国%' THEN N'UK' WHEN p.source LIKE N'%墨西哥%'
                                       THEN N'MX' WHEN p.source LIKE N'%乌拉圭%' THEN N'UY' WHEN p.source LIKE N'%南非%' THEN N'ZA' WHEN p.source
                                       LIKE N'%孟加拉%' THEN N'BD' WHEN p.source LIKE N'%泰国%' THEN N'TH' ELSE N'XX' END AS 皮源代码, 
                                      rt_shaving_out.weight AS 出库重, CASE WHEN rt_shaving_out.weight IS NULL THEN AVG(p.weight) 
                                      / 2 ELSE rt_shaving_out.weight END AS 投鼓重, RT_SYS_CHEM_OUT.CODE AS Expr1, 
                                      RT_SYS_CHEM_OUT.NAME, rt_chem_price_li.price1 AS chemprice, 
                                      RT_SYS_CHEM_OUT.WEIGHT AS chemweight, CASE WHEN rt_chem_price_li.price1 IS NULL 
                                      THEN 0 ELSE rt_chem_price_li.price1 * rt_sys_chem_out.weight END AS chem
                   FROM       RT_SYS_CHEM_OUT INNER JOIN
                                      rt_chem_price_li ON RT_SYS_CHEM_OUT.CODE = rt_chem_price_li.code RIGHT OUTER JOIN
                                          (SELECT  NO, AREA, MONTH, HEADER, HEADER2, DATE, CARD, CARD1, CUST, COLOR, W1, P1, A1, W2, P2, A2, 
                                                              W3, P3, A3, W4, P4, A4, source, TOTAL, class, type, DATE1, WEIGHT, P, COMa, COMb, COMc, dd, ee, ff, 
                                                              gg, hh, Dep
                                           FROM       RT_RETAN_RECORD_D
                                           WHERE    (DATE BETWEEN '2024/6/1' AND '2024/6/30') AND (COMa NOT LIKE N'%叠皮%') AND 
                                                              (WEIGHT IS NOT NULL)  and card=N'" & dt_out.Rows(x).Item("卡号") & "'And date=N'" & dt_out.Rows(x).Item("日期") & "') AS p ON RT_SYS_CHEM_OUT.CARD = p.CARD LEFT OUTER JOIN
                                      rt_wetblue_name RIGHT OUTER JOIN
                                      rt_shaving_out ON LEFT(rt_wetblue_name.code, 7) = LEFT(rt_shaving_out.code, 7) ON 
                                      p.CARD = rt_shaving_out.card1
                   GROUP BY p.type, p.CARD, p.CARD1, rt_shaving_out.price, rt_shaving_out.weight, rt_shaving_out.code, 
                                      rt_shaving_out.name, rt_shaving_out.card1, rt_shaving_out.card, p.CUST, p.COLOR, p.source, 
                                      rt_wetblue_name.code, rt_wetblue_name.name, p.DATE, p.dd, RT_SYS_CHEM_OUT.CODE, 
                                      RT_SYS_CHEM_OUT.NAME, rt_chem_price_li.price1, RT_SYS_CHEM_OUT.WEIGHT
                   ORDER BY p.CARD) AS s
GROUP BY CARD, card2, 类别, type, 下鼓重, code, 选级, card1, card_shaving, CUST, COLOR, source, 编码, 皮源, DATE, 厚度, dd, 
                   备注, 皮源1, 皮源代码
"


            dt2 = New DataTable
            cmd.CommandText = sql
            da.SelectCommand = cmd
            da.Fill(dt2)





            Dim serial As Integer = 1

            For y = 0 To dt2.Rows.Count - 1

                xlSheet2.Cells(yy + 1 + y, 2) = "'" & serial  '行号
                xlSheet2.Cells(yy + 1 + y, 3) = "'" & my_no & aa


                'xlSheet2.Cells(yy + 1 + y, 5) = "112." & dt2.Rows(y).Item("皮源代码")
                'xlSheet2.Cells(yy + 1 + y, 6) = dt2.Rows(y).Item("皮源1")


                xlSheet2.Cells(yy + 1 + y, 5) = "112.FM"
                xlSheet2.Cells(yy + 1 + y, 6) = "二层皮"



                xlSheet2.Cells(yy + 1 + y, 14) = dt2.Rows(y).Item("出库重")
                xlSheet2.Cells(yy + 1 + y, 15) = dt2.Rows(y).Item("price")
                xlSheet2.Cells(yy + 1 + y, 16) = dt2.Rows(y).Item("出库重") * dt2.Rows(y).Item("price")
                xlSheet2.Cells(yy + 1 + y, 17) = "112 " & dt2.Rows(y).Item("皮源1")   '批号
                xlSheet2.Cells(yy + 1 + y, 18) = dt2.Rows(y).Item("type")    '备注


                If dt_out.Rows(x).Item("type") = "打底" And IsDBNull(dt_out.Rows(x).Item("card_shaving")) And dt_out.Rows(x).Item("类别") <> "其他" Then

                    xlSheet2.Cells(yy + 1 + y, 25) = "'213A-R.04"
                    xlSheet2.Cells(yy + 1 + y, 26) = "染色仓/皮胚改色"

                ElseIf dt_out.Rows(x).Item("type") = "打底" And Not (IsDBNull(dt_out.Rows(x).Item("card_shaving"))) Then

                    xlSheet2.Cells(yy + 1 + y, 25) = "'213A-R.01"
                    xlSheet2.Cells(yy + 1 + y, 26) = "染色仓/蓝皮下鼓"

                ElseIf dt_out.Rows(x).Item("type") = "套染" Then

                    xlSheet2.Cells(yy + 1 + y, 25) = "'213A-R.02"
                    xlSheet2.Cells(yy + 1 + y, 26) = "染色仓/皮胚套染"


                ElseIf dt_out.Rows(x).Item("type") = "回鼓" Or dt_out.Rows(x).Item("type") = "套色" Then

                    xlSheet2.Cells(yy + 1 + y, 25) = "'213A-R.03"
                    xlSheet2.Cells(yy + 1 + y, 26) = "染色仓/皮胚回鼓"

                ElseIf dt_out.Rows(x).Item("类别") = "其他" Then

                    xlSheet2.Cells(yy + 1 + y, 25) = "'213A-R.08"
                    xlSheet2.Cells(yy + 1 + y, 26) = "染色仓/合鼓中和"


                End If




                xlSheet2.Cells(yy + 1 + y, 38) = dt2.Rows(y).Item("类别")
                xlSheet2.Cells(yy + 1 + y, 39) = "'" & dt2.Rows(y).Item("cust")
                xlSheet2.Cells(yy + 1 + y, 40) = dt2.Rows(y).Item("dd")
                xlSheet2.Cells(yy + 1 + y, 41) = dt2.Rows(y).Item("source")
                xlSheet2.Cells(yy + 1 + y, 42) = dt2.Rows(y).Item("color")
                xlSheet2.Cells(yy + 1 + y, 43) = dt2.Rows(y).Item("厚度")
                xlSheet2.Cells(yy + 1 + y, 44) = dt2.Rows(y).Item("card")
                xlSheet2.Cells(yy + 1 + y, 45) = dt2.Rows(y).Item("选级")
                xlSheet2.Cells(yy + 1 + y, 46) = dt2.Rows(y).Item("化工成本")

                xlSheet2.Cells(yy + 1 + y, 47) = dt2.Rows(y).Item("card_shaving")





                serial = serial + 1

            Next

            yy = yy + dt2.Rows.Count


            aa = aa + 1
            my_x = my_x + 1
            my_card = dt_out.Rows(x).Item("卡号")
            my_date = dt_out.Rows(x).Item("日期")

OK:
        Next

        xlSheet2.Range("A2:A" & x + 1).FillDown()
        'xlSheet2.Range("B2:B" & x + 1).FillDown()
        xlSheet2.Range("D2:D" & x + 1).FillDown()
        xlSheet2.Range("J2:J" & x + 1).FillDown()
        xlSheet2.Range("L2:L" & x + 1).FillDown()
        xlSheet2.Range("M2:M" & x + 1).FillDown()
        'xlSheet2.Range("O2:O" & x + 1).FillDown()
        'xlSheet2.Range("P2:P" & x + 1).FillDown()





        MsgBox("")
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click


        Dim dt As New DataTable
        Dim file_name As String = ""

        Dim a As Integer = 0
        Dim my_count As Integer = 0
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

            file_name = OpenFileDialog1.FileName

        End If






        Dim filepath As String = "k3/在制品"

        Dim sourceFileName As String = file_name


        Dim address2 As String = "ftp://" & my_ip & ":7788/" & filepath & "/" & OpenFileDialog1.SafeFileName

        Dim address3() As String

        address3 = Split(address2, "ftp://" & my_ip & ":7788/")
        Dim add4 As String

        add4 = "d:\k3\在制品\" & OpenFileDialog1.SafeFileName


        Dim userName As String = "matchy3c"
        Dim password As String = "Lafayette11"
        Dim showUI As Boolean = True
        Dim connectionTimeout As Integer = 500


        Dim client As WebClient = New WebClient
        client.Credentials = New NetworkCredential(userName, password)
        client.Proxy = GlobalProxySelection.GetEmptyWebProxy()
        client.UploadFile(address2, sourceFileName)

























        sql = "delete from rt_finish_stock"  '-------
        cmd.CommandText = sql
        cmd.ExecuteNonQuery()

        sql = "Select * FROM OPENDATASOURCE ('Microsoft.ACE.OLEDB.12.0','Excel 12.0;HDR=Yes;IMEX=1;Database=" & add4 & "')...[即时库存$]"

        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(dt)
        dgv1.DataSource = dt


        dt.Columns.Add("filename")

        For x As Integer = 0 To dt.Rows.Count - 1
            dt.Rows(x).Item("filename") = file_name
        Next


        Dim my_sqlbulk As New SqlBulkCopy(conn)

        my_sqlbulk.DestinationTableName = "dbo.rt_finish_stock"
        my_sqlbulk.WriteToServer(dt)

        MsgBox("导入完成!")






    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click

        Dim aa As String
        Dim my_card As String = ""
        Dim my_date As Date

        aa = TextBox8.Text

        If aa = "" Then
            MsgBox("请输入起始单号")
            Exit Sub
        End If



        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 xlSheet2 As Microsoft.Office.Interop.Excel.Worksheet




        Dim file_name As String = ""
        Dim file_name1 As String = ""
        Dim my_weight As Double = 0
        Dim a As Integer = 0
        Dim my_count As Integer = 0
        Dim my_x As Integer = 0



        xlApp = CreateObject("Excel.Application")
        xlApp.Visible = True
        xlApp.DisplayAlerts = False


        xlBook = xlApp.Workbooks.Open("D:\K3\k3表格模板\下鼓染色入库.xls",, True)

        xlBook.Activate()

        Dim dt2 As New DataTable


        For i = 1 To xlApp.Worksheets.Count

            If xlApp.Workbooks(1).Worksheets(i).name = "Page1" Then
                xlSheet = xlApp.Workbooks(1).Worksheets(i)
                xlSheet.Activate()
                Exit For
            End If


        Next


        Dim my_no As String = "CPRK"
        Dim yy As Integer = 1
        Dim x As Integer = 0


        sql = "SELECT  rt_clean_thismonth_temp.card, rt_clean_thismonth_temp.weight, rt_retan_temp.类别, rt_retan_temp.type, 
                   rt_retan_temp.下鼓重, rt_retan_temp.皮源1, rt_retan_temp.皮源代码
FROM      rt_clean_thismonth_temp LEFT OUTER JOIN
                   rt_retan_temp ON rt_clean_thismonth_temp.card = rt_retan_temp.CARD"   ''----扫灰


        Dim dt_out As DataTable

        cmd.CommandText = sql

        dt_out = New DataTable
        da.SelectCommand = cmd
        da.Fill(dt_out)




        For x = 0 To dt_out.Rows.Count - 1         '-----------loop



            If (my_card = dt_out.Rows(x).Item("卡号") And my_date = dt_out.Rows(x).Item("日期")) Then GoTo OK : 

            xlSheet.Cells(my_x + 2, 1) = dt_out.Rows(x).Item("日期")
            xlSheet.Cells(my_x + 2, 2) = dt_out.Rows(x).Item("日期")
            xlSheet.Cells(my_x + 2, 3) = "'郑笔成"
            xlSheet.Cells(my_x + 2, 4) = "'" & my_no & aa
            xlSheet.Cells(my_x + 2, 5) = "'zhang"
            xlSheet.Cells(my_x + 2, 6) = "'1"
            xlSheet.Cells(my_x + 2, 7) = "'2"
            xlSheet.Cells(my_x + 2, 8) = "'165701"

            If dt_out.Rows(x).Item("type") = "打底" And IsDBNull(dt_out.Rows(x).Item("card_shaving")) Then

                xlSheet.Cells(my_x + 2, 9) = "'607-R"
                xlSheet.Cells(my_x + 2, 10) = "'挑选等级-R"
            ElseIf dt_out.Rows(x).Item("type") = "打底" And Not (IsDBNull(dt_out.Rows(x).Item("card_shaving"))) Then


            ElseIf dt_out.Rows(x).Item("type") = "套染" Then

                xlSheet.Cells(my_x + 2, 9) = "'607-R"
                xlSheet.Cells(my_x + 2, 10) = "'挑选等级-R"
            Else
                xlSheet.Cells(my_x + 2, 9) = "'607-R"
                xlSheet.Cells(my_x + 2, 10) = "'挑选等级-R"

            End If


            xlSheet.Cells(my_x + 2, 11) = "'103"
            xlSheet.Cells(my_x + 2, 12) = "'曾添梅"
            xlSheet.Cells(my_x + 2, 13) = "'103"
            xlSheet.Cells(my_x + 2, 14) = "'曾添梅"
            xlSheet.Cells(my_x + 2, 15) = "'85"




            For i = 1 To xlApp.Worksheets.Count

                If xlApp.Workbooks(1).Worksheets(i).name = "Page2" Then
                    xlSheet2 = xlApp.Workbooks(1).Worksheets(i)
                    xlSheet2.Activate()
                    Exit For
                End If

            Next





            sql = ""


            dt2 = New DataTable
            cmd.CommandText = sql
            da.SelectCommand = cmd
            da.Fill(dt2)





            Dim serial As Integer = 1

            For y = 0 To dt2.Rows.Count - 1

                xlSheet2.Cells(yy + 1 + y, 2) = "'" & serial  '行号
                xlSheet2.Cells(yy + 1 + y, 3) = "'" & my_no & aa


                xlSheet2.Cells(yy + 1 + y, 5) = "112." & dt2.Rows(y).Item("皮源代码")
                xlSheet2.Cells(yy + 1 + y, 6) = dt2.Rows(y).Item("皮源1")



                xlSheet2.Cells(yy + 1 + y, 14) = dt2.Rows(y).Item("出库重")
                xlSheet2.Cells(yy + 1 + y, 15) = dt2.Rows(y).Item("price")
                xlSheet2.Cells(yy + 1 + y, 16) = dt2.Rows(y).Item("出库重") * dt2.Rows(y).Item("price")
                xlSheet2.Cells(yy + 1 + y, 17) = dt2.Rows(y).Item("card2")
                xlSheet2.Cells(yy + 1 + y, 18) = dt2.Rows(y).Item("type")


                If dt_out.Rows(x).Item("type") = "打底" And IsDBNull(dt_out.Rows(x).Item("card_shaving")) And dt_out.Rows(x).Item("类别") <> "其他" Then

                    xlSheet2.Cells(yy + 1 + y, 25) = "'213A-R.4"
                    xlSheet2.Cells(yy + 1 + y, 26) = "染色仓/皮胚改色"

                ElseIf dt_out.Rows(x).Item("type") = "打底" And Not (IsDBNull(dt_out.Rows(x).Item("card_shaving"))) Then

                    xlSheet2.Cells(yy + 1 + y, 25) = "'213A-R.1"
                    xlSheet2.Cells(yy + 1 + y, 26) = "染色仓/蓝皮下鼓"

                ElseIf dt_out.Rows(x).Item("type") = "套染" Then

                    xlSheet2.Cells(yy + 1 + y, 25) = "'213A-R.2"
                    xlSheet2.Cells(yy + 1 + y, 26) = "染色仓/皮胚套染"


                ElseIf dt_out.Rows(x).Item("type") = "回鼓" Or dt_out.Rows(x).Item("type") = "套色" Then

                    xlSheet2.Cells(yy + 1 + y, 25) = "'213A-R.3"
                    xlSheet2.Cells(yy + 1 + y, 26) = "染色仓/皮胚回鼓"

                ElseIf dt_out.Rows(x).Item("类别") = "其他" Then

                    xlSheet2.Cells(yy + 1 + y, 25) = "'213A-R.8"
                    xlSheet2.Cells(yy + 1 + y, 26) = "染色仓/合鼓中和"


                End If




                xlSheet2.Cells(yy + 1 + y, 38) = dt2.Rows(y).Item("类别")
                xlSheet2.Cells(yy + 1 + y, 39) = "'" & dt2.Rows(y).Item("cust")
                xlSheet2.Cells(yy + 1 + y, 40) = dt2.Rows(y).Item("dd")
                xlSheet2.Cells(yy + 1 + y, 41) = dt2.Rows(y).Item("source")
                xlSheet2.Cells(yy + 1 + y, 42) = dt2.Rows(y).Item("color")
                xlSheet2.Cells(yy + 1 + y, 43) = dt2.Rows(y).Item("厚度")
                xlSheet2.Cells(yy + 1 + y, 44) = dt2.Rows(y).Item("card")
                xlSheet2.Cells(yy + 1 + y, 45) = dt2.Rows(y).Item("选级")
                xlSheet2.Cells(yy + 1 + y, 46) = dt2.Rows(y).Item("化工成本")

                xlSheet2.Cells(yy + 1 + y, 47) = dt2.Rows(y).Item("card_shaving")





                serial = serial + 1

            Next

            yy = yy + dt2.Rows.Count


            aa = aa + 1
            my_x = my_x + 1
            my_card = dt_out.Rows(x).Item("卡号")
            my_date = dt_out.Rows(x).Item("日期")

OK:
        Next

        xlSheet2.Range("A2:A" & x + 1).FillDown()
        'xlSheet2.Range("B2:B" & x + 1).FillDown()
        xlSheet2.Range("D2:D" & x + 1).FillDown()
        xlSheet2.Range("J2:J" & x + 1).FillDown()
        xlSheet2.Range("L2:L" & x + 1).FillDown()
        xlSheet2.Range("M2:M" & x + 1).FillDown()
        'xlSheet2.Range("O2:O" & x + 1).FillDown()
        'xlSheet2.Range("P2:P" & x + 1).FillDown()





        MsgBox("")


    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click   '0601
        Dim aa As String
        Dim my_card As String = ""
        Dim my_date As Date

        aa = TextBox8.Text

        If aa = "" Then
            MsgBox("请输入起始单号")
            Exit Sub
        End If



        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 xlSheet2 As Microsoft.Office.Interop.Excel.Worksheet




        Dim file_name As String = ""
        Dim file_name1 As String = ""
        Dim my_weight As Double = 0
        Dim a As Integer = 0
        Dim my_count As Integer = 0
        Dim my_x As Integer = 0



        xlApp = CreateObject("Excel.Application")
        xlApp.Visible = True
        xlApp.DisplayAlerts = False


        xlBook = xlApp.Workbooks.Open("D:\K3\k3表格模板\下鼓染色入库.xls",, True)

        xlBook.Activate()

        Dim dt2 As New DataTable


        For i = 1 To xlApp.Worksheets.Count

            If xlApp.Workbooks(1).Worksheets(i).name = "Page1" Then
                xlSheet = xlApp.Workbooks(1).Worksheets(i)
                xlSheet.Activate()
                Exit For
            End If


        Next


        Dim my_no As String = "CPRK"
        Dim yy As Integer = 1
        Dim x As Integer = 0

        Dim dt_in As New DataTable
        sql = "SELECT  date, dep, wh, code, name, code_1, qty, lot, p1, p2, code1, name1, id
FROM      rt_TM_IN_0601 where right(lot,1)<>'P' order by id  "   ''----0601


        Dim dt_out As DataTable

        cmd.CommandText = sql

        dt_in = New DataTable
        da.SelectCommand = cmd
        da.Fill(dt_in)




        For x = 0 To dt_in.Rows.Count - 1         '-----------loop





            xlSheet.Cells(my_x + 2, 1) = "2024/06/01"
            xlSheet.Cells(my_x + 2, 2) = "2024/06/01"
            xlSheet.Cells(my_x + 2, 3) = "'曾添梅"
            xlSheet.Cells(my_x + 2, 4) = "'" & my_no & aa
            xlSheet.Cells(my_x + 2, 5) = "'zhang"
            xlSheet.Cells(my_x + 2, 6) = "'1"
            xlSheet.Cells(my_x + 2, 7) = "'2"
            xlSheet.Cells(my_x + 2, 8) = "'165701"


            xlSheet.Cells(my_x + 2, 9) = "'621-R"
            xlSheet.Cells(my_x + 2, 10) = "'染色-R"






            xlSheet.Cells(my_x + 2, 11) = "'103"
            xlSheet.Cells(my_x + 2, 12) = "'曾添梅"
            xlSheet.Cells(my_x + 2, 13) = "'103"
            xlSheet.Cells(my_x + 2, 14) = "'曾添梅"
            xlSheet.Cells(my_x + 2, 15) = "'85"




            For i = 1 To xlApp.Worksheets.Count

                If xlApp.Workbooks(1).Worksheets(i).name = "Page2" Then
                    xlSheet2 = xlApp.Workbooks(1).Worksheets(i)
                    xlSheet2.Activate()
                    Exit For
                End If

            Next






            sql = "SELECT  r.date, r.dep, r.wh, r.code, r.name, r.code_1, r.qty, r.lot, r.p1, r.p2, r.code1, r.name1, r.id, r.card, RT_RETAN_RECORD.source, 
                   RT_RETAN_RECORD.color, RT_RETAN_RECORD.tech, RT_RETAN_RECORD.cust, RT_RETAN_RECORD.wb_weight, 
                   RT_RETAN_RECORD.date AS Expr1
FROM      (SELECT  date, dep, wh, code, name, code_1, qty, lot, p1, p2, code1, name1, id, 'BR' + RIGHT(lot, 1) + SUBSTRING(lot, 1, 
                                      LEN(lot) - 1) AS card
                   FROM       rt_TM_IN_0601 where id='" & dt_in.Rows(x).Item("id") & "' and right(lot,1)<>'P' ) AS r LEFT OUTER JOIN
                   RT_RETAN_RECORD ON r.card = RT_RETAN_RECORD.card"

            dt2 = New DataTable
            cmd.CommandText = sql
            da.SelectCommand = cmd
            da.Fill(dt2)





            Dim serial As Integer = 1

            For y = 0 To dt2.Rows.Count - 1

                xlSheet2.Cells(yy + 1 + y, 2) = "'" & serial  '行号
                xlSheet2.Cells(yy + 1 + y, 3) = "'" & my_no & aa


                'xlSheet2.Cells(yy + 1 + y, 5) = "112." & dt2.Rows(y).Item("皮源代码")
                'xlSheet2.Cells(yy + 1 + y, 6) = dt2.Rows(y).Item("皮源1")






                xlSheet2.Cells(yy + 1 + y, 14) = dt2.Rows(y).Item("qty")
                ' xlSheet2.Cells(yy + 1 + y, 15) = dt2.Rows(y).Item("price")
                '  xlSheet2.Cells(yy + 1 + y, 16) = dt2.Rows(y).Item("出库重") * dt2.Rows(y).Item("price")

                xlSheet2.Cells(yy + 1 + y, 18) = "'2024/6/1新编码"    '备注



                If dt2.Rows(y).Item("wh") = "涂饰在制品" Then






                    xlSheet2.Cells(yy + 1 + y, 5) = "313.FM" '物料
                    xlSheet2.Cells(yy + 1 + y, 6) = "二层皮"
                    xlSheet2.Cells(yy + 1 + y, 17) = "313 " & dt2.Rows(y).Item("code_1")   '批号
                    xlSheet2.Cells(yy + 1 + y, 25) = "'213F-R" '收货仓库
                    xlSheet2.Cells(yy + 1 + y, 26) = "喷台仓/赤湖"













                Else

                    xlSheet2.Cells(yy + 1 + y, 5) = "517A.FM"
                    xlSheet2.Cells(yy + 1 + y, 6) = "二层皮"
                    xlSheet2.Cells(yy + 1 + y, 17) = "517 " & dt2.Rows(y).Item("code_1")   '批号
                    xlSheet2.Cells(yy + 1 + y, 25) = "'517" '收货仓库
                    xlSheet2.Cells(yy + 1 + y, 26) = "成品仓"

                End If

                'xlSheet2.Cells(yy + 1 + y, 25) = "'213E-R"
                'xlSheet2.Cells(yy + 1 + y, 26) = "磨革、扫灰仓/赤湖"







                '   xlSheet2.Cells(yy + 1 + y, 38) = dt2.Rows(y).Item("类别")
                xlSheet2.Cells(yy + 1 + y, 39) = "'" & dt2.Rows(y).Item("cust")
                xlSheet2.Cells(yy + 1 + y, 40) = dt2.Rows(y).Item("tech")
                xlSheet2.Cells(yy + 1 + y, 41) = dt2.Rows(y).Item("source")
                xlSheet2.Cells(yy + 1 + y, 42) = dt2.Rows(y).Item("color")
                ' xlSheet2.Cells(yy + 1 + y, 43) = dt2.Rows(y).Item("厚度")
                xlSheet2.Cells(yy + 1 + y, 44) = dt2.Rows(y).Item("card")
                xlSheet2.Cells(yy + 1 + y, 45) = dt2.Rows(y).Item("expr1")
                ' xlSheet2.Cells(yy + 1 + y, 46) = dt2.Rows(y).Item("化工成本")

                xlSheet2.Cells(yy + 1 + y, 47) = dt2.Rows(y).Item("wb_weight")





                serial = serial + 1

            Next

            yy = yy + dt2.Rows.Count


            aa = aa + 1
            my_x = my_x + 1
            'my_card = dt_in.Rows(x).Item("卡号")
            'my_date = dt_in.Rows(x).Item("日期")


        Next

        xlSheet2.Range("A2:A" & x + 1).FillDown()
        'xlSheet2.Range("B2:B" & x + 1).FillDown()
        xlSheet2.Range("D2:D" & x + 1).FillDown()
        xlSheet2.Range("J2:J" & x + 1).FillDown()
        xlSheet2.Range("L2:L" & x + 1).FillDown()
        xlSheet2.Range("M2:M" & x + 1).FillDown()
        'xlSheet2.Range("O2:O" & x + 1).FillDown()
        'xlSheet2.Range("P2:P" & x + 1).FillDown()





        MsgBox("")
    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click  '--0630


        Dim aa As String
        Dim my_card As String = ""
        Dim my_date As Date

        aa = TextBox8.Text

        If aa = "" Then
            MsgBox("请输入起始单号")
            Exit Sub
        End If



        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 xlSheet2 As Microsoft.Office.Interop.Excel.Worksheet




        Dim file_name As String = ""
        Dim file_name1 As String = ""
        Dim my_weight As Double = 0
        Dim a As Integer = 0
        Dim my_count As Integer = 0
        Dim my_x As Integer = 0



        xlApp = CreateObject("Excel.Application")
        xlApp.Visible = True
        xlApp.DisplayAlerts = False


        xlBook = xlApp.Workbooks.Open("D:\K3\k3表格模板\下鼓染色入库.xls",, True)

        xlBook.Activate()

        Dim dt2 As New DataTable


        For i = 1 To xlApp.Worksheets.Count

            If xlApp.Workbooks(1).Worksheets(i).name = "Page1" Then
                xlSheet = xlApp.Workbooks(1).Worksheets(i)
                xlSheet.Activate()
                Exit For
            End If


        Next


        Dim my_no As String = "CPRK"
        Dim yy As Integer = 1
        Dim x As Integer = 0

        Dim dt_in As New DataTable
        sql = "SELECT  date, cust, color, card, pattern, sf, comment, type, source, size, lot, wh,id FROM      rt_finish_stock_0630 ORDER BY id  "   ''----0630成品


        Dim dt_out As DataTable

        cmd.CommandText = sql

        dt_in = New DataTable
        da.SelectCommand = cmd
        da.Fill(dt_in)




        For x = 0 To dt_in.Rows.Count - 1         '-----------loop





            xlSheet.Cells(my_x + 2, 1) = "2024/07/01"
            xlSheet.Cells(my_x + 2, 2) = "2024/07/01"
            xlSheet.Cells(my_x + 2, 3) = "'吴小男"
            xlSheet.Cells(my_x + 2, 4) = "'" & my_no & aa
            xlSheet.Cells(my_x + 2, 5) = "'zhang"
            xlSheet.Cells(my_x + 2, 6) = "'1"
            xlSheet.Cells(my_x + 2, 7) = "'2"
            xlSheet.Cells(my_x + 2, 8) = "'165701"



            If dt_in.Rows(x).Item("type").value = "贴膜" Then


                xlSheet.Cells(my_x + 2, 9) = "'653P-R"
                xlSheet.Cells(my_x + 2, 10) = "'燥干-R"


            Else

                xlSheet.Cells(my_x + 2, 9) = "'655P-R"
                xlSheet.Cells(my_x + 2, 10) = "'修剪、成检、量尺、包装-R"


            End If







            xlSheet.Cells(my_x + 2, 11) = "'120"
            xlSheet.Cells(my_x + 2, 12) = "'吴小男"
            xlSheet.Cells(my_x + 2, 13) = "'120"
            xlSheet.Cells(my_x + 2, 14) = "'吴小男"
            xlSheet.Cells(my_x + 2, 15) = "'120"




            For i = 1 To xlApp.Worksheets.Count

                If xlApp.Workbooks(1).Worksheets(i).name = "Page2" Then
                    xlSheet2 = xlApp.Workbooks(1).Worksheets(i)
                    xlSheet2.Activate()
                    Exit For
                End If

            Next






            sql = "SELECT  r.date, r.dep, r.wh, r.code, r.name, r.code_1, r.qty, r.lot, r.p1, r.p2, r.code1, r.name1, r.id, r.card, RT_RETAN_RECORD.source, 
                   RT_RETAN_RECORD.color, RT_RETAN_RECORD.tech, RT_RETAN_RECORD.cust, RT_RETAN_RECORD.wb_weight, 
                   RT_RETAN_RECORD.date AS Expr1
FROM      (SELECT  date, dep, wh, code, name, code_1, qty, lot, p1, p2, code1, name1, id, 'BR' + RIGHT(lot, 1) + SUBSTRING(lot, 1, 
                                      LEN(lot) - 1) AS card
                   FROM       rt_TM_IN_0601 where id='" & dt_in.Rows(x).Item("id") & "' and right(lot,1)<>'P' ) AS r LEFT OUTER JOIN
                   RT_RETAN_RECORD ON r.card = RT_RETAN_RECORD.card"

            dt2 = New DataTable
            cmd.CommandText = sql
            da.SelectCommand = cmd
            da.Fill(dt2)





            Dim serial As Integer = 1

            For y = 0 To dt2.Rows.Count - 1

                xlSheet2.Cells(yy + 1 + y, 2) = "'" & serial  '行号
                xlSheet2.Cells(yy + 1 + y, 3) = "'" & my_no & aa


                'xlSheet2.Cells(yy + 1 + y, 5) = "112." & dt2.Rows(y).Item("皮源代码")
                'xlSheet2.Cells(yy + 1 + y, 6) = dt2.Rows(y).Item("皮源1")






                xlSheet2.Cells(yy + 1 + y, 14) = dt2.Rows(y).Item("qty")
                ' xlSheet2.Cells(yy + 1 + y, 15) = dt2.Rows(y).Item("price")
                '  xlSheet2.Cells(yy + 1 + y, 16) = dt2.Rows(y).Item("出库重") * dt2.Rows(y).Item("price")

                xlSheet2.Cells(yy + 1 + y, 18) = "'2024/6/1新编码"    '备注



                If dt2.Rows(y).Item("wh") = "涂饰在制品" Then






                    xlSheet2.Cells(yy + 1 + y, 5) = "313.FM" '物料
                    xlSheet2.Cells(yy + 1 + y, 6) = "二层皮"
                    xlSheet2.Cells(yy + 1 + y, 17) = "313 " & dt2.Rows(y).Item("code_1")   '批号
                    xlSheet2.Cells(yy + 1 + y, 25) = "'213F-R" '收货仓库
                    xlSheet2.Cells(yy + 1 + y, 26) = "喷台仓/赤湖"













                Else

                    xlSheet2.Cells(yy + 1 + y, 5) = "517A.FM"
                    xlSheet2.Cells(yy + 1 + y, 6) = "二层皮"
                    xlSheet2.Cells(yy + 1 + y, 17) = "517 " & dt2.Rows(y).Item("code_1")   '批号
                    xlSheet2.Cells(yy + 1 + y, 25) = "'517" '收货仓库
                    xlSheet2.Cells(yy + 1 + y, 26) = "成品仓"

                End If

                'xlSheet2.Cells(yy + 1 + y, 25) = "'213E-R"
                'xlSheet2.Cells(yy + 1 + y, 26) = "磨革、扫灰仓/赤湖"







                '   xlSheet2.Cells(yy + 1 + y, 38) = dt2.Rows(y).Item("类别")
                xlSheet2.Cells(yy + 1 + y, 39) = "'" & dt2.Rows(y).Item("cust")
                xlSheet2.Cells(yy + 1 + y, 40) = dt2.Rows(y).Item("tech")
                xlSheet2.Cells(yy + 1 + y, 41) = dt2.Rows(y).Item("source")
                xlSheet2.Cells(yy + 1 + y, 42) = dt2.Rows(y).Item("color")
                ' xlSheet2.Cells(yy + 1 + y, 43) = dt2.Rows(y).Item("厚度")
                xlSheet2.Cells(yy + 1 + y, 44) = dt2.Rows(y).Item("card")
                xlSheet2.Cells(yy + 1 + y, 45) = dt2.Rows(y).Item("expr1")
                ' xlSheet2.Cells(yy + 1 + y, 46) = dt2.Rows(y).Item("化工成本")

                xlSheet2.Cells(yy + 1 + y, 47) = dt2.Rows(y).Item("wb_weight")





                serial = serial + 1

            Next

            yy = yy + dt2.Rows.Count


            aa = aa + 1
            my_x = my_x + 1
            'my_card = dt_in.Rows(x).Item("卡号")
            'my_date = dt_in.Rows(x).Item("日期")


        Next

        xlSheet2.Range("A2:A" & x + 1).FillDown()
        'xlSheet2.Range("B2:B" & x + 1).FillDown()
        xlSheet2.Range("D2:D" & x + 1).FillDown()
        xlSheet2.Range("J2:J" & x + 1).FillDown()
        xlSheet2.Range("L2:L" & x + 1).FillDown()
        xlSheet2.Range("M2:M" & x + 1).FillDown()
        'xlSheet2.Range("O2:O" & x + 1).FillDown()
        'xlSheet2.Range("P2:P" & x + 1).FillDown()





        MsgBox("")






    End Sub
End Class