/
ivan
/
ModMas
Обзор
Документация
Войти
/
ivan
/
ModMas
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
main
ModuleMaster/handlers/siap_test.ashx
34 строки
1 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:49
00d9fb6
Код
Авторство
О чём код?
<%@ WebHandler Language="VB" Class="slideshow" %> Imports sharedClasses.dbFunctions Public Class slideshow : Implements IHttpHandler Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest Dim sqlf As New SqlFunctions Dim com As New Data.SqlClient.SqlCommand Dim direction = context.Request.QueryString("direction") Dim material = context.Request.QueryString("material") Dim qty = context.Request.QueryString("qty") Dim result As Integer Dim cur_date As String = DateTime.Now.ToString("yyyy-MM-dd") Dim cur_time As String = DateTime.Now.ToString("HH:mm:ss") If Not IsNothing(direction) And Not IsNothing(material) And Not IsNothing(qty) Then result = sqlf.NonQuery("insert into [UserModules].[user].[SIAP_incoming_messages_test] ([date], [time], direction, material, qty, I_F_TO_G_ERP) values('" + cur_date + "','" + cur_time + "','" + direction + "','" + material + "', '" + qty + "', 'N')") End If End Sub Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable Get Return False End Get End Property End Class