ModuleMaster/sj/requirements.aspx.vb - main - ivan/ModMas

ModuleMaster/sj/requirements.aspx.vb
161 строка7 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
Imports System.Data
Imports System.Data.SqlClient
Imports System.Net
Imports System.IO
Imports sharedClasses.dbFunctions


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

    Dim tableId As String = ""

    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
            edTableToView.Message = "-"
        End If


        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
        If IsNumeric(tableId) Then
            edTableToView.TableId = tableId
        End If
        edTableToView.SubReport.Controls.Add(createSubreport(tableId))
    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
        'edTableToView.HeaderRow.Cells(edTableToView.HeaderRow.Cells.Count - 2).Controls.Add(New CheckBox With {.ID = "selectall", .ClientIDMode = UI.ClientIDMode.Static, .ToolTip = "@@@"})

    End Sub


    Private Function createSubreport(tid As String) As GridView

        Dim gv As New GridView
        Dim sqlf As New sharedClasses.dbFunctions.SqlFunctions
        Dim query As String = sqlf.GetScalar("SELECT isnull(SUBREPORT_QUERY,'') from usermodules.dbo.moduletables where id = " & tid)
        If query <> "" And Not (query.Contains("update") Or
                               query.Contains("delete") Or
                               query.Contains("exec") Or
                               query.Contains("truncate") Or
                               query.Contains("drop")) Then
            gv.DataSource = sqlf.GetData(query)
            Try
                gv.DataBind()
            Catch ex As Exception
                Return Nothing
            End Try
        End If
        Return gv
    End Function

    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()
        'edTableToView.CollectHeaderColumn(2)
        'edTableToView.CollectHeaderColumn(3)
        'edTableToView.CollectHeaderColumn(4)
        'edTableToView.CollectHeaderColumn(5)
        'edTableToView.CollectHeaderColumn(6)
    End Sub

    Protected Sub action(sender As Object, e As CommandEventArgs) Handles edTableToView.ActionRequest

        Dim targetDate As String = edTableToView.Filters("[PROD_DATE]")
        If Not IsNothing(targetDate) Then
            targetDate = targetDate.Split("N")(1).Trim("A").Trim().Trim("'")

            edTableToView.Message = "Updated data for " & targetDate
            Select Case e.CommandArgument
                Case "DATA_DOWNLOAD", "DATA_DOWNLOAD1"
                    Dim sqlf As New sqlfunctions
                    Dim sql As New StringBuilder

                    sqlf.NonQuery("DELETE FROM [UserModules].[user].[COMP_REQUIREMENT_BY_DATE] WHERE PROD_DATE='" & targetDate & "'")

                    sql.AppendLine("INSERT INTO UserModules.[user].COMP_REQUIREMENT_BY_DATE ")
                    sql.AppendLine("(PROD_DATE ")
                    sql.AppendLine(", PLANT ")
                    sql.AppendLine(", MATERIAL ")
                    sql.AppendLine(", DESCRIPTION ")
                    sql.AppendLine(", QTY) ")
                    sql.AppendLine("select ")
                    sql.AppendLine("prod_date ")
                    sql.AppendLine(", plant ")
                    sql.AppendLine(", material ")
                    sql.AppendLine(", material_description ")
                    sql.AppendLine(", cast(sum(quantity * per_qty) as integer) ")
                    sql.AppendLine("FROM ( ")
                    sql.AppendLine("select ")
                    sql.AppendLine("T1.prod_date ")
                    sql.AppendLine(", t1.plant ")
                    sql.AppendLine(", t1.line ")
                    sql.AppendLine(", t1.main_model ")
                    sql.AppendLine(", T1.quantity ")
                    sql.AppendLine(", t2.* ")
                    sql.AppendLine("from UserModules.[user].SUMMARY_ACCESSORY_REQUIREMENTS T1 ")
                    sql.AppendLine("LEFT JOIN ( ")
                    sql.AppendLine("SELECT DISTINCT ")
                    sql.AppendLine("ACCESSORY ")
                    sql.AppendLine(", PEGGEDReqt ")
                    sql.AppendLine(", MATERIAL ")
                    sql.AppendLine(", material_description ")
                    sql.AppendLine(", cast(cast (replace(replace(reqmts_qty,' ',''),',','') as decimal) / cast(po_qty as decimal) as decimal(18,2)) as per_qty ")
                    sql.AppendLine("from UserModules.[user].PICK_LIST ")
                    sql.AppendLine("WHERE PO_qty is not null and PO_qty <> '') T2 ")
                    sql.AppendLine("ON T1.ACCESSORY = T2.ACCESSORY ")
                    sql.AppendLine("where T1.prod_Date = '" & targetDate & "') TT ")
                    sql.AppendLine("GROUP BY ")
                    sql.AppendLine("prod_date ")
                    sql.AppendLine(", plant ")
                    sql.AppendLine(", material ")
                    sql.AppendLine(", material_description ")

                    sqlf.NonQuery(sql.ToString)
                    edTableToView.RefreshData()
            End Select
        End If
    End Sub

    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)

    End Sub

End Class