ModuleMaster/inv/upload.aspx.vb - main - ivan/ModMas

ModuleMaster/inv/upload.aspx.vb
128 строк5 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
Imports System.Data
Imports System.Data.SqlClient

Partial Class resultUpdload
    Inherits System.Web.UI.Page

    Private mysqlf As New sharedClasses.dbFunctions.mySqlFunctions(ConfigurationManager.ConnectionStrings("o2inventory").ConnectionString)
    Private sqlf As New sharedClasses.dbFunctions.SqlFunctions

    Private a As sharedClasses.Auth.auth
    Private Sub authorize(mode As String)
        a = New sharedClasses.Auth.auth(mode, IIf(Request.UserHostAddress = "::1", "106.109.72.69", Request.UserHostAddress))
    End Sub
#Region "Page"

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        Dim userid As String = ""
        If Not IsNothing(Request.QueryString("OrchUserLogin")) Then
            userid = Request.QueryString("OrchUserLogin")
        End If

        If Not IsNothing(Request.QueryString("u")) Then
            userid = Request.QueryString("u")
        End If

        If userid = "" Then
            authorize("SSO")

            userid = a.userId
            edTableToView.Message = "By SSO: " & a.userId
        End If

        Dim tableId As String = ""
        If Not IsNothing(Request.QueryString("tableId")) Then
            tableId = Request.QueryString("tableId")
        End If
        If Not IsNothing(Request.QueryString("t")) Then
            tableId = Request.QueryString("t")
        End If
        edTableToView.IsReadOnly = True
        edTableToView.UserName = userid.ToUpper
    End Sub
    Protected Sub Page_PreRender(sender As Object, e As System.EventArgs) Handles Me.PreRender
        'ClientScript.RegisterStartupScript(Me.GetType(), "CreateGridHeader", "<script>CreateGridHeader('DataDiv', 'editableGrid1_GridView1', 'HeaderDiv');</script>")

        If edTableToView.IsReadOnly Then
            edTableToView.CollectHeaderColumn(1)
        End If
        Title = edTableToView.TableDescription
    End Sub
    Protected Sub Page_SaveStateComplete(sender As Object, e As EventArgs) Handles Me.SaveStateComplete
        edTableToView.CreateGroupingText()
    End Sub
    Protected Sub Page_Unload(sender As Object, e As EventArgs) Handles Me.Unload

    End Sub
#End Region


    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)

    End Sub

#Region "Grid"
    Protected Sub filterChanged() Handles edTableToView.GridFilterChanged

    End Sub

    Private Sub DataSelected(dt As DataTable) Handles edTableToView.DataSelected

    End Sub

    Protected Sub UpdateUserInfo(ByRef com As SqlCommand) Handles edTableToView.NewRecordSaving
        Try
            com.Parameters("@CHANGED_BY").Value = Request.QueryString("orchuserlogin")
        Catch ex As Exception

        End Try
    End Sub

    Protected Sub CreateInventoryTag(recordId As Integer) Handles edTableToView.NewRecordSaved
        Dim sql As New StringBuilder
        sql.Append("SELECT if (ifnull(max(tag),0)<10000,10000,max(tag)+1) FROM inventory.`tagshistory` ")
        Dim tag As Integer = mysqlf.GetScalar(sql.ToString)
        sql.Clear()
        Dim dr As DataRow = sqlf.GetRow("SELECT * FROM Usermodules.[user].COUNTING_RESULTS where id = " & recordId)
        sql.AppendLine("INSERT INTO inventory.`tagshistory` ")
        sql.AppendLine("(tag,partCode,location,zone,qty,responsible,audit,drafter,draftdate) ")
        sql.AppendLine("VALUES ")
        sql.AppendLine("(" & tag & ",'" & dr("partnumber") & "','" & dr("location") & "','',")
        sql.AppendLine(dr("qty") & ",'" & edTableToView.UserName & "','R','" & edTableToView.UserName & "',now())")
        If mysqlf.NonQuery(sql.ToString) > 0 Then
            sqlf.NonQuery("UPDATE Usermodules.[user].COUNTING_RESULTS SET tag_number='" & tag & "' where id = " & recordId)
        End If
    End Sub

    Private Sub DeleteInventoryTag(recordId As Integer, ByRef cancel As Boolean) Handles edTableToView.RecordDeleting
        Dim tag As String = sqlf.GetScalar("SELECT tag_number FROM Usermodules.[user].COUNTING_RESULTS where id = " & recordId)
        mysqlf.NonQuery("DELETE FROM inventory.`tagshistory` WHERE tag=" & tag)
    End Sub

    Private Sub MassDeleteInventoryTags(condition As String, ByRef cancelDelete As Boolean) Handles edTableToView.MassDeleting
        Dim sql As New StringBuilder
        sql.AppendLine("SELECT tag_number  FROM Usermodules.[user].COUNTING_RESULTS ")
        If condition <> "" Then
            sql.AppendLine(" WHERE " & condition)
        End If
        Dim dt As DataTable = sqlf.GetData(sql.ToString)

        If Not IsNothing(dt) Then
            For Each dr As DataRow In dt.Rows
                mysqlf.NonQuery("DELETE FROM inventory.`tagshistory` WHERE tag=" & dr("tag_number"))
            Next
        End If
    End Sub


    Protected Sub GetGraphData(ByRef graphData As String) Handles edTableToView.RequestForGraphData

    End Sub

    Protected Sub edTableToView_PreRender(sender As Object, e As System.EventArgs) Handles edTableToView.PreRender

    End Sub

#End Region

End Class