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

Compare commits

base: AppStd:ce6c69b742750a956bda62437edf7892a0510862
Branches Tags
AppStd:master AppStd:upgrade-to-NET8-1 AppStd:Monorepo-Update-.NET-8 AppStd:Newest-GDPictureVersion AppStd:ZugferdService-Redesign
..
compare: AppStd:75381ea35246b2fd60340ce282419d14a7dc85fe
Branches Tags
AppStd:master AppStd:upgrade-to-NET8-1 AppStd:Monorepo-Update-.NET-8 AppStd:Newest-GDPictureVersion AppStd:ZugferdService-Redesign

4 Commits
ce6c69b742 ... 75381ea352

Author SHA1 Message Date
Jonathan Jenne
75381ea352 ZUGFeRDService: Version 1.2.4.0 2021-01-12 12:23:47 +01:00
Jonathan Jenne
45258d1257 ZUGFeRD Service: move worker busy message to info 2021-01-12 12:21:48 +01:00
Jonathan Jenne
644da11e11 Jobs: Version 1.3.0.12 2021-01-12 12:17:49 +01:00
Jonathan Jenne
b5d4205d9c Jobs/ZUGFeRD: Fix select being executed with transaction 2021-01-12 12:17:24 +01:00
4 changed files with 5 additions and 5 deletions
Expand all files Collapse all files

2
Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb
View File

@@ -229,7 +229,7 @@ Public Class ImportZUGFeRDFiles
oMD5CheckSum = CreateMD5(oFile.FullName) oMD5CheckSum = CreateMD5(oFile.FullName)
If oMD5CheckSum <> String.Empty Then If oMD5CheckSum <> String.Empty Then
Dim oCheckCommand = $"SELECT * FROM TBEDM_ZUGFERD_HISTORY_IN WHERE GUID = (SELECT MAX(GUID) FROM TBEDM_ZUGFERD_HISTORY_IN WHERE UPPER(MD5HASH) = UPPER('{oMD5CheckSum}'))" Dim oCheckCommand = $"SELECT * FROM TBEDM_ZUGFERD_HISTORY_IN WHERE GUID = (SELECT MAX(GUID) FROM TBEDM_ZUGFERD_HISTORY_IN WHERE UPPER(MD5HASH) = UPPER('{oMD5CheckSum}'))"
Dim oMD5DT As DataTable = _firebird.GetDatatable(oCheckCommand, Firebird.TransactionMode.ExternalTransaction, oTransaction) Dim oMD5DT As DataTable = _firebird.GetDatatable(oCheckCommand, Firebird.TransactionMode.NoTransaction)
If Not IsNothing(oMD5DT) Then If Not IsNothing(oMD5DT) Then
If oMD5DT.Rows.Count = 1 Then If oMD5DT.Rows.Count = 1 Then
Dim oRejected As Boolean Dim oRejected As Boolean

4
Modules.Jobs/My Project/AssemblyInfo.vb
View File

@@ -30,5 +30,5 @@ Imports System.Runtime.InteropServices
' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern ' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
<Assembly: AssemblyVersion("1.3.0.11")> <Assembly: AssemblyVersion("1.3.0.12")>
<Assembly: AssemblyFileVersion("1.3.0.11")> <Assembly: AssemblyFileVersion("1.3.0.12")>

2
Services.ZUGFeRDService/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.3.0")> <Assembly: AssemblyVersion("1.2.4.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>

2
Services.ZUGFeRDService/ThreadRunner.vb
View File

@@ -117,7 +117,7 @@ Public Class ThreadRunner
If Not _workerThread.IsBusy Then If Not _workerThread.IsBusy Then
_workerThread.RunWorkerAsync(_jobArguments) _workerThread.RunWorkerAsync(_jobArguments)
Else Else
_logger.Warn("Worker is busy") _logger.Info("Worker is busy, skipping execution.")
End If End If
End Sub End Sub