ModuleMaster/pc/stockdetails.aspx.vb - main - ivan/ModMas

ModuleMaster/pc/stockdetails.aspx.vb
171 строка6 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports System.Net

Partial Class Xml_viewTable
    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.64", 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


        tableId = 1760

        edTableToView.IsReadOnly = True
        edTableToView.UserName = userid.ToUpper
        If IsNumeric(tableId) Then
            edTableToView.TableId = tableId
        End If
        ' edTableToView.SubReport.Controls.Add(createSubreport(tableId))



    End Sub

    Private Sub UpdteMessageSendLog(mailScheduleId As Integer, result As String, message As String)
        Dim sql As String = "INSERT Into UserModules.DBO.MAIL_SEND_LOG (MAIL_SCHEDULE_ID, LAST_RUN, RESULT,[MESSAGE]) VALUES (" & mailScheduleId & ",'" & DateTime.Now.ToString("yyyy-MM-dd HH:mm") & "','OK','" & message & "')"
        sqlf.NonQuery(sql)
    End Sub

    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)

    End Sub

    Protected Sub FilterChanged() Handles edTableToView.GridFilterChanged

    End Sub

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

    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>")

        graphForTable.SelectCondition = edTableToView.SelectConditionByFilters

        graphForTable.Visible = graphForTable.DrawGraph()

        If (Request.QueryString("tableId") IsNot Nothing) And graphForTable.Visible Then
            lnkGraphView.Visible = True
            lnkGraphView.Text = "View graph in a new window"
            lnkGraphView.NavigateUrl = "~/viewgraph.aspx?tableid=" & Request.QueryString("tableId")
        Else
            lnkGraphView.Visible = False
        End If

        If edTableToView.IsReadOnly Then
            edTableToView.CollectHeaderColumn(1)
        End If
        Title = edTableToView.TableDescription


        'If edTableToView.copyFlag Then
        '    edTableToView.AddFormMode(edTableToView.copyId)
        'End If

        edTableToView.SubReport.Controls.Add(createSubreport(edTableToView.TableId))


        Dim script As String = sqlf.GetScalar("SELECT Gridcommand_handler FROM UserModules.dbo.ModuleTables WHERE id=" & edTableToView.TableId)
        If script <> "" Then
            gridcommandhandlerscript.Controls.Add(New Literal With {.Text = "<script type=""text/javascript"">" & script & "</script>"})
        End If
    End Sub

    Private Function createSubreport(tid As String) As GridView

        Dim gv As New GridView

        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 = a.userId ' auth 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()
    End Sub

    Protected Sub GetGraphData(ByRef graphData As String) Handles edTableToView.RequestForGraphData
        graphData = graphForTable.GetHTMLGraph
    End Sub

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

    End Sub

    Protected Sub Page_Unload(sender As Object, e As EventArgs) Handles Me.Unload

    End Sub

    Protected Sub action(sender As Object, e As CommandEventArgs) Handles edTableToView.ActionRequest
        'Select Case e.CommandArgument
        '    Case "BUILD_LIST"
        orchestraSql(2367, New Hashtable)
        edTableToView.RefreshData()
        'End Select
    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 url As String = "http://localhost:61349/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