AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ms

Browse Source
This commit is contained in:
SchreiberM
2020-10-27 14:04:36 +01:00
parent 7051a71e01
commit d38efc1cbe
58 changed files with 4073 additions and 3737 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Services.EmailService/EmailService.vb
View File

@@ -337,7 +337,7 @@ Public Class EmailService
' _Firebird.ExecuteNonQuery(oSQL)
Case DatabaseType.MSSQL
oSQL = $"UPDATE TBEMLP_EMAIL_OUT SET ERROR_TIMESTAMP = GETDATE(),ERROR_MSG = '{_Email.Err_Message}' WHERE GUID = {oGuid} "
MSSQLInstance.NewExecutenonQuery(oSQL)
MSSQLInstance.ExecuteNonQuery(oSQL)
If _Email._msg_Send = True Then
Select Case Database
Case DatabaseType.Firebird
@@ -351,7 +351,7 @@ Public Class EmailService
If oSQL.Contains(",COMMENT = ''") Then
oSQL.Replace(",COMMENT = ''", "")
End If
MSSQLInstance.NewExecutenonQuery(oSQL)
MSSQLInstance.ExecuteNonQuery(oSQL)
End Select
_Logger.Info($"EmailID [{oGuid.ToString}] has been send to: {oEmailTo} - althogh there was an error in connection close!")