ModuleMaster/engineers/ewcs.aspx.vb - main - ivan/ModMas

ModuleMaster/engineers/ewcs.aspx.vb
221 строка8 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
Imports System.Data
Imports System.Data.SqlClient
Imports System.Net

Partial Class EWCS
    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

    'Private KeyMaterialDefinition As DataTable

    Private dataUpdateRequest As Boolean = False
    Private rowIdToUpdate 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
        End If
        Dim viewId As String = ""


        If Not IsNothing(Request.QueryString("viewid")) Then
            viewId = Request.QueryString("viewid")
        End If
        If Not IsNothing(Request.QueryString("v")) Then
            viewId = Request.QueryString("v")
        End If

        If Not IsNothing(Request.QueryString("d")) Then
            'edTableToView.debugMode = (Request.QueryString("d").ToString.ToUpper = "YES")
        End If

        If Not IsPostBack Then
            If Not IsNothing(Request.QueryString("p")) Then
                If IsNumeric(Request.QueryString("p")) Then
                    edTableToView.PageSize = Request.QueryString("p")
                End If
            End If
        Else
            'edTableToView.RefreshData()
        End If

        edTableToView.IsReadOnly = True
        edTableToView.UserName = userid.ToUpper

        If Not IsNothing(Request.QueryString("viewonly")) Then
            If Request.QueryString("viewonly").ToString.ToUpper = "YES" Then
                edTableToView.UserName = ""
            End If
        End If

        Try
            If IsNumeric(viewId) Then
                edTableToView.ViewID = viewId
            Else
                edTableToView.ViewID = -1
            End If
        Catch ex As Exception
        End Try
        Dim sql As New StringBuilder
    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>")
        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 = 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 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 edTableToView_SavedElement(tableName As String, fieldName As String, rowId As String, value As String, fieldType As String, byButton As Boolean, text As String) Handles edTableToView.SavedElement
        edTableToView.RefreshData()
        edTableToView.Refresh()
    End Sub


    Protected Sub Changed(tablename As String, rowId As String) Handles edTableToView.DataWasChanged
        edTableToView.RefreshData()
        edTableToView.Refresh()
    End Sub

    Private Sub RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles edTableToView.RowCommand
        If e.CommandName = "REFRESH" Then
            ' edTableToView.Message = e.CommandArgument & " ---- " & e.CommandName & " ====== " & CType(e.CommandSource.Parent.Parent.Parent, System.Web.UI.WebControls.GridViewRow).RowIndex
            edTableToView.SelectedIndex = CType(e.CommandSource.Parent.Parent.Parent, System.Web.UI.WebControls.GridViewRow).RowIndex
            dataUpdateRequest = True
            rowIdToUpdate = e.CommandArgument
            edTableToView.RefreshData()
        End If
    End Sub
    Protected Sub RowDataBoundComplete(ByRef row As GridViewRow) Handles edTableToView.RowDataBoundComplete
        If row.RowType = DataControlRowType.DataRow Then
            'Try
            '    'MP status
            '    Select Case row.Cells(21).Text
            '        Case "green"
            '            Dim img As New Image()
            '            img.ImageUrl = "http://serkweb.serk.lan:8080/Modulemaster/Images/bullet_green.png"
            '            row.Cells(21).Attributes.Add("align", "center")
            '            row.Cells(21).Controls.Add(img)
            '        Case "red"
            '            Dim img As New Image()
            '            img.ImageUrl = "http://serkweb.serk.lan:8080/Modulemaster/Images/bullet_red.png"
            '            row.Cells(21).Attributes.Add("align", "center")
            '            row.Cells(21).Controls.Add(img)
            '        Case "yellow"
            '            Dim img As New Image()
            '            img.ImageUrl = "http://serkweb.serk.lan:8080/Modulemaster/Images/bullet_yellow.png"
            '            row.Cells(21).Attributes.Add("align", "center")
            '            row.Cells(21).Controls.Add(img)
            '        Case "grey"
            '            Dim img As New Image()
            '            img.ImageUrl = "http://serkweb.serk.lan:8080/Modulemaster/Images/bullet_grey.png"
            '            row.Cells(21).Attributes.Add("align", "center")
            '            row.Cells(21).Controls.Add(img)
            '    End Select
            'Catch
            'End Try

        End If

        If dataUpdateRequest Then
            Try
                If row.RowType = DataControlRowType.DataRow Then

                End If
            Catch ex As Exception
                edTableToView.Message &= ex.Message
            End Try
        End If
    End Sub

    Private Sub Xml_viewTable_PreRenderComplete(sender As Object, e As EventArgs) Handles Me.PreRenderComplete
        'edTableToView.CollectHeaderColumn(2)
        'edTableToView.CollectHeaderColumn(3)
        'edTableToView.CollectHeaderColumn(4)
        'edTableToView.CollectHeaderColumn(5)
    End Sub
End Class