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

Update Version 1.6

Browse Source
This commit is contained in:
Stefan Hutter
2021-08-01 08:58:37 +02:00
parent 762f2c0032
commit 78bb82c44d
119 changed files with 79548 additions and 115 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
_AllgMainObjekte/AllgMainObjekte.vb
View File

@@ -463,7 +463,9 @@ Public Class AllgMainObjekte
'Case 3 'PLATTFORM
Case 2 'PERSONAL
VerantwTKBMa = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
If Globals.VerantwTKBMA_Data.Rows.Count = 0 Then VerantwTKBMA_Data = Datenklasse.Get_Stammdaten("Personal", "Bezeichnung")
VerantwTKBMa = VerantwTKBMA_Data.Copy
'VerantwTKBMa = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
Me.lblEmail.Visible = True
Me.txtMail.Visible = True
Me.tsbtncopy1.Visible = True
@@ -662,13 +664,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, f.cbboxKontaktFB.SelectedValue)
Datenklasse.Update_Temporaer_Berechtigung(f.TextBox1.Text, f.TextBox2.Text, f.TextBox3.Text, f.TextBox4.Text, f.DateTimePicker1.Value, i, 0, f.cbboxKontaktFB.SelectedValue, f.cbboxKontaktSD.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, f.cbboxKontaktFB.SelectedValue)
Datenklasse.Update_Temporaer_Berechtigung(f.TextBox1.Text, f.TextBox2.Text, f.TextBox3.Text, f.TextBox4.Text, f.DateTimePicker1.Value, i, 1, f.cbboxKontaktFB.SelectedValue, f.cbboxKontaktSD.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, f.cbboxKontaktFB.SelectedValue)
Datenklasse.Update_Temporaer_Berechtigung(f.TextBox1.Text, f.TextBox2.Text, f.TextBox3.Text, f.TextBox4.Text, f.DateTimePicker1.Value, i, 2, f.cbboxKontaktFB.SelectedValue, f.cbboxKontaktSD.SelectedValue)
End If
End If
@@ -972,6 +974,12 @@ Public Class AllgMainObjekte
Catch
f.Kontaktid = 0
End Try
Try
f.KontaktidSD = dt.Rows(0).Item("KontaktIDSD")
Catch ex As Exception
f.KontaktidSD = 0
End Try
f.DateTimePicker1.Value = dt.Rows(0).Item("termin")
Else
@@ -988,7 +996,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, f.cbboxKontaktFB.SelectedValue)
Datenklasse.Update_Temporaer_Berechtigung(f.TextBox1.Text, f.TextBox2.Text, f.TextBox3.Text, f.TextBox4.Text, f.DateTimePicker1.Value, Keyvalue, 0, f.cbboxKontaktFB.SelectedValue, f.cbboxKontaktSD.SelectedValue)
End If
End If
DBObjekt.dispose()