Status-Form verbessert

This commit is contained in:
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).