ModuleMaster/inv/falist.aspx.vb - main - ivan/ModMas

ModuleMaster/inv/falist.aspx.vb
121 строка4 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
Imports sharedClasses.dbFunctions

Partial Class INV_falist
    Inherits System.Web.UI.Page

    Private sqlf As New SqlFunctions

    Private 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

    Protected Sub Page_PreLoad(sender As Object, e As EventArgs) Handles Me.PreLoad
        Try
            Auth1.currentUser = Session("UserName")
        Catch ex As Exception

        End Try
    End Sub

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Auth1.currentUser <> "" Then
            authorize("SESSION")
        Else
            authorize("SSO")
        End If

        edgFAList.UserName = a.userId

        If IsPostBack Then
            edgFAList.gridNotice.Visible = False

        End If

    End Sub

    Private Sub formLogout() Handles Auth1.Logout
        authorize("SSO")
        edgFAList.UserName = a.userId
    End Sub

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

    Protected Sub UpdateCarsDailyStat(sender As Object, e As CommandEventArgs) Handles edgFAList.ActionRequest
        If e.CommandArgument = "GET_STAT" Then
            Dim sql As New StringBuilder
            sql.AppendLine("with stat as ( ")
            sql.AppendLine("SELECT ")
            sql.AppendLine("[date], car_number, ")
            sql.AppendLine("min(start_odo) as start_odo, ")
            sql.AppendLine("max(end_odo) as end_odo, ")
            sql.AppendLine("max(end_odo) - min(start_odo) as mileage, ")
            sql.AppendLine("sum(fuel) as fuel ")
            sql.AppendLine("from UserModules.[user].ROUTES_DAILY ")
            sql.AppendLine("group by [date], car_number) ")
            sql.AppendLine("MERGE UserModules.[user].Car_daily as trg ")
            sql.AppendLine("USING stat as src ")
            sql.AppendLine("ON trg.[date] = src.[date] and trg.car_number = src.car_number ")
            sql.AppendLine("WHEN MATCHED THEN ")
            sql.AppendLine("UPDATE SET trg.start_odo = src.start_odo, ")
            sql.AppendLine("trg.end_odo = src.end_odo, ")
            sql.AppendLine("trg.mileage = src.mileage, ")
            sql.AppendLine("trg.fuel_liters = src.fuel ")
            sql.AppendLine("WHEN NOT MATCHED THEN ")
            sql.AppendLine("INSERT ([date], CAR_NUMBER, START_ODO, END_ODO, MILEAGE, FUEL_LITERS) ")
            sql.AppendLine("VALUES (src.[date], src.CAR_NUMBER, src.START_ODO, src.END_ODO, src.MILEAGE, src.FUEL); ")
            edgFAList.Message = "Updated: " & sqlf.NonQuery(sql.ToString)
            edgFAList.RefreshData()
        End If
    End Sub

    Protected Sub checkingApprovalStatus(ByRef row As GridViewRow, ByRef isReadonly As Boolean) Handles edgFAList.RowDataBinding
        'Try
        If row.RowType = DataControlRowType.DataRow Then
            Dim rowView As Data.DataRowView = CType(row.DataItem, Data.DataRowView)
            'If Not IsDBNull(rowView("OPERATOR_APPROVE")) Then
            '    If rowView("OPERATOR_APPROVE") = "Y" Or rowView("OPERATOR_APPROVE") = "true" Then
            '        isReadonly = True
            '    End If
            'End If

            'If Not IsDBNull(rowView("MANAGER_APPROVE")) Then
            '    If rowView("MANAGER_APPROVE") = "Y" Or rowView("MANAGER_APPROVE") = "true" Then
            '        isReadonly = True
            '    End If
            'End If
        End If
        'Catch ex As Exception

        'End Try

    End Sub

    Protected Sub enableApprovalDecisionChange(ByRef row As GridViewRow) Handles edgFAList.RowDataBoundComplete
        If row.RowType = DataControlRowType.DataRow Then
            Dim rowView As Data.DataRowView = CType(row.DataItem, Data.DataRowView)
        End If
    End Sub

    Private copyFlag As Boolean = False
    Private copyId As Integer = -1

    Protected Sub rowCommand(sender As Object, e As GridViewCommandEventArgs) Handles edgFAList.RowCommand
        If e.CommandName = "COPY_ROW" Then
            If IsNumeric(e.CommandArgument) Then
                copyFlag = True
                copyId = Convert.ToInt16(e.CommandArgument)
            End If
        End If
    End Sub

    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)

    End Sub

    Private Sub GA_transport_AbortTransaction(sender As Object, e As EventArgs) Handles Me.AbortTransaction

    End Sub
End Class