31.07.2023

EnvelopeGenerator.Form/frmEnvelopeEditor.vb

@@ -18,8 +18,13 @@ Partial Public Class frmEnvelopeEditor
 
     Private Sub btnNewFile_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnNewFile.ItemClick
         If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
-            Dim oFileInfo = New FileInfo(OpenFileDialog1.FileName)
-            Documents.Add(New EnvelopeDocument() With {.FileInfo = oFileInfo})
+            Dim oDocument = Controller.CreateDocument(OpenFileDialog1.FileName)
+
+            If oDocument IsNot Nothing Then
+                Documents.Add(oDocument)
+            Else
+                MsgBox("Dokument konnte nicht gespeichert werden!", MsgBoxStyle.Critical, Text)
+            End If
         End If
     End Sub
 
@@ -55,7 +60,9 @@ Partial Public Class frmEnvelopeEditor
 
     Private Sub btnSave_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnSave.ItemClick
         Try
-            SaveEnvelope()
+            If SaveEnvelope() Then
+
+            End If
         Catch ex As Exception
             Logger.Error(ex)
         End Try