ModuleMaster/pe/noncomsupply.aspx.vb - main - ivan/ModMas

ModuleMaster/pe/noncomsupply.aspx.vb
166 строк7 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 noncomsupply
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        Dim userid As String = ""
        Dim sqlf As New SqlFunctions
        If Not IsNothing(Request.QueryString("OrchUserLogin")) Then
            userid = Request.QueryString("OrchUserLogin")
        End If
        edTableToView.IsReadOnly = True
        edTableToView.UserName = userid.ToUpper

        edTableToView.AuthorityCheck()

        If userid.ToUpper <> "" And edTableToView.accessType = "" Then
            Dim com As New SqlCommand("INSERT INTO UserModules.dbo.Users (userName, userId, groupId, enabled) VALUES (@userName, @userId, @groupId, 1)")
            With com.Parameters
                .AddWithValue("userName", userid.ToUpper)
                .AddWithValue("userId", userid.ToUpper)
                .AddWithValue("groupId", 83)
            End With
            Call sqlf.NonQuery(com)
        End If

        edTableToView.Message = ""

    End Sub

    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)

    End Sub

#Region "Grid action"

    Protected Sub filterChanged() Handles edTableToView.GridFilterChanged

    End Sub

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

    End Sub

    Private Sub ElementSaved(tableName As String, fieldName As String, id As String, value As String, fieldType As String, byButton As Boolean, text As String) Handles edTableToView.SavedElement
        Dim sqlf As New SqlFunctions
        Dim com As New SqlCommand
        Dim sql As String = "UPDATE USerModules.[user].NONNoCOMMERCIAL_SUPPLY SET [CHANGED_BY]=@userName "
        With com.Parameters
            .AddWithValue("id", id)
            .AddWithValue("userName", edTableToView.UserName.ToLower)
            If fieldName = "COST_CENTER" Then
                .AddWithValue("value", text)
                sql &= " , [COST_CENTER_DESCRIPTION]=@value "
            End If
        End With
        sql &= " WHERE id=@id"
        com.CommandText = sql.ToString
        sqlf.NonQuery(com)
    End Sub

    Private Sub Action(sender As Object, e As GridViewCommandEventArgs) Handles edTableToView.RowCommand
        Dim CommandName As String = e.CommandName
        Dim CommandArgument As String = e.CommandArgument
        Select Case CommandName
            Case "CC_CONFIRM"
                Dim sql As String = "UPDATE USerModules.[user].NONNoCOMMERCIAL_SUPPLY SET [CC_STAUS_VALUE] = ([CC_STAUS_VALUE] + 1) % 2, [CC_STATUS] = ([CC_STATUS] + 1) % 2  WHERE id=@id"
                Dim com As New SqlCommand(sql)
                With com.Parameters
                    .AddWithValue("id", CommandArgument)
                End With
                Dim sqlf As New SqlFunctions
                sqlf.NonQuery(com)
                ElementSaved("", "", CommandArgument, "", "", False, "")
                edTableToView.RefreshData()
            Case "MM_CONFIRM"
                Dim sql As String = "UPDATE USerModules.[user].NONNoCOMMERCIAL_SUPPLY SET [MM_STATUS_VALUE] = ([MM_STATUS_VALUE] + 1) % 2, [MM_STATUS] = ([MM_STATUS] + 1) % 2 WHERE id=@id"
                Dim com As New SqlCommand(sql)
                With com.Parameters
                    .AddWithValue("id", CommandArgument)
                End With
                Dim sqlf As New SqlFunctions
                sqlf.NonQuery(com)
                ElementSaved("", "", CommandArgument, "", "", False, "")
                edTableToView.RefreshData()
        End Select
    End Sub

    'ATTENTION! HARDCODING!!
    Private Sub ProcessingConfirmations(sender As Object, e As EventArgs) Handles edTableToView.PreRender
        For Each dr As GridViewRow In edTableToView.Grid.Rows
            If dr.RowType = DataControlRowType.DataRow Then
                If dr.Cells(16).Text = "1" Then
                    For Each childc In dr.Cells(8).Controls
                        If TypeOf childc Is Object Then
                            childc.ImageUrl = childc.ImageUrl.Replace("warning", "edit")
                        End If
                    Next
                End If
                If dr.Cells(17).Text = "1" Then
                    For Each childc In dr.Cells(11).Controls
                        If TypeOf childc Is Object Then
                            childc.ImageUrl = childc.ImageUrl.Replace("warning", "edit")
                        End If
                    Next
                End If
            End If
        Next
    End Sub

    Private Sub Deleteting(itemId As Integer, ByRef cancelDelete As Boolean) Handles edTableToView.RecordDeleting
        Dim status As Integer = (New SqlFunctions).GetScalar("SELECT (CC_STAUS_VALUE + MM_STATUS_VALUE) as status  FROM UserModules.[user].[NONNoCOMMERCIAL_SUPPLY] where id = " & itemId)
        If status > 0 Then
            cancelDelete = True
            edTableToView.Message = "Can't delete this record due to it's status"
        End If
    End Sub

    Private Sub SavingItem(tableName As String, _
                           fieldName As String, _
                           rowId As String, _
                           value As String, _
                           fieldType As String, _
                           byButton As Boolean, _
                           text As String, _
                           ByRef cancelSave As Boolean) Handles edTableToView.SavingElement
        Dim status As Integer = (New SqlFunctions).GetScalar("SELECT (CC_STAUS_VALUE + MM_STATUS_VALUE) as status  FROM UserModules.[user].[NONNoCOMMERCIAL_SUPPLY] where id = " & rowId)
        If status > 0 Then
            cancelSave = True
            edTableToView.Message = "Can't update this record due to it's status"
        End If
    End Sub

#End Region
    Protected Sub Page_PreRender(sender As Object, e As System.EventArgs) Handles Me.PreRender
        If edTableToView.IsReadOnly Then
            edTableToView.CollectHeaderColumn(1)
        End If
        lnkGraphView.Visible = False
        Title = edTableToView.TableDescription
    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

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

    Protected Sub GetGraphData(ByRef graphData As String) Handles edTableToView.RequestForGraphData

    End Sub

    Protected Sub edTableToView_PreRender(sender As Object, e As System.EventArgs) Handles edTableToView.PreRender

    End Sub
End Class