You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
72 lines
3.3 KiB
72 lines
3.3 KiB
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 |