AppStd/EnvelopeGenerator
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Nur 1 Datei erlaubt

Browse Source 
Receiver-Anzeige in Haupt-Form
Abbrechen-Button
This commit is contained in:
PitzM 2023-11-01 13:32:19 +01:00
parent dc24ae3631
commit a9c817f2ef
12 changed files with 1011 additions and 1066 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
EnvelopeGenerator.Common/Constants.vb
View File

@ -19,6 +19,11 @@
Signed = 1
End Enum
Public Enum ReceiverStatus
Unsigned = 0
Signed = 1
End Enum
Public Enum EnvelopeHistoryActionType
Created = 0
Saved = 1

3
EnvelopeGenerator.Common/Entities/EnvelopeReceiver.vb
View File

@ -1,4 +1,5 @@
Imports DigitalData.Modules.Base
Imports EnvelopeGenerator.Common.Constants
Public Class EnvelopeReceiver
Public Property Id As Integer
@ -11,6 +12,8 @@ Public Class EnvelopeReceiver
Public Property Email As String
Public Property Status As ReceiverStatus
Public ReadOnly Property HasId As Boolean
Get
Return Id > 0

5
EnvelopeGenerator.Common/Models/ReceiverModel.vb
View File

@ -2,6 +2,8 @@
Imports System.Data.Common
Imports System.Data.SqlClient
Imports DigitalData.Modules.Base
Imports EnvelopeGenerator.Common.Constants
Public Class ReceiverModel
Inherits BaseModel
@ -15,7 +17,8 @@ Public Class ReceiverModel
.Email = pRow.ItemEx("EMAIL_ADDRESS", ""),
.Name = pRow.ItemEx("NAME", ""),
.Sequence = pRow.ItemEx("SEQUENCE", 0),
.Signature = pRow.ItemEx("SIGNATURE", "")
.Signature = pRow.ItemEx("SIGNATURE", ""),
.Status = ReceiverStatus.Unsigned
}
End Function

6
EnvelopeGenerator.Common/Strings/Envelope.en.resx
View File

@ -171,9 +171,15 @@
<data name="Missing Subject" xml:space="preserve">
<value>Missing Subject</value>
</data>
<data name="Only one file is allowed" xml:space="preserve">
<value>Only one file is allowed!</value>
</data>
<data name="Recipient could not be deleted" xml:space="preserve">
<value>Recipient could not be deleted!</value>
</data>
<data name="Should The Envelope Be Saved" xml:space="preserve">
<value>Should the envelope be saved?</value>
</data>
<data name="The envelope could not be deleted" xml:space="preserve">
<value>The envelope could not be deleted!</value>
</data>

6
EnvelopeGenerator.Common/Strings/Envelope.resx
View File

@ -171,9 +171,15 @@
<data name="Missing Subject" xml:space="preserve">
<value>Missing Subject</value>
</data>
<data name="Only one file is allowed" xml:space="preserve">
<value>Es ist nur eine Datei zulässig!</value>
</data>
<data name="Recipient could not be deleted" xml:space="preserve">
<value>Empfänger konnte nicht gelöscht werden!</value>
</data>
<data name="Should The Envelope Be Saved" xml:space="preserve">
<value>Soll der Umschlag gespeichert werden?</value>
</data>
<data name="The envelope could not be deleted" xml:space="preserve">
<value>Der Umschlag konnte nicht gelöscht werden!</value>
</data>

18
EnvelopeGenerator.Common/Strings/Envelope1.Designer.vb generated
View File

@ -226,6 +226,15 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Es ist nur eine Datei zulässig! ähnelt.
'''</summary>
Public Shared ReadOnly Property Only_one_file_is_allowed() As String
Get
Return ResourceManager.GetString("Only one file is allowed", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Empfänger konnte nicht gelöscht werden! ähnelt.
'''</summary>
@ -235,6 +244,15 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Soll der Umschlag gespeichert werden? ähnelt.
'''</summary>
Public Shared ReadOnly Property Should_The_Envelope_Be_Saved() As String
Get
Return ResourceManager.GetString("Should The Envelope Be Saved", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Der Umschlag konnte nicht gelöscht werden! ähnelt.
'''</summary>

100
EnvelopeGenerator.Form/frmEnvelopeEditor.Designer.vb generated
View File

