ModuleMaster/logistics/stoplist.aspx.vb - main - ivan/ModMas

ModuleMaster/logistics/stoplist.aspx.vb
92 строки4 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6

Imports System.Data
Imports sharedClasses.dbFunctions

Partial Class logistics_stoplist
    Inherits System.Web.UI.Page

    Const sep As String = "  -  "
    Const sep2 As String = "<br /><br />"
    Const f As String = "yyyy-MM-dd HH:mm:ss"

    Private Sub form1_Load(sender As Object, e As EventArgs) Handles form1.Load
        pnlMessage.Visible = False
        'Session.Add("Timer", "")
        If IsNothing(Session("Timer")) Then
            Session.Add("Timer", "")
        End If
        lblErrorMessage.Text = "<span style='color:White;font-size:48pt;'>"
        Dim update As Boolean = False
        If Session("Timer") <> "" Then
            Dim sTime As DateTime = DateTime.Parse(Session("Timer"))
            Dim ts As TimeSpan = DateTime.Now.Subtract(sTime)
            'lblErrorMessage.Text &= sTime.ToString(f) & sep2 & ts.TotalSeconds.ToString & sep2
            If ts.TotalSeconds > 30 Then
                update = True
                Session.Add("Timer", "")
            End If
        End If

        Dim checkResult As String = CheckStopList(update)

        If checkResult <> "" Then
            pnlMessage.Visible = True
            lblErrorMessage.Text &= "Не отгружать!! " & sep2 & checkResult.Replace(vbNewLine, sep2)
            If Session("Timer") = "" Then
                Session.Add("Timer", DateTime.Now.ToString(f))
                'lblErrorMessage.Text &= "<p>!!!!!!!!!!!!!!!!</p>"
            End If
            lblErrorMessage.Text &= "<script type = 'text/javascript' > playSound('../Sound/gudok.mp3'); </script> "
        End If
        lblErrorMessage.Text &= "</span>"

    End Sub

    Private Function CheckStopList(Optional update As Boolean = False) As String
        Dim sb As New StringBuilder
        Dim sb2 As New StringBuilder
        Dim sqlf As New SqlFunctions

        sb2.AppendLine("WITH TTT AS ( ")
        sb2.AppendLine("SELECT ")
        sb2.AppendLine("T1.REMARK ")
        sb2.AppendLine(", T1.FIRST_SN ")
        sb2.AppendLine(", T1.LAST_SN ")
        sb2.AppendLine(", T2.MODEL_CODE ")
        sb2.AppendLine(", T2.OUT_PALL_NO ")
        sb2.AppendLine(", T2.PACK_BOX_NO ")
        sb2.AppendLine(", T2.FINISHED ")
        sb2.AppendLine(", T2.FINISHED_TIME ")
        sb2.AppendLine("FROM ")
        sb2.AppendLine("USERMODULES.[USER].SHIPMENT_STOP_LIST T1 ")
        sb2.AppendLine("LEFT JOIN GMESDATA.DBO.TB_LOADING_STATUS T2 ")
        sb2.AppendLine("ON ")
        sb2.AppendLine("( T2.PACK_BOX_NO COLLATE Cyrillic_General_CI_AI BETWEEN T1.FIRST_SN AND T1.LAST_SN ")
        sb2.AppendLine("OR T2.PACK_BOX_NO COLLATE Cyrillic_General_CI_AI = T1.FIRST_SN ")
        sb2.AppendLine("OR T2.PACK_BOX_NO COLLATE Cyrillic_General_CI_AI = T1.LAST_SN ")
        sb2.AppendLine("OR T2.OUT_PALL_NO COLLATE Cyrillic_General_CI_AI = T1.PALLET_NO ")
        sb2.AppendLine(") ")
        sb2.AppendLine("WHERE ISNULL(T2.FINISHED, 'N') = 'N' ")
        sb2.AppendLine("AND ISNULL(T1.ENABLE_Y_N, 'Y') = 'Y' ")
        sb2.AppendLine("AND T2.OUT_STATUS_CODE IN ('40','50') ")
        sb2.AppendLine(") ")

        If update Then
            sb.AppendLine("UPDATE TTT SET FINISHED = 'Y', FINISHED_TIME = CONVERT( VARCHAR, GETDATE(), 120)")
            sqlf.NonQuery(sb2.ToString & " " & sb.ToString)
            sb.Clear()
        End If

        sb.AppendLine("SELECT DISTINCT MODEL_CODE, OUT_PALL_NO, REMARK FROM TTT WHERE TTT.MODEL_CODE IS NOT NULL")

        Dim dt As DataTable = sqlf.GetData(sb2.ToString & " " & sb.ToString)
        sb.Clear()
        If Not IsNothing(dt) Then
            If dt.Rows.Count > 0 Then
                For Each dr As DataRow In dt.Rows
                    sb.AppendLine(dr("MODEL_CODE") & sep & dr("OUT_PALL_NO") & sep & dr("REMARK"))
                Next
            End If
        End If
        Return sb.ToString()
    End Function
End Class