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

ModuleMaster/hr/vendorpersonal.aspx.vb
153 строки7 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
Imports System.Data
Imports System.Data.SqlClient
Imports sharedClasses.dbFunctions

Partial Class vendors_personal
    Inherits System.Web.UI.Page

    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 = "63"
        'If Not IsNothing(Request.QueryString("tableId")) Then
        '    tableId = Request.QueryString("tableId")
        'End If
        edTableToView.IsReadOnly = True
        edTableToView.UserName = userid.ToUpper
        Dim sqlf As New SqlFunctions
        Try
            If Not IsNothing(Request.QueryString("mailscheduleid")) Then
                Try
                    Dim ScheduleParams As DataRow

                    ScheduleParams = sqlf.GetData("SELECT * FROM UserModules.dbo.Mail_Schedule WHERE id = " & Request.QueryString("mailscheduleid") & " and enabled='Y'").Rows(0)

                    tableId = ScheduleParams("table_id")

                    edTableToView.TableId = tableId
                    graphForTable.TableId = tableId

                    Dim mailRecepients As DataTable = sqlf.GetData("SELECT * from UserModules.dbo.Mail_Groups WHERE MAIL_GROUP_NAME = '" & ScheduleParams("MAIL_GROUP") & "' and enabled = 'Y'")
                    If mailRecepients.Rows.Count > 0 Then
                        UpdteMessageSendLog(Request.QueryString("mailscheduleid"), "OK", "START")
                        For Each dr As DataRow In mailRecepients.Rows
                            If dr("single_id") <> "" Then
                                'Dim UserTableName As String = (New SqlFunctions).GetScalar("SELECT tablename FROM UserModules.dbo.ModuleTables where id = " & tableId)
                                Dim messageBody As String = ScheduleParams("body_text") & "<hr />"
                                edTableToView.AuthorityCheck()
                                edTableToView.BuildColumnsConfiguration()
                                Select Case ScheduleParams("message_Type")
                                    Case "Graph"
                                        messageBody &= graphForTable.GetHTMLGraph
                                    Case "Table"
                                        messageBody &= edTableToView.GetHTMLGrid
                                    Case "Table & Graph"
                                        messageBody &= edTableToView.GetHTMLGrid
                                        messageBody &= "<hr />"
                                        messageBody &= graphForTable.GetHTMLGraph
                                End Select
                                CommonFunctions.SendEmail(dr("single_id"), ScheduleParams("subject_text"), messageBody)
                                UpdteMessageSendLog(Request.QueryString("mailscheduleid"), "OK", dr("single_id"))
                            End If
                        Next
                        UpdteMessageSendLog(Request.QueryString("mailscheduleid"), "OK", "FINISH")
                    End If
                Catch ex As Exception

                End Try
                Response.Write("Message send.")
                Response.End()
            End If

            edTableToView.TableId = tableId
            graphForTable.TableId = tableId

        Catch ex As Exception
        End Try

    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 & "')"
        Call (New SqlFunctions).NonQuery(sql)
    End Sub

    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)

    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>")
        graphForTable.DrawGraph()
        If edTableToView.IsReadOnly Then
            edTableToView.CollectHeaderColumn(1)
        End If
    End Sub

    Protected Sub edTableToView_ActionRequest(sender As Object, e As CommandEventArgs) Handles edTableToView.ActionRequest
        Select Case e.CommandArgument
            Case "RECOVER_ATTACHMENTS"
                Dim sql As New StringBuilder
                sql.Append("UPDATE UserModulesAttachments.[user].VENDORS_PERSONAL ")
                sql.Append("SET UserModulesAttachments.[user].VENDORS_PERSONAL.parentID = tt.id ")
                sql.Append("FROM UserModules.[user].VENDORS_PERSONAL as tt ")
                sql.Append("left join UserModulesAttachments.[user].VENDORS_PERSONAL ")
                sql.Append("on tt.photo = UserModulesAttachments.[user].VENDORS_PERSONAL.name ")
                sql.Append("where tt.photo <> '' -- and tt.company = 'LLC ""Rodem-K""'")
                Call (New SqlFunctions).NonQuery(sql.ToString)
                edTableToView.RefreshData()
                edTableToView.Refresh()
        End Select
    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 GetGraphData(ByRef graphData As String) Handles edTableToView.RequestForGraphData
        graphData = graphForTable.GetHTMLGraph
    End Sub


    Protected Sub SaveEvaluationResults(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles edTableToView.RowCommand
        Select Case e.CommandName
            Case "SAVE"
                Dim currentId As String = e.CommandArgument
                Dim sql As String = "UPDATE UserModules.[user].vendors_personal SET evaluation_saved='Y' WHERE ( [2012__2_EVALUATION] is not NULL or [2012__2_EVALUATION] <> '' ) and id=" & e.CommandArgument
                Call (New SqlFunctions).NonQuery(sql)
        End Select
    End Sub

    Protected Sub rowBound(ByRef row As GridViewRow) Handles edTableToView.RowDataBoundComplete

        Try
            'If CType(row.Cells(16).Controls(0), ASP.usercontrols_grideditcontrol_ascx).Text = "Y" Then
            If row.Cells(16).Text = "Y" Then
                row.Cells(14).Controls.Clear()
                row.Cells(15).Controls.Clear()
            End If
        Catch ex As Exception

        End Try


        'Try
        '    If row.Cells(16).Text <> "&nbsp" Then

        '    End If
        'Catch ex As Exception

        'End Try
    End Sub

End Class