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.
207 lines
10 KiB
207 lines
10 KiB
Imports System.IO
|
|
Imports System.IO.Compression
|
|
Imports System.Web.Configuration
|
|
Public Class Firmendaten
|
|
Inherits System.Web.UI.UserControl
|
|
Private rand As New System.Random
|
|
|
|
Dim Firmanr As Integer = 0
|
|
|
|
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
If Not Page.IsPostBack Then
|
|
Try
|
|
|
|
If Session.Item("RegisterAsCompany") = "True" Then
|
|
Me.txtBemerkung.Visible = False
|
|
Me.txtAusbildungBemerkung.Visible = False
|
|
Me.txtAusbildungsstandort.Visible = False
|
|
Me.txtPasswort1.Visible = True
|
|
Me.txtPasswort2.Visible = True
|
|
Me.txtUsername.Visible = True
|
|
Me.btnRegister.Visible = True
|
|
Me.btnSave.Visible = False
|
|
Me.RadCaptcha1.Visible = True
|
|
Me.RadCaptcha1.Visible = True
|
|
Me.lblCaptcha.Visible = True
|
|
Me.RadCaptcha1.Visible = True
|
|
Me.txtUserEmail.Visible = True
|
|
Me.RV6.Enabled = True
|
|
Me.RV7.Enabled = True
|
|
Me.RV9.Enabled = True
|
|
Me.txtNameZ1.Focus()
|
|
Me.Label1.Visible = True
|
|
Me.Label2.Visible = True
|
|
Me.Label4.Visible = False
|
|
Me.Label5.Visible = False
|
|
Me.Label6.Visible = False
|
|
Me.Label7.Visible = False
|
|
Me.Label8.Visible = False
|
|
Me.txtNameZ1.SelectionOnFocus = Telerik.Web.UI.SelectionOnFocus.SelectAll
|
|
Exit Sub
|
|
Else
|
|
If Session.Item("LogedIn") = "True" Then
|
|
Firmanr = Session.Item("Firmanr")
|
|
End If
|
|
Me.txtNameZ1.Focus()
|
|
Me.txtPasswort1.Visible = False
|
|
Me.txtPasswort2.Visible = False
|
|
Me.txtUsername.Visible = False
|
|
Me.btnRegister.Visible = False
|
|
Me.btnSave.Visible = True
|
|
Me.RadCaptcha1.Visible = False
|
|
Me.RadCaptcha1.Visible = False
|
|
Me.lblCaptcha.Visible = False
|
|
Me.RadCaptcha1.Visible = False
|
|
Me.txtUserEmail.Visible = False
|
|
Me.RV6.Enabled = False
|
|
Me.RV7.Enabled = False
|
|
Me.RV9.Enabled = False
|
|
Me.Label1.Visible = False
|
|
Me.Label2.Visible = False
|
|
|
|
End If
|
|
Dim fdaten As New DataTable
|
|
Dim dh As New clsDatahandling
|
|
fdaten = dh.Get_Firma(Firmanr)
|
|
Dim dr As DataRow = fdaten.Rows(0)
|
|
Me.txtNameZ1.Text = dr.Item("NameZ1").ToString
|
|
Me.txtNameZ2.Text = dr.Item("NameZ2").ToString
|
|
Me.txtAnredea.Text = dr.Item("Anrede").ToString
|
|
Me.txtAnredea.SelectedValue = dr.Item("Anrede").ToString
|
|
Me.txtname.Text = dr.Item("Name").ToString
|
|
Me.txtVorname.Text = dr.Item("Vorname").ToString
|
|
Me.txtStrasse.Text = dr.Item("Strasse").ToString
|
|
Me.txtPLZ.Text = dr.Item("plz").ToString
|
|
Me.txtOrt.Text = dr.Item("Ort").ToString
|
|
Me.txtTelefon.Text = dr.Item("tel").ToString
|
|
Me.txtNatel.Text = dr.Item("Natel").ToString
|
|
Me.txtTelefax.Text = dr.Item("Fax").ToString
|
|
Me.txtEmail.Text = dr.Item("email").ToString
|
|
Me.txtInternet.Text = dr.Item("web").ToString
|
|
Me.txtBemerkung.Text = dr.Item("Bemerkung").ToString
|
|
Me.txtAusbildungBemerkung.Text = dr.Item("Ausbildungsbemerkung").ToString
|
|
Me.txtAusbildungsstandort.Text = dr.Item("Ausbildungsstandort").ToString
|
|
|
|
If UCase(dh.Get_Option(10)) = "JA" And Session("Admin") <> True Then
|
|
btnSave.Visible = False
|
|
btnSave.Enabled = False
|
|
End If
|
|
Catch
|
|
End Try
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Protected Sub btnRegister_Click(sender As Object, e As EventArgs) Handles btnRegister.Click
|
|
If Not Page.IsValid Then Exit Sub
|
|
Dim dh As New clsDatahandling
|
|
Dim dbkey As Integer = dh.Get_NewDBKey("Firma")
|
|
If dh.Insert_Firma(dbkey) = True Then
|
|
dh.UpdateTable("Firma", "NameZ1", Me.txtNameZ1.Text, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "NameZ2", Me.txtNameZ2.Text, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "Strasse", Me.txtStrasse.Text, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "plz", Me.txtPLZ.Text, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "ort", Me.txtOrt.Text, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "tel", Me.txtTelefon.Text, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "Natel", Me.txtNatel.Text, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "fax", Me.txtTelefax.Text, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "web", Me.txtInternet.Text, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "email", Me.txtEmail.Text, True, "Firmanr", dbkey)
|
|
' dh.UpdateTable("Firma", "anrede", Me.txtAnrede.Text, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "anrede", Me.txtAnredea.Text, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "name", Me.txtname.Text, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "vorname", Me.txtVorname.Text, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "mutiert_am", Now, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "Bemerkung", "", True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "Ausbildungsstandort", "", True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "Ausbildungsbemerkung", "", True, "Firmanr", dbkey)
|
|
End If
|
|
|
|
dh.Insert_Web_User(Me.txtUsername.Text, Me.txtPasswort1.Text, 2, dbkey, 0)
|
|
Dim userkey As Integer = dh.Get_LastKey("Web_User", "Eintragnr") - 1
|
|
|
|
dh.Insert_Ansprechpartner(dbkey, Me.txtname.Text, Me.txtVorname.Text, Me.txtTelefon.Text, Me.txtEmail.Text, Me.txtAnredea.SelectedValue)
|
|
|
|
Dim KeyGen As RandomKeyGenerator
|
|
Dim NumKeys As Integer
|
|
Dim RandomKey As String
|
|
NumKeys = 1
|
|
|
|
KeyGen = New RandomKeyGenerator
|
|
KeyGen.KeyLetters = "abcdefghijklmnopqrstuvwxyz"
|
|
KeyGen.KeyNumbers = "0123456789"
|
|
KeyGen.KeyChars = 46
|
|
RandomKey = KeyGen.Generate()
|
|
dh.UpdateTable("Web_User", "VerifyString", RandomKey, True, "Eintragnr", userkey)
|
|
dh.UpdateTable("Web_User", "EMail", Me.txtUserEmail.Text, True, "Eintragnr", userkey)
|
|
Dim mds As New DataSet
|
|
mds = dh.Get_Tabledata("Select * from Web_MailTexte where nreintrag=1", False, True)
|
|
Dim inhalt As String = mds.Tables(0).Rows(0).Item("Inhalt")
|
|
inhalt = inhalt.Replace("[Weblink]", WebConfigurationManager.AppSettings("WebSite"))
|
|
inhalt = inhalt.Replace("[RegisterLink]", WebConfigurationManager.AppSettings("WebSite") + "/user/" + "RegisterBestaetigung.aspx?fnkt=Aktivierung&Code=" + RandomKey)
|
|
|
|
Dim mailer As New clsSendMail
|
|
mailer.SendMailMessage("", Me.txtUserEmail.Text, "", "", mds.Tables(0).Rows(0).Item("Betreff").ToString, inhalt)
|
|
Response.Redirect("~/user/registerbestaetigung.aspx?fnkt=Bestaetigung")
|
|
|
|
|
|
End Sub
|
|
|
|
Protected Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
|
|
If Page.IsValid Then
|
|
Dim dbkey As Integer = Session.Item("Firmanr")
|
|
Dim dh As New clsDatahandling
|
|
dh.UpdateTable("Firma", "NameZ1", Me.txtNameZ1.Text, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "NameZ2", Me.txtNameZ2.Text, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "Strasse", Me.txtStrasse.Text, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "plz", Me.txtPLZ.Text, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "ort", Me.txtOrt.Text, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "tel", Me.txtTelefon.Text, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "Natel", Me.txtNatel.Text, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "fax", Me.txtTelefax.Text, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "web", Me.txtInternet.Text, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "email", Me.txtEmail.Text, True, "Firmanr", dbkey)
|
|
'dh.UpdateTable("Firma", "anrede", Me.txtAnrede.Text, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "anrede", Me.txtAnredea.Text, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "name", Me.txtname.Text, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "vorname", Me.txtVorname.Text, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "mutiert_am", Now, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "Bemerkung", Me.txtBemerkung.Text, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "Ausbildungsstandort", Me.txtAusbildungsstandort.Text, True, "Firmanr", dbkey)
|
|
dh.UpdateTable("Firma", "Ausbildungsbemerkung", Me.txtAusbildungBemerkung.Text, True, "Firmanr", dbkey)
|
|
End If
|
|
Response.Redirect("~/firmen/Firmendaten1.aspx?Tab=2")
|
|
End Sub
|
|
|
|
Public Function Check_Userid(source As Object, args As ServerValidateEventArgs)
|
|
Dim dh As New clsDatahandling
|
|
Dim ds As New DataSet
|
|
ds = dh.Get_Tabledata("Select * from web_user where Username='" + Me.txtUsername.Text + "'", False, True)
|
|
If ds.Tables(0).Rows.Count > 0 Then
|
|
args.IsValid = False
|
|
Else
|
|
args.IsValid = True
|
|
End If
|
|
End Function
|
|
|
|
Public Function Check_Captcha(source As Object, args As ServerValidateEventArgs)
|
|
If Me.RadCaptcha1.IsValid = False Then
|
|
args.IsValid = False
|
|
Else
|
|
args.IsValid = True
|
|
End If
|
|
End Function
|
|
|
|
|
|
Protected Sub RadAjaxManager1_AjaxRequest(sender As Object, e As Telerik.Web.UI.AjaxRequestEventArgs) Handles RadAjaxManager1.AjaxRequest
|
|
|
|
End Sub
|
|
|
|
Protected Sub txtOrt_TextChanged(sender As Object, e As EventArgs) Handles txtOrt.TextChanged
|
|
|
|
End Sub
|
|
|
|
Protected Sub txtNameZ3_TextChanged(sender As Object, e As EventArgs) Handles txtNameZ2.TextChanged
|
|
|
|
End Sub
|
|
End Class |