windream

EDMI_ClientSuite/ClassInit.vb

@@ -38,7 +38,7 @@ Public Class ClassInit
 
 
     End Sub
-    Private Sub Connect2NetService()
+    Private Function Connect2NetService()
         Try
             _Channel = Nothing
             _Channel = _ChannelFactory.CreateChannel()
@@ -46,12 +46,14 @@ Public Class ClassInit
             AddHandler _Channel.Faulted, AddressOf Reconnect
 
             _Channel.Open()
+            Return True
         Catch ex As Exception
             _Logger.Error(ex)
+            Return False
         End Try
 
 
-    End Sub
+    End Function
     Private Sub Reconnect()
         _Channel.Abort()
 

Modules.Database/Firebird.vb

@@ -85,13 +85,9 @@ Public Class Firebird
     ''' <param name="Password"></param>
     ''' <exception cref="Exceptions.DatabaseException"></exception>
     Public Sub New(LogConfig As LogConfig, Datasource As String, Database As String, User As String, Password As String)
-
+        Try
             _MyLogger = LogConfig
             _Logger = _MyLogger.GetLogger()
-
-
-
-
             Dim oConnectionString = GetConnectionString(Datasource, Database, User, Password)
 
             _connectionServer = Datasource
@@ -100,12 +96,12 @@ Public Class Firebird
             _connectionPassword = Password
             _connectionString = oConnectionString
 
-        _logger.Debug("Connecting to database..")
+            _Logger.Debug("Connecting to database..")
 
             ' Test the connection
             Dim oConnection = GetConnection()
             ' If initial connection was successfully, close it
-        oConnection?.Close()
+            oConnection.Close()
 
             If oConnection Is Nothing Then
                 Throw New Exceptions.DatabaseException()
@@ -113,7 +109,11 @@ Public Class Firebird
                 _DBInitialized = True
             End If
 
-        _logger.Debug("Connection sucessfully established!")
+            _Logger.Debug("Connection sucessfully established!")
+        Catch ex As Exception
+            _Logger.Error(ex)
+        End Try
+
     End Sub
 
     Public Function GetConnection() As FbConnection

Modules.Database/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.0.0.4")>
+<Assembly: AssemblyVersion("1.0.0.5")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>

Modules.Windream/Windream.vb

@@ -1083,22 +1083,47 @@ Public Class Windream
 #End Region
 #Region "+++++ Remove +++++"
     ''' <summary>
-    ''' Deletes a file in windream
+    ''' Deletes a file in windream including all preversions
     ''' </summary>
     ''' <param name="WMPath">full path to the file</param>
     ''' <returns>Returns true when file was deleted, false if not</returns>
     ''' <remarks></remarks>
     Public Function RemFile(ByVal WMPath As String)
         Try
+            Const COL_Document_VersionID = "dwVersionID"
+            Const WMObjectPartVersion = 128
+            Dim oUnexpected_Error As Boolean = False
             WMPath = NormalizePath(WMPath)
             Dim oWMObject = GetWMObjectForFile(WMPath)
             If IsNothing(oWMObject) = False Then
+                Try
+                    If (oWMObject.aPart And WMObjectPartVersion) Then
+                        Dim oWMObjects As WMObjects
+                        Dim oWMVersion As WMObject
+                        Dim iCount As Integer
+                        oWMObjects = oWMObject.aVersions
+                        iCount = oWMObjects.Count
+                        If iCount > 0 Then
+                            For Each oWMVersion In oWMObjects
+                                oWMVersion.Delete()
+                                Logger.Info($">> Deleted version '{oWMVersion.GetVariableValue(COL_Document_VersionID)}' of file '{oWMVersion.aName}'!")
+                            Next
+                        End If
+                    End If
+                Catch ex As Exception
+                    Logger.Warn($"Unexpected Error in CheckingDeleting Prevesions: {ex.Message}")
+                    oUnexpected_Error = True
+                End Try
+                If oUnexpected_Error = False Then
                     oWMObject.Delete()
+                    Logger.Info($">> File '{oWMObject.aName}' has been deleted!")
                     Return True
                 Else
                     Return False
                 End If
-
+            Else
+                Return False
+            End If
         Catch ex As Exception
             Logger.Error(ex)
             Return False

Modules.Windream/Windream2.vb

@@ -197,7 +197,7 @@ Public Class Windream2
         If TestSessionLoggedIn() = False Then
             Return Nothing
         End If
-
+        Path = GetNormalizedPath(Path)
         Dim oWMObject As WMObject
 
         Try
@@ -951,13 +951,14 @@ Public Class Windream2
         End If
 
         Try
-            Dim oWMObject As WMObject = Session.GetWMObjectByName(WMEntityAttribute, Path)
+            Dim oWMObject As WMObject = GetFileByPath(Path)
 
             If oWMObject Is Nothing Then
                 Return False
             End If
 
             oWMObject.Delete()
+            _logger.Warn($"file {Path} has been deleted!")
             Return True
         Catch ex As Exception
             _logger.Error(ex)