update Juni 2023

_AllgMainObjekte/Diverse_Formulare/frmNeueBeziehung.vb

@@ -1,87 +1,89 @@
-Public Class frmNeueBeziehung
-
-    Dim dc As New _DataClass.DataClass
-    Dim sec As New Utils.MySecurity
-    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
-        End Get
-        Set(value As Boolean)
-            m_temporaer = value
-        End Set
-    End Property
-
-    Private Sub frmNeueBeziehung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Me.Panel2.Height = 1
-        sec.Set_Form_Security(Me)
-    End Sub
-
-    Sub New()
-
-        ' Dieser Aufruf ist für den Designer erforderlich.
-        InitializeComponent()
-
-        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
-        Dim dt As New DataTable
-        dc.ConnectionString = Globals.sConnectionString
-        dc.Mitarbeiternr = Globals.Mitarbeiternr
-        dt = dc.Get_Stammdaten("Beziehungstyp", "Bezeichnung")
-        Me.cbbeziehungstyp.DataSource = dt
-        Me.cbbeziehungstyp.DisplayMember = "bezeichnung"
-        Me.cbbeziehungstyp.ValueMember = "KeyValue"
-        For Each r As DataRow In dt.Rows
-            If r.Item("Bezeichnung") = "Zugehörig" Then Me.cbbeziehungstyp.SelectedValue = r.Item("keyvalue")
-        Next
-
-    End Sub
-    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
-        Me.DialogResult = Windows.Forms.DialogResult.OK
-        Me.Close()
-    End Sub
-
-    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
-        Me.DialogResult = Windows.Forms.DialogResult.Abort
-        Me.Close()
-    End Sub
-
-    Private Sub cbTemporaer_CheckedChanged(sender As Object, e As EventArgs) Handles cbTemporaer.CheckedChanged
-        If Me.cbTemporaer.Checked = True Then
-            Cursor = Cursors.WaitCursor
-            Me.Panel2.Height = 227
-            Me.Height = Me.Height + 227
-            Me.cbboxKontaktFB.BeginUpdate()
-            Me.cbboxKontaktSD.BeginUpdate()
-            'If VerantwTKBMA_Data.Rows.Count = 0 Then Datenklasse.Get_Stammdaten("Personal", "Bezeichnung")
-            'kontaktfb = VerantwTKBMA_Data
-            kontaktfb = Datenklasse.Get_Stammdaten("Personal", "Bezeichnung")
-            'Me.cbboxKontaktFB.DataSource = Globals.VerantwTKBMA_Data
-
-            Me.cbboxKontaktFB.DataSource = kontaktfb
-            Me.cbboxKontaktFB.DisplayMember = "Bezeichnung"
-                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
-
-
-    Private Sub SecurityObjekte_Click(sender As Object, e As EventArgs) Handles SecurityObjekte.Click
-        If InputBox("Passwort:") <> "341211" Then Exit Sub
-        sec.List_Form_Controls(Me)
-        sec.Print_Screen(Me)
-    End Sub
+Public Class frmNeueBeziehung
+
+    Dim dc As New _DataClass.DataClass
+    Dim sec As New Utils.MySecurity
+    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
+        End Get
+        Set(value As Boolean)
+            m_temporaer = value
+        End Set
+    End Property
+
+    Private Sub frmNeueBeziehung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.Panel2.Height = 1
+        sec.Set_Form_Security(Me)
+    End Sub
+
+    Sub New()
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        Dim dt As New DataTable
+        dc.ConnectionString = Globals.sConnectionString
+        dc.Mitarbeiternr = Globals.Mitarbeiternr
+        dt = dc.Get_Stammdaten("Beziehungstyp", "Bezeichnung")
+        Me.cbbeziehungstyp.DataSource = dt
+        Me.cbbeziehungstyp.DisplayMember = "bezeichnung"
+        Me.cbbeziehungstyp.ValueMember = "KeyValue"
+        For Each r As DataRow In dt.Rows
+            If r.Item("Bezeichnung") = "Zugehörig" Then Me.cbbeziehungstyp.SelectedValue = r.Item("keyvalue")
+        Next
+
+    End Sub
+    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
+        Me.DialogResult = Windows.Forms.DialogResult.OK
+        Me.Close()
+    End Sub
+
+    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
+        Me.DialogResult = Windows.Forms.DialogResult.Abort
+        Me.Close()
+    End Sub
+
+    Private Sub cbTemporaer_CheckedChanged(sender As Object, e As EventArgs) Handles cbTemporaer.CheckedChanged
+        If Me.cbTemporaer.Checked = True Then
+            Cursor = Cursors.WaitCursor
+            Me.Panel2.Height = 227
+            Me.Height = Me.Height + 227
+            Me.cbboxKontaktFB.BeginUpdate()
+            Me.cbboxKontaktSD.BeginUpdate()
+            'If VerantwTKBMA_Data.Rows.Count = 0 Then Datenklasse.Get_Stammdaten("Personal", "Bezeichnung")
+            'kontaktfb = VerantwTKBMA_Data
+            kontaktfb = Datenklasse.Get_Stammdaten("Personal", "Bezeichnung")
+            'Me.cbboxKontaktFB.DataSource = Globals.VerantwTKBMA_Data
+
+            Me.cbboxKontaktFB.DataSource = kontaktfb
+            Me.cbboxKontaktFB.DisplayMember = "Bezeichnung"
+                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
+            Me.cbboxKontaktSD.EndUpdate()
+            Me.cbboxKontaktFB.EndUpdate()
+        Else
+                Me.Panel2.Height = 1
+            Me.Height = Me.Height - 227
+            Me.cbboxKontaktSD.EndUpdate()
+            Me.cbboxKontaktFB.EndUpdate()
+        End If
+
+    End Sub
+
+
+    Private Sub SecurityObjekte_Click(sender As Object, e As EventArgs) Handles SecurityObjekte.Click
+        If InputBox("Passwort:") <> "341211" Then Exit Sub
+        sec.List_Form_Controls(Me)
+        sec.Print_Screen(Me)
+    End Sub
 End Class