ModuleMaster/fi/wms_gr_list.aspx.vb - main - ivan/ModMas

ModuleMaster/fi/wms_gr_list.aspx.vb
122 строки4 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
Imports System.Data
Imports System.Data.SqlClient
Imports Newtonsoft.Json
Imports System.Net
Imports System.IO

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

    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
        End If

        Dim tableId As String = ""
        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

        Try
            edTableToView.TableId = tableId
        Catch ex As Exception
        End Try
    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

        If Not IsPostBack Then
            Dim material As String = IIf(IsNothing(Request.QueryString("m")), "", Request.QueryString("m"))
            Dim postDate As String = IIf(IsNothing(Request.QueryString("p")), "", Request.QueryString("p"))
            Dim docNumber As String = IIf(IsNothing(Request.QueryString("d")), "", Request.QueryString("d"))
            Dim mvt As String = IIf(IsNothing(Request.QueryString("mvt")), "", Request.QueryString("mvt"))

            If material <> "" Or
                postDate <> "" Or
                docNumber <> "" Then
                Response.Clear()
                Response.Write(edTableToView.UploadDataTable(getGrDocsFromWMS(material, postDate, docNumber, mvt)))
                Response.End()
            End If

        
        End If
        
    End Sub
    '<System.Web.Script.Services.ScriptMethod(), _
    'System.Web.Services.WebMethod()> _
    Public Function GetWMSData(dataType As Integer, param As String) As String
        Select Case dataType
            Case 1
                Return edTableToView.UploadDataTable(getGrDocsFromWMS(param))
            Case 2
                Return edTableToView.UploadDataTable(getGrDocsFromWMS(, param))
            Case 3
                Return edTableToView.UploadDataTable(getGrDocsFromWMS(, , param))
        End Select
        Return "NG"
    End Function

    Protected Sub Page_SaveStateComplete(sender As Object, e As EventArgs) Handles Me.SaveStateComplete
        edTableToView.CreateGroupingText()
    End Sub

    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
    End Sub

    Private Function JsonToTable(json As String) As DataTable
        Return JsonConvert.DeserializeObject(Of DataTable)(json)
    End Function

    Private Function getGrDocsFromWMS(Optional Material As String = "", Optional post_date As String = "", Optional materialDoc As String = "", Optional mvt As String = "") As DataTable
        Dim wb As WebRequest
        Dim url As String = "http://serkweb:8080/tools/Handlers/getwmsdata.ashx?fname=Z_RFC_MAT_DOCS&format=json"
        If Material <> "" Then
            url &= "&MATNR=" & Material
        End If
        If post_date <> "" Then
            url &= "&POST_DATE=" & post_date
        End If
        If materialDoc <> "" Then
            url &= "&MBLNR=" & materialDoc
        End If
        If mvt <> "" Then
            url &= "&MVT=" & mvt
        Else
            'url &= "&MVT=501"
        End If

        wb = WebRequest.Create(url)
        Dim res As WebResponse = wb.GetResponse
        Dim sr As New StreamReader(res.GetResponseStream)

        Return JsonToTable(sr.ReadToEnd)
    End Function
End Class