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

ModuleMaster/qc/ibi.aspx.vb
54 строки3 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
Imports sharedClasses.dbFunctions

Partial Class QC_ibi
    Inherits System.Web.UI.Page

    Private sqlf As New SqlFunctions

    Protected Sub QC_ibi_Load(sender As Object, e As EventArgs) Handles Me.Load
        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
        editableGrid1.IsReadOnly = True
        editableGrid1.UserName = userid.ToUpper

        Try
            editableGrid1.TableId = tableId
            ' graphForTable.TableId = tableId

        Catch ex As Exception

        End Try
    End Sub

    Protected Sub QC_ibi_PreRender(sender As Object, e As EventArgs) Handles Me.PreRender

        'Dim ttlData As Data.DataTable = sqlf.GetData("select t.ttlSampleSize, t.ttlDefectQty, t.ttlSampleSize * t.ttlDefectQty /10000 as ttlDefectRate from (select sum(cast( sample_size as decimal)) as ttlSampleSize, sum(cast (DEFECT_Q_TY as decimal)) as ttlDefectQty from UserModules.[user].IBI) t")
        ttlDefectRate.Text = sqlf.GetScalar("select cast(t.ttlDefectQty / t.ttlSampleSize * 100 as decimal(18,2)) as ttlDefectRate from (select sum(cast( sample_size as decimal)) as ttlSampleSize, sum(cast (DEFECT_Q_TY as decimal)) as ttlDefectQty from UserModules.[user].IBI) t").ToString & "%"
        Dim sql As New StringBuilder
        sql.Append("select cast (cast(sum(t.rejected) as decimal)/		")
        sql.Append("cast( (sum(t.rejected) + sum(t.passed) )        ")
        sql.Append("as decimal) * 100 as decimal(18,2)) as rejectRate from (          ")
        sql.Append("select                                          ")
        sql.Append("case STATUS_HISTORY                             ")
        sql.Append("when 'Rejected' then 1                          ")
        sql.Append("else 0                                          ")
        sql.Append("end as rejected                                 ")
        sql.Append(",                                               ")
        sql.Append("case when STATUS_HISTORY <> 'Rejected' then 1   ")
        sql.Append("else 0                                          ")
        sql.Append("end as passed                                   ")
        sql.Append(" from UserModules.[user].IBI) t                 ")
        lotRejectRate.Text = sqlf.GetScalar(sql.ToString).ToString & "%"
    End Sub

    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)

    End Sub

End Class