MS Globix Verwaltung Integration

Modules.EDMIAPI/Client.vb

@@ -281,9 +281,12 @@ Public Class Client
             Throw ex
         End Try
     End Function
-    Public Function NewFileStoreObject(IDB_OBJ_ID As Long, Optional pStoreType As String = "", Optional pDate As String = "") As String
+    Public Function NewFileStoreObject(IDB_OBJ_ID As Long, pStoreType As String, pDate As String, pExtension As String, pKeepExtension As String) As String
         Try
-            Dim oResponse = _channel.New_FileStore_Object(IDB_OBJ_ID, pStoreType, pDate)
+            If pExtension.StartsWith(".") Then
+                pExtension = pExtension.Replace(".", "")
+            End If
+            Dim oResponse = _channel.New_FileStore_Object(IDB_OBJ_ID, pStoreType, pDate, pExtension, pKeepExtension)
             Return oResponse
         Catch ex As Exception
             _logger.Error(ex)