ModuleMaster/handlers/unpivotgraphdata.ashx - main - ivan/ModMas

ModuleMaster/handlers/unpivotgraphdata.ashx
148 строк5 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
<%@ WebHandler Language="VB" Class="UnpivotGraphData" %>

Imports System
Imports System.Web
Imports OpenFlashChartLib
Imports OpenFlashChartLib.Charts
Imports sharedClasses.dbFunctions

Public Class UnpivotGraphData : Implements IHttpHandler
    
    Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
        Dim params As String = context.Request.QueryString("params")
        If Not IsNothing(params) Then
            
        
            Try
                Dim paramsList() As String = params.Split("|")
                tableName = paramsList(0)
                weeks = paramsList(1)
                kpiColumn = paramsList(2)
                kpiName = paramsList(3)
                targetColumn = paramsList(4)
            Catch ex As Exception

            End Try
            Dim Chart As New Graph
            Chart.Title = New Title(kpiName)
        
            Dim LineHollow As New OpenFlashChartLib.Charts.LineHollow
            LineHollow.Colour = "#00FF00"
            LineHollow.Text = "Result"
            LineHollow.Fontsize = 12
            LineHollow.Width = 2
            LineHollow.DotSize = 4
        
            Dim Line As New OpenFlashChartLib.Charts.Line
            Line.Colour = "#0000FF"
            Line.Width = 2
            Line.Text = "Target"
            Line.Fontsize = 12
            Dim ds As Data.DataTable = BuildGraphData()
        
        
            Dim maxY As Integer = Integer.MinValue
            Dim minY As Integer = Integer.MaxValue
        
            If Not IsNothing(ds) Then
                Dim dt As Data.DataTable = ds
                For Each dr As Data.DataRow In dt.Rows
                    Chart.X_Axis.Labels.Labels.Add(dr("weeks").ToString.ToLower.Replace("_result", "").Replace("_", " "))
                    Try
                        If dr("vals").trim = "" Then dr("vals") = 0
                        dr("vals") = dr("vals").ToString.Replace(":", ".").Replace(" ", "")
                        Dim v As Single = Convert.ToSingle(dr("vals").ToString.Replace(" ", "")) + 0.001 '.Replace(".", ","))
                        Dim vVal As ILabelValue = LineHollow.NewValue(v.ToString, v)
                                           
                        LineHollow.Values.Add(vVal)
                    
                        If minY > v Then
                            minY = v
                        End If
                        If maxY < v Then
                            maxY = v
                        End If
                
                        If targetColumn <> "" Then
                            Dim t As Single = Convert.ToSingle(dr(targetColumn).ToString) '.Replace(".", ","))
                            
                            'If t < v Then
                            '    LineHollow.Colour = "#FF0000"
                            'End If
                            
                            Dim tVal As ILabelValue = Line.NewValue(t.ToString, t)
                            Line.Values.Add(tVal)
                    
                            If minY > t Then
                                minY = t
                            End If
                            If maxY < t Then
                                maxY = t
                            End If
                        End If
                    Catch ex As Exception

                    End Try
                Next
            End If
        
            Chart.Y_Axis.Max = maxY + 1
            
            Chart.Y_Axis.Min = minY - 1
            
            
            'If Chart.Y_Axis.Min < 0 Then
            '    Chart.Y_Axis.Min = 0
            'End If
            
            
            Dim steps As Integer = Math.Truncate((maxY - minY) / 10)
            If steps < 1 Then steps = 1
            Chart.Y_Axis.Steps = steps
        
            'Chart.Y_Axis.TickLength = 5
            'Chart.Y_Axis.SetRange(minY, maxY) ', 10)
        
            Chart.AddElement(LineHollow)
            If targetColumn <> "" Then
                Chart.AddElement(Line)
            End If
        
            context.Response.CacheControl = "no-cache"
            context.Response.ContentType = "text/plain"
            context.Response.Write(Chart.ToString)
        End If
    End Sub
    
    Private Property tableName As String
    Private Property weeks As String
    Private Property kpiColumn As String
    Private Property kpiName As String
    Private Property targetColumn As String = ""
    
    Private Function BuildGraphData() As Data.DataTable
        Dim sql As New StringBuilder
        sql.Append("select * from 											")
        sql.Append("(                                                       ")
        sql.Append("select " & kpiColumn & ", ")
        If targetColumn <> "" Then
            sql.Append(targetColumn & ", ")
        End If
        sql.Append(weeks & "  ")
        sql.Append("from usermodules.[user]." & tableName & ") p                           ")
        sql.Append("UNPIVOT                                                 ")
        sql.Append("(                                                       ")
        sql.Append("vals for weeks in (" & weeks & ")    ")
        sql.Append(") as unpvt                                              ")
        sql.Append("where " & kpiColumn & " = '" & kpiName & "'")
        Return (New SqlFunctions).GetData(sql.ToString)
    End Function

 
    Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
        Get
            Return False
        End Get
    End Property

End Class