Initial

2022-12-25 10:09:49 +01:00
commit 406d053e79
3903 changed files with 2127541 additions and 0 deletions
--- a/EDOKA/EDEX/Dokumentpakete/frmBPPerson.Designer.vb
+++ b/EDOKA/EDEX/Dokumentpakete/frmBPPerson.Designer.vb
@@ -0,0 +1,143 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmBPPerson
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBPPerson))
+        Me.txtMeldung = New System.Windows.Forms.Label()
+        Me.lblaktuell = New System.Windows.Forms.Label()
+        Me.BUtton3 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
+        Me.MenuItem1 = New System.Windows.Forms.MenuItem()
+        Me.MenuItem2 = New System.Windows.Forms.MenuItem()
+        Me.PartnerList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
+        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
+        CType(Me.PartnerList, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'txtMeldung
+        '
+        Me.txtMeldung.Location = New System.Drawing.Point(12, 9)
+        Me.txtMeldung.Name = "txtMeldung"
+        Me.txtMeldung.Size = New System.Drawing.Size(511, 58)
+        Me.txtMeldung.TabIndex = 15
+        Me.txtMeldung.Text = "Label1"
+        '
+        'lblaktuell
+        '
+        Me.lblaktuell.AutoSize = True
+        Me.lblaktuell.Location = New System.Drawing.Point(12, 110)
+        Me.lblaktuell.Name = "lblaktuell"
+        Me.lblaktuell.Size = New System.Drawing.Size(82, 13)
+        Me.lblaktuell.TabIndex = 16
+        Me.lblaktuell.Text = "Aktuell gewählt:"
+        '
+        'BUtton3
+        '
+        Me.BUtton3.Location = New System.Drawing.Point(12, 353)
+        Me.BUtton3.Name = "BUtton3"
+        Me.BUtton3.Size = New System.Drawing.Size(80, 24)
+        Me.BUtton3.TabIndex = 17
+        Me.BUtton3.Text = "Schliessen"
+        '
+        'Button2
+        '
+        Me.Button2.Location = New System.Drawing.Point(435, 353)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(88, 23)
+        Me.Button2.TabIndex = 18
+        Me.Button2.Text = "Übernehmen"
+        '
+        'ContextMenu1
+        '
+        Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem2})
+        '
+        'MenuItem1
+        '
+        Me.MenuItem1.Index = 0
+        Me.MenuItem1.Text = "&Partner übernehmen"
+        '
+        'MenuItem2
+        '
+        Me.MenuItem2.Index = 1
+        Me.MenuItem2.Text = "&Detailinformationen"
+        '
+        'PartnerList
+        '
+        Me.PartnerList.AllowUpdate = False
+        Me.PartnerList.AllowUpdateOnBlur = False
+        Me.PartnerList.AlternatingRows = True
+        Me.PartnerList.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
+        Me.PartnerList.ContextMenu = Me.ContextMenu1
+        Me.PartnerList.FetchRowStyles = True
+        Me.PartnerList.FilterBar = True
+        Me.PartnerList.GroupByCaption = "Drag a column header here to group by that column"
+        Me.PartnerList.Images.Add(CType(resources.GetObject("PartnerList.Images"), System.Drawing.Image))
+        Me.PartnerList.Location = New System.Drawing.Point(12, 143)
+        Me.PartnerList.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
+        Me.PartnerList.Name = "PartnerList"
+        Me.PartnerList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
+        Me.PartnerList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
+        Me.PartnerList.PreviewInfo.ZoomFactor = 75.0R
+        Me.PartnerList.PrintInfo.PageSettings = CType(resources.GetObject("PartnerList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
+        Me.PartnerList.ScrollTips = True
+        Me.PartnerList.Size = New System.Drawing.Size(511, 192)
+        Me.PartnerList.TabIndex = 19
+        Me.PartnerList.Text = "C1TrueDBGrid1"
+        Me.PartnerList.PropBag = resources.GetString("PartnerList.PropBag")
+        '
+        'ImageList1
+        '
+        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
+        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
+        Me.ImageList1.Images.SetKeyName(0, "Person1.png")
+        Me.ImageList1.Images.SetKeyName(1, "Partner.bmp")
+        '
+        'frmBPPerson
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(535, 389)
+        Me.Controls.Add(Me.PartnerList)
+        Me.Controls.Add(Me.BUtton3)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.lblaktuell)
+        Me.Controls.Add(Me.txtMeldung)
+        Me.Name = "frmBPPerson"
+        Me.Text = "Auswahl Person / BP"
+        CType(Me.PartnerList, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents txtMeldung As Label
+    Friend WithEvents lblaktuell As Label
+    Friend WithEvents BUtton3 As Button
+    Friend WithEvents Button2 As Button
+    Friend WithEvents ContextMenu1 As ContextMenu
+    Friend WithEvents MenuItem1 As MenuItem
+    Friend WithEvents MenuItem2 As MenuItem
+    Friend WithEvents PartnerList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
+    Friend WithEvents ImageList1 As ImageList
+End Class