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

Imports System.Data.SqlClient
Public Class Frm_ACC_Edit
    Dim cmd As New SqlCommand
    Dim da As New SqlDataAdapter
    Dim my_year111 As Integer
    Dim my_month111 As Integer
    'Dim my_year As Integer
    Dim dt1 As New DataTable
    Dim sql As String
    Dim conn As New SqlConnection
    Dim xlApp As Microsoft.Office.Interop.Excel.Application
    Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
    Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
    Dim xlRange As Microsoft.Office.Interop.Excel.Range
    Dim PTCache As Microsoft.Office.Interop.Excel.PivotCache
    Dim PT As Microsoft.Office.Interop.Excel.PivotTable
    Dim io_type As String
    Private Sub Frm_ACC_Edit_Load(sender As Object, e As EventArgs) Handles MyBase.Load


        conn.ConnectionString = connstring
        conn.Open()

        cmd.Connection = conn


        ListBox1.Items.Add("保税入库")
        '  ListBox1.Items.Add("调拨出库")
        ListBox1.Items.Add("生产领料")
        '  ListBox1.Items.Add("在制品入库")
        ' ListBox1.Items.Add("在制品出库")
        ListBox1.Items.Add("成品入库")
        ListBox1.Items.Add("成品出库")








    End Sub

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged


        Dim my_query As String = ""
        Dim my_bg_no As String = ""

        Dim my_column As Integer


        Select Case ListBox1.Items(ListBox1.SelectedIndex).ToString


            Case "保税入库"
                sql = "SELECT DISTINCT 
                            rt_stock_bill.FInterID AS ID, rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号,                             rt_stock_bill1.FEntrySelfA0132 AS 手册号, CAST(rt_stock_bill1.FQty AS decimal(10, 1)) AS 数量,                             cast(rt_icpurchaseentry.FPrice as decimal(10,3)) as 单价, rt_icpurchase.FExchangeRate as 汇率, rt_t_item.FName as 品名,                             rt_t_item_1.FName AS Expr1, rt_stock_bill1.FSourceBillNo AS 源单号 FROM              rt_stock_bill INNER JOIN                            rt_stock_bill1 ON rt_stock_bill.FInterID = rt_stock_bill1.FInterID INNER JOIN                            rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID INNER JOIN                            rt_t_item AS rt_t_item_1 ON rt_stock_bill1.FDCStockID = rt_t_item_1.FItemID INNER JOIN                            rt_icpurchase ON rt_stock_bill1.FSourceBillNo = rt_icpurchase.FBillNo INNER JOIN                            rt_icpurchaseentry ON rt_icpurchase.FInterID = rt_icpurchaseentry.FInterID WHERE          (rt_stock_bill.FBillNo LIKE 'win%') AND (rt_stock_bill1.FEntrySelfA0132 IS NULL)ORDER BY   日期 DESC"


                sql = "SELECT DISTINCT 
                            rt_stock_bill.FInterID AS ID, rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                            rt_stock_bill1.FEntrySelfA0132 AS 手册号, CAST(rt_stock_bill1.FQty AS decimal(10, 1)) AS 数量, 
                            CAST(rt_stock_bill1.FPrice / rt_icpurchase.FExchangeRate AS decimal(10, 3)) AS 美金, 
                            CAST(rt_stock_bill1.FPrice AS decimal(10, 3)) AS 人民币, rt_t_item.FName AS 品名, rt_t_item_1.FName AS 仓库, 
                            rt_stock_bill1.FSourceBillNo AS 源单号, rt_icpurchase.FExchangeRate AS 汇率
FROM              rt_stock_bill INNER JOIN
                            rt_stock_bill1 ON rt_stock_bill.FInterID = rt_stock_bill1.FInterID INNER JOIN
                            rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID INNER JOIN
                            rt_t_item AS rt_t_item_1 ON rt_stock_bill1.FDCStockID = rt_t_item_1.FItemID INNER JOIN
                            rt_icpurchase ON rt_stock_bill1.FSourceBillNo = rt_icpurchase.FBillNo
WHERE          (rt_stock_bill.FBillNo LIKE 'win%') AND (rt_stock_bill1.FEntrySelfA0132 IS NULL)
ORDER BY   日期 DESC"
                my_column = 9

            'Case "调拨出库"
            '    Exit Sub
            Case "生产领料"

                sql = "SELECT DISTINCT 
                            rt_stock_bill.FInterID AS ID, rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                            CAST(rt_stock_bill1.FQty AS decimal(10, 1)) AS 数量, rt_t_item.FName AS 品名, 
                            rt_stock_bill1.FEntrySelfB0430 AS 手册号
FROM              rt_stock_bill INNER JOIN
                            rt_stock_bill1 ON rt_stock_bill.FInterID = rt_stock_bill1.FInterID INNER JOIN
                            rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID INNER JOIN
                            rt_t_item AS rt_t_item_1 ON rt_stock_bill1.FDCStockID = rt_t_item_1.FItemID
WHERE          (rt_stock_bill.FBillNo LIKE 'sout%') AND (rt_stock_bill1.FEntrySelfB0430 IS NULL)
ORDER BY   日期 DESC"

            'Case "在制品入库"
            'Case "在制品出库"
            Case "成品入库"


                sql = "SELECT DISTINCT 
                            rt_stock_bill.FInterID AS ID, rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                            CAST(rt_stock_bill1.FQty AS decimal(10, 1)) AS 数量, rt_t_item.FName AS 品名, rt_t_item_1.FName AS Expr1, 
                            rt_stock_bill1.FEntrySelfA0231 AS 手册号
