EDMIService: Update client and fix wrnog extension at import

Service.EDMIService/Methods/NewFile/NewFileMethod.vb

@@ -83,12 +83,12 @@ Public Class NewFileMethod
             Dim oFileObjectInfo As IO.FileInfo = New IO.FileInfo(oFilePath)
 
             Dim oFileObjectSize As Long = pData.File.FileContents.Length
-            Dim oFileObjectExtension As String = oFileObjectInfo.Extension.Substring(1)
             Dim oFileObjectName As String = oFileObjectInfo.Name
+            Dim oOriginalExtension As String = pData.File.FileInfoRaw.Extension.Substring(1)
 
             Logger.Debug("File Information for [{0}]:", oFileObjectName)
             Logger.Debug("Size: [{0}]", oFileObjectSize)
-            Logger.Debug("Extension: [{0}]", oFileObjectExtension)
+            Logger.Debug("Original Extension: [{0}]", oOriginalExtension)
             Logger.Debug("Checksum: [{0}]", pData.File.FileChecksum)
 
             Try
@@ -110,7 +110,7 @@ Public Class NewFileMethod
             Dim oSQL As String = $"EXEC PRIDB_NEW_IDBFO 
                 '{oFinalPath}', 
                 '{oFileObjectName}', 
-                '{oFileObjectExtension}',
+                '{oOriginalExtension}',
                 {oFileObjectSize},
                 '{pData.File.FileChecksum}' ,
                 '{pData.User.UserName}',
@@ -218,6 +218,7 @@ Public Class NewFileMethod
     End Function
 
     Private Function GetFileObjectFileName(IDB_OBJ_ID As Long, pFilename As String, pKeepFilename As Boolean) As String
+        ' TODO: save actual extensions
         If pKeepFilename Then
             Return pFilename
         Else