AppStd/EnvelopeGenerator
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Refactor receiver handling and update solution structure

Browse Source 
- Updated `BaseController.vb` to use `Receiver.Id` for deletion.
- Changed `Receivers` property in `frmEnvelopeEditor.vb` to `BindingList(Of ReceiverVM)` and adjusted initialization and usage throughout the file.
- Modified `frmFieldEditor.vb` to use `List(Of ReceiverVM)` for receivers and updated related methods.
- Adjusted color assignment logic in `frmMain.vb` to utilize a new `Value` class.
- Added new project for `EnvelopeGenerator.Form` in the solution file.
- Introduced new enums `ContractType` and `PageOrientation` in their respective files.
This commit is contained in:
tekh
2025-09-01 12:55:15 +02:00
parent 7a84726a3b
commit 33fa4b76f5
7 changed files with 45 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
EnvelopeGenerator.Form/frmMain.vb
View File

@@ -1,5 +1,4 @@
Imports System.ComponentModel
Imports System.IdentityModel.Metadata
Imports System.IO
Imports System.Text
Imports DevExpress.LookAndFeel
@@ -14,6 +13,7 @@ Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Logging
Imports EnvelopeGenerator.CommonServices
Imports EnvelopeGenerator.CommonServices.My
Imports EnvelopeGenerator.Domain.Constants
Imports EnvelopeGenerator.Domain.Entities
Public Class frmMain
@@ -317,11 +317,11 @@ Public Class frmMain
Dim oEnvelope As Envelope = ViewEnvelopes.GetRow(e.RowHandle)
If oEnvelope.Status = Domain.Constants.EnvelopeStatus.EnvelopePartlySigned Then
e.Appearance.BackColor = ColorTranslator.FromHtml(Domain.Constants.GREEN_300)
e.Appearance.BackColor = ColorTranslator.FromHtml(Value.GREEN_300)
End If
If oEnvelope.Status = Domain.Constants.EnvelopeStatus.EnvelopeQueued Or oEnvelope.Status = Domain.Constants.EnvelopeStatus.EnvelopeSent Then
e.Appearance.BackColor = ColorTranslator.FromHtml(Domain.Constants.ORANGE_300)
e.Appearance.BackColor = ColorTranslator.FromHtml(Value.ORANGE_300)
End If
End Sub
@@ -337,10 +337,10 @@ Public Class frmMain
Exit Sub
End If
If oReceiver.Status = Domain.Constants.ReceiverStatus.Signed Then
e.Appearance.BackColor = ColorTranslator.FromHtml(Domain.Constants.GREEN_300)
If oReceiver.Status = ReceiverStatus.Signed Then
e.Appearance.BackColor = ColorTranslator.FromHtml(Value.GREEN_300)
Else
e.Appearance.BackColor = ColorTranslator.FromHtml(Domain.Constants.RED_300)
e.Appearance.BackColor = ColorTranslator.FromHtml(Value.RED_300)
End If
End Sub
@@ -351,11 +351,11 @@ Public Class frmMain
Dim oEnvelope As Envelope = ViewCompleted.GetRow(e.RowHandle)
If oEnvelope.Status = Domain.Constants.EnvelopeStatus.EnvelopeCompletelySigned Then
e.Appearance.BackColor = ColorTranslator.FromHtml(Domain.Constants.GREEN_300)
e.Appearance.BackColor = ColorTranslator.FromHtml(Value.GREEN_300)
End If
If oEnvelope.Status = Domain.Constants.EnvelopeStatus.EnvelopeDeleted Or oEnvelope.Status = Domain.Constants.EnvelopeStatus.EnvelopeWithdrawn Or oEnvelope.Status = Domain.Constants.EnvelopeStatus.EnvelopeRejected Then
e.Appearance.BackColor = ColorTranslator.FromHtml(Domain.Constants.RED_300)
e.Appearance.BackColor = ColorTranslator.FromHtml(Value.RED_300)
End If
End Sub
@@ -372,9 +372,9 @@ Public Class frmMain
End If
If oReceiver.Status = Domain.Constants.ReceiverStatus.Signed Then
e.Appearance.BackColor = ColorTranslator.FromHtml(Domain.Constants.GREEN_300)
e.Appearance.BackColor = ColorTranslator.FromHtml(Value.GREEN_300)
Else
e.Appearance.BackColor = ColorTranslator.FromHtml(Domain.Constants.RED_300)
e.Appearance.BackColor = ColorTranslator.FromHtml(Value.RED_300)
End If
End Sub