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

26
_AllgMainObjekte/Diverse_Formulare/frmNeueBeziehung.vb
View File

@@ -5,6 +5,7 @@
Dim m_temporaer As Boolean
Dim Datenklasse As New _DataClass.DataClass
Dim kontaktfb As New DataTable
Dim Kontaktsd As New DataTable
Property Temporaer As Boolean
Get
Return m_temporaer
@@ -52,14 +53,27 @@
Cursor = Cursors.WaitCursor
Me.Panel2.Height = 227
Me.Height = Me.Height + 227
kontaktfb = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
Me.cbboxKontaktFB.DataSource = kontaktfb
Me.cbboxKontaktFB.BeginUpdate()
Me.cbboxKontaktSD.BeginUpdate()
If VerantwTKBMA_Data.Rows.Count = 0 Then Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
'kontaktfb = VerantwTKBMA_Data
'kontaktfb = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
Me.cbboxKontaktFB.DataSource = Globals.VerantwTKBMA_Data
'Me.cbboxKontaktFB.DataSource = kontaktfb
Me.cbboxKontaktFB.DisplayMember = "Bezeichnung"
Me.cbboxKontaktFB.ValueMember = "Keyvalue"
Cursor = Cursors.Default
Else
Me.Panel2.Height = 1
Me.cbboxKontaktFB.ValueMember = "Keyvalue"
If KontaktSD_Data.Rows.Count = 0 Then KontaktSD_Data = Datenklasse.Get_Stammdaten("Servicedesk", "Bezeichnung")
'Kontaktsd = Datenklasse.Get_Stammdaten("Servicedesk", "Bezeichnung")
Me.cbboxKontaktSD.DataSource = Kontaktsd_data
Me.cbboxKontaktSD.DisplayMember = "Bezeichnung"
Me.cbboxKontaktSD.ValueMember = "KeyValue"
Cursor = Cursors.Default
Else
Me.Panel2.Height = 1
Me.Height = Me.Height - 227
Me.cbboxKontaktSD.EndUpdate()
Me.cbboxKontaktFB.EndUpdate()
End If
End Sub