/
ivan
/
ModMas
Обзор
Документация
Войти
/
ivan
/
ModMas
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
main
ModuleMaster/fi/batch.aspx.vb
44 строки
2 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:49
00d9fb6
Код
Авторство
О чём код?
Imports System.Net Imports System.IO Imports Newtonsoft.Json Imports System.Data Partial Class FI_batch Inherits System.Web.UI.Page Protected Sub start_Click(sender As Object, e As EventArgs) Handles start.Click Dim items() As String = TextBox2.Text.Split(Chr(10)) For Each i As String In items If i.Trim <> "" Then Literal1.Text &= "<br/>" & i & " : " & editableGrid.UploadDataTable(getWebData(i)) End If Next End Sub Private Function getWebData(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 Private Function JsonToTable(json As String) As DataTable Return JsonConvert.DeserializeObject(Of DataTable)(json) End Function End Class