Status-Form verbessert

This commit is contained in:
PitzM 2023-12-04 16:50:01 +01:00
parent 3d20a9b401
commit 78ed65fb9f
3 changed files with 123 additions and 3 deletions

View File

@ -71,7 +71,7 @@ Public Class EnvelopeModel
Public Function List() As IEnumerable(Of Envelope)
Try
Dim oSql = $"EXEC PRSIG_GET_ENVELOPES_FOR_USER {State.UserId}"
Dim oSql = $"EXEC [dbo].[PRSIG_GET_ENVELOPES_FOR_USER] {State.UserId}"
Dim oTable = Database.GetDatatable(oSql)
Return oTable?.Rows.Cast(Of DataRow).
@ -85,7 +85,7 @@ Public Class EnvelopeModel
Public Function ListCompleted() As IEnumerable(Of Envelope)
Try
Dim oSql = $"SELECT * FROM [dbo].[TBSIG_ENVELOPE] WHERE USER_ID = {State.UserId} AND STATUS = 4"
Dim oSql = $"EXEC [dbo].[PRSIG_GET_CLOSED_ENVELOPES_FOR_USER] {State.UserId}"
Dim oTable = Database.GetDatatable(oSql)
Return oTable?.Rows.Cast(Of DataRow).

View File

@ -22,6 +22,7 @@ Partial Class frmMain
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))
Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
@ -46,6 +47,11 @@ Partial Class frmMain
Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
Me.GridCompleted = New DevExpress.XtraGrid.GridControl()
Me.ViewReceiversCompleted = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.ColStatusCompleted = New DevExpress.XtraGrid.Columns.GridColumn()
Me.ColNameCompleted = New DevExpress.XtraGrid.Columns.GridColumn()
Me.ColEmailCompleted = New DevExpress.XtraGrid.Columns.GridColumn()
Me.ColSignedDateCompleted = New DevExpress.XtraGrid.Columns.GridColumn()
Me.ViewCompleted = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn()
@ -66,6 +72,7 @@ Partial Class frmMain
CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPage2.SuspendLayout()
CType(Me.GridCompleted, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ViewReceiversCompleted, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ViewCompleted, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
@ -250,10 +257,48 @@ Partial Class frmMain
'GridCompleted
'
resources.ApplyResources(Me.GridCompleted, "GridCompleted")
GridLevelNode2.LevelTemplate = Me.ViewReceiversCompleted
GridLevelNode2.RelationName = "Receivers"
Me.GridCompleted.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2})
Me.GridCompleted.MainView = Me.ViewCompleted
Me.GridCompleted.MenuManager = Me.RibbonControl
Me.GridCompleted.Name = "GridCompleted"
Me.GridCompleted.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewCompleted})
Me.GridCompleted.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewReceiversCompleted, Me.ViewCompleted})
'
'ViewReceiversCompleted
'
Me.ViewReceiversCompleted.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.ColStatusCompleted, Me.ColNameCompleted, Me.ColEmailCompleted, Me.ColSignedDateCompleted})
Me.ViewReceiversCompleted.GridControl = Me.GridCompleted
Me.ViewReceiversCompleted.Name = "ViewReceiversCompleted"
Me.ViewReceiversCompleted.OptionsDetail.AllowZoomDetail = False
Me.ViewReceiversCompleted.OptionsView.ShowDetailButtons = False
Me.ViewReceiversCompleted.OptionsView.ShowGroupPanel = False
Me.ViewReceiversCompleted.OptionsView.ShowIndicator = False
resources.ApplyResources(Me.ViewReceiversCompleted, "ViewReceiversCompleted")
'
'ColStatusCompleted
'
resources.ApplyResources(Me.ColStatusCompleted, "ColStatusCompleted")
Me.ColStatusCompleted.FieldName = "StatusTranslated"
Me.ColStatusCompleted.Name = "ColStatusCompleted"
'
'ColNameCompleted
'
resources.ApplyResources(Me.ColNameCompleted, "ColNameCompleted")
Me.ColNameCompleted.FieldName = "Name"
Me.ColNameCompleted.Name = "ColNameCompleted"
'
'ColEmailCompleted
'
resources.ApplyResources(Me.ColEmailCompleted, "ColEmailCompleted")
Me.ColEmailCompleted.FieldName = "Email"
Me.ColEmailCompleted.Name = "ColEmailCompleted"
'
'ColSignedDateCompleted
'
resources.ApplyResources(Me.ColSignedDateCompleted, "ColSignedDateCompleted")
Me.ColSignedDateCompleted.FieldName = "SignedDateDisplayValue"
Me.ColSignedDateCompleted.Name = "ColSignedDateCompleted"
'
'ViewCompleted
'
@ -316,6 +361,7 @@ Partial Class frmMain
CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPage2.ResumeLayout(False)
CType(Me.GridCompleted, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ViewReceiversCompleted, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ViewCompleted, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@ -352,4 +398,9 @@ Partial Class frmMain
Friend WithEvents GridColumn7 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents ColName As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents ColSignedDate As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents ViewReceiversCompleted As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents ColStatusCompleted As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents ColNameCompleted As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents ColEmailCompleted As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents ColSignedDateCompleted As DevExpress.XtraGrid.Columns.GridColumn
End Class

View File

@ -402,6 +402,45 @@
<data name="GridCompleted.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="ColStatusCompleted.Caption" xml:space="preserve">
<value>Status</value>
</data>
<data name="ColStatusCompleted.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="ColStatusCompleted.VisibleIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="ColNameCompleted.Caption" xml:space="preserve">
<value>Name</value>
</data>
<data name="ColNameCompleted.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="ColNameCompleted.VisibleIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="ColEmailCompleted.Caption" xml:space="preserve">
<value>Email</value>
</data>
<data name="ColEmailCompleted.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="ColEmailCompleted.VisibleIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="ColSignedDateCompleted.Caption" xml:space="preserve">
<value>Unterschrieben wann</value>
</data>
<data name="ColSignedDateCompleted.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="ColSignedDateCompleted.VisibleIndex" type="System.Int32, mscorlib">
<value>3</value>
</data>
<data name="ViewReceiversCompleted.ViewCaption" xml:space="preserve">
<value>Empfänger</value>
</data>
<data name="GridCompleted.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
@ -694,6 +733,36 @@
<data name="&gt;&gt;RibbonPageEnvelopeActions.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;ViewReceiversCompleted.Name" xml:space="preserve">
<value>ViewReceiversCompleted</value>
</data>
<data name="&gt;&gt;ViewReceiversCompleted.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;ColStatusCompleted.Name" xml:space="preserve">
<value>ColStatusCompleted</value>
</data>
<data name="&gt;&gt;ColStatusCompleted.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;ColNameCompleted.Name" xml:space="preserve">
<value>ColNameCompleted</value>
</data>
<data name="&gt;&gt;ColNameCompleted.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;ColEmailCompleted.Name" xml:space="preserve">
<value>ColEmailCompleted</value>
</data>
<data name="&gt;&gt;ColEmailCompleted.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;ColSignedDateCompleted.Name" xml:space="preserve">
<value>ColSignedDateCompleted</value>
</data>
<data name="&gt;&gt;ColSignedDateCompleted.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;ViewCompleted.Name" xml:space="preserve">
<value>ViewCompleted</value>
</data>