ModuleMaster/ga/noaccident.aspx.vb - main - ivan/ModMas

ModuleMaster/ga/noaccident.aspx.vb
53 строки2 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
Imports System.Globalization
Imports sharedClasses.dbFunctions
Imports sharedClasses.dbFunctions.SqlFunctions

Partial Class GA_noaccdayscount
    Inherits System.Web.UI.Page
    Dim sqlf As New SqlFunctions

    Private Sub form1_Load(sender As Object, e As EventArgs) Handles form1.Load
        Dim noAccDaysTarget As String = Request.QueryString("target")
        Dim target As Integer = 100
        If Not IsNothing(noAccDaysTarget) Then
            If IsNumeric(noAccDaysTarget) Then
                target = noAccDaysTarget
            End If
        End If
        lblTarget.Text = target
        'lblDaysWOAccident.Text = sqlf.GetScalar("select usermodules.dbo.f_pad_left(datediff(day, cast(max(ACCIDENT_DATE) as date), getdate() ),4,'0') from USerMOdules.[user].SAFETY_HISTORY_LOG")
        Dim lastAccidentDate As Date = sqlf.GetScalar("select cast(max(ACCIDENT_DATE) as date) from USerMOdules.[user].SAFETY_HISTORY_LOG")
        lblAccidentDescirption.Text = sqlf.GetScalar("select DESCIRPTION from USerMOdules.[user].SAFETY_HISTORY_LOG where ACCIDENT_DATE='" & lastAccidentDate.ToString("yyyy-MM-dd") & "'")
        lblAccidentDescirption.Text = lblAccidentDescirption.Text.Replace(Chr(10), "<br/>")
        lblDateFrom.Text = lastAccidentDate.ToString("dd.MM.yyyy")
        lblDateTo.Text = lastAccidentDate.AddDays(target - 1).ToString("dd.MM.yyyy")
        Dim d As Integer ' = sqlf.GetScalar("select datediff(day, cast(max(ACCIDENT_DATE) as date), getdate() ) from USerMOdules.[user].SAFETY_HISTORY_LOG")
        d = DateDiff(DateInterval.Day, lastAccidentDate, Date.Today)
        If d < 0 Then d = 0
        If d = 1 Then
            lblDays.text = "день"
        ElseIf d < 5 Then
            lblDays.Text = "дня"
        Else
            lblDays.text = "дней"

        End If
        'lblDays.ForeColor = Drawing.Color.Navy
        lblDaysWOAccident.Text = d
        'Dim culture As New CultureInfo("ru-RU")
        'CultureInfo.CurrentCulture = culture
        lblCurDate.DataBind()

        If hfWhatToShow.Value = "data" Then
            hfWhatToShow.Value = "photo"
            pnlPhoto.Visible = True
            pnlData.Visible = False
        Else
            hfWhatToShow.Value = "data"
            pnlPhoto.Visible = False
            pnlData.Visible = True
        End If


    End Sub
End Class