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

ModuleMaster/qc/ibiplanning.aspx.vb
141 строка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 ibiPlanning
    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
        Dim tableId As String = ""
        If Not IsNothing(Request.QueryString("tableId")) Then
            tableId = Request.QueryString("tableId")
        End If
        edTableToView.IsReadOnly = True
        edTableToView.UserName = userid.ToUpper

        Try
            edTableToView.TableId = tableId
        Catch ex As Exception
        End Try

        If Not IsPostBack Then
            edTableToView.UpdateFilters("PLAN_DATE", ">=", "'" & Date.Today.ToString("yyyy-MM-dd") & "'")
        End If

    End Sub

    Private Sub UpdteMessageSendLog(mailScheduleId As Integer, result As String, message As String)
        Dim sql As String = "INSERT Into UserModules.DBO.MAIL_SEND_LOG (MAIL_SCHEDULE_ID, LAST_RUN, RESULT,[MESSAGE]) VALUES (" & mailScheduleId & ",'" & DateTime.Now.ToString("yyyy-MM-dd HH:mm") & "','OK','" & message & "')"
        sqlf.NonQuery(sql)
    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
        If Request.QueryString("tableId") IsNot Nothing Then
            lnkGraphView.Visible = True
            lnkGraphView.Text = "View graph in a new window"
            lnkGraphView.NavigateUrl = "~/viewgraph.aspx?tableid=" & Request.QueryString("tableId")
        Else
            lnkGraphView.Visible = False
        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

    Protected Sub ActioRequest(sender As Object, e As EventArgs) Handles edTableToView.ActionRequest
        Try
            Dim startDate As String = edTableToView.Filters("[PLAN_DATE]")
            ' >= N'2014-03-13'
            ' <= N'2014-03-13'
            'between N'2014-03-13' AND '2014-03-13'
            If startDate.Contains("=") Then
                startDate = startDate.Replace("=", "").Replace(">", "").Replace("<", "").Replace("N", "").Replace("'", "").Replace(" ", "")
            Else
                startDate = startDate.Replace("between", "").Replace("AND", "|").Replace("N", "").Replace("'", "").Replace(" ", "")
            End If

            edTableToView.Message = startDate

            Dim sql As New StringBuilder

            If startDate.Split("|").Count > 1 Then
                sqlf.NonQuery(" delete from [UserModules].[user].[IBI_INSPECTION_PLANNING] where plan_Date between '" & startDate.Split("|")(0) & "' AND '" & startDate.Split("|")(1) & "' ")
            Else
                sqlf.NonQuery(" delete from [UserModules].[user].[IBI_INSPECTION_PLANNING] where plan_Date = '" & startDate & "' ")
            End If

            sql.Append("INSERT INTO " & vbNewLine)
            sql.Append("[UserModules].[user].[IBI_INSPECTION_PLANNING] " & vbNewLine)
            sql.Append(" ([PLAN_DATE] " & vbNewLine)
            sql.Append(" ,[MASTER_LINE] " & vbNewLine)
            sql.Append(" ,[PROC__TYPE] " & vbNewLine)
            sql.Append(" ,[MODEL_CODE] " & vbNewLine)
            sql.Append(" ,[MODEL_VERSION] " & vbNewLine)
            sql.Append(" ,[REASON] " & vbNewLine)
            sql.Append(" ,[DISCRIPTION] " & vbNewLine)
            sql.Append(" ,[REMARKS] " & vbNewLine)
            sql.Append(" ,[P_O] " & vbNewLine)
            sql.Append(" ,[PLAN_QTY] " & vbNewLine)
            sql.Append(" ,[P_O_TYPE] " & vbNewLine)
            sql.Append(" ,[DESTINATION] " & vbNewLine)
            sql.Append(" ,[PLAN_START_DATE] " & vbNewLine)
            sql.Append(" ,[FIRST_S_N] " & vbNewLine)
            sql.Append(" ,[LAST_S_N] " & vbNewLine)
            sql.Append(" ,[PROJECT], [MARK]) " & vbNewLine)
            sql.Append("select " & vbNewLine)
            sql.Append(" * FROM UserModules.[user].VI_IBI_PLANNING ")
            If startDate.Split("|").Count > 1 Then
                sql.Append("WHERE PROD_DATE between '" & startDate.Split("|")(0).Trim & "' AND '" & startDate.Split("|")(1).Trim & "' " & vbNewLine)
            Else
                sql.Append("WHERE PROD_DATE = '" & startDate.Split("|")(0) & "' " & vbNewLine)
            End If
            sql.Append(" ORDER BY PROD_DATE, SAP_LINE, PLAN_START ")


            sqlf.NonQuery(sql.ToString)

            edTableToView.RefreshData()
        Catch ex As Exception
            edTableToView.Message = ex.Message
        End Try

    End Sub
End Class