ModuleMaster/demurrage/table_management_handler.ashx - main - ivan/ModMas

ModuleMaster/demurrage/table_management_handler.ashx
94 строки4 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
<%@ WebHandler Language="VB" Class="table_management" %>

Imports sharedClasses.dbFunctions
Imports System.Globalization
Imports System.Web.Services

Public Class table_management : 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 mode As String = context.Request.Form.GetValues("mode")(0)
        Dim result As Integer
        Dim date_parsed As Date
        Dim date_parsed_string As String = ""

        Select Case mode
            Case "update"

                Dim rowid As String = Regex.Match(context.Request.Form.GetValues("rowid")(0), "[0-9]+(?=\|)").ToString
                Dim field As String = Regex.Match(context.Request.Form.GetValues("rowid")(0), "(?<=\|).+").ToString
                Dim value = context.Request.Form.GetValues("value")(0)
                Select Case field
                    Case "Provider", "Destination"
                        field = "carrier_id"
                    Case "Arrival date"
                        field = "arrival_date"
                        If Date.TryParse(value, date_parsed) = True Then
                            date_parsed_string = date_parsed.Year & "-" & Right("0" & date_parsed.Month, 2) & "-" & Right("0" & date_parsed.Day, 2)
                        Else
                            value = ""
                        End If
                    Case "DO_date"
                        field = "arrival_date"
                        If Date.TryParse(value, date_parsed) = True Then
                            date_parsed_string = date_parsed.Year & "-" & Right("0" & date_parsed.Month, 2) & "-" & Right("0" & date_parsed.Day, 2)
                        Else
                            value = ""
                        End If
                End Select


                Dim queue As String
                Select Case field
                    Case "DO_date"
                        queue = "update [UserModules].[user].[ITEM_INFORMATION] set  [" + field + "] = '" + value + "' where id = " + rowid
                    Case Else
                        queue = "update [UserModules].[user].[ITEM_INFORMATION] set [" + field + "] = '" + value + "' where id = " + rowid
                End Select
                'Dim queue As String = "update [UserModules].[user].[ITEM_INFORMATION] set [" + field + "] = '" + value + "' where id = " + rowid
                Dim debug As Integer = 1
                result = sqlf.NonQuery(Queue)


            Case "add"

                Dim destination = context.Request.Form.GetValues("destination")(0)
                Dim container = context.Request.Form.GetValues("container")(0)
                Dim condition = context.Request.Form.GetValues("condition")(0)
                Dim cargo = context.Request.Form.GetValues("cargo")(0)
                Dim ata_date = context.Request.Form.GetValues("date")(0)
                If Date.TryParse(ata_date, date_parsed) = True Then
                    date_parsed_string = date_parsed.Year & "-" & date_parsed.Month & "-" & date_parsed.Day
                End If

                Dim status = context.Request.Form.GetValues("status")(0)

                Dim queue As String = "insert into [UserModules].[user].[ITEM_INFORMATION] (carrier_id, container, condition, cargo, arrival_date, status) values ('" + destination + "', '" + container + "', '" + condition + "', '" + cargo + "', cast('" + date_parsed_string + "' as date), '" + status + "')"
                result = sqlf.NonQuery(queue)

        End Select




        context.Response.ContentType = "content/text"
        If result > 0 Then
            context.Response.Write("{""response"":""ok""}")
        Else
            context.Response.Write("{""response"":""ng""}")
        End If
    End Sub

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


End Class