@ -138,37 +138,25 @@ Partial Public Class frmEnvelopeEditor
'
'SplitContainerControl1.Panel1
'
resources.ApplyResources(Me.SplitContainerControl1.Panel1, "SplitContainerControl1.Panel1")
Me.SplitContainerControl1.Panel1.Controls.Add(Me.LayoutControl3)
resources.ApplyResources(Me.SplitContainerControl1.Panel1, "SplitContainerControl1.Panel1")
'
'SplitContainerControl1.Panel2
'
resources.ApplyResources(Me.SplitContainerControl1.Panel2, "SplitContainerControl1.Panel2")
Me.SplitContainerControl1.Panel2.Controls.Add(Me.SplitContainerControl2)
resources.ApplyResources(Me.SplitContainerControl1.Panel2, "SplitContainerControl1.Panel2")
Me.SplitContainerControl1.SplitterPosition = 251
'
'LayoutControl3
'
resources.ApplyResources(Me.LayoutControl3, "LayoutControl3")
Me.LayoutControl3.Controls.Add(Me.GridDocuments)
resources.ApplyResources(Me.LayoutControl3, "LayoutControl3")
Me.LayoutControl3.Name = "LayoutControl3"
Me.LayoutControl3.Root = Me.LayoutControlGroup4
'
'GridDocuments
'
resources.ApplyResources(Me.GridDocuments, "GridDocuments")
Me.GridDocuments.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridDocuments.EmbeddedNavigator.AccessibleDescription")
Me.GridDocuments.EmbeddedNavigator.AccessibleName = resources.GetString("GridDocuments.EmbeddedNavigator.AccessibleName")
Me.GridDocuments.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridDocuments.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridDocuments.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridDocuments.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridDocuments.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridDocuments.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridDocuments.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridDocuments.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridDocuments.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridDocuments.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridDocuments.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridDocuments.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridDocuments.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridDocuments.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridDocuments.EmbeddedNavigator.ToolTip = resources.GetString("GridDocuments.EmbeddedNavigator.ToolTip")
Me.GridDocuments.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridDocuments.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridDocuments.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridDocuments.EmbeddedNavigator.ToolTipTitle")
Me.GridDocuments.MainView = Me.ViewDocuments
Me.GridDocuments.MenuManager = Me.RibbonControl1
Me.GridDocuments.Name = "GridDocuments"
@ -182,11 +170,6 @@ Partial Public Class frmEnvelopeEditor
Me.ViewDocuments.OptionsTiles.ItemSize = New System.Drawing.Size(200, 290)
Me.ViewDocuments.OptionsTiles.Orientation = System.Windows.Forms.Orientation.Vertical
Me.ViewDocuments.TileColumns.Add(TableColumnDefinition1)
'
'
'
Me.ViewDocuments.TileHtmlTemplate.Styles = resources.GetString("ViewDocuments.TileHtmlTemplate.Styles")
Me.ViewDocuments.TileHtmlTemplate.Template = resources.GetString("ViewDocuments.TileHtmlTemplate.Template")
TableRowDefinition1.Length.Value = 152.0R
TableRowDefinition2.Length.Value = 20.0R
Me.ViewDocuments.TileRows.Add(TableRowDefinition1)
@ -206,7 +189,6 @@ Partial Public Class frmEnvelopeEditor
TileViewItemElement2.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
Me.ViewDocuments.TileTemplate.Add(TileViewItemElement1)
Me.ViewDocuments.TileTemplate.Add(TileViewItemElement2)
resources.ApplyResources(Me.ViewDocuments, "ViewDocuments")
'
'colFilename
'
@ -222,13 +204,9 @@ Partial Public Class frmEnvelopeEditor
'
'RibbonControl1
'
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.ExpandCollapseItem.ImageOptions.ImageIndex = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.ImageIndex"), Integer)
Me.RibbonControl1.ExpandCollapseItem.ImageOptions.LargeImageIndex = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.LargeImageIndex"), Integer)
Me.RibbonControl1.ExpandCollapseItem.ImageOptions.SvgImage = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.RibbonControl1.ExpandCollapseItem.SearchTags = resources.GetString("RibbonControl1.ExpandCollapseItem.SearchTags")
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.btnSave, Me.btnCancel, Me.btnNewFile, Me.btnDeleteFile, Me.btnSendEnvelope, Me.btnEditFields, Me.btnDeleteReceiver, Me.btnEditData})
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.MaxItemId = 10
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
@ -237,8 +215,6 @@ Partial Public Class frmEnvelopeEditor
'
resources.ApplyResources(Me.btnSave, "btnSave")
Me.btnSave.Id = 1
Me.btnSave.ImageOptions.ImageIndex = CType(resources.GetObject("btnSave.ImageOptions.ImageIndex"), Integer)
Me.btnSave.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnSave.ImageOptions.LargeImageIndex"), Integer)
Me.btnSave.ImageOptions.SvgImage = CType(resources.GetObject("btnSave.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.btnSave.Name = "btnSave"
'
@ -246,8 +222,6 @@ Partial Public Class frmEnvelopeEditor
'
resources.ApplyResources(Me.btnCancel, "btnCancel")
Me.btnCancel.Id = 2
Me.btnCancel.ImageOptions.ImageIndex = CType(resources.GetObject("btnCancel.ImageOptions.ImageIndex"), Integer)
Me.btnCancel.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnCancel.ImageOptions.LargeImageIndex"), Integer)
Me.btnCancel.ImageOptions.SvgImage = CType(resources.GetObject("btnCancel.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.btnCancel.Name = "btnCancel"
'
@ -255,8 +229,6 @@ Partial Public Class frmEnvelopeEditor
'
resources.ApplyResources(Me.btnNewFile, "btnNewFile")
Me.btnNewFile.Id = 3
Me.btnNewFile.ImageOptions.ImageIndex = CType(resources.GetObject("btnNewFile.ImageOptions.ImageIndex"), Integer)
Me.btnNewFile.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnNewFile.ImageOptions.LargeImageIndex"), Integer)
Me.btnNewFile.ImageOptions.SvgImage = CType(resources.GetObject("btnNewFile.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.btnNewFile.Name = "btnNewFile"
'
@ -264,8 +236,6 @@ Partial Public Class frmEnvelopeEditor
'
resources.ApplyResources(Me.btnDeleteFile, "btnDeleteFile")
Me.btnDeleteFile.Id = 4
Me.btnDeleteFile.ImageOptions.ImageIndex = CType(resources.GetObject("btnDeleteFile.ImageOptions.ImageIndex"), Integer)
Me.btnDeleteFile.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnDeleteFile.ImageOptions.LargeImageIndex"), Integer)
Me.btnDeleteFile.ImageOptions.SvgImage = CType(resources.GetObject("btnDeleteFile.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.btnDeleteFile.Name = "btnDeleteFile"
'
@ -273,8 +243,6 @@ Partial Public Class frmEnvelopeEditor
'
resources.ApplyResources(Me.btnSendEnvelope, "btnSendEnvelope")
Me.btnSendEnvelope.Id = 6
Me.btnSendEnvelope.ImageOptions.ImageIndex = CType(resources.GetObject("btnSendEnvelope.ImageOptions.ImageIndex"), Integer)
Me.btnSendEnvelope.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnSendEnvelope.ImageOptions.LargeImageIndex"), Integer)
Me.btnSendEnvelope.ImageOptions.SvgImage = CType(resources.GetObject("btnSendEnvelope.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.btnSendEnvelope.Name = "btnSendEnvelope"
'
@ -282,8 +250,6 @@ Partial Public Class frmEnvelopeEditor
'
resources.ApplyResources(Me.btnEditFields, "btnEditFields")
Me.btnEditFields.Id = 7
Me.btnEditFields.ImageOptions.ImageIndex = CType(resources.GetObject("btnEditFields.ImageOptions.ImageIndex"), Integer)
Me.btnEditFields.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnEditFields.ImageOptions.LargeImageIndex"), Integer)
Me.btnEditFields.ImageOptions.SvgImage = CType(resources.GetObject("btnEditFields.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.btnEditFields.Name = "btnEditFields"
'
@ -291,8 +257,6 @@ Partial Public Class frmEnvelopeEditor
'
resources.ApplyResources(Me.btnDeleteReceiver, "btnDeleteReceiver")
Me.btnDeleteReceiver.Id = 8
Me.btnDeleteReceiver.ImageOptions.ImageIndex = CType(resources.GetObject("btnDeleteReceiver.ImageOptions.ImageIndex"), Integer)
Me.btnDeleteReceiver.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnDeleteReceiver.ImageOptions.LargeImageIndex"), Integer)
Me.btnDeleteReceiver.ImageOptions.SvgImage = CType(resources.GetObject("btnDeleteReceiver.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.btnDeleteReceiver.Name = "btnDeleteReceiver"
'
@ -300,8 +264,6 @@ Partial Public Class frmEnvelopeEditor
'
resources.ApplyResources(Me.btnEditData, "btnEditData")
Me.btnEditData.Id = 9
Me.btnEditData.ImageOptions.ImageIndex = CType(resources.GetObject("btnEditData.ImageOptions.ImageIndex"), Integer)
Me.btnEditData.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnEditData.ImageOptions.LargeImageIndex"), Integer)
Me.btnEditData.ImageOptions.SvgImage = CType(resources.GetObject("btnEditData.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.btnEditData.Name = "btnEditData"
'
@ -347,7 +309,6 @@ Partial Public Class frmEnvelopeEditor
'
'LayoutControlGroup4
'
resources.ApplyResources(Me.LayoutControlGroup4, "LayoutControlGroup4")
Me.LayoutControlGroup4.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
Me.LayoutControlGroup4.GroupBordersVisible = False
Me.LayoutControlGroup4.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup5})
@ -358,15 +319,14 @@ Partial Public Class frmEnvelopeEditor
'
'LayoutControlGroup5
'
resources.ApplyResources(Me.LayoutControlGroup5, "LayoutControlGroup5")
Me.LayoutControlGroup5.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem5})
Me.LayoutControlGroup5.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlGroup5.Name = "LayoutControlGroup5"
Me.LayoutControlGroup5.Size = New System.Drawing.Size(251, 526)
resources.ApplyResources(Me.LayoutControlGroup5, "LayoutControlGroup5")
'
'LayoutControlItem5
'
resources.ApplyResources(Me.LayoutControlItem5, "LayoutControlItem5")
Me.LayoutControlItem5.Control = Me.GridDocuments
Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem5.Name = "LayoutControlItem5"
@ -382,44 +342,32 @@ Partial Public Class frmEnvelopeEditor
'
'SplitContainerControl2.Panel1
'
resources.ApplyResources(Me.SplitContainerControl2.Panel1, "SplitContainerControl2.Panel1")
Me.SplitContainerControl2.Panel1.Controls.Add(Me.PanelControl1)
resources.ApplyResources(Me.SplitContainerControl2.Panel1, "SplitContainerControl2.Panel1")
'
'SplitContainerControl2.Panel2
'
resources.ApplyResources(Me.SplitContainerControl2.Panel2, "SplitContainerControl2.Panel2")
Me.SplitContainerControl2.Panel2.Controls.Add(Me.PanelControl2)
resources.ApplyResources(Me.SplitContainerControl2.Panel2, "SplitContainerControl2.Panel2")
Me.SplitContainerControl2.SplitterPosition = 253
'
'PanelControl1
'
resources.ApplyResources(Me.PanelControl1, "PanelControl1")
Me.PanelControl1.Controls.Add(Me.LayoutControl2)
resources.ApplyResources(Me.PanelControl1, "PanelControl1")
Me.PanelControl1.Name = "PanelControl1"
'
'LayoutControl2
'
resources.ApplyResources(Me.LayoutControl2, "LayoutControl2")
Me.LayoutControl2.Controls.Add(Me.GridReceivers)
resources.ApplyResources(Me.LayoutControl2, "LayoutControl2")
Me.LayoutControl2.Name = "LayoutControl2"
Me.LayoutControl2.Root = Me.LayoutControlGroup2
'
'GridReceivers
'
resources.ApplyResources(Me.GridReceivers, "GridReceivers")
Me.GridReceivers.DataSource = Me.EnvelopeReceiverBindingSource
Me.GridReceivers.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridReceivers.EmbeddedNavigator.AccessibleDescription")
Me.GridReceivers.EmbeddedNavigator.AccessibleName = resources.GetString("GridReceivers.EmbeddedNavigator.AccessibleName")
Me.GridReceivers.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridReceivers.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridReceivers.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridReceivers.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridReceivers.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridReceivers.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridReceivers.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridReceivers.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridReceivers.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridReceivers.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridReceivers.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridReceivers.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridReceivers.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridReceivers.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridReceivers.EmbeddedNavigator.ToolTip = resources.GetString("GridReceivers.EmbeddedNavigator.ToolTip")
Me.GridReceivers.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridReceivers.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridReceivers.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridReceivers.EmbeddedNavigator.ToolTipTitle")
resources.ApplyResources(Me.GridReceivers, "GridReceivers")
Me.GridReceivers.MainView = Me.ViewReceivers
Me.GridReceivers.MenuManager = Me.RibbonControl1
Me.GridReceivers.Name = "GridReceivers"
@ -434,27 +382,26 @@ Partial Public Class frmEnvelopeEditor
'ViewReceivers
'
Me.ViewReceivers.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Simple
resources.ApplyResources(Me.ViewReceivers, "ViewReceivers")
Me.ViewReceivers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colName, Me.colEmail})
Me.ViewReceivers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colEmail, Me.colName})
Me.ViewReceivers.GridControl = Me.GridReceivers
Me.ViewReceivers.Name = "ViewReceivers"
Me.ViewReceivers.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[True]
Me.ViewReceivers.OptionsView.NewItemRowPosition = DevExpress.XtraGrid.Views.Grid.NewItemRowPosition.Bottom
Me.ViewReceivers.OptionsView.ShowGroupPanel = False
Me.ViewReceivers.SortInfo.AddRange(New DevExpress.XtraGrid.Columns.GridColumnSortInfo() {New DevExpress.XtraGrid.Columns.GridColumnSortInfo(Me.colEmail, DevExpress.Data.ColumnSortOrder.Ascending)})
'
'colName
'
resources.ApplyResources(Me.colName, "colName")
Me.colName.FieldName = "Name"
Me.colName.Name = "colName"
resources.ApplyResources(Me.colName, "colName")
'
'colEmail
'
resources.ApplyResources(Me.colEmail, "colEmail")
Me.colEmail.ColumnEdit = Me.RepositoryItemEmailEdit
Me.colEmail.FieldName = "Email"
Me.colEmail.Name = "colEmail"
Me.colEmail.Summary.AddRange(New DevExpress.XtraGrid.GridSummaryItem() {New DevExpress.XtraGrid.GridColumnSummaryItem()})
resources.ApplyResources(Me.colEmail, "colEmail")
'
'RepositoryItemEmailEdit
'
@ -463,7 +410,6 @@ Partial Public Class frmEnvelopeEditor
'
'LayoutControlGroup2
'
resources.ApplyResources(Me.LayoutControlGroup2, "LayoutControlGroup2")
Me.LayoutControlGroup2.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
Me.LayoutControlGroup2.GroupBordersVisible = False
Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup3})
@ -474,15 +420,14 @@ Partial Public Class frmEnvelopeEditor
'
'LayoutControlGroup3
'
resources.ApplyResources(Me.LayoutControlGroup3, "LayoutControlGroup3")
Me.LayoutControlGroup3.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem2})
Me.LayoutControlGroup3.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlGroup3.Name = "LayoutControlGroup3"
Me.LayoutControlGroup3.Size = New System.Drawing.Size(899, 249)
resources.ApplyResources(Me.LayoutControlGroup3, "LayoutControlGroup3")
'
'LayoutControlItem2
'
resources.ApplyResources(Me.LayoutControlItem2, "LayoutControlItem2")
Me.LayoutControlItem2.Control = Me.GridReceivers
Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem2.Name = "LayoutControlItem2"
@ -492,15 +437,15 @@ Partial Public Class frmEnvelopeEditor
'
'PanelControl2
'
resources.ApplyResources(Me.PanelControl2, "PanelControl2")
Me.PanelControl2.Controls.Add(Me.LayoutControl1)
resources.ApplyResources(Me.PanelControl2, "PanelControl2")
Me.PanelControl2.Name = "PanelControl2"
'
'LayoutControl1
'
resources.ApplyResources(Me.LayoutControl1, "LayoutControl1")
Me.LayoutControl1.Controls.Add(Me.txtSubject)
Me.LayoutControl1.Controls.Add(Me.txtMessage)
resources.ApplyResources(Me.LayoutControl1, "LayoutControl1")
Me.LayoutControl1.Name = "LayoutControl1"
Me.LayoutControl1.Root = Me.Root
'
@ -520,7 +465,6 @@ Partial Public Class frmEnvelopeEditor
'
'Root
'
resources.ApplyResources(Me.Root, "Root")
Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
Me.Root.GroupBordersVisible = False
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup1})
@ -531,34 +475,34 @@ Partial Public Class frmEnvelopeEditor
'
'LayoutControlGroup1
'
resources.ApplyResources(Me.LayoutControlGroup1, "LayoutControlGroup1")
Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem3})
Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlGroup1.Name = "LayoutControlGroup1"
Me.LayoutControlGroup1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlGroup1.Size = New System.Drawing.Size(899, 259)
resources.ApplyResources(Me.LayoutControlGroup1, "LayoutControlGroup1")
'
'LayoutControlItem1
'
resources.ApplyResources(Me.LayoutControlItem1, "LayoutControlItem1")
Me.LayoutControlItem1.Control = Me.txtSubject
Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem1.Name = "LayoutControlItem1"
Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem1.Size = New System.Drawing.Size(873, 56)
resources.ApplyResources(Me.LayoutControlItem1, "LayoutControlItem1")
Me.LayoutControlItem1.TextLocation = DevExpress.Utils.Locations.Top
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(42, 13)
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(45, 13)
'
'LayoutControlItem3
'
resources.ApplyResources(Me.LayoutControlItem3, "LayoutControlItem3")
Me.LayoutControlItem3.Control = Me.txtMessage
Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 56)
Me.LayoutControlItem3.Name = "LayoutControlItem3"
Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem3.Size = New System.Drawing.Size(873, 156)
resources.ApplyResources(Me.LayoutControlItem3, "LayoutControlItem3")
Me.LayoutControlItem3.TextLocation = DevExpress.Utils.Locations.Top
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(42, 13)
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(45, 13)
'
'FrmEditorBindingSource
'

