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

ModuleMaster/qc/lprsamplegrade.aspx.vb
164 строки6 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 lprSampleGrade
    Inherits System.Web.UI.Page

    Private sqlf As New SqlFunctions

    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
        edTableToView.IsReadOnly = True
        edTableToView.UserName = userid.ToUpper

    End Sub

    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)

    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 RefreshREquired Then
            edTableToView.RefreshData()
            edTableToView.Refresh()
        End If


        If edTableToView.IsReadOnly Then
            edTableToView.CollectHeaderColumn(1)
        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 Page_SaveStateComplete(sender As Object, e As EventArgs) Handles Me.SaveStateComplete
        edTableToView.CreateGroupingText()
    End Sub

    Private Sub UpdateStatus(tableName As String, fieldName As String, rowId As String, value As String, fieldType As String, byButton As Boolean, text As String) Handles edTableToView.SavedElement
        If fieldName = "W_H_MOVED_DATA" Then
            If value <> "" Then
                Call sqlf.NonQuery("UPDATE Usermodules.[user].[2013_LPR_SAMPLES_EVALUATION_GRADE] SET [STATUS] = 'G' WHERE id=" & rowId)
                If byButton Then
                    edTableToView.RefreshData(True)
                End If

            Else
                Call sqlf.NonQuery("UPDATE Usermodules.[user].[2013_LPR_SAMPLES_EVALUATION_GRADE] SET [STATUS] = '' WHERE id=" & rowId)
                If byButton Then
                    edTableToView.RefreshData(True)
                End If
            End If
        End If
    End Sub

    Private fieldsList() As String = {"SN", "Model", "Stage", "OQC_Inspection_Date", "Qty", "Lot", "LPR_Date"}

    Private Sub FixAddForm(ByRef pnlAdd As Panel) Handles edTableToView.PreparedAddForm
        Dim tbl As HtmlTable = CType(pnlAdd.Controls(5), HtmlTable)
        tbl.Rows.Clear()
        For Each s As String In fieldsList
            Dim tr As New HtmlTableRow
            Dim tc1 As New HtmlTableCell With {.InnerText = s.Replace("_", " ")}
            Dim tc2 As New HtmlTableCell
            Dim cntrl As Control
            If s.ToUpper.Contains("DATE") Then
                Dim txt As UserControls_txtDatePicker = LoadControl("~/UserControls/txtDatePicker.ascx")
                txt.ID = s
                txt.CIdMode = UI.ClientIDMode.Predictable
                txt.Text = ""
                cntrl = txt
            Else
                Dim txt As New TextBox With {.ID = s}
                cntrl = txt
            End If

            tc2.Controls.Add(cntrl)
            tr.Cells.Add(tc1)
            tr.Cells.Add(tc2)
            tbl.Rows.Add(tr)
        Next
        pnlAdd.Width = Unit.Pixel(200)
    End Sub

    Private RefreshREquired As Boolean = False

    Private Sub ReplaceSaveNewItem(ByRef skip As Boolean) Handles edTableToView.AskForSaveNewItem

        Dim qty As String = Request.Form("edTableToView$qty")

        If Not IsNumeric(qty) Then

        Else
            Dim firstSn As String = Request.Form("edTableToView$sn")
            If firstSn.Length = 14 Then
                Dim snCntr As String = firstSn.Substring(firstSn.Length - 6, 6)
                Dim snHead As String = firstSn.Substring(0, 8)

                Dim com As New SqlCommand
                For i As Integer = 0 To qty
                    com.CommandText = "INSERT INTO Usermodules.[user].[2013_LPR_SAMPLES_EVALUATION_GRADE] (S_N, model, stage, OQC_INSPECTION_DATE, LOT_No, LPR_PRODUCED_DATE) values (@s_n, @model, @stage, @OQC_INSPECTION_DATE, @lot, @LPR_PRODUCED_DATE) "
                    With com.Parameters
                        .Clear()
                        .AddWithValue("s_n", snHead & (snCntr + i))
                        .AddWithValue("model", Request.Form("edTableToView$model"))
                        .AddWithValue("stage", Request.Form("edTableToView$stage"))
                        .AddWithValue("OQC_INSPECTION_DATE", Request.Form("edTableToView$OQC_Inspection_Date$TextBox1"))
                        .AddWithValue("lot", Request.Form("edTableToView$lot"))
                        .AddWithValue("LPR_PRODUCED_DATE", Request.Form("edTableToView$LPR_Date$TextBox1"))
                    End With
                    sqlf.NonQuery(com)
                Next
            End If
        End If
        RefreshREquired = True

        'Dim txt As String = ""
        'For Each s As String In fieldsList
        '    If s.ToUpper.Contains("DATE") Then
        '        txt = Request.Form("edTableToView$" & s & "$TextBox1")
        '        'edTableToView%24OQC_Inspection_Date%24TextBox1
        '    Else
        '        txt = Request.Form("edTableToView$" & s)
        '    End If
        '    'lblMessage.Text &= "<br/>" & s & ":" & txt
        'Next

        skip = True

    End Sub

    Protected Sub ActioRequest(sender As Object, e As CommandEventArgs) Handles edTableToView.ActionRequest
        Dim comName As String = e.CommandName

        Dim comArg As String = e.CommandArgument

        Select Case comArg
            Case "PRICE_MANAGE"
                'Response.Write("<script type='text/javascript'>detailedresults=window.open('~/viewtable.aspx?tableid=404);</script>")
                Response.Redirect("~/viewtable.aspx?tableid=404&orchuserlogin=" & edTableToView.UserName)

            Case "PRICE_UPDATE"
                sqlf.NonQuery("UPDATE UserModules.[user].[2013_LPR_SAMPLES_EVALUATION_GRADE] " & _
                "ORIGINAL_COST__RUB_ = ( " & _
                 "SELECT TOP 1 MAX (price) " & _
                 "FROM UserModules.[user].[2013_LPR_SAMPLE_PRICE] tt " & _
                 "WHERE	tt.code = SUBSTRING (UserModules.[user].[2013_LPR_SAMPLES_EVALUATION_GRADE].model,3,7)) " & _
                "WHERE	ORIGINAL_COST__RUB_ = ''")
        End Select
    End Sub


End Class