MS: Jobs release Rejected entry MSSQL

2021-11-26 10:17:29 +01:00
parent 2bd54ccad0
commit 089886b26a
9 changed files with 265 additions and 18 deletions
--- a/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb
+++ b/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb
@@ -696,6 +696,10 @@ Public Class ImportZUGFeRDFiles

            ' Close the connection
            oConnection.Close()
+            If Message.Contains("REJECTED") Then
+                oSQL = $"UPDATE TBEMLP_HISTORY SET COMMENT = '{Message}' CUST_REJECTED = 1,CUST_REJECTED_WHEN = GETDATE() WHERE EMAIL_MSGID = '{MessageId}'"
+                _mssql.ExecuteNonQuery(oSQL)
+            End If

            Return True
        Catch ex As Exception