EDMIService: Automatic indexing, more consolidation of globix logic

Service.EDMIService/Methods/NewFile/NewFileMethod.vb

@@ -28,7 +28,7 @@ Public Class NewFileMethod
 
         Try
 
-            Dim oObjectId = NewObjectId(pData.KindType, pData.BusinessEntity, pData.Who)
+            Dim oObjectId = NewObjectId(pData.KindType, pData.BusinessEntity, pData.User.UserName)
             If oObjectId = 0 Then
                 LogAndThrow("Could not create new ObjectId!")
             End If
@@ -107,7 +107,16 @@ Public Class NewFileMethod
             Logger.Info("Creating IDB FileObject for ObjectId [{0}].", oObjectId)
 
             ' Insert into DB
-            Dim oSQL As String = $"EXEC PRIDB_NEW_IDBFO '{oFinalPath}', '{oFileObjectName}', '{oFileObjectExtension}',{oFileObjectSize},'{pData.File.FileChecksum}' ,'{pData.Who}','{oObjectId}',{oStore.Id}"
+            Dim oSQL As String = $"EXEC PRIDB_NEW_IDBFO 
+                '{oFinalPath}', 
+                '{oFileObjectName}', 
+                '{oFileObjectExtension}',
+                {oFileObjectSize},
+                '{pData.File.FileChecksum}' ,
+                '{pData.User.UserName}',
+                '{oObjectId}',
+                {oStore.Id}"
+
             Dim oResult As Boolean = Database.ExecuteNonQueryWithConnectionObject(oSQL, Connection, ExternalTransaction, Transaction)
 
             If oResult = False Then
@@ -131,7 +140,7 @@ Public Class NewFileMethod
                         Continue For
                     End If
 
-                    Dim oSuccess = Helpers.SetAttributeValue(Connection, Transaction, oObjectId, oAttribute.Key, oAttribute.Value, "de-DE", pData.Who)
+                    Dim oSuccess = Helpers.SetAttributeValue(Connection, Transaction, oObjectId, oAttribute.Key, oAttribute.Value, pData.User.Language, pData.User.UserName)
                     If oSuccess Then
                         Logger.Debug("Default Attribute [{0}] written with value [{1}]", oAttribute.Key, oAttribute.Value)
                     Else