ModuleMaster/hr/jdl.aspx.vb - main - ivan/ModMas

ModuleMaster/hr/jdl.aspx.vb
87 строк3 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
Imports System.Data
Imports System.Data.SqlClient
Imports sharedClasses.Auth

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.69", Request.UserHostAddress))
    End Sub

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        Dim userid As String = ""
        authorize("SSO")

        If Not IsNothing(Request.QueryString("orchuserlogin")) Then
            userid = Request.QueryString("orchuserlogin")
        Else
            userid = _a.userId
        End If

        Dim tableId As String = ""

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

        edTableToView.Message = userid
    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

    Private Sub addElement(ByRef skip As Boolean) Handles edTableToView.PrepareAddForm
        skip = True
        Dim url As String = "jd.aspx"
        Dim s As String = "window.open('" & url + "','_blank');"
        ClientScript.RegisterStartupScript(Me.GetType(), "script", s, True)
    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 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
End Class