FROM              rt_stock_bill INNER JOIN
                            rt_stock_bill1 ON rt_stock_bill.FInterID = rt_stock_bill1.FInterID INNER JOIN
                            rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID INNER JOIN
                            rt_t_item AS rt_t_item_1 ON rt_stock_bill1.FDCStockID = rt_t_item_1.FItemID
WHERE          (rt_stock_bill.FBillNo LIKE 'cin%') AND (rt_stock_bill1.FEntrySelfA0231 IS NULL)
ORDER BY   日期 DESC"


            Case "成品出库"

                sql = "SELECT DISTINCT 
                            rt_stock_bill.FInterID AS ID, rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, 
                            CAST(rt_stock_bill1.FQty AS decimal(10, 1)) AS 数量, rt_t_item.FName AS 品名, rt_t_item_1.FName AS Expr1, 
                            rt_stock_bill1.FEntrySelfB0138 as 手册号
FROM              rt_stock_bill INNER JOIN
                            rt_stock_bill1 ON rt_stock_bill.FInterID = rt_stock_bill1.FInterID INNER JOIN
                            rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID INNER JOIN
                            rt_t_item AS rt_t_item_1 ON rt_stock_bill1.FDCStockID = rt_t_item_1.FItemID
WHERE          (rt_stock_bill.FBillNo LIKE 'xout%') AND (rt_stock_bill1.FEntrySelfB0138 IS NULL)
ORDER BY   日期 DESC"



        End Select




        '  sql = "SELECT  rt_stock_bill.finterid as ID,rt_stock_bill.FDate AS 日期, rt_stock_bill.FBillNo AS 单号, rt_stock_bill1.FEntrySelfA0132 AS 手册号,                             CAST(rt_stock_bill1.FQty AS decimal(10, 1)) AS 数量, rt_stock_bill1.FItemID, rt_t_item.FName,                             rt_t_item_1.FName AS Expr1 FROM              rt_stock_bill INNER JOIN                            rt_stock_bill1 ON rt_stock_bill.FInterID = rt_stock_bill1.FInterID INNER JOIN                             rt_t_item ON rt_stock_bill1.FItemID = rt_t_item.FItemID INNER JOIN                             rt_t_item AS rt_t_item_1 ON rt_stock_bill1.FDCStockID = rt_t_item_1.FItemID WHERE          (rt_stock_bill.FBillNo LIKE '" & my_query & "%') AND (" & my_bg_no & " IS NULL) ORDER BY   日期 DESC"


        dt1 = New DataTable

        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(dt1)

        dgv1.DataSource = dt1

        ' dgv1.Columns("源单号").Width = 120
        dgv1.Columns("id").Width = 70
        dgv1.Columns("手册号").Width = 120
        dgv1.Columns("单号").Width = 120

        If ListBox1.Items(ListBox1.SelectedIndex).ToString = "保税入库" Then

            dgv1.Columns("源单号").Width = 120
            dgv1.Columns("id").Width = 70
            dgv1.Columns("手册号").Width = 120



        End If






        Set_grid_color(ListBox1.Items(ListBox1.SelectedIndex).ToString)

    End Sub
    Private Sub Set_grid_color(x_type As String)

        Dim my_column As String

        If x_type = "保税入库" Then
            my_column = "源单号"
        ElseIf x_type = "生产领料" Then
            my_column = "单号"
        Else
            Exit Sub
        End If

        Dim colorArray(10) As Color

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


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

        Dim x As Integer

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

            If dgv1.Rows(x).Cells(my_column).Value.ToString <> dgv1.Rows(x - 1).Cells(my_column).Value.ToString Then

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


            End If
        Next
        p(c + 1) = x

        ReDim Preserve p(x)


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

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

            Next
        Else


            For cc As Integer = 1 To c

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







    End Sub

    Private Sub dgv1_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgv1.CellValueChanged


        Dim my_xno As String
        Dim my_billno As String
        Dim my_id As Integer

        my_xno = dgv1.Rows(e.RowIndex).Cells("手册号").Value.ToString
        my_id = dgv1.Rows(e.RowIndex).Cells("id").Value




        Select Case ListBox1.Items(ListBox1.SelectedIndex).ToString
            Case "保税入库"



                sql = "update DB_zhou1.ais20200629122625.dbo.icstockbillentry set FEntrySelfA0132='" & my_xno & "' where finterid='" & my_id & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()

                sql = "insert into rt_update_xno (finterid) values(" & my_id & ")"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()

                MsgBox("更新完成")

            Case "成品入库"


                sql = "update DB_zhou1.ais20200629122625.dbo.icstockbillentry set FEntrySelfA0231='" & my_xno & "' where finterid='" & my_id & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()

                sql = "insert into rt_update_xno (finterid,io_type) values(" & my_id & ",N'成品入库')"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()

                MsgBox("更新完成")


            Case "成品出库"

                sql = "update DB_zhou1.ais20200629122625.dbo.icstockbillentry set FEntrySelfB0138='" & my_xno & "' where finterid='" & my_id & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()

                sql = "insert into rt_update_xno (finterid,io_type) values(" & my_id & ",N'成品出库')"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()

                MsgBox("更新完成")




            Case "生产领料"



                sql = "update DB_zhou1.ais20200629122625.dbo.icstockbillentry set FEntrySelfB0430='" & my_xno & "' where finterid='" & my_id & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()

                sql = "insert into rt_update_xno (finterid,io_type) values(" & my_id & ",N'生产领料')"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()

                MsgBox("更新完成")

        End Select


    End Sub
End Class