Imports Telerik.Web.UI
Imports System.Web.Configuration
Public Class Firmendaten1
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        
        If Request.QueryString("Firmanr") <> "" Then Session.Item("Firmanr") = Request.QueryString("Firmanr")
        If Request.QueryString("RegisterAsCompany") = "True" Then
            Session.Item("RegisterAsCompany") = "True"
            Me.RadTabStrip1.Visible = False
            Me.RadPageView1.Controls.Add(Page.LoadControl("~/Firmen/Firmendaten.ascx"))
        Else
            Me.RadPageView1.Controls.Add(Page.LoadControl("~/Firmen/Firmendaten.ascx"))
            Me.RadPageView2.Controls.Add(Page.LoadControl("~/Firmen/Firmenansprechpartner.ascx"))
            Me.RadPageView3.Controls.Add(Page.LoadControl("~/Firmen/Firmenangebot.ascx"))
        End If
        If Request.QueryString("Tab") = Nothing Then
            ' Me.RadTabStrip1.SelectedIndex = 0
            ' Me.RadMultiPage1.SelectedIndex = 0
        End If
        If Request.QueryString("Tab") = 1 Then
            Me.RadTabStrip1.SelectedIndex = 0
            Me.RadMultiPage1.SelectedIndex = 0
        End If
        If Request.QueryString("Tab") = 2 Then
            Me.RadTabStrip1.SelectedIndex = 1
            Me.RadMultiPage1.SelectedIndex = 1
        End If
        If Request.QueryString("Tab") = 3 Then
            Me.RadTabStrip1.SelectedIndex = 2
            Me.RadMultiPage1.SelectedIndex = 2
        End If
        Dim db As New clsDatahandling
        If db.Get_Option(23) = False Then Me.RadTabStrip1.Enabled = False Else Me.RadTabStrip1.Enabled = True

        If Session("Admin") = True Then
            Me.RadTabStrip1.Enabled = True
            Session("ReadOnly") = "False"
        End If
        If Session("ReadOnly") = "True" Then
            Session("ReadOnly") = "False"
            Me.RadTabStrip1.Enabled = True
            Me.Show_Message(5, "Ihre Daten können aufgend der aktuellen Einstellungen nur im Lesemodus angezeigt werden.")
        End If

    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"
                image1 = WebConfigurationManager.AppSettings("Imagepath") + "Info1.png"
                RadWindowManager1.RadAlert(meldung, 330, 100, "Information", Nothing, image1)
        End Select
    End Sub

End Class