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

Modules.Jobs: Letztes Commit ist evtl. überflüssig

Browse Source
This commit is contained in:
PitzM 2025-02-11 11:09:04 +01:00
parent 99f954d406
commit 83c2374b90
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb
View File

@ -406,8 +406,8 @@ Public Class ImportZUGFeRDFiles
End If
Finally
Dim oxRechnungHandle As Boolean = False
Try
Dim oxRechnungHandle As Boolean = False
Dim oRegularMove As Boolean = False
' If an application error occurred, dont move files so they will be processed again later
If oMoveDirectory = DIRECTORY_DONT_MOVE Then
@ -426,7 +426,7 @@ Public Class ImportZUGFeRDFiles
MyTemplateValues_xInvDT = _mssql.GetDatatable(oSQL_MsgIDReplace)
If Not IsNothing(MyTemplateValues_xInvDT) Then
If MyTemplateValues_xInvDT.rows.count > 0 Then
If MyTemplateValues_xInvDT.Rows.Count > 0 Then
Dim oViewReceiptFileInfo As FileInfo = _xRechnungCreator.Create_PDFfromXML(oEInvoiceFileGroup.Item(0), MyTemplateValues_xInvDT)
If Not IsNothing(oViewReceiptFileInfo) Then
oEInvoiceFileGroup.Item(0) = oViewReceiptFileInfo
@ -463,7 +463,7 @@ Public Class ImportZUGFeRDFiles
' finally commit all changes To the Database
' ==================================================================
If oIsSuccess Or oExpectedError Then
If oSQLTransaction IsNot Nothing Then
If oxRechnungHandle = False AndAlso oSQLTransaction IsNot Nothing Then
' Commit Transaction
oSQLTransaction.Commit()
End If