ModuleMaster/fi/fifo_prntl.aspx.vb - main - ivan/ModMas

ModuleMaster/fi/fifo_prntl.aspx.vb
57 строк2 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
Imports System.Net
Imports System.IO
Imports sharedClasses.dbFunctions

Partial Class FIFO_prntl
    Inherits System.Web.UI.Page

    Dim sqlf As New SqlFunctions

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

        Dim whatToPrint As String = ""
        Dim paramString As String = Nothing

        If Not (IsNothing(Request.QueryString("paramstring"))) And Not (IsNothing(Request.QueryString("form"))) Then
            paramString = Request.QueryString("paramstring")
            whatToPrint = Request.QueryString("form")
        ElseIf Not (IsNothing(Request.QueryString("paramid"))) And Not (IsNothing(Request.QueryString("form"))) Then
            Dim params As Hashtable
            params = Session("params")
            whatToPrint = Request.QueryString("form")
            Try
                paramString = params(Request.QueryString("paramid"))
            Catch ex As Exception

            End Try
        End If
        If Not IsNothing(paramString) Then
            Dim p() As String = paramString.Split(";")
            For Each s As String In p
                If s.Trim <> "" Then
                    'Dim docnumber As String = s.Split("-")(0)
                    ' pl.Controls.Add(getPrintForm(docnumber, whatToPrint))
                    pl.Controls.Add(getPrintForm(s, whatToPrint))
                End If
            Next
        End If
    End Sub


    Private Function getPrintForm(docNum As String, whatToPrint As String) As Panel
        Dim wb As WebRequest
        Dim url As String = HttpContext.Current.Request.Url.AbsoluteUri.ToString.Replace("fifo_prntl", whatToPrint).Split("?")(0) & "?dn=" & docNum
        wb = WebRequest.Create(url)
        Dim res As WebResponse = wb.GetResponse
        Dim sr As New StreamReader(res.GetResponseStream)
        Dim p As New Panel
        Dim l As New Literal
        l.Text = sr.ReadToEnd()
        p.Controls.Add(l)
        If pl.Controls.Count > 0 Then
            p.Style.Add("page-break-before", "always")
        End If
        Return p
    End Function

End Class