ModuleMaster/qc/dms.aspx.vb - main - ivan/ModMas

ModuleMaster/qc/dms.aspx.vb
154 строки6 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
Imports System.Data
Imports System.Data.SqlClient
Imports System.Net
Imports System.IO
Imports Newtonsoft.Json

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
#Region "Page"
    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        Dim _qString As NameValueCollection = Request.QueryString
        If Not IsNothing(_qString("method")) Then
            If _qString("method").ToLower = "search" Then
                Response.Clear()
                'Response.Write(searchEmployee(_qString("idtosearch")))
                Response.End()
            ElseIf _qString("method").ToLower = "list" Then

            End If
        End If

        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 tableId As String = ""
        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

    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

        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

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

    End Sub
#End Region
#Region "Handlers"
    'Private Function searchEmployee(idToSearch As String) As String
    '    Dim sql As New StringBuilder
    '    sql.Append("SELECT [Name] +'/'  + Title + ' (' + band + ')' + '/' + replace(Department,'/','-')  + '/' +  [SingleId] as Title")
    '    sql.Append(" ,[GEN] + '|' + [SingleId] + '|APPROVE' as [EmpId] ")
    '    sql.Append(" FROM [hr].[dbo].[GHR_EMP_INFO] ")
    '    sql.Append(" where ")
    '    sql.Append(" (gen like '%" & idToSearch & "%' or ")
    '    sql.Append(" name like '%" & idToSearch & "%' or ")
    '    sql.Append(" singleid like '%" & idToSearch & "%' or department like '%" & idToSearch & "%')")

    '    Dim dt As DataTable = sqlf.GetData(sql.ToString)
    '    If Not IsNothing(dt) Then
    '        Dim lv As New ListBox
    '        lv.SelectionMode = ListSelectionMode.Multiple
    '        lv.ID = "foundEmployees"
    '        lv.Width = Unit.Pixel(525)
    '        lv.ClientIDMode = UI.ClientIDMode.Static
    '        lv.DataSource = dt
    '        lv.DataTextField = "Title"
    '        lv.DataValueField = "EmpId"
    '        lv.DataBind()
    '        For Each l As ListItem In lv.Items
    '            l.Attributes.Add("title", l.Text)
    '        Next

    '        Dim myCItrad As System.Globalization.CultureInfo = New System.Globalization.CultureInfo("EN-US", True)
    '        Dim sw As IO.StringWriter = New IO.StringWriter(myCItrad)
    '        Dim hw As HtmlTextWriter = New HtmlTextWriter(sw)

    '        lv.RenderControl(hw)
    '        Dim result As String = sw.ToString
    '        Return result

    '    End If
    '    Return "DB ERROR."
    'End Function

    <System.Web.Script.Services.ScriptMethod(),
    System.Web.Services.WebMethod()>
    Public Shared Function searchEmployee(ByVal prefixText As String, ByVal count As Integer) As List(Of String)
        Dim sql As New StringBuilder
        sql.Append("SELECT [Name] +'/'  + Title + ' (' + band + ')' + '/' + replace(Department,'/','-')  + '/' +  [SingleId] as Title")
        sql.Append(" ,[GEN] + '|' + [SingleId] + '|APPROVE' as [EmpId] ")
        sql.Append(" FROM [hr].[dbo].[GHR_EMP_INFO] ")
        sql.Append(" where ")
        sql.Append(" (gen like '%" & prefixText & "%' or ")
        sql.Append(" name like '%" & prefixText & "%' or ")
        sql.Append(" singleid like '%" & prefixText & "%' or department like '%" & prefixText & "%')")

        Dim sqlf As New sharedClasses.dbFunctions.SqlFunctions
        Dim dt As Data.DataTable = sqlf.GetData(sql.ToString)
        If Not IsNothing(dt) Then
            Dim result As New List(Of String)
            For Each dr As Data.DataRow In dt.Rows
                result.Add(dr("title"))
            Next
            Return result
        End If
        Return Nothing
    End Function

#End Region

    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)

    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


End Class