08-12-2023

EnvelopeGenerator.Common/Models/EnvelopeModel.vb

@@ -131,7 +131,7 @@ Public Class EnvelopeModel
 
             If Database.ExecuteNonQuery(oCommand) Then
                 pEnvelope.Id = GetEnvelopeId(pEnvelope)
-                SetEnvelopeDate(pEnvelope)  'TODO JJ fragen
+                SetEnvelopeDate(pEnvelope)
                 Return True
             Else
                 Return False

EnvelopeGenerator.Common/Strings/Envelope.en.resx

@@ -231,6 +231,9 @@
   <data name="There are already elements for this recipient" xml:space="preserve">
     <value>There are already elements for this recipient. Do you still want to delete the recipient?</value>
   </data>
+  <data name="There are unsaved changes." xml:space="preserve">
+    <value>There are unsaved changes. Do you want to save them?</value>
+  </data>
   <data name="You received a document to sign" xml:space="preserve">
     <value>You received a document to sign:</value>
   </data>

EnvelopeGenerator.Common/Strings/Envelope.resx

@@ -231,6 +231,9 @@
   <data name="There are already elements for this recipient" xml:space="preserve">
     <value>Es gibt für diesen Empfänger bereits Elemente. Wollen Sie den Empfänger trotzdem löschen?</value>
   </data>
+  <data name="There are unsaved changes" xml:space="preserve">
+    <value>Es sind ungespeicherte Änderungen vorhanden. Wollen Sie diese Speichern?</value>
+  </data>
   <data name="You received a document to sign" xml:space="preserve">
     <value>Sie haben ein Dokument zum signieren erhalten:</value>
   </data>

EnvelopeGenerator.Common/Strings/Envelope1.Designer.vb

@@ -406,6 +406,15 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Es sind ungespeicherte Änderungen vorhanden. Wollen Sie diese Speichern? ähnelt.
+        '''</summary>
+        Public Shared ReadOnly Property There_are_unsaved_changes() As String
+            Get
+                Return ResourceManager.GetString("There are unsaved changes", resourceCulture)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Sie haben ein Dokument zum signieren erhalten: ähnelt.
         '''</summary>

EnvelopeGenerator.Form/frmFieldEditor.vb

@@ -25,7 +25,7 @@ Partial Public Class frmFieldEditor
 
     Private UnsavedChanges As Boolean = False
 
-    Private Const SIGNATURE_LABEL = "Signatur"
+    Private SIGNATURE_LABEL As String
     Private Const SIGNATURE_WIDTH As Single = 1
     Private Const SIGNATURE_HEIGHT As Single = 0.5
 
@@ -39,6 +39,7 @@ Partial Public Class frmFieldEditor
 
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
         Text = $"{State.DbConfig.ExternalProgramName} - {Resources.Envelope.Signature_Editor}"
+        SIGNATURE_LABEL = Resources.Envelope.Signature
 
         If Document Is Nothing Then
             Throw New ArgumentNullException("Document")
@@ -251,7 +252,7 @@ Partial Public Class frmFieldEditor
             Exit Sub
         End If
 
-        If MsgBox("Wollen Sie die Signatur löschen?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question, Text) = DialogResult.Yes Then
+        If MsgBox(Resources.Envelope.Do_you_want_to_delete_the_signature, MsgBoxStyle.YesNo Or MsgBoxStyle.Question, Text) = DialogResult.Yes Then
             Dim oAnnotation = GDViewer.GetAnnotationFromIdx(oSelected)
             Dim oElement = Controller.GetElement(oAnnotation)
 
@@ -410,7 +411,7 @@ Partial Public Class frmFieldEditor
 
     Private Sub frmFieldEditor_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
         If UnsavedChanges Then
-            Dim oResult = MsgBox("Es sind ungespeicherte Änderungen vorhanden. Wollen Sie diese Speichern?", MsgBoxStyle.Question Or MsgBoxStyle.YesNoCancel, Text)
+            Dim oResult = MsgBox(Resources.Envelope.There_are_unsaved_changes, MsgBoxStyle.Question Or MsgBoxStyle.YesNoCancel, Text)
 
             Select Case oResult
                 Case MsgBoxResult.Cancel