From 0d1b87947ada3313aab21888720268451c48f50c Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Fri, 18 Oct 2019 14:48:09 +0200
Subject: [PATCH] german email texts

---
 .../EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb        | 29 ++++++++++++-------
 1 file changed, 18 insertions(+), 11 deletions(-)

diff --git a/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb b/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb
index 20d4f51e..b21351e9 100644
--- a/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb
+++ b/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb
@@ -25,6 +25,18 @@ Public Class ImportZUGFeRDFiles
     Public Const ZUGFERD_ATTACHMENTS = "ZUGFeRD Attachments"
     Public HISTORY_ID As Integer
 
+    Private Const EMAIL_MISSINGPROPERTIES_1 = "<p>Die angehängte Datei entspricht nicht dem WISAG ZUGFeRD-Format: {0}</p>"
+    Private Const EMAIL_MISSINGPROPERTIES_2 = "Die folgenden Eigenschaften wurden als ERFORDERLICH eingestuft, wurden aber nicht gefunden:"
+    Private Const EMAIL_MD5_ERROR = "<p>Die von Ihnen gesendete Rechnung wurde bereits von unserem System verarbeitet.</p>"
+    Private Const EMAIL_TOO_MUCH_FERDS = "<p>Ihre Email enthielt mehr als ein ZUGFeRD-Dokument.</p>"
+    Private Const EMAIL_NO_FERDS = "<p>Ihre Email enthielt keine ZUGFeRD-Dokumente.</p>"
+    Private Const EMAIL_INVALID_DOCUMENT = """
+        <p>Ihre Email enthielt ein ZUGFeRD Dokument, welches aber inkorrekt formatiert wurde.</p>
+        <p>Mögliche Gründe für ein inkorrektes Format:<ul>
+            <li>Betrags-Werte weisen ungültiges Format auf (25,01 anstatt 25.01)</li>
+        </ul></p>
+    """
+
     Private _logger As Logger
     Private _logConfig As LogConfig
     Private _zugferd As ZUGFeRDInterface
@@ -540,7 +552,7 @@ Public Class ImportZUGFeRDFiles
                             Dim oSQL = $"UPDATE TBEDM_ZUGFERD_HISTORY_IN SET COMMENT = 'REJECTED - Already processed (MD5Hash)' WHERE GUID = '{HISTORY_ID}'"
                             _firebird.ExecuteNonQuery(oSQL)
 
-                            Dim oBody = "<p>The invoice attached to your email has already been processed in our system.</p>"
+                            Dim oBody = EMAIL_MD5_ERROR
                             Dim oEmailData = MoveAndRenameEmailToRejected(oArgs, oFileGroupId)
                             AddToEmailQueue(oFileGroupId, oBody, oEmailData)
 
@@ -550,12 +562,7 @@ Public Class ImportZUGFeRDFiles
                             oMoveDirectory = oArgs.ErrorDirectory
                             Dim oSQL = $"UPDATE TBEDM_ZUGFERD_HISTORY_IN SET COMMENT = 'REJECTED - ZUGFeRD yes but incorrect format' WHERE GUID = '{HISTORY_ID}'"
                             _firebird.ExecuteNonQuery(oSQL)
-                            Dim oBody = """
-                                <p>Ihre email einthielt ein ZUGFeRD Dokument, welches aber inkorrekt formatiert wurde.</p>
-                                <p>Mögliche Gründe für ein inkorrektes Format:<ul>
-                                    <li>Betrags-Werte weisen ungültiges Format auf (25,01 anstatt 25.01)</li>
-                                </ul></p>
-                            """
+                            Dim oBody = EMAIL_INVALID_DOCUMENT
                             Dim oEmailData = MoveAndRenameEmailToRejected(oArgs, oFileGroupId)
                             AddToEmailQueue(oFileGroupId, oBody, oEmailData)
                         Catch ex As TooMuchFerdsException
@@ -564,7 +571,7 @@ Public Class ImportZUGFeRDFiles
                             oMoveDirectory = oArgs.ErrorDirectory
                             Dim oSQL = $"UPDATE TBEDM_ZUGFERD_HISTORY_IN SET COMMENT = 'REJECTED - More than one ZUGFeRD-document in email' WHERE GUID = '{HISTORY_ID}'"
                             _firebird.ExecuteNonQuery(oSQL)
-                            Dim oBody = "<p>Ihre email enthielt mehr als ein ZUGFeRD-Dokument.</p>"
+                            Dim oBody = EMAIL_TOO_MUCH_FERDS
                             Dim oEmailData = MoveAndRenameEmailToRejected(oArgs, oFileGroupId)
                             AddToEmailQueue(oFileGroupId, oBody, oEmailData)
                         Catch ex As NoFerdsException
@@ -573,7 +580,7 @@ Public Class ImportZUGFeRDFiles
                             oMoveDirectory = oArgs.ErrorDirectory
                             Dim oSQL = $"UPDATE TBEDM_ZUGFERD_HISTORY_IN SET COMMENT = 'REJECTED - no ZUGFeRD-Document in email' WHERE GUID = '{HISTORY_ID}'"
                             _firebird.ExecuteNonQuery(oSQL)
-                            Dim oBody = "<p>Your email contained no ZUGFeRD-Documents.</p>"
+                            Dim oBody = EMAIL_NO_FERDS
                             Dim oEmailData = MoveAndRenameEmailToRejected(oArgs, oFileGroupId)
                             AddToEmailQueue(oFileGroupId, oBody, oEmailData)
                         Catch ex As MissingValueException
@@ -651,11 +658,11 @@ Public Class ImportZUGFeRDFiles
 
 
     Private Function CreateBodyForMissingProperties(OriginalFilename As String, MissingProperties As List(Of String))
-        Dim oBody = $"<p>Die angehängte Datei entspricht nicht dem WISAG ZUGFeRD-Format: {OriginalFilename}</p>"
+        Dim oBody = String.Format(EMAIL_MISSINGPROPERTIES_1, OriginalFilename)
 
         If MissingProperties.Count > 0 Then
             oBody &= $"{vbNewLine}{vbNewLine}"
-            oBody &= $"Die folgenden Eigenschaften wurden als ERFORDERLICH eingestuft, wurden aber nicht gefunden:"
+            oBody &= EMAIL_MISSINGPROPERTIES_2
             oBody &= $"{vbNewLine}{vbNewLine}"
 
             For Each prop In MissingProperties