2023-12-04

- Anpassungen Main Form
- Titel wird initial in das Subject geschrieben
This commit is contained in:
PitzM 2023-12-04 11:56:47 +01:00
parent b8471389b9
commit 71ec7b4a51
4 changed files with 68 additions and 33 deletions

View File

@ -29,8 +29,6 @@
End Get
End Property
Public Function ValidateReceiverDocumentData() As List(Of String)
Dim oErrors As New List(Of String)
@ -45,6 +43,4 @@
Return oErrors
End Function
End Class

View File

@ -57,6 +57,7 @@ Partial Public Class frmEnvelopeEditor
If oResult = DialogResult.OK Then
Controller.Envelope.Title = oDataForm.EnvelopeTitle
Controller.Envelope.ContractType = oDataForm.EnvelopeContractType
Controller.Envelope.Subject += " " + oDataForm.EnvelopeTitle
Else
Me.Close()
End If

View File

@ -27,8 +27,9 @@ Partial Class frmMain
Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
Me.GridEnvelopes = New DevExpress.XtraGrid.GridControl()
Me.ViewReceivers = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.ColEmail = New DevExpress.XtraGrid.Columns.GridColumn()
Me.ColReceiverStatus = New DevExpress.XtraGrid.Columns.GridColumn()
Me.ColName = New DevExpress.XtraGrid.Columns.GridColumn()
Me.ColEmail = New DevExpress.XtraGrid.Columns.GridColumn()
Me.ViewEnvelopes = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colContractType = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colStatus = New DevExpress.XtraGrid.Columns.GridColumn()
@ -109,26 +110,38 @@ Partial Class frmMain
Me.GridEnvelopes.MainView = Me.ViewEnvelopes
Me.GridEnvelopes.MenuManager = Me.RibbonControl
Me.GridEnvelopes.Name = "GridEnvelopes"
Me.GridEnvelopes.ShowOnlyPredefinedDetails = True
Me.GridEnvelopes.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewReceivers, Me.ViewEnvelopes})
'
'ViewReceivers
'
Me.ViewReceivers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.ColEmail, Me.ColReceiverStatus})
Me.ViewReceivers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.ColReceiverStatus, Me.ColName, Me.ColEmail})
Me.ViewReceivers.GridControl = Me.GridEnvelopes
Me.ViewReceivers.Name = "ViewReceivers"
Me.ViewReceivers.OptionsDetail.AllowZoomDetail = False
Me.ViewReceivers.OptionsView.ShowDetailButtons = False
Me.ViewReceivers.OptionsView.ShowGroupPanel = False
Me.ViewReceivers.OptionsView.ShowIndicator = False
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"
Me.ColReceiverStatus.OptionsColumn.AllowEdit = False
'
'ColName
'
resources.ApplyResources(Me.ColName, "ColName")
Me.ColName.FieldName = "Name"
Me.ColName.Name = "ColName"
'
'ColEmail
'
resources.ApplyResources(Me.ColEmail, "ColEmail")
Me.ColEmail.FieldName = "Email"
Me.ColEmail.Name = "ColEmail"
'
'ViewEnvelopes
'
@ -327,4 +340,5 @@ Partial Class frmMain
Friend WithEvents GridColumn5 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridColumn6 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridColumn7 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents ColName As DevExpress.XtraGrid.Columns.GridColumn
End Class

View File

@ -134,25 +134,43 @@
<data name="GridEnvelopes.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<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>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="ColReceiverStatus.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="ColReceiverStatus.VisibleIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="ColReceiverStatus.Width" type="System.Int32, mscorlib">
<value>145</value>
</data>
<data name="ColName.Caption" xml:space="preserve">
<value>Name</value>
</data>
<data name="ColName.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="ColName.VisibleIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="ColName.Width" type="System.Int32, mscorlib">
<value>456</value>
</data>
<data name="ColEmail.Caption" xml:space="preserve">
<value>Email</value>
</data>
<data name="ColEmail.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="ColEmail.VisibleIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="ColEmail.Width" type="System.Int32, mscorlib">
<value>460</value>
</data>
<data name="ViewReceivers.ViewCaption" xml:space="preserve">
<value>Empfänger</value>
</data>
@ -169,7 +187,7 @@
<value>0</value>
</data>
<data name="colContractType.Width" type="System.Int32, mscorlib">
<value>133</value>
<value>120</value>
</data>
<data name="colStatus.Caption" xml:space="preserve">
<value>Status</value>
@ -181,7 +199,7 @@
<value>1</value>
</data>
<data name="colStatus.Width" type="System.Int32, mscorlib">
<value>54</value>
<value>119</value>
</data>
<data name="colTitle.Caption" xml:space="preserve">
<value>Titel</value>
@ -193,7 +211,7 @@
<value>2</value>
</data>
<data name="colTitle.Width" type="System.Int32, mscorlib">
<value>159</value>
<value>352</value>
</data>
<data name="colSubject.Caption" xml:space="preserve">
<value>Betreff</value>
@ -205,7 +223,7 @@
<value>3</value>
</data>
<data name="colSubject.Width" type="System.Int32, mscorlib">
<value>159</value>
<value>352</value>
</data>
<data name="colAddedWhen.Caption" xml:space="preserve">
<value>Erstellt am</value>
@ -217,7 +235,7 @@
<value>4</value>
</data>
<data name="colAddedWhen.Width" type="System.Int32, mscorlib">
<value>51</value>
<value>118</value>
</data>
<data name="btnCreateEnvelope.Caption" xml:space="preserve">
<value>Neuer Umschlag</value>
@ -574,18 +592,24 @@
<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;ColEmail.Name" xml:space="preserve">
<value>ColEmail</value>
</data>
<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;ColReceiverStatus.Name" xml:space="preserve">
<value>ColReceiverStatus</value>
</data>
<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;ColName.Name" xml:space="preserve">
<value>ColName</value>
</data>
<data name="&gt;&gt;ColName.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;ColEmail.Name" xml:space="preserve">
<value>ColEmail</value>
</data>
<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;ViewEnvelopes.Name" xml:space="preserve">
<value>ViewEnvelopes</value>
</data>