ModuleMaster/sj/picklist.aspx.vb - main - ivan/ModMas

ModuleMaster/sj/picklist.aspx.vb
123 строки6 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
Imports sharedClasses
Imports System.Data
Imports System.Data.SqlClient

Partial Class sj_picklist
    Inherits System.Web.UI.Page

    Private Sub sj_picklist_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim sqlf As New dbFunctions.SqlFunctions
        Dim dn As String = Request.QueryString("dn")

        Dim prodDate As String = Request.QueryString("prodDate")
        Dim accessory As String = Request.QueryString("accessory")
        Dim qty As String = Request.QueryString("qty")
        Dim model As String = Request.QueryString("model")

        Dim dataSource As String = Request.QueryString("ds")

        Dim line As String = ""

        If Not IsNothing(dn) Then
            If IsNumeric(dn) Then
                If IsNothing(dataSource) Then dataSource = "summary"
                If dataSource = "detail" Then
                    Dim dr As DataRow = sqlf.GetRow("SELECT * FROM UserModules.[user].MAIN_LINE_PLAN_WITH_ACCESSORY WHERE id = " & dn)
                    If Not IsNothing(dr) Then
                        prodDate = dr("prod_date")
                        accessory = dr("accessory")
                        qty = dr("quantity")
                        model = dr("main_line_model")
                        line = dr("line")

                        'sqlf.NonQuery("UPDATE UserModules.[user].SUMMARY_ACCESSORY_REQUIREMENTS SET Printed=convert(varchar, GETDATE(), 120) WHERE id = " & dn)
                    End If
                Else
                    Dim dr As DataRow = sqlf.GetRow("SELECT * FROM UserModules.[user].SUMMARY_ACCESSORY_REQUIREMENTS WHERE id = " & dn)
                    If Not IsNothing(dr) Then
                        prodDate = dr("prod_date")
                        accessory = dr("accessory")
                        qty = dr("quantity")
                        model = dr("main_model") ' main_line_model
                        line = dr("line")

                        sqlf.NonQuery("UPDATE UserModules.[user].SUMMARY_ACCESSORY_REQUIREMENTS SET Printed=convert(varchar, GETDATE(), 120) WHERE id = " & dn)
                    End If
                End If

            End If
        End If

        If Not (IsNothing(accessory) _
                Or IsNothing(qty) _
                Or IsNothing(model)) _
                And IsNumeric(qty) Then

            Dim sjProdDAte As String = Request.QueryString("proddate")
            For Each tr As HtmlTableRow In report.Rows
                For Each c As HtmlTableCell In tr.Cells
                    c.InnerText = c.InnerText.Replace("@Model", model).
                        Replace("@Date", prodDate).
                        Replace("@LotQty", qty).
                        Replace("@Assy", accessory).
                        Replace("@SJPRODDATE", sjProdDAte).
                    Replace("@Line", line)
                Next
            Next

            Dim sql As New StringBuilder
            sql.AppendLine("select ")
            sql.AppendLine("accessory ")
            sql.AppendLine(", [order] as po ")
            sql.AppendLine(", description ")
            sql.AppendLine(", peggedreqt ")
            sql.AppendLine(", material ")
            sql.AppendLine(", material_description  + isnull((SELECT DISTINCT '-={[ INJ PART:' + SUB_ITEM  + ' ]}=-'  FROM UserModules.[user].ADDITION_FOR_PICK_LIST WHERE ASSY_TO_CHECK = material),'')  as material_description ")
            sql.AppendLine(", cast(cast (replace(reqmts_qty,' ','') as DECIMAL) / cast(po_qty as decimal) as decimal(18,2)) as per_qty ")
            sql.AppendLine(", cast(cast (replace(reqmts_qty,' ','') as DECIMAL) / cast(po_qty as decimal) as decimal(18,2)) * " & qty & " as ttl_qty ")
            sql.AppendLine("from UserModules.[user].PICK_LIST ")
            sql.AppendLine("where accessory = @accessory ")
            sql.AppendLine("and [order] = (select max([order]) ")
            sql.AppendLine("from UserModules.[user].PICK_LIST ")
            sql.AppendLine("where accessory = @accessory and REQMT_DATE = '" & sjProdDAte & "') and REQMT_DATE = '" & sjProdDAte & "' ")

            'lblMessage.Text = sql.ToString

            Dim com As New System.Data.SqlClient.SqlCommand
            com.CommandText = sql.ToString
            com.Parameters.AddWithValue("accessory", accessory)
            Dim dt As DataTable = sqlf.GetData(com)
            If Not IsNothing(dt) Then
                If dt.Rows.Count > 0 Then
                    Dim cnt As Integer = 1
                    For Each dr As DataRow In dt.Rows
                        Dim tr As New HtmlTableRow
                        For Each c As HtmlTableCell In itemRow.Cells

                            If cnt = 1 Then
                                report.Rows(0).Cells(1).InnerText = report.Rows(0).Cells(1).InnerText.Replace("@PO", dr("po"))
                            End If

                            Dim cc As New HtmlTableCell With {.InnerText = c.InnerText.
                            Replace("@Partno", dr("material")).
                            Replace("@Description", dr("material_description")).
                            Replace("@Per", dr("per_qty").ToString.Replace(",00", "")).
                            Replace("@Qty", dr("ttl_qty").ToString.Replace(",00", "")).
                            Replace("@No", cnt)}
                            cc.Attributes("style") = c.Attributes("style")
                            cc.Attributes("class") = c.Attributes("class")
                            cc.Attributes("colspan") = c.Attributes("colspan")
                            tr.Cells.Add(cc)
                        Next
                        report.Rows.Add(tr)
                        cnt += 1
                    Next
                    itemRow.Visible = False
                Else
                    ' --------  No plan
                    lblMessage.Text = "NO PLAN FOR " & sjProdDAte & "  -  " & accessory
                End If
            End If
        End If
    End Sub
End Class