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

ms

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2017-10-06 10:31:31 +02:00
parent 80561a4eac
commit 073be6abce
8 changed files with 660 additions and 426 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Global_Indexer/ClassWindream.vb
View File

@@ -663,7 +663,7 @@ Public Class ClassWindream
'==================================================================
' create an object
'==================================================================
WMObject = Session.GetNewWMObjectFS(WMEntityDocument, windreamFilename, WMObjectEditModeObject)
WMObject = Session.GetNewWMObjectFS(WMEntityDocument, windreamFilename, WMObjectEditModeObject) 'WMEntityDocument, windreamFilename, WMObjectEditModeObject
If Err.Number > 0 Then
ClassLogger.Add(" FEHLER: WMObject konnte nicht erzeugt werden - Error: '" & Err.Description & "'")
'MsgBox(Err.Description)
@@ -690,7 +690,7 @@ Public Class ClassWindream
ElseIf CURRENT_DOKART_DUPLICATE_HANDLING = "New version" Then
windreamFilename = ClassFilehandle.Versionierung_Datei(newfilename).ToString.Substring(2)
End If
WMObject = Session.GetNewWMObjectFS(WMEntityDocument, windreamFilename, WMObjectEditModeObject)
WMObject = Session.GetNewWMObjectFS(1, windreamFilename, 31) 'WMEntityDocument, windreamFilename, WMObjectEditModeObject
If Err.Number > 0 Then
ClassLogger.Add(" FEHLER: Neues WMObject (Kopie) konnte nicht erzeugt werden - Error: '" & Err.Description & "'")
'MsgBox(Err.Description)
@@ -796,11 +796,16 @@ Public Class ClassWindream
Return False
End If
Else
ClassLogger.Add(" Could not create a WMObject for file:'" & windreamFilename & "'")
ClassLogger.Add(" Could not create a WMObject for file:'" & windreamFilename)
If Not Err() Is Nothing Then
If Not Err.Description Is Nothing Then
ClassLogger.Add(Err.Description)
End If
End If
Return False
End If
Else
If LogErrorsOnly = False Then ClassLogger.Add(" ...targetPath existiert NICHT", False)
If LogErrorsOnly = False Then ClassLogger.Add("...targetPath existiert NICHT", False)
Return False
End If