shu/BEA
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update Version 2.3

Browse Source
This commit is contained in:
Stefan Hutter
2021-05-25 21:01:12 +02:00
parent 1cc7ed8893
commit 97ef665fd1
183 changed files with 86758 additions and 197 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
_AllgMainObjekte/AllgMainObjekte.vb
View File

@@ -347,6 +347,8 @@ Public Class AllgMainObjekte
Me.cbboxDateneigentuemer.Visible = False
Me.lblCID.Visible = False
Me.cbCID.Visible = False
Me.lblEmail.Visible = False
Me.txtMail.Visible = False
'20200114 - Erweiterungen
Me.lblVerantwTKBMA.Visible = False
@@ -462,6 +464,8 @@ Public Class AllgMainObjekte
'Case 3 'PLATTFORM
Case 2 'PERSONAL
VerantwTKBMa = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
Me.lblEmail.Visible = True
Me.txtMail.Visible = True
Me.tsbtncopy1.Visible = True
Me.tsbtncopy1.Visible = True
Me.lblName.Visible = True
@@ -477,6 +481,7 @@ Public Class AllgMainObjekte
Me.txtnaechstePruefung.Visible = True
Me.dtPickernaechstePruefung.Visible = True
Me.txtnaechstePruefung.Text = DBObject.snextcontroldate.ToString
Me.txtMail.Text = DBObject.semail.ToString
Me.txtVerantwTKBMa.Text = DBObject.sverantwTKBma.ToString
Me.cbboxVerantwTKBMA.DataSource = VerantwTKBMa
Me.cbboxVerantwTKBMA.DisplayMember = "Bezeichnung"
@@ -657,13 +662,13 @@ Public Class AllgMainObjekte
If f.cbTemporaer.Checked = True Then
If DBObjektname = "_DataClass.db.Personal_FunktionStelle" Then
Datenklasse.Update_Temporaer_Berechtigung(f.TextBox1.Text, f.TextBox2.Text, f.TextBox3.Text, f.TextBox4.Text, f.DateTimePicker1.Value, i, 0)
Datenklasse.Update_Temporaer_Berechtigung(f.TextBox1.Text, f.TextBox2.Text, f.TextBox3.Text, f.TextBox4.Text, f.DateTimePicker1.Value, i, 0, f.cbboxKontaktFB.SelectedValue)
End If
If DBObjektname = "_DataClass.db.Personal_Berechtigung" Then
Datenklasse.Update_Temporaer_Berechtigung(f.TextBox1.Text, f.TextBox2.Text, f.TextBox3.Text, f.TextBox4.Text, f.DateTimePicker1.Value, i, 1)
Datenklasse.Update_Temporaer_Berechtigung(f.TextBox1.Text, f.TextBox2.Text, f.TextBox3.Text, f.TextBox4.Text, f.DateTimePicker1.Value, i, 1, f.cbboxKontaktFB.SelectedValue)
End If
If DBObjektname = "_DataClass.db.Personal_Plattform" Then
Datenklasse.Update_Temporaer_Berechtigung(f.TextBox1.Text, f.TextBox2.Text, f.TextBox3.Text, f.TextBox4.Text, f.DateTimePicker1.Value, i, 2)
Datenklasse.Update_Temporaer_Berechtigung(f.TextBox1.Text, f.TextBox2.Text, f.TextBox3.Text, f.TextBox4.Text, f.DateTimePicker1.Value, i, 2, f.cbboxKontaktFB.SelectedValue)
End If
End If
@@ -832,6 +837,7 @@ Public Class AllgMainObjekte
DBObject.stgnummer = New SqlString(CType(Me.txtTGNummer.Text, String))
DBObject.sVerantwTKBMA = New SqlString(CType(Me.txtVerantwTKBMa.Text, String))
DBObject.sNextControlDate = New SqlString(CType(Me.txtnaechstePruefung.Text, String))
DBObject.sEMail = New SqlString(CType(Me.txtMail.Text, String))
If Me.cbboxVerantwTKBMA.SelectedValue = 0 Then
DBObject.sVerantwTKBMA = New SqlString(CType("", String))
Else
@@ -960,7 +966,13 @@ Public Class AllgMainObjekte
f.TextBox1.Text = dt.Rows(0).Item("Beschreibung")
f.TextBox2.Text = dt.Rows(0).Item("Unterlagen")
f.TextBox3.Text = dt.Rows(0).Item("Bearbeiter_Isi")
f.TextBox4.Text = dt.Rows(0).Item("Kontaktperson_FB")
f.TextBox4.Text = dt.Rows(0).Item("Kontaktperson_FB").ToString
Try
f.Kontaktid = dt.Rows(0).Item("KontaktID")
Catch
f.Kontaktid = 0
End Try
f.DateTimePicker1.Value = dt.Rows(0).Item("termin")
Else
f.Panel2.Height = 1
@@ -976,7 +988,7 @@ Public Class AllgMainObjekte
DBObjekt.ibeziehungstypnr = New SqlInt32(CType(f.cbbeziehungstyp.SelectedValue, Int32))
DBObjekt.save_data()
If is_temporaer = True And f.cbAktiv.Checked = True Then
Datenklasse.Update_Temporaer_Berechtigung(f.TextBox1.Text, f.TextBox2.Text, f.TextBox3.Text, f.TextBox4.Text, f.DateTimePicker1.Value, Keyvalue, 0)
Datenklasse.Update_Temporaer_Berechtigung(f.TextBox1.Text, f.TextBox2.Text, f.TextBox3.Text, f.TextBox4.Text, f.DateTimePicker1.Value, Keyvalue, 0, f.cbboxKontaktFB.SelectedValue)
End If
End If
DBObjekt.dispose()