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.
94 lines
3.7 KiB
94 lines
3.7 KiB
Imports System.Web.Configuration
|
|
Public Class Firmenangebot
|
|
Inherits System.Web.UI.UserControl
|
|
|
|
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
If Not Page.IsPostBack Then
|
|
Try
|
|
Me.RadListBox1.SelectedIndex = 0
|
|
Catch
|
|
End Try
|
|
Try
|
|
Me.RadListBox2.SelectedIndex = 0
|
|
Catch
|
|
End Try
|
|
Try
|
|
Me.RadListBox3.SelectedIndex = 0
|
|
Catch
|
|
End Try
|
|
Try
|
|
Me.RadComboBox1.SelectedIndex = 0
|
|
Catch
|
|
End Try
|
|
End If
|
|
If Session("admin") <> "True" Then
|
|
Me.SqlDataZeiten.SelectCommand = "SELECT ZeitNr, Bezeichnung FROM Zeiten WHERE (Aktiv = 1 and Oeffentlich=1) order by reihenfolge"
|
|
Me.RadGrid1.Columns(8).Visible = False
|
|
End If
|
|
' If Me.RadListBox2.Items.Count < 3 Then
|
|
'System.Web.HttpContext.Current.Response.Write("<SCRIPT LANGUAGE='JavaScript'>alert('Hello this is an Alert')</SCRIPT>")
|
|
'End If
|
|
End Sub
|
|
|
|
|
|
Protected Sub RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
|
|
Me.RadWindowManager1.Windows.Clear()
|
|
If Me.RadComboBox1.SelectedValue = 0 Then
|
|
Showmessage(1, "Bitte die Anzahl Plätze angeben.")
|
|
Me.RadComboBox1.Focus()
|
|
Exit Sub
|
|
End If
|
|
If Me.RadListBox2.Items.Count = 0 Then
|
|
System.Web.HttpContext.Current.Response.Write("<SCRIPT LANGUAGE='JavaScript'>alert('Sie müssten zuerst mind. einen Ansprechpartner festlegen.')</SCRIPT>")
|
|
Exit Sub
|
|
End If
|
|
Dim dh As New clsDatahandling
|
|
dh.Insert_FirmaBeruf(Session.Item("Firmanr"), RadListBox1.SelectedValue, RadListBox2.SelectedValue, RadListBox3.SelectedValue, RadComboBox1.SelectedValue, Me.RadComboboxKlasse.SelectedValue)
|
|
Me.RadGrid1.MasterTableView.Rebind()
|
|
End Sub
|
|
|
|
|
|
Protected Sub RadButton2_Click(sender As Object, e As EventArgs) Handles RadButton2.Click
|
|
Me.RadListBox2.DataBind()
|
|
End Sub
|
|
|
|
Protected Sub RadButton3_Click(sender As Object, e As EventArgs) Handles RadButton3.Click
|
|
Response.Redirect("~/Firmen/Firmendaten1.aspx?Tab=2")
|
|
End Sub
|
|
|
|
Protected Sub RadButton4_Click(sender As Object, e As EventArgs) Handles RadButton4.Click
|
|
Response.Redirect("~/usercontrols/Berufsanfrage1.aspx")
|
|
'ShowWindow()
|
|
End Sub
|
|
|
|
Private Sub ShowWindow()
|
|
Dim newwindow As New Telerik.Web.UI.RadWindow
|
|
|
|
newwindow.NavigateUrl = "~/UserControls/Berufsanfrage.aspx"
|
|
newwindow.ID = "RadWindow2"
|
|
newwindow.Skin = "Default"
|
|
newwindow.VisibleOnPageLoad = True
|
|
newwindow.Height = 220
|
|
newwindow.Width = 500
|
|
|
|
'newwindow.AutoSize = True
|
|
RadWindowManager1.Windows.Clear()
|
|
RadWindowManager1.Windows.Add(newwindow)
|
|
End Sub
|
|
|
|
Protected Sub RadButton5_Click(sender As Object, e As EventArgs) Handles RadButton5.Click
|
|
Dim image As String = WebConfigurationManager.AppSettings("Imagepath") + "info1.png"
|
|
RadWindowManager1.RadAlert("Besten Dank für Ihre aktive Mitarbeit.", 330, 100, "Bestätigung", "alertCallBackFn", image)
|
|
'Response.Redirect("~/default.aspx")
|
|
End Sub
|
|
Private Sub Showmessage(ByVal typ As Integer, ByVal meldung As String)
|
|
Dim image As String = WebConfigurationManager.AppSettings("Imagepath") + "info1.png"
|
|
RadWindowManager1.RadAlert(meldung, 330, 100, "Bestätigung", "alertCallBackFn1", image)
|
|
End Sub
|
|
|
|
Protected Sub RadButton6_Click(sender As Object, e As EventArgs) Handles RadButton6.Click
|
|
Response.Redirect("~/Firmen/FirmenReport.aspx")
|
|
End Sub
|
|
|
|
|
|
End Class |