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

MS

Browse Source
This commit is contained in:
Developer01
2025-01-29 14:27:45 +01:00
parent 954df832ed
commit 70febee15d
3 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb
View File

@@ -168,7 +168,11 @@ Public Class ImportZUGFeRDFiles
Dim oEmailDataBase = _email.GetEmailDataForMessageId(oMessageId) Dim oEmailDataBase = _email.GetEmailDataForMessageId(oMessageId)
Try Try
Dim oInNdex = 0
For Each oFile In oFileGroupFiles For Each oFile In oFileGroupFiles
'----------------------------
'----------------------------
'Hier Logik für xml/xRechnungs-Handling - paralleler Zweig zu ProcessFile
Dim oResult As ProcessFileResult = ProcessFile(oMessageId, oEmailDataBase, oZUGFeRDCount, oFile, oConnections, oArgs) Dim oResult As ProcessFileResult = ProcessFile(oMessageId, oEmailDataBase, oZUGFeRDCount, oFile, oConnections, oArgs)
If oResult.ZugferdFileFound = True Then If oResult.ZugferdFileFound = True Then

6
Windream/Helpers.vb
View File

@@ -27,6 +27,10 @@ Public Class Helpers
'Umwandeln in String 'Umwandeln in String
myArray(0) = CStr(pValue) myArray(0) = CStr(pValue)
Return myArray Return myArray
Case 8204 'auch INDEX_TYPE_VECTOR_STRING
'Umwandeln in String
myArray(0) = CStr(pValue)
Return myArray
Case INDEX_TYPE_VECTOR_INTEGER '4098 Case INDEX_TYPE_VECTOR_INTEGER '4098
'Umwandeln in Integer 'Umwandeln in Integer
myArray(0) = CInt(pValue.Replace(" ", "")) myArray(0) = CInt(pValue.Replace(" ", ""))
@@ -65,7 +69,7 @@ Public Class Helpers
Friend Shared Function ConvertIndexValue(Type As Integer, pValue As String) As Object Friend Shared Function ConvertIndexValue(Type As Integer, pValue As String) As Object
' Leerzeichen an Anfang und Ende entfernen ' Leerzeichen an Anfang und Ende entfernen
If Type > 4095 And Type < 4115 Then If Type > 4095 Then
Return ConvertVectorType(Type, pValue) Return ConvertVectorType(Type, pValue)
End If End If
pValue = pValue.Trim() pValue = pValue.Trim()

4
Windream/Windream.vb
View File

@@ -1286,7 +1286,7 @@ Public Class Windream
_logger.Warn(ex.Message) _logger.Warn(ex.Message)
Return False Return False
End Try End Try
_logger.Debug("SetFileIndex '{0}' ... ", IndexName)
If LockObject(oWMObject, WMObjectEditModeIndexEdit) = False Then If LockObject(oWMObject, WMObjectEditModeIndexEdit) = False Then
_logger.Warn("File {0} could not be locked") _logger.Warn("File {0} could not be locked")
Return False Return False
@@ -1300,7 +1300,7 @@ Public Class Windream
Dim oType As Integer = GetIndexType(IndexName) Dim oType As Integer = GetIndexType(IndexName)
Dim oConvertedValues As New List(Of String) Dim oConvertedValues As New List(Of String)
Dim oArray As Object Dim oArray As Object
_logger.Debug("SetFileIndexLoS '{0}' - Indextype: {1} ... ", IndexName, oType)
ReDim oArray(Values.Count - 1) ReDim oArray(Values.Count - 1)
For oIndex = 0 To Values.Count - 1 For oIndex = 0 To Values.Count - 1