ModuleMaster/oh/prodloss.aspx.vb - main - ivan/ModMas

ModuleMaster/oh/prodloss.aspx.vb
50 строк2 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
Imports sharedClasses.dbFunctions

Partial Class oh_prodloss
    Inherits System.Web.UI.Page
    Private sqlf As New SqlFunctions
    Private Function GetData(dataType As String) As Data.DataTable
        Dim sql As New StringBuilder

        sql.AppendLine("SELECT ")
        sql.AppendLine(dataType & " as CRITERIA ")
        sql.AppendLine(", sum(white_ot_hr) as TTL_WHITE_OT_HR ")
        sql.AppendLine(", sum(black_ot_hr) as TTL_BLACK_OT_HR ")
        sql.AppendLine(", sum(ttl_ot_hr) as TTL_OT_HR ")
        sql.AppendLine(", sum( CASE IS_WEEKEND ")
        sql.AppendLine("WHEN 0 THEN white_ot_hr ELSE 0 END ) as WORKDAY_WHITE_OT_HR ")
        sql.AppendLine(", sum(CASE IS_WEEKEND ")
        sql.AppendLine("WHEN 0 THEN BLACK_ot_hr ELSE 0 END ) as WORKDAY_BLACK_OT_HR ")
        sql.AppendLine(", sum(CASE IS_WEEKEND ")
        sql.AppendLine("WHEN 0 THEN ttl_ot_hr ELSE 0 END ) as WORKDAY_OT_HR ")
        sql.AppendLine(", sum( CASE IS_WEEKEND ")
        sql.AppendLine("WHEN 1 THEN white_ot_hr ELSE 0 END ) as WEEKEND_WHITE_OT_HR ")
        sql.AppendLine(", sum(CASE IS_WEEKEND ")
        sql.AppendLine("WHEN 1 THEN BLACK_ot_hr ELSE 0 END ) as WEEKEND_BLACK_OT_HR ")
        sql.AppendLine(", sum(CASE IS_WEEKEND ")
        sql.AppendLine("WHEN 1 THEN ttl_ot_hr ELSE 0 END ) as WEEKEND_OT_HR ")
        sql.AppendLine(", count(*) as TTL_CNT ")
        sql.AppendLine(", sum( CASE IS_WEEKEND WHEN 0 THEN 1 ELSE 0 END ) as OT_WORKDAY_CNT ")
        sql.AppendLine(", sum(IS_WEEKEND) as OT_WEEKEND_CNT ")
        sql.AppendLine("FROM hr.[dbo].[TB_OT_HISTORY] ")
        sql.AppendLine("WHERE datepart(year,[DATE]) = 2015 ")
        sql.AppendLine("GROUP BY " & dataType)
        sql.AppendLine("ORDER BY sum(ttl_ot_hr) DESC ")
        Using sqlf
            Return sqlf.GetData(sql.ToString)
        End Using
    End Function

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        'sdsData.SelectCommand = sdsData.SelectCommand.Replace("@PARAM", ddlReportType.SelectedValue)
        If Not IsPostBack Then
            datefrom.Text = Date.Today.AddDays(-14).ToString("yyyy-MM-dd")
            dateto.Text = Date.Today.ToString("yyyy-MM-dd")
        End If
    End Sub

    Protected Sub Button1_Click(sender As Object, e As ImageClickEventArgs) Handles Button1.Click
        'gvReport.DataSource = GetData(ddlReportType.SelectedValue)
        gvReport.DataBind()
    End Sub
End Class