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

ModuleMaster/qc/jigmaint.aspx.vb
111 строк5 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 jigMaint
    Inherits System.Web.UI.Page

    Private sqlf As New SqlFunctions

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            edTableToView.UpdateFilters("SCRAPPED", "=", "'N'")
        End If
        Dim userid As String = ""
        If Not IsNothing(Request.QueryString("OrchUserLogin")) Then
            userid = Request.QueryString("OrchUserLogin")
        End If
        Dim tableId As String = ""
        If Not IsNothing(Request.QueryString("tableId")) Then
            tableId = Request.QueryString("tableId")
        End If

        edTableToView.Message = ""
        edTableToView.IsReadOnly = True
        edTableToView.UserName = userid.ToUpper

        Try
            edTableToView.TableId = tableId
        Catch ex As Exception
        End Try
        history.Visible = False
        If Not IsPostBack Then
            edTableToView.UpdateFilters("SCRAPPED", "=", "'N'")
        End If
    End Sub

    Protected Sub action(sender As Object, e As GridViewCommandEventArgs) Handles edTableToView.RowCommand
        Select Case e.CommandName
            Case "MAINTANE"
                Dim sql As New StringBuilder
                sql.Append("select '" & edTableToView.UserName & "', vendor, jig_type, qnoty, description, getdate(), decision, remark from UserModules.[user].JIG_MANAGEMENT WHERE id=" & e.CommandArgument)
                Try
                    Dim dt As DataRow = sqlf.GetData(sql.ToString).Rows(0)
                    If dt("DECISION").ToString.Trim = "" Or dt("REMARK").ToString.Trim = "" Then
                        edTableToView.typedMessage = {"ERROR", "You should selecte both DECISION and REMARK before register"}
                        Exit Sub
                    End If

                    sql.Clear()
                    sql.AppendLine("insert into UserModules.[user].JIG_MANAGEMENT_HISTORY (num, created_by, vendor, jig_type, qnoty, DESCRIPTION, VERIFICATION_DATE, DECISION, REMARK)")
                    sql.AppendLine("select id, '" & edTableToView.UserName & "', vendor, jig_type, qnoty, description, '" & DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss") & "', decision, remark from UserModules.[user].JIG_MANAGEMENT WHERE id=" & e.CommandArgument)
                    sqlf.NonQuery(sql.ToString)
                    sql.Clear()
                    'sql.AppendLine("UPDATE UserModules.[user].JIG_MANAGEMENT SET decision='', remark='', verification_date = '" & Date.Today.AddMonths(1).ToString("yyyy-MM-dd") & "'")
                    sql.AppendLine("UPDATE UserModules.[user].JIG_MANAGEMENT SET  verification_date = '" & Date.Today.AddMonths(1).ToString("yyyy-MM-dd") & "'")
                    If dt("DECISION").ToString.Trim.ToUpper = "SCRAP" Then
                        sql.AppendLine(" , [SCRAPPED] = 'Y', [SCRAP] = 'Y' ")
                    End If
                    sql.AppendLine(" WHERE ID = " & e.CommandArgument)
                    sqlf.NonQuery(sql.ToString)
                    edTableToView.RefreshData()
                Catch ex As Exception
                    edTableToView.Message = "DB ERROR. REFRESH THE PAGE."
                    Exit Sub
                End Try
            Case "HISTORY"
                historyData.DataSource = sqlf.GetData("SELECT TOP 20 num as [Jig ID], created_by as [Inspector], vendor as [Vendor], jig_type as [JIG Type], description as [Description], verification_date as [Check date], decision as [Decision], remark as [Remark] FROM UserModules.[user].JIG_MANAGEMENT_HISTORY where num=" & e.CommandArgument & " ORDER BY verification_date desc")
                historyData.DataBind()
                ' history_PopupControlExtender.
                history.Visible = True
        End Select

    End Sub

    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)

    End Sub

    Protected Sub filterChanged() Handles edTableToView.GridFilterChanged

    End Sub

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

    End Sub

    Protected Sub Page_PreRender(sender As Object, e As System.EventArgs) Handles Me.PreRender
        'ClientScript.RegisterStartupScript(Me.GetType(), "CreateGridHeader", "<script>CreateGridHeader('DataDiv', 'editableGrid1_GridView1', 'HeaderDiv');</script>")

        If edTableToView.IsReadOnly Then
            edTableToView.CollectHeaderColumn(1)
        End If
        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 edTableToView_PreRender(sender As Object, e As System.EventArgs) Handles edTableToView.PreRender

    End Sub
End Class