ModuleMaster/hr/restaurant.aspx.vb - main - ivan/ModMas

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

Partial Class HR_restaurant
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not IsPostBack Then
            fromDate.Text = Date.Today.ToString("yyyy-MM-") & "01"
            toDate.Text = DateSerial(Year(Date.Today), Month(Date.Today), "1").AddMonths(1).AddDays(-1).ToString("yyyy-MM-dd")
        End If
    End Sub

    Protected Sub GridView1_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GridView1.RowDataBound

        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.Attributes.Add("gen", e.Row.Cells(1).Text)
            e.Row.CssClass = "click"
        End If
    End Sub

    Protected Sub excel_Click(sender As Object, e As EventArgs) Handles excel.Click
        ExcelDownloadSub(GridView1, "osreststat_" & fromDate.Text & toDate.Text & company.SelectedValue)
    End Sub

    Sub ExcelDownloadSub(ByVal gv As GridView, ByVal filename As String)
        Response.Clear()

        Response.Buffer = True

        Response.AddHeader("content-disposition", "attachment;filename=" & filename & ".xls")
        Response.ContentType = "application/vnd.xls"
        Response.ContentEncoding = System.Text.Encoding.GetEncoding("UTF-8")
        EnableViewState = False

        Response.Charset = "utf-8"

        Dim myCItrad As System.Globalization.CultureInfo = New System.Globalization.CultureInfo("en-US", True)

        gv.AllowSorting = False
        gv.AllowPaging = False

        gv.DataBind()

        Dim sw As StringWriter = New StringWriter(myCItrad)
        Dim hw As HtmlTextWriter = New HtmlTextWriter(sw)

        gv.RenderControl(hw)
        Response.Write(sw.ToString)
        'Response.Write(sw.ToString)

        Response.End()
    End Sub

    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)

    End Sub
End Class