Imports Telerik.Web.UI
Imports System.Web.Configuration


Partial Class _Default
    Inherits System.Web.UI.Page



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

        Session.Item("RegisterAsCompany") = "False"
        Me.Panel1a.Visible = False
        If Request.QueryString("Fnkt") = "Logout" Then
            Session.Item("LogedIn") = "False"
            Session.Item("Menuhandler") = 0
            Session.Item("Admin") = "False"
            Me.Panel1a.Visible = False
        End If
        If Session.Item("LogedIn") = "True" Then
            Me.Panel1.Visible = False
            Me.Panel1a.Visible = True
            Me.Label3.Text = Session("Username")
            'Me.lblAnmelden.Visible = False
        End If
        Dim dh As New clsDatahandling
        Me.Label2.Text = dh.Get_Option(7)
        Me.lbltitle.Text = dh.Get_Option(21)
        Dim s As String = ""
        If UCase(dh.Get_Option(10)) = "JA" Then
            s = "Firmenbereich gesperrt"
        End If
        If UCase(dh.Get_Option(11)) = "JA" Then
            If s <> "" Then s = "- " + s + "<br>- Lehrerbereich gesperrt" Else s = "Lehrerbereich gesperrt"

        End If
        Me.Label4.Text = s

    End Sub


    Protected Sub RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
        Dim dh As New clsDatahandling
        Dim result As Integer = dh.Check_User(Me.txtBenutzername.Text, Me.txtPasswort.Text)
        If result < 0 Then
            Me.lblErrormessage.Text = "Benutzer unbekannt, Kombination Benutzer/Passwort ungültig oder Benutzerprofil noch nicht aktiviert."
        Else
            Session.Item("UserID") = result
            Session.Item("LogedIn") = "True"
            Session("username") = Me.txtBenutzername.Text
            Dim dt As New DataTable
            Session.Item("Admin") = "False"
            dt = dh.Get_UserUsertype(result)
            If dt.Rows(0).Item("UserType") = 1 Then Session.Item("Admin") = "True"
            If dt.Rows(0).Item("Firmanr") = 0 And dt.Rows(0).Item("Lehrernr") = 0 Then
                'Admin
                Session.Item("Menuhandler") = 9
                Session.Item("Admin") = "True"
                Response.Redirect("~/default.aspx")
                Exit Sub
            End If
            If dt.Rows(0).Item("Firmanr") > 0 Then
                'Firma
                If UCase(dh.Get_Option(10)) = "JA" Then
                    Me.Show_Message(1, "Der Firmenbereich ist z.Zt. gesperrt.")
                    Session.Item("UserID") = Nothing
                    Session.Item("LogedIn") = "false"
                    Exit Sub
                End If
                Session.Item("Firmanr") = dt.Rows(0).Item("Firmanr")
                Session.Item("Menuhandler") = 2
                Response.Redirect("~/firmen/firmendaten1.aspx")
            End If
            If dt.Rows(0).Item("Lehrernr") > 0 Then
                'Firma
                If UCase(dh.Get_Option(11)) = "JA" Then
                    Me.Show_Message(1, "Der Lehrerbereich ist z.Zt. gesperrt.")

                    Session.Item("UserID") = Nothing
                    Session.Item("LogedIn") = "false"
                    Exit Sub
                End If
                Session.Item("Lehrer") = dt.Rows(0).Item("Lehrernr")
                Session.Item("Menuhandler") = 3
                Response.Redirect("~/Lehrer/Stammdaten.aspx")
            End If

        End If
    End Sub


    Protected Sub RadButton2_Click(sender As Object, e As EventArgs) Handles RadButton2.Click
        Response.Redirect("~/Default.aspx?fnkt=Logout")
    End Sub

    Protected Sub Show_Message(ByVal type As Integer, ByVal meldung As String)
        Dim image1 As String
        Select Case type
            Case 1
                image1 = WebConfigurationManager.AppSettings("Imagepath") + "Error.png"
                RadWindowManager1.RadAlert(meldung, 330, 100, "Fehler", Nothing, image1)
            Case 2
                image1 = WebConfigurationManager.AppSettings("Imagepath") + "Info1.png"
                RadWindowManager1.RadAlert(meldung, 330, 100, "Fehler", "alertCallBackFnError", image1)
            Case 3
                image1 = WebConfigurationManager.AppSettings("Imagepath") + "Info1.png"
                RadWindowManager1.RadConfirm(meldung, "ConfirmCallBackFn", 330, 100, Nothing, "Schüler löschen?")
            Case 4
                image1 = WebConfigurationManager.AppSettings("Imagepath") + "Info1.png"
                RadWindowManager1.RadConfirm(meldung, "ConfirmCallBackFn1", 330, 100, Nothing, "Schülerdaten?")

        End Select

    End Sub
End Class