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

MS2

Browse Source
This commit is contained in:
SchreiberM
2016-06-27 17:11:16 +02:00
parent c5f276c37d
commit bed463ee54
11 changed files with 3652 additions and 2115 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
app/DD-Record-Organiser/ClassWindream.vb
View File

@@ -1119,7 +1119,7 @@ Public Class ClassWindream
'Next
Dim Anzahl As Integer = aValues.Length
'Vektorfeld wird mit EINEM Wert gefüllt
If Anzahl = 0 Then
If Anzahl = 1 Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Vectorfield will be filled with ONE VALUE", False)
ReDim myArray(0)
Select Case vType
@@ -1156,10 +1156,10 @@ Public Class ClassWindream
Dim VektorArray()
VektorArray = Return_VektorArray(oDocument, aName, myArray)
If VektorArray Is Nothing = False Then
ReDim myArray(VektorArray.Length - 1)
Array.Copy(VektorArray, myArray, VektorArray.Length)
'ReDim myArray(VektorArray.Length - 1)
' Array.Copy(VektorArray, myArray, VektorArray.Length)
'Jetzt die Nachindexierung für Vektor-Felder
oDocument.SetVariableValue(aName, myArray)
oDocument.SetVariableValue(aName, myArray) '
If LogErrorsOnly = False Then
ClassLogger.Add(" >> Vectorindex '" & aName & "' was written", False)
ClassLogger.Add("", False)
@@ -1301,7 +1301,7 @@ Public Class ClassWindream
End If
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in ClassNiWindream.RunIndexing " & ex.Message)
ClassLogger.Add("Unexpected Error in ClassNiWindream.RunIndexing: " & ex.Message)
oDocument.Save()
oDocument.unlock()
Return False