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

Abhängigkeiten und SQL-Abfragen aktualisiert

Browse Source 
Die Abhängigkeit von `Logging.vbproj` wurde entfernt und durch die direkte Referenzierung der DLL `DigitalData.Modules.Logging.dll` ersetzt. Dies betrifft die Dateien `Config.vbproj` und `Interfaces.vbproj`.

Die Assembly-Version wurde in `AssemblyInfo.vb` von `3.5.1.0` auf `3.5.2.0` erhöht.

SQL-Abfragen in `ImportZUGFeRDFiles.vb` wurden angepasst, um `WITH (NOLOCK)` hinzuzufügen, um potenzielle Sperrprobleme zu vermeiden.
This commit is contained in:
Developer01
2026-06-08 14:27:40 +02:00
parent cac5116588
commit b8e6c69654
4 changed files with 7 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
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
' übernehmen, indem Sie "*" eingeben:
<Assembly: AssemblyVersion("3.5.1.0")>
<Assembly: AssemblyFileVersion("3.5.1.0")>
<Assembly: AssemblyVersion("3.5.2.0")>
<Assembly: AssemblyFileVersion("3.5.2.0")>

4
Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb
View File

@@ -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
''' <returns>Nächster Attachment Index</returns>
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