LPWeb/LPWeb20/Default.aspx.vb

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)
        If dh.Get_Option(16) = "" Then
            Me.LnkFirmen.Visible = False
        Else
            Me.LnkFirmen.Visible = True
            Me.LnkFirmen.NavigateUrl = dh.Get_Option(16)
            Me.LnkFirmen.Target = "_blank"
        End If
        If dh.Get_Option(17) = "" Then
            Me.lnkLehrer.Visible = False
        Else
            Me.lnkLehrer.Visible = True
            Me.lnkLehrer.NavigateUrl = dh.Get_Option(17)
            Me.lnkLehrer.Target = "_blank"
        End If
        Dim s As String = ""
        If UCase(dh.Get_Option(10)) = "JA" Then
            s = "Firmenbereich Lesemodus"
        End If
        If UCase(dh.Get_Option(11)) = "JA" Then
            If s <> "" Then s = "- " + s + "<br>- Lehrerbereich gesperrt" Else s = "Lehrerbereich gesperrt"
        End If
        If UCase(dh.Get_Option(11)) = "1/2" Then
            If s <> "" Then s = "- " + s + "<br>- Lehrer: nur Stammdaten-<br>&nbsp;&nbsp;Eingabe möglich" Else s = "Lehrer: nur Stammdaten-<br>Eingabe möglich"
        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."
            dh.Run_Statement("Insert LastLogin (userid,login_erfolgreich) values ('" + Me.txtBenutzername.Text.ToString + "',0)")
        Else
            dh.Run_Statement("Insert LastLogin (userid,login_erfolgreich) values ('" + Me.txtBenutzername.Text.ToString + "',1)")
            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
                    Session.Item("Firmanr") = dt.Rows(0).Item("Firmanr")
                    Session.Item("Menuhandler") = 2
                    Session("ReadOnly") = "True"
                    'Me.Show_Message(5, "Ihre Daten können aufgend der aktuellen Einstellungen nur im Lesemodus angezeigt werden.")

                    'Session.Item("UserID") = Nothing
                    'Session.Item("LogedIn") = "false"
                    'Exit Sub
                End If
                Session.Item("Firmanr") = dt.Rows(0).Item("Firmanr")
                Session.Item("Menuhandler") = 2
                ' 20130902 - Check_FIrma
                If Firma_Aktuell() Then
                    Response.Redirect("~/firmen/firmendaten1.aspx")
                Else
                    Response.Redirect("~/firmen/firmenaktualisierung.aspx")
                End If
            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 Function Firma_Aktuell() As Boolean
        Dim dh As New clsDatahandling
        Dim f As New DataTable
        f = dh.Get_Firma(Session.Item("Firmanr"))
        Try
            Return f.Rows(0).Item("Aktuell")
        Catch ex As Exception
            Return True
        End Try

    End Function

    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?")
            Case 5
                Session("ReadOnly") = "True"
             
        End Select

    End Sub

   
    Protected Sub txtPasswort_TextChanged(sender As Object, e As EventArgs) Handles txtPasswort.TextChanged

    End Sub
End Class