MS Globix Verwaltung Integration

Service.EDMIService/EDMIService.vb

@@ -519,7 +519,7 @@ Public Class EDMIService
             Return AccessRight.VIEW_ONLY
         End Try
     End Function
-    Public Function New_FileStore_Object(IDB_OBJ_ID As Long, pStoreType As String, pDate As String) As String Implements IEDMIService.New_FileStore_Object
+    Public Function New_FileStore_Object(IDB_OBJ_ID As Long, pStoreType As String, pDate As String, pExtension As String, pKeepExtension As Boolean) As String Implements IEDMIService.New_FileStore_Object
         Try
             Dim oRelpath As String
             If pStoreType = String.Empty Then
@@ -542,7 +542,7 @@ Public Class EDMIService
             Else
                 _Logger.Debug($"oRelpath is [{oRelpath}]")
 
-                oIDB_FileObject = Path.Combine(oRelpath, GetDigitalDataFileObject(IDB_OBJ_ID))
+                oIDB_FileObject = Path.Combine(oRelpath, GetDigitalDataFileObject(IDB_OBJ_ID, pExtension, pKeepExtension))
             End If
 
             Return oIDB_FileObject
@@ -570,7 +570,7 @@ Public Class EDMIService
 
         Try
             _Logger.Info("ImportFile: Saving file to path [{0}]", Data.pIDBFilePath)
-            Using oStream = New FileStream(Data.pIDBFilePath, FileMode.CreateNew)
+            Using oStream = New FileStream(Data.pIDBFilePath, FileMode.Create, FileAccess.Write)
                 oStream.Write(Data.Contents, 0, Data.Contents.Length)
                 oStream.Flush(True)
                 oStream.Close()
@@ -594,8 +594,13 @@ Public Class EDMIService
 
         End Try
     End Function
-    Private Function GetDigitalDataFileObject(IDB_OBJ_ID As Long) As String
-        Return $"{IDB_OBJ_ID}.ddfo"
+    Private Function GetDigitalDataFileObject(IDB_OBJ_ID As Long, pExtension As String, pKeepExtension As Boolean) As String
+        If pKeepExtension Then
+            Return $"{IDB_OBJ_ID}.{pExtension}"
+        Else
+            Return $"{IDB_OBJ_ID}.ddfo"
+        End If
+
     End Function
     Private Function GetFileStorePraefix(pStoreType As String) As String
         Dim oObjectStore