diff --git a/Config/Config.vbproj b/Config/Config.vbproj index 1fd5c685..1b18aaf8 100644 --- a/Config/Config.vbproj +++ b/Config/Config.vbproj @@ -47,6 +47,9 @@ On + + ..\Logging\bin\Debug\DigitalData.Modules.Logging.dll + ..\packages\EntityFramework.6.4.4\lib\net45\EntityFramework.dll @@ -145,10 +148,6 @@ {eaf0ea75-5fa7-485d-89c7-b2d843b03a96} Database - - {903b2d7d-3b80-4be9-8713-7447b704e1b0} - Logging - diff --git a/Interfaces/Interfaces.vbproj b/Interfaces/Interfaces.vbproj index be56545f..ceb7a3b9 100644 --- a/Interfaces/Interfaces.vbproj +++ b/Interfaces/Interfaces.vbproj @@ -293,12 +293,6 @@ - - - {903b2d7d-3b80-4be9-8713-7447b704e1b0} - Logging - - diff --git a/Jobs/My Project/AssemblyInfo.vb b/Jobs/My Project/AssemblyInfo.vb index 7ec2b194..cc4be097 100644 --- a/Jobs/My Project/AssemblyInfo.vb +++ b/Jobs/My Project/AssemblyInfo.vb @@ -30,5 +30,5 @@ Imports System.Runtime.InteropServices ' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern ' übernehmen, indem Sie "*" eingeben: - - + + diff --git a/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb b/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb index cbd73eb3..7cb74e47 100644 --- a/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb +++ b/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb @@ -126,7 +126,7 @@ Public Class ImportZUGFeRDFiles _logger.Debug("Starting Job {0}", [GetType].Name) If oArgs.AllowXRechnung Then ' TODO - Config-Schalter hat NIX mit XRechnung-Dateien u. Sichtbelegen zu tun, sondern nur mit Dateinamen zu tun. - Dim oSQL = "SELECT SQL_COMMAND FROM TBDD_SQL_COMMANDS WHERE TITLE = 'VWDD_ZUGFERD_VIEW_RECEIPT_TEMPLATE_ITEMS'" + Dim oSQL = "SELECT SQL_COMMAND FROM TBDD_SQL_COMMANDS WITH (NOLOCK) WHERE TITLE = 'VWDD_ZUGFERD_VIEW_RECEIPT_TEMPLATE_ITEMS'" SQL_xRechnung_ItemTemplate = _mssql.GetScalarValue(oSQL) End If @@ -1036,7 +1036,7 @@ Public Class ImportZUGFeRDFiles ''' Nächster Attachment Index Private Function GetNextAttachmentIndex(pMessageId As String) As Integer Try - Dim oSQL = $"SELECT count(*) FROM TBEMLP_HISTORY_ATTACHMENT WHERE EMAIL_MSGID = '{pMessageId}'" + Dim oSQL = $"SELECT count(*) FROM TBEMLP_HISTORY_ATTACHMENT WITH (NOLOCK) WHERE EMAIL_MSGID = '{pMessageId}'" Dim sqlResult = _mssql.GetScalarValue(oSQL) If sqlResult = 0 Then