ModuleMaster/multibin/picking_confirm.ashx - main - ivan/ModMas

ModuleMaster/multibin/picking_confirm.ashx
77 строк2 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
<%@ WebHandler Language="VB" Class="getsqldata" %>

Imports System
Imports System.Web
Imports Newtonsoft.Json

Public Class getsqldata : Implements IHttpHandler

    Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
        context.Response.ContentType = "text/plain"
        With context.Request


            Dim sql As New StringBuilder
            Dim line As String = .QueryString("line")
            Dim material As String = .QueryString("material")
            Dim prodDate As String = .QueryString("prodDate")
            Dim bin As String = .QueryString("bin")
            Dim su As String = .QueryString("su")

            Dim result As Integer





            sql.AppendLine("declare @n1 as int ")
            sql.AppendLine("declare @n2 as int ")
            sql.AppendLine("begin transaction ")

            sql.AppendLine("insert into [Multi-bin].[dbo].[Picking]")
            sql.AppendLine("(line, delivery_date, material, bin, su, qty, [plant])")
            sql.AppendLine("values ('" & line & "', '" & prodDate & "', '" & material & "', '" & bin & "', '" & su & "', (select qty from [Multi-bin].[dbo].[Stock] where su='" & su & "') , 'P901')  ")
            sql.AppendLine("set @n1 = @@ROWCOUNT ")


            sql.AppendLine("update [Multi-bin].[dbo].[Stock]")
            sql.AppendLine("set bin = '" & line & "' ")
            sql.AppendLine(",zone = 'Kitting' ")
            sql.AppendLine("where su = '" & su & "' ")
            sql.AppendLine("set @n2 = @@ROWCOUNT ")

            sql.AppendLine("if @n1 > 0 and @n2 > 0 commit transaction else rollback transaction ")





            Dim sqlf As New sharedClasses.dbFunctions.SqlFunctions
            Dim dt As Data.DataTable = Nothing


            result = sqlf.NonQuery(sql.ToString)


            Try
                If result > 0 Then
                    context.Response.Write("[{""msg"":""OK""}]")
                Else
                    context.Response.Write("[{""msg"":""Error during picking""}]")
                End If
            Catch ex As Exception
                context.Response.Write("[{""msg"":""Connection problem. Try-Catch triggered""}]")
            End Try



        End With
    End Sub

    Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
        Get
            Return False
        End Get
    End Property

End Class