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

Imports System.Data.SqlClient
Imports System.Net
Imports Microsoft.Office.Interop
Public Class Frm_BG_OUT_SUM
    Dim cmd As New SqlCommand
    Dim da As New SqlDataAdapter
    Dim my_year111 As Integer
    Dim my_month111 As Integer
    Dim sql As String
    Dim conn As New SqlConnection
    Private Sub Frm_BG_OUT_SUM_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        conn.ConnectionString = connstring
        conn.Open()
    End Sub

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


        cmd.Connection = conn

        sql = "SELECT    DATE1 AS 日期,XNO AS 手册号, NO AS 报关单号, NAME AS 料件, QTY AS 数量, cast(total as numeric(10,4)) AS 货值,cast(total/qty as numeric(10,4)) AS 单价, fee as 工缴费,cast(fee/qty as numeric(10,2)) AS 工缴费单价,comment AS 客户,  des AS 目的地 FROM  RT_BG_out where date1 between '" & String.Format("{0:d}", dtp1.Value) & "' and '" & String.Format("{0:d}", dtp2.Value) & "' order by date1 desc"
        cmd.CommandText = sql
        Dim da As New SqlDataAdapter
        Dim dt As New DataTable
        da.SelectCommand = cmd

        da.Fill(dt)

        dgv1.DataSource = dt

        dgv1.Columns(0).Width = 100
        dgv1.Columns(1).Width = 120
        dgv1.Columns(2).Width = 160
        dgv1.Columns(3).Width = 100
        dgv1.Columns(4).Width = 80



        '-------边角料

        sql = "SELECT   P.手册号, P.料件, SUM(P.数量) AS 成品数量, RT_BG_BJL_RATE.NAME AS 名称, RT_BG_BJL_RATE.PERCENTS AS 比例, 
                CAST(SUM(P.数量) * RT_BG_BJL_RATE.PERCENTS / 100 AS NUMERIC(10, 2)) AS 产出
FROM      (SELECT   date1 AS 日期, xno AS 手册号, NO AS 报关单号, name AS 料件, qty AS 数量, CAST(TOTAL AS numeric(10, 4)) 
                                 AS 货值, CAST(TOTAL / qty AS numeric(10, 4)) AS 单价, FEE AS 工缴费, CAST(FEE / qty AS numeric(10, 2)) 
                                 AS 工缴费单价, COMMENT AS 客户, DES AS 目的地
                 FROM      RT_BG_OUT
                 WHERE   (date1 between '" & String.Format("{0:d}", dtp1.Value) & "' and '" & String.Format("{0:d}", dtp2.Value) & "')) AS P INNER JOIN
                RT_BG_BJL_RATE ON P.料件 = RT_BG_BJL_RATE.PRODUCT
GROUP BY P.手册号, P.料件, RT_BG_BJL_RATE.NAME, RT_BG_BJL_RATE.PERCENTS"
        cmd.CommandText = sql
        dt = New DataTable

        da.SelectCommand = cmd

        da.Fill(dt)

        DataGridView1.DataSource = dt

        DataGridView1.Columns(0).Width = 120
        DataGridView1.Columns(1).Width = 100
        DataGridView1.Columns(2).Width = 85
        DataGridView1.Columns(3).Width = 50
        DataGridView1.Columns(4).Width = 50
        DataGridView1.Columns(5).Width = 80



        sql = "SELECT Q.手册号,Q.名称,SUM(产出) FROM (SELECT   P.手册号, P.料件, SUM(P.数量) AS 成品数量, RT_BG_BJL_RATE.NAME AS 名称, RT_BG_BJL_RATE.PERCENTS AS 比例, 
                CAST(SUM(P.数量) * RT_BG_BJL_RATE.RATE*RT_BG_BJL_RATE.PERCENTS / 100 AS NUMERIC(10, 2)) AS 产出
FROM      (SELECT   date1 AS 日期, xno AS 手册号, NO AS 报关单号, name AS 料件, qty AS 数量, CAST(TOTAL AS numeric(10, 4)) 
                                 AS 货值, CAST(TOTAL / qty AS numeric(10, 4)) AS 单价, FEE AS 工缴费, CAST(FEE / qty AS numeric(10, 2)) 
                                 AS 工缴费单价, COMMENT AS 客户, DES AS 目的地
                 FROM      RT_BG_OUT
                 WHERE   (date1 between '" & String.Format("{0:d}", dtp1.Value) & "' and '" & String.Format("{0:d}", dtp2.Value) & "')) AS P INNER JOIN
                RT_BG_BJL_RATE ON P.料件 = RT_BG_BJL_RATE.PRODUCT
GROUP BY P.手册号, P.料件, RT_BG_BJL_RATE.NAME, RT_BG_BJL_RATE.RATE,RT_BG_BJL_RATE.PERCENTS) AS Q GROUP BY 手册号,名称"
        cmd.CommandText = sql
        dt = New DataTable

        da.SelectCommand = cmd

        da.Fill(dt)

        DataGridView2.DataSource = dt

        DataGridView2.Columns(0).Width = 120
        DataGridView2.Columns(1).Width = 100
        DataGridView2.Columns(2).Width = 85









        sql = "SELECT NAME AS 料件, cast(sum(QTY) as numeric(10,2)) AS 数量, cast(sum(total) as numeric(10,2)) AS 总价 FROM  RT_BG_out where date1 between '" & String.Format("{0:d}", dtp1.Value) & "' and '" & String.Format("{0:d}", dtp2.Value) & "' group by name"

        cmd.CommandText = sql
        dt = New DataTable

        da.Fill(dt)

        dgv_matl.DataSource = dt

        sql = "SELECT xno as 手册号, name AS 料件, cast(sum(QTY) as numeric(10,2)) AS 数量,count(*) as 笔数, cast(sum(total) as numeric(10,2)) AS 总价 FROM  RT_BG_out where date1 between '" & String.Format("{0:d}", dtp1.Value) & "' and '" & String.Format("{0:d}", dtp2.Value) & "' group by xno,name order by xno"
        cmd.CommandText = sql
        dt = New DataTable

        da.Fill(dt)

        dgv_XNO.DataSource = dt


        dgv_XNO.Columns(0).Width = 130
        dgv_XNO.Columns(1).Width = 100

        dgv_XNO.Columns(2).Width = 80

        dgv_XNO.Columns(3).Width = 60

        dgv_XNO.Columns(4).Width = 100








    End Sub
End Class