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

ModuleMaster/sj/boxlabelbig.aspx.vb
49 строк2 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_boxlabelbig
    Inherits System.Web.UI.Page

    Private Sub sj_boxlabelbig_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 line As String = ""

        If Not IsNothing(dn) Then
            If IsNumeric(dn) Then
                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")
                    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

        If Not (IsNothing(accessory) _
                Or IsNothing(qty) _
                Or IsNothing(model)) _
                And IsNumeric(qty) Then
            form1.InnerHtml = form1.InnerHtml.Replace("@Model", model).
                        Replace("@Date", prodDate).
                        Replace("@LOTQTY", qty).
                        Replace("@ASSY", accessory).
                        Replace("@Line", line).
                        Replace("@Qty", "").
                        Replace("@WC", "")



        End If
    End Sub
End Class