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

ModuleMaster/fi/fggrlistsum.aspx.vb
58 строк2 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
Imports System.Data

Partial Class FI_fggrlistsum
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        message.Text = ""
        'ClientScript.RegisterStartupScript(Me.GetType, "a", "<script>window.open('prnt.aspx')</script>")
    End Sub
    Protected Sub GridView1_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GridView1.RowDataBound
        With e.Row
            If .RowType = DataControlRowType.DataRow Then
                Dim rV As DataRowView = CType(.DataItem, DataRowView)
                Dim docNoCEll = .Cells(.Cells.Count - 2)
                If docNoCEll.Text = "&nbsp;" Then
                    docNoCEll.Text = rV("to_print_doc_no")
                    docNoCEll.Style.Add("color", "red")
                Else
                    docNoCEll.Style.Add("color", "darkgreen")
                End If
            End If
        End With
    End Sub

    Protected Sub ibRefresh_Click(sender As Object, e As ImageClickEventArgs) Handles ibRefresh.Click
        GridView1.DataBind()
    End Sub

    Protected Sub ibPrint_Click(sender As Object, e As ImageClickEventArgs) Handles ibPrint.Click
        For Each dr As GridViewRow In GridView1.Rows
            If dr.RowType = DataControlRowType.DataRow Then
                Dim c As TableCell = dr.Cells(dr.Cells.Count - 1)
                Try
                    If CType(c.Controls(1), CheckBox).Checked Then
                        message.Text &= CType(c.Controls(1), CheckBox).ToolTip & "|" & dr.Cells(dr.Cells.Count - 2).Text & ";"
                    End If
                Catch ex As Exception

                End Try
            End If
        Next

        If message.Text <> "" Then
            Dim params As Hashtable
            If IsNothing(Session("params")) Then
                params = New Hashtable
            Else
                params = Session("params")
            End If

            Dim paramId As String = Guid.NewGuid.ToString

            params.Add(paramId, message.Text)
            Session.Add("params", params)
            ClientScript.RegisterStartupScript(Me.GetType, "a", "<script>window.open('prntl.aspx?paramid=" & paramId & "')</script>")
        End If

    End Sub
End Class