diff --git a/EnvelopeGenerator.Common/Entities/EnvelopeReceiver.vb b/EnvelopeGenerator.Common/Entities/EnvelopeReceiver.vb
index ff6d5152..2cb414df 100644
--- a/EnvelopeGenerator.Common/Entities/EnvelopeReceiver.vb
+++ b/EnvelopeGenerator.Common/Entities/EnvelopeReceiver.vb
@@ -48,6 +48,17 @@ Public Class EnvelopeReceiver
Public Property SignedDate As DateTime = DateTime.MinValue
+ Public ReadOnly Property SignedDateDisplayValue As String
+ Get
+ If SignedDate = DateTime.MinValue Then
+ Return "-"
+ Else
+ Return SignedDate.ToString("G")
+ End If
+
+ End Get
+ End Property
+
Public ReadOnly Property HasId As Boolean
Get
Return Id > 0
diff --git a/EnvelopeGenerator.Form/frmMain.Designer.vb b/EnvelopeGenerator.Form/frmMain.Designer.vb
index d3c2dd55..2c5306b6 100644
--- a/EnvelopeGenerator.Form/frmMain.Designer.vb
+++ b/EnvelopeGenerator.Form/frmMain.Designer.vb
@@ -149,9 +149,7 @@ Partial Class frmMain
'ColSignedDate
'
resources.ApplyResources(Me.ColSignedDate, "ColSignedDate")
- Me.ColSignedDate.DisplayFormat.FormatString = "d"
- Me.ColSignedDate.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime
- Me.ColSignedDate.FieldName = "SignedDate"
+ Me.ColSignedDate.FieldName = "SignedDateDisplayValue"
Me.ColSignedDate.Name = "ColSignedDate"
Me.ColSignedDate.OptionsColumn.AllowEdit = False
'
diff --git a/EnvelopeGenerator.Form/frmMain.resx b/EnvelopeGenerator.Form/frmMain.resx
index 7ec7f7a6..a63495cd 100644
--- a/EnvelopeGenerator.Form/frmMain.resx
+++ b/EnvelopeGenerator.Form/frmMain.resx
@@ -172,7 +172,7 @@
377
- Unterschrieben am
+ Unterschrieben wann
True
diff --git a/EnvelopeGenerator.Form/frmMain.vb b/EnvelopeGenerator.Form/frmMain.vb
index b7edc668..e0ad7598 100644
--- a/EnvelopeGenerator.Form/frmMain.vb
+++ b/EnvelopeGenerator.Form/frmMain.vb
@@ -161,4 +161,15 @@ Public Class frmMain
TempFiles.CleanUp()
End Sub
+ Private Sub ViewReceivers_RowStyle(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowStyleEventArgs) Handles ViewReceivers.RowStyle
+
+ If e.RowHandle > -1 Then
+ Dim oColName As String = ViewReceivers.GetRowCellValue(e.RowHandle, "ColName")
+ Dim oName As String = ViewReceivers.GetRowCellValue(e.RowHandle, "Name")
+
+
+ Dim i = 0
+ End If
+
+ End Sub
End Class
\ No newline at end of file