Update Version 2.3

2021-05-25 21:01:12 +02:00
parent 1cc7ed8893
commit 97ef665fd1
183 changed files with 86758 additions and 197 deletions
--- a/_AllgMainObjekte/Diverse_Formulare/frmBeziehungEdit.Designer.vb
+++ b/_AllgMainObjekte/Diverse_Formulare/frmBeziehungEdit.Designer.vb
@@ -49,6 +49,7 @@ Partial Class frmBeziehungEdit
        Me.Panel3 = New System.Windows.Forms.Panel()
        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.tsmnuSecurityObjekte = New System.Windows.Forms.ToolStripMenuItem()
+        Me.cbboxKontaktFB = New DevComponents.DotNetBar.Controls.ComboBoxEx()
        CType(Me.txtSeqeunz, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel1.SuspendLayout()
        Me.Panel2.SuspendLayout()
@@ -162,6 +163,7 @@ Partial Class frmBeziehungEdit
        '
        'Panel2
        '
+        Me.Panel2.Controls.Add(Me.cbboxKontaktFB)
        Me.Panel2.Controls.Add(Me.Label5)
        Me.Panel2.Controls.Add(Me.DateTimePicker1)
        Me.Panel2.Controls.Add(Me.Label4)
@@ -216,9 +218,9 @@ Partial Class frmBeziehungEdit
        Me.Label3.AutoSize = True
        Me.Label3.Location = New System.Drawing.Point(7, 133)
        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(71, 13)
+        Me.Label3.Size = New System.Drawing.Size(73, 13)
        Me.Label3.TabIndex = 17
-        Me.Label3.Text = "Bearbeiter ISI"
+        Me.Label3.Text = "Bearbeiter SD"
        '
        'TextBox3
        '
@@ -284,6 +286,18 @@ Partial Class frmBeziehungEdit
        Me.tsmnuSecurityObjekte.Size = New System.Drawing.Size(160, 22)
        Me.tsmnuSecurityObjekte.Text = "Security Objekte"
        '
+        'cbboxKontaktFB
+        '
+        Me.cbboxKontaktFB.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.cbboxKontaktFB.DisplayMember = "Text"
+        Me.cbboxKontaktFB.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
+        Me.cbboxKontaktFB.FormattingEnabled = True
+        Me.cbboxKontaktFB.ItemHeight = 14
+        Me.cbboxKontaktFB.Location = New System.Drawing.Point(85, 156)
+        Me.cbboxKontaktFB.Name = "cbboxKontaktFB"
+        Me.cbboxKontaktFB.Size = New System.Drawing.Size(230, 20)
+        Me.cbboxKontaktFB.TabIndex = 49
+        '
        'frmBeziehungEdit
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -331,4 +345,5 @@ Partial Class frmBeziehungEdit
    Friend WithEvents Panel3 As System.Windows.Forms.Panel
    Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
    Friend WithEvents tsmnuSecurityObjekte As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents cbboxKontaktFB As DevComponents.DotNetBar.Controls.ComboBoxEx
 End Class
--- a/_AllgMainObjekte/Diverse_Formulare/frmBeziehungEdit.resx
+++ b/_AllgMainObjekte/Diverse_Formulare/frmBeziehungEdit.resx
@@ -112,15 +112,15 @@
    <value>2.0</value>
  </resheader>
  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
-  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>17, 17</value>
  </metadata>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        AAABAAkAAAAAAAEAIAAoIAQAlgAAAICAAAABACAAKAgBAL4gBABgYAAAAQAgAKiUAADmKAUASEgAAAEA
--- a/_AllgMainObjekte/Diverse_Formulare/frmBeziehungEdit.vb
+++ b/_AllgMainObjekte/Diverse_Formulare/frmBeziehungEdit.vb
@@ -1,7 +1,9 @@
 Public Class frmBeziehungEdit
-
+    Dim kontaktfb As New DataTable
    Dim dc As New _DataClass.DataClass
    Dim sec As New Utils.MySecurity
+    Dim Datenklasse As New _DataClass.DataClass
+    Public Kontaktid As Integer = 0

    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
        Me.DialogResult = Windows.Forms.DialogResult.OK
@@ -14,6 +16,11 @@
    End Sub

    Private Sub frmBeziehungEdit_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        kontaktfb = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
+        Me.cbboxKontaktFB.DataSource = kontaktfb
+        Me.cbboxKontaktFB.DisplayMember = "Bezeichnung"
+        Me.cbboxKontaktFB.ValueMember = "Keyvalue"
+        Me.cbboxKontaktFB.SelectedValue = Me.Kontaktid
        sec.Set_Form_Security(Me)
    End Sub

--- a/_AllgMainObjekte/Diverse_Formulare/frmNeueBeziehung.Designer.vb
+++ b/_AllgMainObjekte/Diverse_Formulare/frmNeueBeziehung.Designer.vb
@@ -52,6 +52,7 @@ Partial Class frmNeueBeziehung
        Me.Panel3 = New System.Windows.Forms.Panel()
        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.SecurityObjekte = New System.Windows.Forms.ToolStripMenuItem()
+        Me.cbboxKontaktFB = New DevComponents.DotNetBar.Controls.ComboBoxEx()
        CType(Me.txtSeqeunz, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel1.SuspendLayout()
        Me.Panel2.SuspendLayout()
@@ -193,6 +194,7 @@ Partial Class frmNeueBeziehung
        '
        'Panel2
        '
+        Me.Panel2.Controls.Add(Me.cbboxKontaktFB)
        Me.Panel2.Controls.Add(Me.Label5)
        Me.Panel2.Controls.Add(Me.DateTimePicker1)
        Me.Panel2.Controls.Add(Me.Label4)
@@ -247,9 +249,9 @@ Partial Class frmNeueBeziehung
        Me.Label3.AutoSize = True
        Me.Label3.Location = New System.Drawing.Point(7, 133)
        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(71, 13)
+        Me.Label3.Size = New System.Drawing.Size(73, 13)
        Me.Label3.TabIndex = 17
-        Me.Label3.Text = "Bearbeiter ISI"
+        Me.Label3.Text = "Bearbeiter SD"
        '
        'TextBox3
        '
@@ -314,11 +316,23 @@ Partial Class frmNeueBeziehung
        Me.SecurityObjekte.Size = New System.Drawing.Size(162, 22)
        Me.SecurityObjekte.Text = "Secuirty-Objekte"
        '
+        'cbboxKontaktFB
+        '
+        Me.cbboxKontaktFB.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.cbboxKontaktFB.DisplayMember = "Text"
+        Me.cbboxKontaktFB.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
+        Me.cbboxKontaktFB.FormattingEnabled = True
+        Me.cbboxKontaktFB.ItemHeight = 14
+        Me.cbboxKontaktFB.Location = New System.Drawing.Point(85, 156)
+        Me.cbboxKontaktFB.Name = "cbboxKontaktFB"
+        Me.cbboxKontaktFB.Size = New System.Drawing.Size(230, 20)
+        Me.cbboxKontaktFB.TabIndex = 48
+        '
        'frmNeueBeziehung
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(337, 275)
+        Me.ClientSize = New System.Drawing.Size(337, 502)
        Me.ContextMenuStrip = Me.ContextMenuStrip1
        Me.Controls.Add(Me.Panel3)
        Me.Controls.Add(Me.Panel2)
@@ -364,4 +378,5 @@ Partial Class frmNeueBeziehung
    Friend WithEvents Panel3 As System.Windows.Forms.Panel
    Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
    Friend WithEvents SecurityObjekte As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents cbboxKontaktFB As DevComponents.DotNetBar.Controls.ComboBoxEx
 End Class
--- a/_AllgMainObjekte/Diverse_Formulare/frmNeueBeziehung.resx
+++ b/_AllgMainObjekte/Diverse_Formulare/frmNeueBeziehung.resx
@@ -112,15 +112,15 @@
    <value>2.0</value>
  </resheader>
  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
-  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>17, 17</value>
  </metadata>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        AAABAAkAAAAAAAEAIAAoIAQAlgAAAICAAAABACAAKAgBAL4gBABgYAAAAQAgAKiUAADmKAUASEgAAAEA
--- a/_AllgMainObjekte/Diverse_Formulare/frmNeueBeziehung.vb
+++ b/_AllgMainObjekte/Diverse_Formulare/frmNeueBeziehung.vb
@@ -3,6 +3,8 @@
    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
    Property Temporaer As Boolean
        Get
            Return m_temporaer
@@ -14,6 +16,11 @@

    Private Sub frmNeueBeziehung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Panel2.Height = 1
+
+        kontaktfb = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
+        Me.cbboxKontaktFB.DataSource = kontaktfb
+        Me.cbboxKontaktFB.DisplayMember = "Bezeichnung"
+        Me.cbboxKontaktFB.ValueMember = "Keyvalue"
        sec.Set_Form_Security(Me)
    End Sub