From 99008dfbe7a507140f7112416d18b12d141c3379 Mon Sep 17 00:00:00 2001 From: pitzm Date: Mon, 4 Dec 2023 16:24:45 +0100 Subject: [PATCH] Status Anzeige --- EnvelopeGenerator.Common/Entities/EnvelopeReceiver.vb | 11 +++++++++++ EnvelopeGenerator.Form/frmMain.Designer.vb | 4 +--- EnvelopeGenerator.Form/frmMain.resx | 2 +- EnvelopeGenerator.Form/frmMain.vb | 11 +++++++++++ 4 files changed, 24 insertions(+), 4 deletions(-) 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