MS Neue Konstante

EnvelopeGenerator.Common/Constants.vb

@@ -28,6 +28,7 @@
         MessageConfirmationSent = 3003
         MessageDeletionSent = 3004
         MessageCompletionSent = 3005
+        DocumentMOD_RotationChanged = 4001
     End Enum
 
     'TODO: standardize in xwiki

EnvelopeGenerator.Common/Services/ActionService.vb

@@ -34,6 +34,12 @@ Public Class ActionService
 
         Return True
     End Function
+    Public Function SetStatusDocumentRotationChanged(pEnvelope As Envelope) As Boolean
+        If HistoryService.SetEnvelopeStatus(pEnvelope, Constants.EnvelopeStatus.DocumentMOD_RotationChanged, pEnvelope.User.Email) = False Then
+            Return False
+        End If
+        Return True
+    End Function
     Public Function Resend_Receiver(pEnvelope As Envelope, pmail As String) As Boolean
         If HistoryService.SetEnvelopeStatus(pEnvelope, Constants.EnvelopeStatus.EnvelopeQueued, pEnvelope.User.Email) = False Then
             Return False