ModuleMaster/innovation/bp/bpdetails.aspx.vb - main - ivan/ModMas

ModuleMaster/innovation/bp/bpdetails.aspx.vb
181 строка8 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
Imports sharedClasses.dbFunctions
Imports System.Data
Imports sharedClasses.Auth
Imports System.IO

Partial Class swatDetails
    Inherits System.Web.UI.Page

    Dim sqlf As New SqlFunctions
    Private _pid As Integer = -1
    Dim 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 events"



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

        If Not IsNothing(Request.QueryString("score")) Then
            Dim scores() As String = Request.QueryString("score").Trim("|").Split("|")
            If scores.Count = 4 Then
                If _pid <> -1 Then
                    SaveScore(_pid, scores(1), scores(2), scores(3), a.userId, Request.QueryString("comment"))
                    Response.Clear()
                    Response.Write(Convert.ToInt16(scores(1)) + Convert.ToInt16(scores(2)) + Convert.ToInt16(scores(3)))
                    Response.End()
                End If
            End If
        End If
        userId.Text = a.userId
    End Sub


    Protected Sub Page_Prerender(sender As Object, e As EventArgs) Handles Me.PreRender
        If _pid <> -1 Then
            BuildDetails(_pid, a.userId)
            BuildAttachmentsList(_pid)
        End If
       
    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
        If Not IsNothing(Request.QueryString("mode")) Then
            If Request.QueryString("mode") = "embed" Then
                Response.Clear()
                Dim myCItrad As System.Globalization.CultureInfo = New System.Globalization.CultureInfo("en-US", True)
                Dim sw As StringWriter = New StringWriter(myCItrad)
                Dim hw As HtmlTextWriter = New HtmlTextWriter(sw)

                Dim img1 As New Image With {.ImageUrl = "~/Images/Save.png", .CssClass = "saveButton", .ID = "saveButton"}
                Dim img2 As New Image With {.ImageUrl = "~/Images/Cancel.png", .CssClass = "cancelButton", .ID = "cancelButton"}

                buttonsPlaceHolder.Controls.Clear()
                buttonsPlaceHolder.Controls.Add(img1)
                buttonsPlaceHolder.Controls.Add(New Literal With {.Text = "&nbsp;&nbsp;&nbsp;"})
                buttonsPlaceHolder.Controls.Add(img2)

                projectDeatails.RenderControl(hw)
                Response.Write(sw.ToString)
                Response.End()
            End If
        End If
    End Sub
