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

ModuleMaster/hr/lobbysales.aspx.vb
147 строк6 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 lobbysales
    Inherits System.Web.UI.Page

#Region "Page life"

    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 = ""
        If Not IsNothing(Request.QueryString("tableId")) Then
            tableId = Request.QueryString("tableId")
        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>")

        graphForTable.SelectCondition = edTableToView.SelectConditionByFilters
        graphForTable.DrawGraph()

        If edTableToView.IsReadOnly Then
            edTableToView.CollectHeaderColumn(1)
        End If
        If Request.QueryString("tableId") IsNot Nothing Then
            lnkGraphView.Visible = True
            lnkGraphView.Text = "View graph in a new window"
            lnkGraphView.NavigateUrl = "~/viewgraph.aspx?tableid=" & Request.QueryString("tableId")
        Else
            lnkGraphView.Visible = False
        End If
        Title = edTableToView.TableDescription
    End Sub

    Protected Sub Page_SaveStateComplete(sender As Object, e As EventArgs) Handles Me.SaveStateComplete
        edTableToView.CreateGroupingText()
    End Sub
#End Region

#Region "Misc"

    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)

    End Sub

#End Region

#Region "Grid actions"
    Protected Sub edTableToView_PreRender(sender As Object, e As System.EventArgs) Handles edTableToView.PreRender

    End Sub

    Private Sub DataSelecting(sqlScript As String) Handles edTableToView.DataSelecting
        Dim sql As New StringBuilder

        sql.Append(" WITH CNT_TABLE as ( ")
        sql.Append(" SELECT ")
        sql.Append(" [date], ")
        sql.Append(" requestors_name, ")
        sql.Append(" product_type, ")
        sql.Append(" (SELECT COUNT (*) ")
        sql.Append(" FROM UserModules.[user].[LOBBY_SALES] ")
        sql.Append(" WHERE ")
        sql.Append(" REQUESTORS_NAME = t1.requestors_name ")
        sql.Append(" AND PRODUCT_TYPE = t1.product_type ")
        sql.Append(" AND [date] between (cast(datepart(YEAR, t1.date) as varchar) + '-01-01' ) ")
        sql.Append(" and (cast(datepart(YEAR, t1.date) as varchar) + '-12-31') ")
        sql.Append(" ) AS CNT, ")
        sql.Append(" isnull((SELECT SUM(CAST(PRICE as DECIMAL) * (100 - CAST(RATE AS DECIMAL))/100) ")
        sql.Append(" FROM UserModules.[user].[LOBBY_SALES] ")
        sql.Append(" WHERE ")
        sql.Append(" REQUESTORS_NAME = t1.requestors_name ")
        sql.Append(" AND [date] between (cast(datepart(YEAR, t1.date) as varchar) + '-01-01' ) ")
        sql.Append(" and (cast(datepart(YEAR, t1.date) as varchar) + '-12-31') ")
        sql.Append(" ),0) AS ACCU_AMNT ")
        sql.Append(" FROM ")
        sql.Append(" UserModules.[user].[LOBBY_SALES] t1 ")
        sql.Append(" ) ")
        sql.Append(" UPDATE UserModules.[user].[LOBBY_SALES] ")
        sql.Append(" SET UserModules.[user].[LOBBY_SALES].DUPLICATION = CNT_TABLE.CNT, ")
        sql.Append(" UserModules.[user].[LOBBY_SALES].ACCUMULATED_AMOUNT = CNT_TABLE.ACCU_AMNT ")
        sql.Append(" FROM CNT_TABLE ")
        sql.Append(" INNER JOIN UserModules.[user].[LOBBY_SALES] ")
        sql.Append(" ON UserModules.[user].[LOBBY_SALES].REQUESTORS_NAME = CNT_TABLE.requestors_name ")
        sql.Append(" AND UserModules.[user].[LOBBY_SALES].[DATE] = CNT_TABLE.[DATE] ")
        sql.Append(" AND UserModules.[user].[LOBBY_SALES].PRODUCT_TYPE = CNT_TABLE.PRODUCT_TYPE ")


        Call (New SqlFunctions).NonQuery(sql.ToString)
    End Sub

    Private Sub DataSelected(dt As DataTable) Handles edTableToView.DataSelected

    End Sub

    Protected Sub filterChanged() Handles edTableToView.GridFilterChanged

    End Sub

    Private Sub RowDataBound(ByRef row As GridViewRow) Handles edTableToView.RowDataBoundComplete
        If row.RowType = DataControlRowType.DataRow Then
            Dim rowView As DataRowView = CType(row.DataItem, DataRowView)
            Try
                If rowView("DUPLICATION") > 2 Then
                    row.Cells(8).BackColor = Drawing.Color.Red
                ElseIf rowView("DUPLICATION") > 1 Then
                    row.Cells(8).BackColor = Drawing.Color.Yellow
                End If
            Catch ex As Exception

            End Try
            
            Try
                If rowView("ACCUMULATED_AMOUNT") >= 100000 Then
                    row.Cells(9).BackColor = Drawing.Color.Red
                ElseIf rowView("ACCUMULATED_AMOUNT") > 80000 Then
                    row.Cells(9).BackColor = Drawing.Color.Yellow
                End If
            Catch ex As Exception

            End Try
            
        End If
    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
#End Region

#Region "Graph"
    Protected Sub GetGraphData(ByRef graphData As String) Handles edTableToView.RequestForGraphData
        graphData = graphForTable.GetHTMLGraph
    End Sub
#End Region

End Class