Index: BL/Sys/FOP/DocBase.cls.xml
===================================================================
diff -u -r66530 -r73208
--- BL/Sys/FOP/DocBase.cls.xml	(.../DocBase.cls.xml)	(revision 66530)
+++ BL/Sys/FOP/DocBase.cls.xml	(.../DocBase.cls.xml)	(revision 73208)
@@ -761,7 +761,14 @@
 <Implementation><![CDATA[
 	set blnAsync=($$$UCase(Type)'?1(1"S",1"SYNC"))
 	Set JobID=""
-	Set ProcSvc=$System.OBJ.New($S(blnAsync:"WS.FOP.DocBase2Async", 1:"WS.FOP.DocBase2"))
+
+	Set DocBaseV7Helper = ##class(BL.Sys.FOP.DocBaseV7Helper).%New()
+	#dim IsActiefDocBaseV7 As %Boolean= DocBaseV7Helper.IsActiefDocBaseV7()
+	If (IsActiefDocBaseV7) && $$$Not(blnAsync) {
+		Do ##class(TECH.Exceptions.UnimplementedException).Throw("DocBaseV7 heeft nog geen implementatie in caché voor Synchronous web service calls.")
+	}
+	
+	Set ProcSvc=$System.OBJ.New($S(IsActiefDocBaseV7:"BL.Sys.FOP.DocBaseWebClientV7.AsyncProcessorInvoker", blnAsync:"WS.FOP.DocBase2Async", 1:"WS.FOP.DocBase2"))
 	Set:(blnAsync) blnPeek=0
 	Set:(blnAsync) TimeOut=$G(TimeOut,30)
 	Set sc=..PrepareWSClient(ProcSvc,.TimeOut,.blnPeek)
@@ -777,7 +784,12 @@
 	Try{
 		Do:(blnAsync) cwpLockWithLogging
 		Do cwpLogWSAction("StartWS")
-		Set Response=ProcSvc.doSeededTasks(fopReq.ProcessorBeanID, fopReq.SeedData)
+		If IsActiefDocBaseV7 {
+			Set Response = DocBaseV7Helper.VoerUitAsyncWSDoSeededTasks(ProcSvc, fopReq.ProcessorBeanID, fopReq.SeedData)
+		} Else {
+			Set Response=ProcSvc.doSeededTasks(fopReq.ProcessorBeanID, fopReq.SeedData)
+		}
+		
 		Do cwpLogWSAction("FinishedWS")
 		Lock -$$$ResDocBaseWS
 		Set $ZTRAP=""