EDMIService: Improve logging, avoid confusion with import file methods

Service.EDMIService/Methods/GlobalIndexer/ImportFile/ImportFileMethod.vb

@@ -41,6 +41,31 @@ Namespace Methods.GlobalIndexer.ImportFile
             Try
                 User = pData.User
 
+
+                If pData.File Is Nothing Then
+                    Throw New ArgumentNullException(NameOf(pData.File))
+                End If
+
+                If pData.KindType Is Nothing Then
+                    Throw New ArgumentNullException(NameOf(pData.KindType))
+                End If
+
+                If pData.StoreName Is Nothing Then
+                    Throw New ArgumentNullException(NameOf(pData.StoreName))
+                End If
+
+                If pData.User Is Nothing Then
+                    Throw New ArgumentNullException(NameOf(pData.User))
+                End If
+
+                If IsNothing(pData.ProfileId) Then
+                    Throw New ArgumentNullException(NameOf(pData.ProfileId))
+                End If
+
+                If IsNothing(pData.IDBDoctypeId) Then
+                    Throw New ArgumentNullException(NameOf(pData.IDBDoctypeId))
+                End If
+
                 ' TODO: Add missing user properties in UserState from TBDD_USER
                 'pData.User = ResolveUserFromUserName(pData.User.UserName)
 
@@ -48,6 +73,7 @@ Namespace Methods.GlobalIndexer.ImportFile
                 Dim oAutomaticIndexes = Loader.LoadAutomaticIndexes(pData.ProfileId)
                 Dim oPostProcessingSteps = Loader.LoadPostProcessingSteps(oManualIndexes)
                 Dim oProfile = Loader.LoadProfile(pData.ProfileId)
+                Logger.Debug("")
 
                 Dim oUserAttributes = pData.AttributeValues
                 Dim oAutoAttributes As List(Of UserAttributeValue) = Nothing

Service.EDMIService/Methods/IDB/ImportFile/ImportFileMethod.vb

@@ -33,9 +33,35 @@ Namespace Methods.IDB.ImportFile
         ''' 
         ''' </remarks>
         Public Function Run(pData As ImportFileRequest)
+            Logger.Debug("Running [ImportFileMethod].")
+
             Try
                 User = pData.User
 
+                If pData.File Is Nothing Then
+                    Throw New ArgumentNullException(NameOf(pData.File))
+                End If
+
+                If pData.KindType Is Nothing Then
+                    Throw New ArgumentNullException(NameOf(pData.KindType))
+                End If
+
+                If pData.StoreName Is Nothing Then
+                    Throw New ArgumentNullException(NameOf(pData.StoreName))
+                End If
+
+                If pData.User Is Nothing Then
+                    Throw New ArgumentNullException(NameOf(pData.User))
+                End If
+
+                If IsNothing(pData.ProfileId) Then
+                    Throw New ArgumentNullException(NameOf(pData.ProfileId))
+                End If
+
+                If IsNothing(pData.IDBDoctypeId) Then
+                    Throw New ArgumentNullException(NameOf(pData.IDBDoctypeId))
+                End If
+
                 ' TODO: Add missing user properties in UserState from TBDD_USER
                 'pData.User = ResolveUserFromUserName(pData.User.UserName)
 

Service.EDMIService/Methods/IDB/NewFile/NewFileMethod.vb

@@ -19,19 +19,42 @@ Namespace Methods.IDB.NewFile
         End Sub
 
         Public Function Run(pData As NewFileRequest) As NewFileResponse
+            Logger.Debug("Running [NewFileMethod].")
             Dim oFilePath As String = Nothing
 
-            Dim oExistingObjectId = Helpers.TestFileChecksumExists(pData.File.FileChecksum)
-            If oExistingObjectId > 0 Then
-                Return New NewFileResponse(oExistingObjectId)
-            End If
-
             Try
+                If pData.File Is Nothing Then
+                    Throw New ArgumentNullException(NameOf(pData.File))
+                End If
 
+                If pData.KindType Is Nothing Then
+                    Throw New ArgumentNullException(NameOf(pData.KindType))
+                End If
+
+                If pData.StoreName Is Nothing Then
+                    Throw New ArgumentNullException(NameOf(pData.StoreName))
+                End If
+
+                If pData.User Is Nothing Then
+                    Throw New ArgumentNullException(NameOf(pData.User))
+                End If
+
+                If IsNothing(pData.IDBDoctypeId) Then
+                    Throw New ArgumentNullException(NameOf(pData.IDBDoctypeId))
+                End If
+
+                Logger.Debug("Checking if checksum already exists..")
+                Dim oExistingObjectId = Helpers.TestFileChecksumExists(pData.File.FileChecksum)
+                If oExistingObjectId > 0 Then
+                    Return New NewFileResponse(oExistingObjectId)
+                End If
+
+                Logger.Debug("Creating New ObjectId..")
                 Dim oObjectId = Helpers.NewObjectIdWithTransaction(pData.KindType, pData.User.UserName, Connection, Transaction)
                 If oObjectId = 0 Then
                     LogAndThrow("Could not create new ObjectId!")
                 End If
+                Logger.Debug("New ObjectId [{0}] created!", oObjectId)
 
                 ' Find ObjectStore by Title
                 Logger.Debug("Checking for DataStore [{0}].", pData.StoreName)
@@ -42,6 +65,7 @@ Namespace Methods.IDB.NewFile
                 If oStore Is Nothing Then
                     LogAndThrow($"DataStore [{pData.StoreName}] does not exist. Exiting.")
                 End If
+                Logger.Debug("Using DataStore [{0}].", pData.StoreName)
 
                 ' Get Store base and final path
                 Logger.Debug("Store BasePath is [{0}]", oStore.Path)