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

Modules.Jobs: Meldungen ergänzt, Warnings bearbeitet

Browse Source
This commit is contained in:
PitzM
2025-02-13 10:58:10 +01:00
parent 54ee51b0de
commit 6c78d6bcc2
2 changed files with 20 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb
View File

@@ -412,7 +412,10 @@ Public Class ImportZUGFeRDFiles
' If an application error occurred, dont move files so they will be processed again later
If oMoveDirectory = DIRECTORY_DONT_MOVE Then
_logger.Info("Application Error occurred. Files for message Id {0} will not be moved.", oMessageId)
ElseIf oArgs.AllowXRechnung And oIsSuccess And oEInvoiceFileGroup.Item(0).Extension = ".xml" Then
_logger.Debug("Before Creating the PDF-File from XML data / Before Commit")
oxRechnungHandle = True
' Hier das neue PDF erzeugen
'but before we need to get all Data we need
@@ -422,6 +425,7 @@ Public Class ImportZUGFeRDFiles
If oSQLTransaction IsNot Nothing Then
' Commit Transaction
oSQLTransaction.Commit()
_logger.Debug("XML commit triggered")
End If
MyTemplateValues_xInvDT = _mssql.GetDatatable(oSQL_MsgIDReplace)
@@ -463,9 +467,13 @@ Public Class ImportZUGFeRDFiles
' finally commit all changes To the Database
' ==================================================================
If oIsSuccess Or oExpectedError Then
_logger.Debug("Before default sql commit: oxRechnungHandle [{0}]", oxRechnungHandle)
If oxRechnungHandle = False AndAlso oSQLTransaction IsNot Nothing Then
' Commit Transaction
oSQLTransaction.Commit()
_logger.Debug("default commit triggered")
End If
End If
Catch ex As Exception
@@ -475,6 +483,7 @@ Public Class ImportZUGFeRDFiles
Try
If oSQLConnection IsNot Nothing Then
_logger.Debug("Before default sql close")
oSQLConnection.Close()
End If
Catch ex As Exception