ms

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

@@ -28,7 +28,7 @@ Namespace Methods.IDB.NewFile
 
             Try
 
-                Dim oObjectId = Helpers.NewObjectIdWithTransaction(pData.KindType, pData.IDBDoctypeId, pData.User.UserName, Connection, Transaction)
+                Dim oObjectId = Helpers.NewObjectIdWithTransaction(pData.KindType, pData.User.UserName, Connection, Transaction)
                 If oObjectId = 0 Then
                     LogAndThrow("Could not create new ObjectId!")
                 End If
@@ -85,7 +85,6 @@ Namespace Methods.IDB.NewFile
                 '---------------------------------------------------------------------------
 
                 Logger.Info("Creating IDB FileObject for ObjectId [{0}].", oObjectId)
-
                 ' Insert into DB
                 Dim oSQL As String = $"EXEC PRIDB_NEW_IDBFO 
                 '{oFinalPath}', 
@@ -95,7 +94,8 @@ Namespace Methods.IDB.NewFile
                 '{pData.File.FileChecksum}' ,
                 '{pData.User.UserName}',
                 '{oObjectId}',
-                {oStore.Id}"
+                {oStore.Id},
+                {pData.IDBDoctypeId}"
 
                 Dim oResult As Boolean = DatabaseIDB.ExecuteNonQueryWithConnectionObject(oSQL, Connection, ExternalTransaction, Transaction)