ModuleMaster/sj_vend/plan.aspx.vb - main - ivan/ModMas

ModuleMaster/sj_vend/plan.aspx.vb
55 строк2 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6

Imports System.Data
Imports System.IO
Imports CommonFunctions
Partial Class r
    Inherits System.Web.UI.Page
    Private a As sharedClasses.Auth.auth



    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

        If IsPostBack Then
            Message.Text = ""
        End If

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

    End Sub

    Private Function IndexOf(str As String, c As String, startPos As Integer) As Integer
        Return IIf(str.IndexOf(c, startPos) = -1, Integer.MaxValue, str.IndexOf(c, startPos))
    End Function


    Private Sub authorize(mode As String)
        a = New sharedClasses.Auth.auth(mode, IIf(Request.UserHostAddress = "::1", "106.109.72.76", Request.UserHostAddress))
    End Sub



    Protected Sub getData_Click(sender As Object, e As EventArgs) Handles getData.Click
        Dim sqlf As New sharedClasses.dbFunctions.SqlFunctions
        If plan_date.Value = "" Then
            plan_date.Value = Date.Now.ToString("yyyy-MM-dd")
        End If
        sqlf.NonQuery("Update UserModules.[user].WA_JOB_LIST Set RUN_IMMEDIATELY='Y', PARAMS='PLAN_DATE:{" + plan_date.Value + "};MRP:{J03}'  WHERE id=54 ")
        Message.Text = "Выгрузка поставлена в очередь. Время ожидания 15-20 минут. По окончании выгрузки будет отправлено сообщение в KNOX"
    End Sub
End Class