ModuleMaster/qc/rework.aspx.vb - main - ivan/ModMas

ModuleMaster/qc/rework.aspx.vb
87 строк3 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
Imports System.Data
Imports System.Data.SqlClient

Partial Class Xml_viewTable
    Inherits System.Web.UI.Page

    Private sqlf As New sharedClasses.dbFunctions.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_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

        If Not IsNothing(Request.QueryString("u")) Then
            userid = Request.QueryString("u")
        End If

        If userid = "" Then
            authorize("SSO")

            userid = a.userId
            edTableToView.Message = "By SSO: " & a.userId
        End If

        Dim tableId As String = ""
        If Not IsNothing(Request.QueryString("tableId")) Then
            tableId = Request.QueryString("tableId")
        End If
        If Not IsNothing(Request.QueryString("t")) Then
            tableId = Request.QueryString("t")
        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
        If edTableToView.IsReadOnly Then
            edTableToView.CollectHeaderColumn(1)
        End If
        Title = edTableToView.TableDescription
    End Sub

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

    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)

    End Sub

    Protected Sub CheckStatus(tableName As String, fieldname As String, rowid As String, _
                              value As String, fieldType As String, b As Boolean, _
                              text As String, ByRef cancelSave As String) Handles edTableToView.SavingElement
        edTableToView.Message = fieldname & "|" & value
        If fieldname = "PROCESS_TYPE" Then
            If value = " " Then
                sqlf.NonQuery("UPDATE " & tableName & " SET PURCHASING_STATUS = 'Pending' WHERE id=" & rowid)
            Else
                sqlf.NonQuery("UPDATE " & tableName & " SET PURCHASING_STATUS = 'Progressing' WHERE id=" & rowid)
            End If
        End If
    End Sub

    Protected Sub CheckAttachment(tableName As String, fieldName As String, rowid As String) Handles edTableToView.AddedAttachment
        If fieldName = "PURCHASER_EVIDENCE" Then
            sqlf.NonQuery("UPDATE " & tableName.Replace("Attachments", "") & " SET PURCHASING_STATUS = 'Finish', FINISH_DATE='" & Date.Today.ToString("yyyy-MM-dd") & "' WHERE id=" & rowid)
        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

    Protected Sub UpdateCreateDate(recordId As Integer) Handles edTableToView.NewRecordSaved
        sqlf.NonQuery("UPDATE UserModules.[user].REWORK_LAYOUT set CLAIM_DATE='" & Date.Today.ToString("yyyy-MM-dd") & "' WHERE id=" & recordId)
    End Sub

End Class