/
ivan
/
ModMas
Обзор
Документация
Войти
/
ivan
/
ModMas
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
main
ModuleMaster/fi/gr_by_gtd.aspx.vb
35 строк
1 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:49
00d9fb6
Код
Авторство
О чём код?
Imports System.Data Imports System.Net Imports System.IO Partial Class FI_gr_by_gtd Inherits System.Web.UI.Page Protected Sub search_Click(sender As Object, e As EventArgs) Handles search.Click If gtd.Text <> "" Then report.DataSource = GetGrList(gtd.Text) report.DataBind() End If End Sub Private Function GetGrList(gtd As String) As DataTable Try Dim url As String = "http://serkweb.serk.lan:8080/tools/Handlers/getwmsdata.ashx?fname=Z_RFC_GTD_GR&format=json&BOENO=" & gtd Dim o As DataTable = Newtonsoft.Json.JsonConvert.DeserializeObject(Of DataTable)(GetWMSData(url)) Return o Catch ex As Exception Return Nothing End Try End Function Private Function GetWMSData(url As String) As String Try Dim wb As WebRequest wb = WebRequest.Create(url) Dim res As WebResponse = wb.GetResponse Dim sr As New StreamReader(res.GetResponseStream) Return sr.ReadToEnd() Catch ex As Exception Return "" End Try End Function End Class