ModuleMaster/panels_sn/carton_batch.ashx - main - ivan/ModMas

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

Imports System.Data
Imports System.Net
Imports System.Data.SqlClient
Imports sharedClasses.dbFunctions

Public Class getsqldata : Implements IHttpHandler

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

        Dim sn_table As DataTable
        Dim flag As Integer

        With context.Request


            Dim sql As New StringBuilder
            Dim line As String = .QueryString("Line")

            sql.AppendLine("select carton, su ")
            sql.AppendLine("from [UserModules].[user].[SU_CARTON] ")
            sql.AppendLine("where ")
            sql.AppendLine("(status is null or status = '') ")
            sql.AppendLine("and isnull(try_count,0) < 10 ")


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


            dt = sqlf.GetData(sql.ToString)

            For Each row As Data.DataRow In dt.Rows
                sn_table = GetCartonInfo(row.Item("carton"))

                flag = 0
                If sn_table.Rows.Count > 0 Then
                    ''''''''''''''BulkCopy
                    Using bulkCopy As SqlBulkCopy = New SqlBulkCopy(SqlFunctions.ConString)
                        bulkCopy.DestinationTableName = "[usermodules].[user].[sn_info]"
                        Dim mapID As New _
                        SqlBulkCopyColumnMapping("CARTON_NO", "CARTON")
                        bulkCopy.ColumnMappings.Add(mapID)
                        mapID = New _
                        SqlBulkCopyColumnMapping("VENDOR", "VENDOR")
                        bulkCopy.ColumnMappings.Add(mapID)
                        mapID = New _
                        SqlBulkCopyColumnMapping("SN", "SN")
                        bulkCopy.ColumnMappings.Add(mapID)
                        mapID = New _
                        SqlBulkCopyColumnMapping("PROD_DATE", "PRDO_DATE")
                        bulkCopy.ColumnMappings.Add(mapID)
                        flag = 1
                        Try
                            bulkCopy.WriteToServer(sn_table)
                        Catch ex As Exception
                            Console.WriteLine(ex.Message)
                            flag = 0
                        Finally
                        End Try
                    End Using
                    '''''''''''''''BulkCopy
                End If
                If flag = 1 Then

                    sql.Clear()
                    sql.AppendLine("update [UserModules].[user].[SU_CARTON]")
                    sql.AppendLine("set [status] = 'X' ")
                    sql.AppendLine(",TRY_COUNT = isnull(TRY_COUNT,0) + 1 ")
                    sql.AppendLine("where su = '" & row.Item("su").ToString & "'")
                    sqlf.NonQuery(sql.ToString)
                Else
                    sql.Clear()
                    sql.AppendLine("update [UserModules].[user].[SU_CARTON]")
                    sql.AppendLine("set TRY_COUNT = isnull(TRY_COUNT,0) + 1 ")
                    sql.AppendLine("where su = '" & row.Item("su").ToString & "'")
                    sqlf.NonQuery(sql.ToString)
                End If
            Next

            Try
                context.Response.Write("Ok")
            Catch ex As Exception
                context.Response.Write("")
            End Try
        End With
    End Sub

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



    Private Function GetCartonInfo(carton As String) As DataTable
        Try
            Dim url As String = "http://serkweb.serk.lan:8080/modulemaster/lcm/palletid.ashx?carton=" & carton
            Dim wb As WebRequest
            wb = WebRequest.Create(url)
            Dim res As WebResponse = wb.GetResponse
            res.GetResponseStream()
            Dim o As New DataTable
            o.ReadXml(res.GetResponseStream)
            Return o

        Catch ex As Exception
            Return Nothing
        End Try
    End Function

End Class