1540
EnvelopeGenerator.Form/frmEnvelopeEditor.resx
View File

File diff suppressed because it is too large Load Diff

15
EnvelopeGenerator.Form/frmEnvelopeEditor.vb
View File

@ -1,4 +1,5 @@
Imports System.ComponentModel
Imports System.Runtime.Remoting.Messaging
Imports DevExpress.XtraEditors
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Grid
@ -22,6 +23,13 @@ Partial Public Class frmEnvelopeEditor
End Sub
Private Sub btnNewFile_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnNewFile.ItemClick
' prüfen ob es schon eine Datei gibt
If Documents.Count > 0 Then
MsgBox(Resources.Envelope.Only_one_file_is_allowed, MsgBoxStyle.Information, Text)
Return
End If
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
Dim oDocument = Controller.CreateDocument(OpenFileDialog1.FileName)
@ -237,7 +245,14 @@ Partial Public Class frmEnvelopeEditor
End Sub
Private Sub btnCancel_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnCancel.ItemClick
' Speichern?
Dim oMessage = Resources.Envelope.Should_The_Envelope_Be_Saved
If MsgBox(oMessage, MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.Yes Then
SaveEnvelope(False)
End If
' Schließen
Me.Close()
End Sub
Private Sub btnEditData_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnEditData.ItemClick

137
EnvelopeGenerator.Form/frmMain.Designer.vb generated
View File

@ -21,13 +21,10 @@ Partial Class frmMain
Private Sub InitializeComponent()
Dim SplashScreenManager1 As DevExpress.XtraSplashScreen.SplashScreenManager = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, Nothing, True, True)
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
Me.RibbonControl = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.btnCreateEnvelope = New DevExpress.XtraBars.BarButtonItem()
Me.btnEditEnvelope = New DevExpress.XtraBars.BarButtonItem()
Me.btnDeleteEnvelope = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Me.ViewReceivers = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.ColEmail = New DevExpress.XtraGrid.Columns.GridColumn()
Me.ColReceiverStatus = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridEnvelopes = New DevExpress.XtraGrid.GridControl()
Me.ViewEnvelopes = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colContractType = New DevExpress.XtraGrid.Columns.GridColumn()
@ -35,15 +32,89 @@ Partial Class frmMain
Me.colTitle = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colSubject = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colAddedWhen = New DevExpress.XtraGrid.Columns.GridColumn()
CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit()
Me.RibbonControl = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.btnCreateEnvelope = New DevExpress.XtraBars.BarButtonItem()
Me.btnEditEnvelope = New DevExpress.XtraBars.BarButtonItem()
Me.btnDeleteEnvelope = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
CType(Me.ViewReceivers, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridEnvelopes, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ViewEnvelopes, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'SplashScreenManager1
'
SplashScreenManager1.ClosingDelay = 500
'
'ViewReceivers
'
Me.ViewReceivers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.ColEmail, Me.ColReceiverStatus})
Me.ViewReceivers.GridControl = Me.GridEnvelopes
Me.ViewReceivers.Name = "ViewReceivers"
resources.ApplyResources(Me.ViewReceivers, "ViewReceivers")
'
'ColEmail
'
resources.ApplyResources(Me.ColEmail, "ColEmail")
Me.ColEmail.FieldName = "Email"
Me.ColEmail.Name = "ColEmail"
'
'ColReceiverStatus
'
resources.ApplyResources(Me.ColReceiverStatus, "ColReceiverStatus")
Me.ColReceiverStatus.FieldName = "Status"
Me.ColReceiverStatus.Name = "ColReceiverStatus"
'
'GridEnvelopes
'
resources.ApplyResources(Me.GridEnvelopes, "GridEnvelopes")
GridLevelNode1.LevelTemplate = Me.ViewReceivers
GridLevelNode1.RelationName = "Receivers"
Me.GridEnvelopes.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
Me.GridEnvelopes.MainView = Me.ViewEnvelopes
Me.GridEnvelopes.MenuManager = Me.RibbonControl
Me.GridEnvelopes.Name = "GridEnvelopes"
Me.GridEnvelopes.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewEnvelopes, Me.ViewReceivers})
'
'ViewEnvelopes
'
Me.ViewEnvelopes.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colContractType, Me.colStatus, Me.colTitle, Me.colSubject, Me.colAddedWhen})
Me.ViewEnvelopes.GridControl = Me.GridEnvelopes
Me.ViewEnvelopes.Name = "ViewEnvelopes"
'
'colContractType
'
resources.ApplyResources(Me.colContractType, "colContractType")
Me.colContractType.FieldName = "ContractTypeTranslated"
Me.colContractType.Name = "colContractType"
'
'colStatus
'
resources.ApplyResources(Me.colStatus, "colStatus")
Me.colStatus.FieldName = "StatusTranslated"
Me.colStatus.Name = "colStatus"
'
'colTitle
'
resources.ApplyResources(Me.colTitle, "colTitle")
Me.colTitle.FieldName = "Title"
Me.colTitle.Name = "colTitle"
'
'colSubject
'
resources.ApplyResources(Me.colSubject, "colSubject")
Me.colSubject.FieldName = "Subject"
Me.colSubject.Name = "colSubject"
'
'colAddedWhen
'
resources.ApplyResources(Me.colAddedWhen, "colAddedWhen")
Me.colAddedWhen.FieldName = "AddedWhen"
Me.colAddedWhen.Name = "colAddedWhen"
'
'RibbonControl
'
Me.RibbonControl.ExpandCollapseItem.Id = 0
@ -95,50 +166,6 @@ Partial Class frmMain
Me.RibbonStatusBar.Name = "RibbonStatusBar"
Me.RibbonStatusBar.Ribbon = Me.RibbonControl
'
'GridEnvelopes
'
resources.ApplyResources(Me.GridEnvelopes, "GridEnvelopes")
Me.GridEnvelopes.MainView = Me.ViewEnvelopes
Me.GridEnvelopes.MenuManager = Me.RibbonControl
Me.GridEnvelopes.Name = "GridEnvelopes"
Me.GridEnvelopes.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewEnvelopes})
'
'ViewEnvelopes
'
Me.ViewEnvelopes.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colContractType, Me.colStatus, Me.colTitle, Me.colSubject, Me.colAddedWhen})
Me.ViewEnvelopes.GridControl = Me.GridEnvelopes
Me.ViewEnvelopes.Name = "ViewEnvelopes"
'
'colContractType
'
resources.ApplyResources(Me.colContractType, "colContractType")
Me.colContractType.FieldName = "ContractTypeTranslated"
Me.colContractType.Name = "colContractType"
'
'colStatus
'
resources.ApplyResources(Me.colStatus, "colStatus")
Me.colStatus.FieldName = "StatusTranslated"
Me.colStatus.Name = "colStatus"
'
'colTitle
'
resources.ApplyResources(Me.colTitle, "colTitle")
Me.colTitle.FieldName = "Title"
Me.colTitle.Name = "colTitle"
'
'colSubject
'
resources.ApplyResources(Me.colSubject, "colSubject")
Me.colSubject.FieldName = "Subject"
Me.colSubject.Name = "colSubject"
'
'colAddedWhen
'
resources.ApplyResources(Me.colAddedWhen, "colAddedWhen")
Me.colAddedWhen.FieldName = "AddedWhen"
Me.colAddedWhen.Name = "colAddedWhen"
'
'frmMain
'
resources.ApplyResources(Me, "$this")
@ -149,9 +176,10 @@ Partial Class frmMain
Me.Name = "frmMain"
Me.Ribbon = Me.RibbonControl
Me.StatusBar = Me.RibbonStatusBar
CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ViewReceivers, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridEnvelopes, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ViewEnvelopes, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@ -171,4 +199,7 @@ Partial Class frmMain
Friend WithEvents colAddedWhen As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colContractType As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colStatus As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents ViewReceivers As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents ColEmail As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents ColReceiverStatus As DevExpress.XtraGrid.Columns.GridColumn
End Class

