ModuleMaster/fi/gilistdetail.aspx.vb - main - ivan/ModMas

ModuleMaster/fi/gilistdetail.aspx.vb
69 строк2 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
Imports System.Data
Imports System.Data.SqlClient

Partial Class gilist
    Inherits System.Web.UI.Page

    Private sqlf As New sharedClasses.dbFunctions.SqlFunctions

    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
        Dim tableId As String = ""
        If Not IsNothing(Request.QueryString("tableId")) Then
            tableId = Request.QueryString("tableId")
        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

        lnkGraphView.Visible = False

        Title = edTableToView.TableDescription
    End Sub


    Private Sub print(sender As Object, e As CommandEventArgs) Handles edTableToView.ActionRequest
        Select e.CommandArgument
            Case "PRINT"
                Dim f As Hashtable = edTableToView.Filters
                Dim w As String = edTableToView.sqlQueryFinal
                Try
                    If Not IsNothing(f("[ORDER_DATE]")) Then
                        Response.Redirect("prnt.aspx?d" & f("[ORDER_DATE]").ToString.Replace("N", "").Replace("'", ""))
                    Else
                        edTableToView.Message = "Select report date"
                    End If
                Catch ex As Exception

                End Try
        End Select

    End Sub

    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)

    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
End Class