AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Jobs: ErrorCodePraefix

Browse Source
This commit is contained in:
PitzM 2024-04-24 13:38:53 +02:00
parent ed0fc3539d
commit c8d0cb184a
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Jobs/ZUGFeRD/EmailFunctions.vb
View File

@ -47,7 +47,7 @@ Namespace ZUGFeRD
' ErrorCode valid? ' ErrorCode valid?
If pErrorCode <> ErrorCode.Unknown Then If pErrorCode <> ErrorCode.Unknown Then
Dim intCode As Integer = DirectCast(pErrorCode, Integer) Dim intCode As Integer = DirectCast(pErrorCode, Integer)
oErrorCode = $"ZUGFERD_Rejection_{intCode}" oErrorCode = $"{EmailStrings.ErrorCodePraefix}{intCode}"
Dim oSQL = $"SELECT COUNT(*) FROM TBDD_GUI_LANGUAGE_PHRASE WHERE TITLE = '{oErrorCode}'" Dim oSQL = $"SELECT COUNT(*) FROM TBDD_GUI_LANGUAGE_PHRASE WHERE TITLE = '{oErrorCode}'"
If _mssql.GetScalarValue(oSQL) > 0 Then If _mssql.GetScalarValue(oSQL) > 0 Then

6
Jobs/ZUGFeRD/EmailStrings.vb
View File

@ -57,4 +57,10 @@
Public Const EMAIL_UNSUPPORTED_DOCUMENT = " Public Const EMAIL_UNSUPPORTED_DOCUMENT = "
<p>Ihre Email ({0}) enthielt ein ZUGFeRD Format ({1}), welches zur Zeit noch nicht freigeschaltet ist.</p> <p>Ihre Email ({0}) enthielt ein ZUGFeRD Format ({1}), welches zur Zeit noch nicht freigeschaltet ist.</p>
" "
''' <summary>
''' Präfix für den verwendeten ErrorCode
''' Beispiel: ZUGFERD_Rejection_20001
''' </summary>
Public Const ErrorCodePraefix = "ZUGFERD_Rejection_"
End Class End Class