ModuleMaster/sj/prntl.aspx.vb - main - ivan/ModMas

ModuleMaster/sj/prntl.aspx.vb
61 строка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 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

        Dim proddate As String = Request.QueryString("proddate")
        Dim dataSource As String = Request.QueryString("ds")
        If Not IsNothing(proddate) Then
            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, proddate, dataSource))
                    End If
                Next
            End If
        End If
    End Sub

    Private Function getPrintForm(docNum As String, whatToPrint As String, proddate As String, dataSource As String) As Panel
        Dim wb As WebRequest
        Dim url As String = HttpContext.Current.Request.Url.AbsoluteUri.ToString.Replace("prntl", whatToPrint).Split("?")(0) & "?ds=" & dataSource & "&dn=" & docNum & "&proddate=" & proddate
        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