225
EnvelopeGenerator.Form/frmMain.resx
View File

@ -117,6 +117,93 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="ColEmail.Caption" xml:space="preserve">
<value>Email</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="ColEmail.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="ColEmail.VisibleIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="ColReceiverStatus.Caption" xml:space="preserve">
<value>Status</value>
</data>
<data name="ColReceiverStatus.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="ColReceiverStatus.VisibleIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="GridEnvelopes.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="GridEnvelopes.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 158</value>
</data>
<data name="colContractType.Caption" xml:space="preserve">
<value>Typ</value>
</data>
<data name="colContractType.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colContractType.VisibleIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="colContractType.Width" type="System.Int32, mscorlib">
<value>133</value>
</data>
<data name="colStatus.Caption" xml:space="preserve">
<value>Status</value>
</data>
<data name="colStatus.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colStatus.VisibleIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="colStatus.Width" type="System.Int32, mscorlib">
<value>54</value>
</data>
<data name="colTitle.Caption" xml:space="preserve">
<value>Titel</value>
</data>
<data name="colTitle.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colTitle.VisibleIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="colTitle.Width" type="System.Int32, mscorlib">
<value>159</value>
</data>
<data name="colSubject.Caption" xml:space="preserve">
<value>Betreff</value>
</data>
<data name="colSubject.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colSubject.VisibleIndex" type="System.Int32, mscorlib">
<value>3</value>
</data>
<data name="colSubject.Width" type="System.Int32, mscorlib">
<value>159</value>
</data>
<data name="colAddedWhen.Caption" xml:space="preserve">
<value>Erstellt am</value>
</data>
<data name="colAddedWhen.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colAddedWhen.VisibleIndex" type="System.Int32, mscorlib">
<value>4</value>
</data>
<data name="colAddedWhen.Width" type="System.Int32, mscorlib">
<value>51</value>
</data>
<data name="btnCreateEnvelope.Caption" xml:space="preserve">
<value>Neuer Umschlag</value>
</data>
@ -183,7 +270,6 @@
IC8+DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="RibbonControl.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
@ -226,74 +312,6 @@
<data name="&gt;&gt;RibbonControl.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="GridEnvelopes.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="GridEnvelopes.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 158</value>
</data>
<data name="colContractType.Caption" xml:space="preserve">
<value>Typ</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="colContractType.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colContractType.VisibleIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="colContractType.Width" type="System.Int32, mscorlib">
<value>70</value>
</data>
<data name="colStatus.Caption" xml:space="preserve">
<value>Status</value>
</data>
<data name="colStatus.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colStatus.VisibleIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="colStatus.Width" type="System.Int32, mscorlib">
<value>70</value>
</data>
<data name="colTitle.Caption" xml:space="preserve">
<value>Titel</value>
</data>
<data name="colTitle.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colTitle.VisibleIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="colTitle.Width" type="System.Int32, mscorlib">
<value>350</value>
</data>
<data name="colSubject.Caption" xml:space="preserve">
<value>Betreff</value>
</data>
<data name="colSubject.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colSubject.VisibleIndex" type="System.Int32, mscorlib">
<value>3</value>
</data>
<data name="colSubject.Width" type="System.Int32, mscorlib">
<value>350</value>
</data>
<data name="colAddedWhen.Caption" xml:space="preserve">
<value>Erstellt am</value>
</data>
<data name="colAddedWhen.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colAddedWhen.VisibleIndex" type="System.Int32, mscorlib">
<value>4</value>
</data>
<data name="colAddedWhen.Width" type="System.Int32, mscorlib">
<value>100</value>
</data>
<data name="GridEnvelopes.Size" type="System.Drawing.Size, System.Drawing">
<value>1088, 499</value>
</data>
@ -312,6 +330,9 @@
<data name="&gt;&gt;GridEnvelopes.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="ViewReceivers.ViewCaption" xml:space="preserve">
<value>Empfänger</value>
</data>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
@ -330,35 +351,23 @@
<data name="&gt;&gt;SplashScreenManager1.Type" xml:space="preserve">
<value>DevExpress.XtraSplashScreen.SplashScreenManager, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;btnCreateEnvelope.Name" xml:space="preserve">
<value>btnCreateEnvelope</value>
<data name="&gt;&gt;ViewReceivers.Name" xml:space="preserve">
<value>ViewReceivers</value>
</data>
<data name="&gt;&gt;btnCreateEnvelope.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<data name="&gt;&gt;ViewReceivers.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;btnEditEnvelope.Name" xml:space="preserve">
<value>btnEditEnvelope</value>
<data name="&gt;&gt;ColEmail.Name" xml:space="preserve">
<value>ColEmail</value>
</data>
<data name="&gt;&gt;btnEditEnvelope.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<data name="&gt;&gt;ColEmail.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;btnDeleteEnvelope.Name" xml:space="preserve">
<value>btnDeleteEnvelope</value>
<data name="&gt;&gt;ColReceiverStatus.Name" xml:space="preserve">
<value>ColReceiverStatus</value>
</data>
<data name="&gt;&gt;btnDeleteEnvelope.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPage1.Name" xml:space="preserve">
<value>RibbonPage1</value>
</data>
<data name="&gt;&gt;RibbonPage1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroup1.Name" xml:space="preserve">
<value>RibbonPageGroup1</value>
</data>
<data name="&gt;&gt;RibbonPageGroup1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<data name="&gt;&gt;ColReceiverStatus.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;ViewEnvelopes.Name" xml:space="preserve">
<value>ViewEnvelopes</value>
@ -396,6 +405,36 @@
<data name="&gt;&gt;colAddedWhen.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;btnCreateEnvelope.Name" xml:space="preserve">
<value>btnCreateEnvelope</value>
</data>
<data name="&gt;&gt;btnCreateEnvelope.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;btnEditEnvelope.Name" xml:space="preserve">
<value>btnEditEnvelope</value>
</data>
<data name="&gt;&gt;btnEditEnvelope.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;btnDeleteEnvelope.Name" xml:space="preserve">
<value>btnDeleteEnvelope</value>
</data>
<data name="&gt;&gt;btnDeleteEnvelope.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPage1.Name" xml:space="preserve">
<value>RibbonPage1</value>
</data>
<data name="&gt;&gt;RibbonPage1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroup1.Name" xml:space="preserve">
<value>RibbonPageGroup1</value>
</data>
<data name="&gt;&gt;RibbonPageGroup1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmMain</value>
</data>

