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

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

Partial Class HR_jd
    Inherits System.Web.UI.Page

    Private _docId As Integer = 0
    Private _sqlf As New 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))
        '_a = New auth(mode, Request.UserHostAddress)
    End Sub

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        authorize("SSO")
        If Not IsNothing(Request.QueryString("docid")) Then
            _docId = Request.QueryString("docid")
        End If
    End Sub

    Protected Sub SaveDocument(sender As Object, e As EventArgs) Handles save.Click
        If _a.userId = "NA" Then
            Dim s As String = "alert('You are not authorized! Please login to MySingle'); "
            ClientScript.RegisterStartupScript(Me.GetType(), "script", s, True)
        Else
            Dim sql As New StringBuilder
            Dim com As New System.Data.SqlClient.SqlCommand
            If _docId = 0 Then
                sql.AppendLine("Insert into UserModules.[user].JOB_DESCRIPTION ")
                sql.AppendLine("(DEPARTMENT, POSITION, CHANGE_DATE, SECTION_1	,SECTION_2	,SECTION_3	,SECTION_4	,SECTION_5	,SECTION_6	,SECTION_7, CREATED_BY, CREATED_AT) VALUES ")
                sql.AppendLine("(@DEPARTMENT, @POSITION, @CHANGE_DATE,@SECTION_1,@SECTION_2	,@SECTION_3	,@SECTION_4	,@SECTION_5	,@SECTION_6	,@SECTION_7, @CREATED_BY, @CREATED_AT)")
                com.CommandText = sql.ToString
                With com.Parameters
                    .AddWithValue("DEPARTMENT", department.Text)
                    .AddWithValue("POSITION", position.Text)
                    .AddWithValue("CHANGE_DATE", Today.ToString("yyyy-MM-dd"))
                    .AddWithValue("SECTION_1", part1value.Value)
                    .AddWithValue("SECTION_2", part2value.Value)
                    .AddWithValue("SECTION_3", part3value.Value)
                    .AddWithValue("SECTION_4", part4value.Value)
                    .AddWithValue("SECTION_5", part5value.Value)
                    .AddWithValue("SECTION_6", part6value.Value)
                    .AddWithValue("SECTION_7", part7value.Value)
                    .AddWithValue("CREATED_BY", _a.userId)
                    .AddWithValue("CREATED_AT", DateTime.Now.ToString("yyyy-MM-dd H:mm:ss"))
                End With
                _docId = _sqlf.Insert(com)
                If _docId <> -1 Then
                    _sqlf.NonQuery("UPDATE UserModules.[user].JOB_DESCRIPTION SET Link ='jd.aspx?docid=" & _docId & "' WHERE id=" & _docId)
                    Response.Redirect("jd.aspx?docid=" & _docId)
                End If
            Else
                sql.AppendLine("UPDATE UserModules.[user].JOB_DESCRIPTION SET ")
                sql.AppendLine(" DEPARTMENT=@DEPARTMENT, POSITION=@POSITION, CHANGE_DATE=@CHANGE_DATE, " & _
                               "SECTION_1=@SECTION_1, SECTION_2=@SECTION_2, SECTION_3=@SECTION_3, " & _
                               "SECTION_4=@SECTION_4, SECTION_5=@SECTION_5, SECTION_6=@SECTION_6, " & _
                               "SECTION_7=@SECTION_7, UPDATED_BY=@UPDATED_BY, UPDATED_AT=@UPDATED_AT WHERE id=" & _docId)
                com.CommandText = sql.ToString
                With com.Parameters
                    .AddWithValue("DEPARTMENT", department.Text)
                    .AddWithValue("POSITION", position.Text)
                    .AddWithValue("CHANGE_DATE", Today.ToString("yyyy-MM-dd"))
                    .AddWithValue("SECTION_1", part1value.Value)
                    .AddWithValue("SECTION_2", part2value.Value)
                    .AddWithValue("SECTION_3", part3value.Value)
                    .AddWithValue("SECTION_4", part4value.Value)
                    .AddWithValue("SECTION_5", part5value.Value)
                    .AddWithValue("SECTION_6", part6value.Value)
                    .AddWithValue("SECTION_7", part7value.Value)
                    .AddWithValue("UPDATED_BY", _a.userId)
                    .AddWithValue("UPDATED_AT", DateTime.Now.ToString("yyyy-MM-dd H:mm:ss"))
                End With
                _sqlf.NonQuery(com)
            End If
        End If
    End Sub

    Protected Sub Page_PreRender(sender As Object, e As EventArgs) Handles Me.PreRender
        If _docId <> 0 Then
            Dim dr As DataRow = _sqlf.GetRow("SELECT * FROM UserModules.[user].Job_Description WHERE id=" & _docId)
            If Not IsNothing(dr) Then
                part1.InnerHtml = IIf(dr("SECTION_1").trim = "", "&nbsp;", dr("SECTION_1").trim)
                part1value.Value = dr("SECTION_1").trim

                part2.InnerHtml = IIf(dr("SECTION_2").trim = "", "&nbsp;", dr("SECTION_2").trim)
                part2value.Value = dr("SECTION_2").trim

                part3.InnerHtml = IIf(dr("SECTION_3").trim = "", "&nbsp;", dr("SECTION_3").trim)
                part3value.Value = dr("SECTION_3").trim

                part4.InnerHtml = IIf(dr("SECTION_4").trim = "", "&nbsp;", dr("SECTION_4").trim)
                part4value.Value = dr("SECTION_4").trim

                part5.InnerHtml = IIf(dr("SECTION_5").trim = "", "&nbsp;", dr("SECTION_5").trim)
                part5value.Value = dr("SECTION_5").trim

                part6.InnerHtml = IIf(dr("SECTION_6").trim = "", "&nbsp;", dr("SECTION_6").trim)
                part6value.Value = dr("SECTION_6").trim

                part7.InnerHtml = IIf(dr("SECTION_7").trim = "", "&nbsp;", dr("SECTION_7").trim)
                part7value.Value = dr("SECTION_7").trim

                department.Text = dr("department")
                position.Text = dr("position")

                departmentLabel.Text = dr("department")
                positionLabel.Text = dr("position")
            End If
        End If
    End Sub

End Class