ModuleMaster/sj_vend/bom.aspx.vb - main - ivan/ModMas

ModuleMaster/sj_vend/bom.aspx.vb
176 строк7 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
Imports System.Data
Imports System.Data.SqlClient
Imports sharedClasses.dbFunctions
Imports System.Net
Imports System.IO

Partial Class detail
    Inherits System.Web.UI.Page

    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

    Dim tableId As String = ""

    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
            edTableToView.Message = "-"
        End If


        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
        If IsNumeric(tableId) Then
            edTableToView.TableId = tableId
        End If
        edTableToView.SubReport.Controls.Add(createSubreport(tableId))
    End Sub

    Protected Sub Page_PreRender(sender As Object, e As System.EventArgs) Handles Me.PreRender
        If edTableToView.IsReadOnly Then
            edTableToView.CollectHeaderColumn(1)
        End If
        Title = edTableToView.TableDescription
        'edTableToView.HeaderRow.Cells(edTableToView.HeaderRow.Cells.Count - 2).Controls.Add(New CheckBox With {.ID = "selectall", .ClientIDMode = UI.ClientIDMode.Static, .ToolTip = "@@@"})

    End Sub
    Protected Sub AddCheckbox(ByRef r As GridViewRow) Handles edTableToView.RowDataBoundComplete
        If r.RowType = DataControlRowType.DataRow Then
            'r.Cells(r.Cells.Count - 2).Controls.Add(New CheckBox With {.ID = r.Cells(0).Text,
            '                                        .ClientIDMode = UI.ClientIDMode.Static,
            '                                        .CssClass = "check",
            '                                        .ToolTip = "Check to print this row"})
        End If
    End Sub

    Private Function createSubreport(tid As String) As GridView

        Dim gv As New GridView
        Dim sqlf As New sharedClasses.dbFunctions.SqlFunctions
        Dim query As String = sqlf.GetScalar("SELECT isnull(SUBREPORT_QUERY,'') from usermodules.dbo.moduletables where id = " & tid)
        If query <> "" And Not (query.Contains("update") Or
                               query.Contains("delete") Or
                               query.Contains("exec") Or
                               query.Contains("truncate") Or
                               query.Contains("drop")) Then
            gv.DataSource = sqlf.GetData(query)
            Try
                gv.DataBind()
            Catch ex As Exception
                Return Nothing
            End Try
        End If
        Return gv
    End Function

    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 Page_SaveStateComplete(sender As Object, e As EventArgs) Handles Me.SaveStateComplete
        edTableToView.CreateGroupingText()

        edTableToView.CollectHeaderColumn(2)
        edTableToView.CollectHeaderColumn(3)
        edTableToView.CollectHeaderColumn(4)
        edTableToView.CollectHeaderColumn(5)
        edTableToView.CollectHeaderColumn(6)
        edTableToView.CollectHeaderColumn(7)
        edTableToView.CollectHeaderColumn(8)
        edTableToView.CollectHeaderColumn(10)
    End Sub

    Protected Sub action(sender As Object, e As CommandEventArgs) Handles edTableToView.ActionRequest
        Dim targetassy As String = edTableToView.Filters("[ASSY]")
        Try
            targetassy = targetassy.Replace("like N'%", "").Replace("%'", "").Trim
        Catch ex As Exception
            targetassy = ""
        End Try

        If targetassy <> "" Then
            Dim params As New Hashtable
            params.Add("MATR", targetassy)
            Select Case e.CommandArgument
                Case "GMES_BOM"
                    '    '-----------  INITIAL UPLOAD---------
                    '    For Each dr As DataRow In sqlf.GetData("select  DISTINCT ACCESSORY from UserModules.[user].SUMMARY_ACCESSORY_REQUIREMENTS").Rows
                    '        params.Clear()
                    '        params.Add("MATR", dr("ACCESSORY"))
                    '        orchestraSql(685, params)
                    '    Next
                    ''------------------------------------
                    orchestraSql(685, params)
                Case "USE_YN"
                    orchestraSql(689, params)
            End Select
            edTableToView.RefreshData()
        Else
            edTableToView.Message = "Enter ASSY part number!"
        End If
    End Sub

    'Private Sub ItemSaving(tableName As String,
    '                       fieldName As String,
    '                       rowId As String,
    '                       value As String,
    '                       fieldType As String,
    '                       byButton As Boolean,
    '                       text As String,
    '                       ByRef cancelSave As Boolean) Handles edTableToView.SavingElement
    '    If fieldName = "USE_Y_N" Then
    '        Dim params As New Hashtable
    '        orchestraSql(893, params)
    '    End If
    'End Sub

    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)

    End Sub

    Private Function orchestraSql(queryId As Integer, params As Hashtable) As DataTable
        Try
            Dim url As String = "http://serkweb.serk.lan:8080/modulemaster/Handlers/getsqldata.ashx?id=" & queryId
            Dim f As Boolean = True
            For Each k As DictionaryEntry In params
                url &= "&"
                url &= k.Key & "=" & k.Value
            Next
            Dim wb As WebRequest
            wb = WebRequest.Create(url)
            Dim res As WebResponse = wb.GetResponse
            Dim sr As New StreamReader(res.GetResponseStream)
            Return Newtonsoft.Json.JsonConvert.DeserializeObject(Of DataTable)(sr.ReadToEnd)
        Catch ex As Exception
            Return Nothing
        End Try

    End Function

End Class