17
EnvelopeGenerator.Form/frmMain.vb
View File

@ -13,6 +13,7 @@ Public Class frmMain
Private Database As MSSQLServer
Private ConfigManager As ConfigManager(Of Config)
Private TempFiles As TempFiles
Private FormHelper As FormHelper
Private GridBuilder As GridBuilder
@ -23,12 +24,26 @@ Public Class frmMain
Dim oLogPath = IO.Path.Combine(Application.LocalUserAppDataPath, "Log")
LogConfig = New LogConfig(LogConfig.PathType.CustomPath, oLogPath, CompanyName:="Digital Data", ProductName:="Envelope Generator")
Logger = LogConfig.GetLogger()
FormHelper = New FormHelper(LogConfig, Me)
TempFiles = New TempFiles(LogConfig)
TempFiles.Create()
Try
ConfigManager = New ConfigManager(Of Config)(LogConfig, Application.UserAppDataPath)
If ConfigManager.Config.ConnectionString = String.Empty Then
Dim oSQLConfig As New frmSQLConfig(LogConfig)
If oSQLConfig.ShowDialog() = DialogResult.OK Then
ConfigManager.Config.ConnectionString = oSQLConfig.ConnectionString
ConfigManager.Save()
Application.Restart()
Else
FormHelper.ShowErrorMessage(New ApplicationException("No Database configured. Application will close!"), "Form Load")
Application.Exit()
End If
End If
Dim oConnectionString = MSSQLServer.DecryptConnectionString(ConfigManager.Config.ConnectionString)
Database = New MSSQLServer(LogConfig, oConnectionString)