MS SQL Editor Patterns etc, DocumentViewer Relation mailldll

GUIs.Common/SQLEditor/Placeholders.vb

@@ -5,16 +5,22 @@ Namespace SQLEditor
     Public Class Placeholders
         Public Const AUTO_INDEX_ZOOFLOW = "ATTR_A"
         Public Const MAN_INDEX_ZOOFLOW = "ATTR_M"
-
-        Public Function GetInternalPlaceholders() As GalleryItemGroup
+        Public Function GetInternalPlaceholders(AttributStore As String) As GalleryItemGroup
             Dim oModule = "INT"
             Dim oImage = My.Resources.electronics_desktopmac
-
+            Dim oImagePrivate = My.Resources._private
+            Dim oValue As String
+            If AttributStore = "WM" Then
+                oValue = "WMDocID"
+            Else
+                oValue = "IDBObjID"
+            End If
             Dim oItems As New List(Of GalleryItem)() From {
                 GetGalleryItem(New Placeholder("USERNAME", "Benutzername", oModule, "USERNAME"), oImage),
                 GetGalleryItem(New Placeholder("MACHINE", "Aktuelles Datum", oModule, "MACHINE"), oImage),
                 GetGalleryItem(New Placeholder("DOMAIN", "Email-Adresse", oModule, "DOMAIN"), oImage),
-                GetGalleryItem(New Placeholder("DATE", "Vorname", oModule, "DATE"), oImage)
+                GetGalleryItem(New Placeholder("DATE", "Vorname", oModule, "DATE"), oImage),
+                 GetGalleryItem(New Placeholder(oValue, "UniqueObjectID", oModule, oValue), oImagePrivate)
             }
             Dim oGroup1 = New GalleryItemGroup() With {.Caption = "Intern"}
 
@@ -35,6 +41,7 @@ Namespace SQLEditor
             Return oGroup1
         End Function
 
+
         Friend Function GetWindreamPlaceholders(pPlaceholders As List(Of String)) As GalleryItemGroup
             Dim oImage = My.Resources.bo_contract
             Dim oItems As New List(Of GalleryItem)()