shu
/
Lehrlingsparcours
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
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.
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'b56b75d627'
${ noResults }
Lehrlingsparcours/LPWeb24_Redesign/LPWeb20/Firmen/Firmendaten.ascx.vb

243 lines
12 KiB
Raw Blame History

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
Me.cbaktiviert.Visible = False
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
Me.cbaktiviert.Checked = dr.Item("Aktuell") = True
Me.cbaktiv.Checked = dr.Item("Aktiv") = True
Me.txtZugehoerigkeit.SelectedValue = dr.Item("ZugehoerigkeitNr")
If UCase(dh.Get_Option(10)) = "JA" And Session("Admin") <> True Then
btnSave.Visible = False
btnSave.Enabled = False
End If
If Session("Admin") = True Then
Me.cbaktiviert.Visible = True
Me.cbaktiv.Visible = True
Else
Me.cbaktiviert.Visible = False
Me.cbaktiv.Visible = 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)
dh.UpdateTable("Firma", "Aktuell", "1", False, "Firmanr", dbkey)
dh.UpdateTable("Firma", "Aktiv", 1, False, "Firmanr", dbkey)
If txtZugehoerigkeit.Text = "" Then
dh.UpdateTable("Firma", "ZugehoerigkeitNr", 0, False, "FirmaNr", dbkey)
Else
dh.UpdateTable("Firma", "ZugehoerigkeitNr", Me.txtZugehoerigkeit.SelectedValue, False, "FirmaNr", dbkey)
End If
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)
If Me.cbaktiviert.Checked = True Then
dh.UpdateTable("Firma", "Aktuell", "1", False, "Firmanr", dbkey)
Else
dh.UpdateTable("Firma", "Aktuell", "0", False, "Firmanr", dbkey)
End If
If Me.cbaktiv.Checked = True Then
dh.UpdateTable("Firma", "aktiv", "1", False, "Firmanr", dbkey)
Else
dh.UpdateTable("Firma", "aktiv", "0", False, "Firmanr", dbkey)
End If
dh.UpdateTable("Firma", "ZugehoerigkeitNr", Me.txtZugehoerigkeit.SelectedValue, False, "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
Reference in new issue View Git Blame Copy Permalink