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