#End Region

    Private Sub BuildDetails(pid As Integer, uid As String)
        Dim r As System.Data.DataRow = sqlf.GetRow("SELECT * FROM UserModules.[user].SWATNoPROJECTS_AND_IDEAS WHERE id=" & pid)
        If Not IsNothing(r) Then
            projectType.Text = r("type") & ": "
            projectName.Text = r("Name")
            description.Text = r("Description")
        End If

        'If r("Type").ToString.ToUpper = "PROJECT" Then
        criteria1.Text = "Eff.Amt."
        criteria2.Text = "Innovation"
        criteria3.Text = "Implement"
        'Else
        'criteria1.Text = "Creativity"
        'criteria2.Text = "Potential"
        'criteria3.Text = "Replication"
        'End If

        Dim pictures As DataTable = sqlf.GetData("SELECT * FROM UserModulesAttachments.[user].SWATNoPROJECTS_AND_IDEAS WHERE parentid=" & pid & " AND TYPE='PICTURE' AND DELETED='N'")
        'r = sqlf.GetRow("SELECT * FROM UserModulesAttachments.[user].SWATNoPROJECTS_AND_IDEAS WHERE parentid=" & pid & " AND TYPE='PICTURE' AND DELETED='N'")

        For Each r In pictures.Rows
            If pictureList.Value.ToString.Length > 0 Then
                pictureList.Value &= ";"
            Else
                projectImage.ImageUrl = "~/handlers/getfile.ashx?storage=UserModulesAttachments.[user].SWATNoPROJECTS_AND_IDEAS&id=" & r("id")
            End If
            pictureList.Value &= r("id")
        Next

        'If Not IsNothing(r) Then
        '    projectImage.ImageUrl = "~/handlers/getfile.ashx?storage=UserModulesAttachments.[user].SWATNoPROJECTS_AND_IDEAS&id=" & r("id")
        'End If

        r = sqlf.GetRow("SELECT * FROM UserModules.[user].SWATNoPROJECTS_AND_IDEAS_VOTING WHERE PROJECT_ID=" & pid & " AND USER_ID = '" & uid & "'")
        If Not IsNothing(r) Then
            criteria1Score.SelectedItem.Selected = False
            criteria2Score.SelectedItem.Selected = False
            criteria3Score.SelectedItem.Selected = False
            Try
                criteria1Score.Items.FindByValue(r("EFF_AMT__PROJECT____CREATIVITY__IDEA___MAX_4_")).Selected = True
            Catch ex As Exception
            End Try
            Try
                criteria2Score.Items.FindByValue(r("INNOVATION__PROJECT____POTENTIAL__IDEA___MAX_4_")).Selected = True
            Catch ex As Exception
            End Try
            Try
                criteria3Score.Items.FindByValue(r("IMPLEMENT__PROJECT____REPLICATION__IDEA___MAX_2_")).Selected = True
            Catch ex As Exception
            End Try
            Try
                Score.Text = "Score: " & (r("EFF_AMT__PROJECT____CREATIVITY__IDEA___MAX_4_") + _
                                          r("INNOVATION__PROJECT____POTENTIAL__IDEA___MAX_4_") + _
                                          r("IMPLEMENT__PROJECT____REPLICATION__IDEA___MAX_2_"))
            Catch ex As Exception
                Score.Text = "Score: - "
            End Try
            comment.Text = IIf(IsDBNull(r("comment")), "", r("comment"))
            notAuth.Visible = False
            voting.Visible = True
            Score.Visible = True
        Else
            notAuth.Visible = True
            voting.Visible = False
            Score.Visible = False
        End If
    End Sub

    Private Sub BuildAttachmentsList(pid As Integer)
        Dim dt As DataTable = sqlf.GetData("SELECT [id], [name] FROM UserModulesAttachments.[user].[SWATNoPROJECTS_AND_IDEAS] WHERE [deleted] = 'N' AND [type] = 'FILE' and [parentId] = " & pid)
        If Not IsNothing(dt) Then
            For Each dr As DataRow In dt.Rows
                If attachments.Controls.Count > 0 Then
                    attachments.Controls.Add(New Literal With {.Text = "<br/>"})
                End If
                Dim l As New HyperLink
                l.NavigateUrl = "~/handlers/getfile.ashx?id=" & dr("id") & "&storage=UserModulesAttachments.[user].[SWATNoPROJECTS_AND_IDEAS]"
                l.Text = dr("name")
                attachments.Controls.Add(l)

            Next
        End If
    End Sub

    Protected Sub save_Click(sender As Object, e As ImageClickEventArgs) Handles save.Click
        SaveScore(_pid, criteria1Score.SelectedValue, criteria2Score.SelectedValue, criteria3Score.SelectedValue, a.userId, comment.Text)
    End Sub

    Private Sub SaveScore(projId As Integer, score1 As Integer, score2 As Integer, score3 As Integer, userId As String, comment As String)
        Dim sql As New StringBuilder
        sql.AppendLine("update UserModules.[user].[SWATNoPROJECTS_AND_IDEAS_VOTING]")
        sql.AppendLine("set EFF_AMT__PROJECT____CREATIVITY__IDEA___MAX_4_ = " & score1 & ",")
        sql.AppendLine("INNOVATION__PROJECT____POTENTIAL__IDEA___MAX_4_ = " & score2 & ",")
        sql.AppendLine("IMPLEMENT__PROJECT____REPLICATION__IDEA___MAX_2_ = " & score3 & ",")
        sql.AppendLine("ttl = " & score1 + score2 + score3 & ",")
        sql.AppendLine("VOTE_DATE___TIME = getdate(),")
        sql.AppendLine("COMMENT = '" & comment & "' ")
        sql.AppendLine("WHERE PROJECT_ID = " & projId & " and user_ID = '" & userId & "'           ")
        sqlf.NonQuery(sql.ToString)
    End Sub

    
End Class