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

ModuleMaster/multibin/merge.ashx
67 строк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 o_su As String = .QueryString("o_su")
            Dim add_su As String = .QueryString("add_su")



            Dim result As Integer

            sql.AppendLine("if exists (select material from [Multi-bin].[dbo].[Stock] where su='" & o_su & "' and material = (select material from [Multi-bin].[dbo].[Stock] where su='" & add_su & "'))")
            sql.AppendLine("begin")
            sql.AppendLine("declare @n1 as int ")
            sql.AppendLine("declare @n2 as int ")
            sql.AppendLine("begin transaction ")
            sql.AppendLine("update [Multi-bin].[dbo].[Stock] ")
            sql.AppendLine("set qty = cast(qty as numeric) + cast((select qty from [Multi-bin].[dbo].[Stock] where su = '" & add_su & "') as numeric) ")
            sql.AppendLine("where su = '" & o_su & "' ")
            sql.AppendLine("set @n1 = @@ROWCOUNT ")
            sql.AppendLine("delete [Multi-bin].[dbo].[Stock] ")
            sql.AppendLine("where su = '" & add_su & "' ")
            sql.AppendLine("set @n2 = @@ROWCOUNT ")
            sql.AppendLine("if @n1 > 0 and @n2 > 0 commit transaction else rollback transaction ")
            sql.AppendLine("end")



            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 merge""}]")
                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