refactor(.Form): Aktualisiert, um die Domain zu verwenden

EnvelopeGenerator.Form/frmEnvelopeEditor.vb

@@ -1,24 +1,18 @@
 Imports System.ComponentModel
-Imports System.Data.SqlClient
 Imports System.IO
 Imports System.Text.RegularExpressions
-Imports DevExpress.Export.Xl
-Imports DevExpress.Utils.CommonDialogs
 Imports DevExpress.Utils.Drawing
-Imports DevExpress.Utils.Svg.CommonSvgImages
 Imports DevExpress.XtraEditors
-Imports DevExpress.XtraExport.Helpers
 Imports DevExpress.XtraGrid
-Imports DevExpress.XtraGrid.Columns
-Imports DevExpress.XtraGrid.Views.Base
 Imports DevExpress.XtraGrid.Views.Grid
 Imports DevExpress.XtraSplashScreen
 Imports DigitalData.Modules.Base
 Imports DigitalData.Modules.Logging
 Imports EnvelopeGenerator.Common
-Imports EnvelopeGenerator.Common.Constants
+Imports EnvelopeGenerator.Domain
 Imports EnvelopeGenerator.Common.My
 Imports GdPicture14
+Imports EnvelopeGenerator.Domain.Constants
 
 Partial Public Class frmEnvelopeEditor
     Public Property Envelope As Envelope
@@ -467,7 +461,7 @@ Partial Public Class frmEnvelopeEditor
         Dim oReceiver As EnvelopeReceiver = ViewReceivers.GetRow(e.RowHandle)
 
         Dim oUsedColors = Receivers.Select(Of Integer)(Function(r) r.ColorType).ToList()
-        Dim oAllColors = [Enum].GetValues(GetType(ColorType)).Cast(Of Integer).ToList()
+        Dim oAllColors = [Enum].GetValues(GetType(Domain.Constants.ColorType)).Cast(Of Integer).ToList()
         Dim oUnusedColors = oAllColors.Except(oUsedColors)
         If oUnusedColors.Any() Then
             oReceiver.ColorType = oUnusedColors.Min()
@@ -576,7 +570,7 @@ Partial Public Class frmEnvelopeEditor
                             CheckAccesscode(e.RowHandle, oAccessCode)
                         End If
                     Else
-                            Dim oMsg = Resources.Envelope.Error_email_Validation
+                        Dim oMsg = Resources.Envelope.Error_email_Validation
                         oMsg = oMsg.Replace("@Mail", oEmailAdress)
                         MsgBox(oMsg, MsgBoxStyle.Exclamation, Text)
                         ViewReceivers.DeleteRow(ViewReceivers.FocusedRowHandle)
@@ -756,7 +750,7 @@ Partial Public Class frmEnvelopeEditor
     End Sub
 
     Private Sub btnShowFile_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnShowFile.ItemClick
-        showDocument
+        showdocument()
     End Sub
     Sub showdocument()
         If Not IsNothing(Documents) Then