2023-11-06 - Übersicht erweitert

EnvelopeGenerator.Form/frmMain.vb

@@ -67,12 +67,13 @@ Public Class frmMain
 
             Controller = New EnvelopeListController(State)
 
+            LoadEnvelopes()
+
+
             GridBuilder = New GridBuilder(ViewEnvelopes)
             GridBuilder.SetDefaults(ViewEnvelopes)
             GridBuilder.SetReadOnlyOptions(ViewEnvelopes)
 
-            GridEnvelopes.DataSource = Controller.ListEnvelopes()
-
 
         Catch ex As Exception
             Logger.Error(ex)
@@ -80,6 +81,22 @@ Public Class frmMain
 
     End Sub
 
+    Private Sub LoadEnvelopes()
+        GridBuilder = New GridBuilder(ViewEnvelopes)
+        GridBuilder.SetDefaults(ViewEnvelopes)
+        GridBuilder.SetReadOnlyOptions(ViewEnvelopes)
+
+        GridEnvelopes.DataSource = Controller.ListEnvelopes()
+    End Sub
+
+    Private Sub LoadCompletedEnvelopes()
+        GridBuilder = New GridBuilder(ViewCompleted)
+        GridBuilder.SetDefaults(ViewCompleted)
+        GridBuilder.SetReadOnlyOptions(ViewCompleted)
+
+        GridCompleted.DataSource = Controller.ListCompleted()
+    End Sub
+
     Private Sub btnCreateEnvelope_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnCreateEnvelope.ItemClick
         Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
         Try
@@ -140,4 +157,5 @@ Public Class frmMain
         ' Cleanup Methods
         TempFiles.CleanUp()
     End Sub
+
 End Class