EDMI: Fix DoctypeId Parameter

Service.EDMIService/Methods/IDB/UpdateFile/UpdateFileMethod.vb

@@ -72,18 +72,18 @@ Namespace Methods.IDB.UpdateFile
                     Dim oObjectTable = DatabaseIDB.GetDatatable($"Select * FROM VWIDB_OBJECT WHERE IDB_OBJ_ID = {pData.ObjectId}")
                     Dim oObjectRow As DataRow = oObjectTable.Rows.Item(0)
                     Dim oKind As String = oObjectRow.Item("KIND_NAME")
-                    Dim oBusinessEntity As String = oObjectRow.Item("BE_NAME")
+                    Dim oDocumentTypeId As String = oObjectRow.Item("Doctype_ID")
                     Dim oStore As String = oObjectRow.Item("STORE_NAME")
 
                     Logger.Debug("Getting information for ObjectId [{0}]", pData.ObjectId)
+                    Logger.Debug("DocumentType: [{0}]", oDocumentTypeId)
                     Logger.Debug("Kind: [{0}]", oKind)
-                    Logger.Debug("BE: [{0}]", oBusinessEntity)
                     Logger.Debug("Store: [{0}]", oStore)
 
                     Dim oNewFileMethod As New NewFile.NewFileMethod(LogConfig, DatabaseIDB, DatabaseECM, GlobalState)
                     Dim oNewFileRequest As New NewFile.NewFileRequest With {
                         .File = pData.File,
-                        .IDBDoctypeId = oBusinessEntity,
+                        .IDBDoctypeId = oDocumentTypeId,
                         .KindType = oKind,
                         .StoreName = oStore,
                         .User = pData.User