MS ZUGFERDService/Jobs - configurable PortalName

GUIs.ZooFlow/Administration/ClassDetailForm.vb

@@ -21,6 +21,13 @@ Public Class ClassDetailForm
             .[Module] = MODULE_IDB,
             .Entity = PAGE_IDB_BUSINESS_ENTITIES
         }},
+        {PAGE_IDB_OBJECT_STORES,                   ' This Key will be matched with the Entity Id from the Database
+        New DetailSettings With {
+            .GridTitle = "IDB Object Stores",       ' This will be shown above the Data Grid
+            .NewRecordTitle = "New Object Store", ' This will be shown on the "New" Button
+            .[Module] = MODULE_IDB,
+            .Entity = PAGE_IDB_OBJECT_STORES
+        }},
         {PAGE_META_SOURCE_SQL,
         New DetailSettings With {
             .GridTitle = "Source SQL",
@@ -57,7 +64,9 @@ Public Class ClassDetailForm
             Case PAGE_IDB_BUSINESS_ENTITIES
                 Load_IDBEntity(PrimaryKey, IsInsert)
                 Return True
-
+            Case PAGE_IDB_OBJECT_STORES
+                Load_IDBObjectstore(PrimaryKey, IsInsert)
+                Return True
             Case PAGE_CW_PROFILES
                 Load_CWProfile(PrimaryKey, IsInsert)
                 Return True
@@ -99,6 +108,17 @@ Public Class ClassDetailForm
             Throw ex
         End Try
     End Sub
+    Private Sub Load_IDBObjectstore(PrimaryKey As Integer, IsInsert As Boolean)
+        Try
+            Dim oForm As New frmAdmin_IDBObjectStore(PrimaryKey) With {.IsInsert = IsInsert}
+            oForm.ShowDialog()
+
+            RaiseEvent DetailFormClosed(Me, oForm)
+        Catch ex As Exception
+            Logger.Error(ex)
+            Throw ex
+        End Try
+    End Sub
 
     Private Sub Load_IDBEntity(PrimaryKey As Integer, IsInsert As Boolean)
         Try