Initial Commit Update Telerik

2022-01-07 19:26:33 +01:00
commit 57e1cda236
2174 changed files with 1202494 additions and 0 deletions
--- a/LPWeb20/Firmen/Firmenangebot.ascx.vb
+++ b/LPWeb20/Firmen/Firmenangebot.ascx.vb
@@ -0,0 +1,116 @@
+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
+        Dim DH As New clsDatahandling
+        If UCase(DH.Get_Option(10)) = "JA" And Session("Admin") <> "True" Then
+            RadButton1.Visible = False
+            RadButton2.Visible = False
+            RadButton3.Visible = False
+            RadButton4.Visible = False
+            RadButton5.Visible = False
+            RadButton1.Enabled = False
+            RadButton2.Enabled = False
+            RadButton3.Enabled = False
+            RadButton4.Enabled = False
+            RadButton5.Enabled = False
+            Me.RadGrid1.Enabled = False
+        End If
+        If DH.Get_Option(24) = "True" Then
+            Me.btnPrintReport.Visible = True
+        Else
+            Me.btnPrintReport.Visible = False
+        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, Session.Item("Userid"))
+        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?Report=ReportFirma")
+    End Sub
+
+   
+    Protected Sub btnPrintReport_Click(sender As Object, e As EventArgs) Handles btnPrintReport.Click
+        Response.Redirect("~/Firmen/FirmenReport.aspx?Report=ReportFirma1")
+    End Sub
+End Class