Public Class WebStatistik
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.txtJahr.Text = Year(Now).ToString
    End Sub

    Protected Sub RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
        Dim db As New clsDatahandling
        db.Statistikdaten_Speichern(Me.txtJahr.Text, Me.txtBeschreibung.Text, Session("UserID"))
        
    End Sub

   

    Sub show_report(ByVal sql As String, ByVal sqltype As String, ByVal filename As String, dokumentnr As String)
        Try
            If dokumentnr <> "" Then
                If dokumentnr <> "-1" Then sql = sql.Replace("%DOKNR%", dokumentnr)
            End If


            Dim ds1 As New DataSet
            Dim ds As New DataSet
            Dim dh As New clsDatahandling
            If sqltype = "SP" Then
                ds = dh.Get_Tabledata(sql, True, False)
            Else
                If sqltype = "SQL" Then
                    ds = dh.Get_Tabledata(sql, False, True)
                Else
                    ds = dh.Get_Tabledata(sql, False, False)
                End If
            End If

            Me.WebReport1.Prepare()
            Me.WebReport1.ReportFile = "~/Reporting/" + filename
            Me.WebReport1.DataBind()

            Dim x As FastReport.Report = WebReport1.Report
            x.RegisterData(ds)

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

    Private Sub WebReport1_StartReport(sender As Object, e As System.EventArgs) Handles WebReport1.StartReport
        Dim dh As New clsDatahandling
        Me.WebReport1.Report.SetParameterValue("Parcours", dh.Get_Option(2))
        Me.WebReport1.Report.SetParameterValue("Spruch", dh.Get_Option(3))
        Me.WebReport1.Report.SetParameterValue("URL", "..\bilder\reportlogo.jpg")

    End Sub

    Protected Sub btnZusammenfassung_Click(sender As Object, e As EventArgs) Handles btnZusammenfassung.Click
        show_report("exec dbo.sp_webstatistik_getdata 1," + Me.cbboxStatistikdaten.SelectedValue.ToString, "SQL", "WebStat_Zusammenfassung.frx", -1)
    End Sub


    Protected Sub btnBerufsbilder_Click(sender As Object, e As EventArgs) Handles btnBerufsbilder.Click
        show_report("exec dbo.sp_webstatistik_getdata 2," + Me.cbboxStatistikdaten.SelectedValue.ToString, "SQL", "WebStat_Beruf.frx", -1)
    End Sub

    Protected Sub btnBerufsbilder0_Click(sender As Object, e As EventArgs) Handles btnBerufsbilder0.Click
        show_report("exec dbo.sp_webstatistik_getdata 3," + Me.cbboxStatistikdaten.SelectedValue.ToString, "SQL", "WebStat_Firmenangebot.frx", -1)
    End Sub

    Protected Sub btnBerufsbilder1_Click(sender As Object, e As EventArgs) Handles btnBerufsbilder1.Click
        show_report("exec dbo.sp_webstatistik_getdata 4," + Me.cbboxStatistikdaten.SelectedValue.ToString, "SQL", "WebStat_AngebotNachfrage.frx", -1)
    End Sub
End Class