Index: WSdata/Vhisie4/Winkelkar/WinkelkarExport/ExportStatus.cls.xml
===================================================================
diff -u -r41092 -r42418
--- WSdata/Vhisie4/Winkelkar/WinkelkarExport/ExportStatus.cls.xml	(.../ExportStatus.cls.xml)	(revision 41092)
+++ WSdata/Vhisie4/Winkelkar/WinkelkarExport/ExportStatus.cls.xml	(.../ExportStatus.cls.xml)	(revision 42418)
@@ -9,6 +9,11 @@
 <Required>1</Required>
 </Property>
 
+<Property name="Duurtijd">
+<Type>TECH.Decimal</Type>
+<Parameter name="SCALE" value="6"/>
+</Property>
+
 <Property name="Hoofding">
 <Type>WS.Vhisie4.WinkelkarExport.WinkelkarStatus</Type>
 <Required>1</Required>
@@ -33,6 +38,10 @@
 <Properties>KlantId</Properties>
 </Index>
 
+<Index name="DuurtijdIndex">
+<Properties>Duurtijd</Properties>
+</Index>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^WSdata.VhisieD900.ExportStatusD</DataLocation>
@@ -50,6 +59,9 @@
 <Value name="3">
 <Value>KlantId</Value>
 </Value>
+<Value name="4">
+<Value>Duurtijd</Value>
+</Value>
 </Data>
 <Data name="Lijnen">
 <Attribute>Lijnen</Attribute>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/ConverterHelper.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/ConverterHelper.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/ConverterHelper.cls.xml	(revision 42418)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ConverterHelper">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Go">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>JobId:%Integer,CustomerId:%String,Revert:%Boolean=0</FormalSpec>
+<Implementation><![CDATA[
+	try {
+		do ##class(TECH.Context.RuntimeContext).Instance().ZetGebruikerID($$$SystemUser)
+		do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(1) 
+
+		set x = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Converter).%New()
+		do x.ConvertCustomer(CustomerId,Revert)
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		set ^WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ConverterHelper("FailedJobs",JobId,1) = CustomerId
+		set ^WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ConverterHelper("FailedJobs",JobId,2) = Exception.ToString()
+	}
+	
+	kill ^WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ConverterHelper("ActiveJobs",JobId)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Converter.cls.xml
===================================================================
diff -u -r42412 -r42418
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Converter.cls.xml	(.../Converter.cls.xml)	(revision 42412)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Converter.cls.xml	(.../Converter.cls.xml)	(revision 42418)
@@ -88,25 +88,59 @@
 </Method>
 
 <Method name="Convert">
+<FormalSpec>MaxHelpers:%Integer=1</FormalSpec>
 <Implementation><![CDATA[
+	do ExecDynQuery^vhLib.Query("delete %NOLOCK from WSdata_Vhisie4_Winkelkar_WinkelkarExport.ExportStatus")
+	
+	kill ^WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ConverterHelper
+	set ^WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ConverterHelper("MaxHelpers") = MaxHelpers
 	#dim KlantIdIterator As TECH.Iterator = ..VerkoopAPI.GeefKlantIDIterator()
 	while KlantIdIterator.HasNext() {
 		#dim KlantId As %String = KlantIdIterator.Next()
-		do ..ConvertCustomer(KlantId)	
+		write !,KlantId," trying.."
+		#dim JobStarted As %Boolean = $$$False
+		while $$$Not(JobStarted) {
+			while $$$Not(JobStarted) && ( ..GetActiveJobCount() < ^WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ConverterHelper("MaxHelpers") ) {
+				w " starting.."
+				#dim JobId As %String = $increment(^WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ConverterHelper)
+				set ^WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ConverterHelper("ActiveJobs",JobId) = KlantId
+				set JobStarted = $$$True
+				Job ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ConverterHelper).Go(JobId,KlantId,$$$true)
+			}
+		}
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="GetActiveJobCount">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	hang .02
+	#dim JobCount As %Integer = 0
+	#dim ItemIndex As %String = ""
+	for { set ItemIndex = $order(^WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ConverterHelper("ActiveJobs",ItemIndex)) quit:ItemIndex=""
+		set JobCount = JobCount + 1
+	}
+	set ^WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ConverterHelper("ActiveJobCount") = JobCount
+	quit JobCount
+]]></Implementation>
+</Method>
+
 <Method name="ConvertCustomer">
 <FormalSpec>KlantId:%String,Reconvert:%Boolean=$$$False</FormalSpec>
 <Implementation><![CDATA[
-	if Reconvert {
-		Do ..VerwijderVanHoeckeWinkelkarren(KlantId)
-		do ..VerwijderIntractoWinkelkarren(KlantId)
+	try {
+		if Reconvert {
+			do ..VerwijderVanHoeckeWinkelkarren(KlantId)
+			do ..VerwijderIntractoWinkelkarren(KlantId)
+		}
+		do ..ConvertBeslag(KlantId)
+		do ..ConvertTandembox(KlantId)
+		do ..ConvertUnishop(KlantId)
+		
+	} catch {
+		do ##class(vhLib.Logger).%New().LogExceptie(##class(TECH.ExceptionHandler).Catch())	
 	}
-	do ..ConvertBeslag(KlantId)
-	do ..ConvertTandembox(KlantId)
-	do ..ConvertUnishop(KlantId)
 ]]></Implementation>
 </Method>
 
@@ -131,7 +165,6 @@
 
 <Method name="ConvertBeslag">
 <FormalSpec>KlantId:%String</FormalSpec>
-<Private>1</Private>
 <Implementation><![CDATA[
 	Set OfferteIterator = ##class(TECH.ListIterator).%New(..BeslagRetriever.ZoekViaKlantId(KlantId))
 	while OfferteIterator.HasNext() {
@@ -145,13 +178,20 @@
 
 <Method name="ConvertTandembox">
 <FormalSpec>KlantId:%String</FormalSpec>
-<Private>1</Private>
 <Implementation><![CDATA[
 	#dim WebOrders As TECH.ListIterator = ##class(TECH.ListIterator).%New(..TandemboxRetriever.ZoekViaKlantId(KlantId))
 	while WebOrders.HasNext() {
 		#dim WebOrder As WS.TBX.Order = WebOrders.Next()
+
+		Set blTBox=##class(BL.PR.GA.TandemBox).%New()
+		Do blTBox.Initialize($LG(WebOrder.DCsFromLijnen(),1))
+		Do blTBox.BuildFromWS(WebOrder,"PRS=1;SAV=0;KPR=0")
+		
 		If $$$Not(..ExportStatusService.IsWinkelKarSuccesvolGeexporteerd("Tbx_"_WebOrder.mID)) {	
-			Do ..ExportStatusService.Registreer(KlantId,..Sender.Send(..TandemboxConverter.Convert(WebOrder)))
+			#dim StartTijd As %CacheString = $piece($zu(188),",",2)
+			#dim Response As WS.Vhisie4.WinkelkarExport.SendResponse = ..Sender.Send(..TandemboxConverter.Convert(WebOrder))
+			#dim Duurtijd As %CacheString = $piece($zu(188),",",2) - StartTijd
+			Do ..ExportStatusService.Registreer(KlantId,Response,Duurtijd)
 			Do ..UpdateTandemboxPrijsInformatie(WebOrder)
 		}
 	}
@@ -161,16 +201,38 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ConvertTandemboxOrder">
+<FormalSpec>OrderId:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim WebOrder As WS.TBX.Order = ..TandemboxRetriever.ZoekViaOrderId(OrderId)
+	
+	Do ..VerwijderVanHoeckeWinkelkarren("K||"_WebOrder.KLNummer)
+	Do ..VerwijderIntractoWinkelkarren("K||"_WebOrder.KLNummer)
+
+	Set blTBox=##class(BL.PR.GA.TandemBox).%New()
+	Do blTBox.Initialize($LG(WebOrder.DCsFromLijnen(),1))
+	Do blTBox.BuildFromWS(WebOrder,"PRS=1;SAV=0;KPR=0")
+		
+	If $$$Not(..ExportStatusService.IsWinkelKarSuccesvolGeexporteerd("Tbx_"_WebOrder.mID)) {	
+		#dim StartTijd As %CacheString = $piece($zu(188),",",2)
+		#dim Response As WS.Vhisie4.WinkelkarExport.SendResponse = ..Sender.Send(..TandemboxConverter.Convert(WebOrder))
+		#dim Duurtijd As %CacheString = $piece($zu(188),",",2) - StartTijd
+		Do ..ExportStatusService.Registreer("K||"_WebOrder.KLNummer,Response,Duurtijd)
+		Do ..UpdateTandemboxPrijsInformatie(WebOrder)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="UpdateTandemboxPrijsInformatie">
 <FormalSpec>WebOrder:WS.TBX.Order</FormalSpec>
 <Implementation><![CDATA[
 	set LijnIterator = ##class(TECH.ListIterator).%New(WebOrder.Lijnen)
 	while LijnIterator.HasNext() {
 		#dim Lijn As WS.TBX.EM.OrderLijn = LijnIterator.Next()
 		#dim VanHoeckeLijnId As %String = WebOrder.mID_"#"_LijnIterator.Key()
-		Do ..QueryAPI.Execute(##class(TECH.DynamicQuery).%New("update WSdata_Vhisie4_Winkelkar_WinkelkarExport.ExportStatus_Lijnen set Lijnen_PrijsVhisie3 = ? WHERE Lijnen_VanHoeckeId = ?",$listbuild(Lijn.AKPrijs,VanHoeckeLijnId)))
+		Do ..QueryAPI.Execute(##class(TECH.DynamicQuery).%New("update WSdata_Vhisie4_Winkelkar_WinkelkarExport.ExportStatus_Lijnen set Lijnen_PrijsVhisie3 = ? WHERE Lijnen_VanHoeckeId = ?",$listbuild(+Lijn.AKPrijs,VanHoeckeLijnId)))
 		#dim Vhisie4Prijs As %Decimal = ..GeefVhisie4Prijs(..GeefIntractoLijnId(VanHoeckeLijnId))
-		Do ..QueryAPI.Execute(##class(TECH.DynamicQuery).%New("update WSdata_Vhisie4_Winkelkar_WinkelkarExport.ExportStatus_Lijnen set Lijnen_PrijsVhisie4 = ? WHERE Lijnen_VanHoeckeId = ?",$listbuild(Vhisie4Prijs,VanHoeckeLijnId)))
+		Do ..QueryAPI.Execute(##class(TECH.DynamicQuery).%New("update WSdata_Vhisie4_Winkelkar_WinkelkarExport.ExportStatus_Lijnen set Lijnen_PrijsVhisie4 = ? WHERE Lijnen_VanHoeckeId = ?",$listbuild(+Vhisie4Prijs,VanHoeckeLijnId)))
 	}
 ]]></Implementation>
 </Method>
@@ -183,7 +245,6 @@
 
 <Method name="ConvertUnishop">
 <FormalSpec>KlantId:%String</FormalSpec>
-<Private>1</Private>
 <Implementation><![CDATA[
 	#dim Offertes As TECH.ListIterator = ##class(TECH.ListIterator).%New(..UnishopRetriever.ZoekViaKlantId(KlantId))
 	while Offertes.HasNext() {
@@ -206,9 +267,9 @@
 	while LijnIterator.HasNext() {
 		#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = LijnIterator.Next()
 		#dim VanHoeckeLijnId As %String = "Unishop_"_Lijn.LijnID
-		Do ..QueryAPI.Execute(##class(TECH.DynamicQuery).%New("update WSdata_Vhisie4_Winkelkar_WinkelkarExport.ExportStatus_Lijnen set Lijnen_PrijsVhisie3 = ? WHERE Lijnen_VanHoeckeId = ?",$listbuild(Lijn.EenheidPrijs,VanHoeckeLijnId)))
+		Do ..QueryAPI.Execute(##class(TECH.DynamicQuery).%New("update WSdata_Vhisie4_Winkelkar_WinkelkarExport.ExportStatus_Lijnen set Lijnen_PrijsVhisie3 = ? WHERE Lijnen_VanHoeckeId = ?",$listbuild(+Lijn.EenheidPrijs,VanHoeckeLijnId)))
 		#dim Vhisie4Prijs As %Decimal = ..GeefVhisie4Prijs(..GeefIntractoLijnId(VanHoeckeLijnId))
-		Do ..QueryAPI.Execute(##class(TECH.DynamicQuery).%New("update WSdata_Vhisie4_Winkelkar_WinkelkarExport.ExportStatus_Lijnen set Lijnen_PrijsVhisie4 = ? WHERE Lijnen_VanHoeckeId = ?",$listbuild(Vhisie4Prijs,VanHoeckeLijnId)))
+		Do ..QueryAPI.Execute(##class(TECH.DynamicQuery).%New("update WSdata_Vhisie4_Winkelkar_WinkelkarExport.ExportStatus_Lijnen set Lijnen_PrijsVhisie4 = ? WHERE Lijnen_VanHoeckeId = ?",$listbuild(+Vhisie4Prijs,VanHoeckeLijnId)))
 	}
 ]]></Implementation>
 </Method>
Index: vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusService.cls.xml
===================================================================
diff -u -r41063 -r42418
--- vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusService.cls.xml	(.../ExportStatusService.cls.xml)	(revision 41063)
+++ vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusService.cls.xml	(.../ExportStatusService.cls.xml)	(revision 42418)
@@ -3,8 +3,7 @@
 <Class name="vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusService">
 <Description>
 Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
-Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
-Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusService,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
@@ -17,8 +16,8 @@
 </Method>
 
 <Method name="Registreer">
-<FormalSpec>KlantId:%String,SendResponse:WS.Vhisie4.WinkelkarExport.SendResponse</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("Registreer",KlantId,SendResponse)
+<FormalSpec>KlantId:%String,SendResponse:WS.Vhisie4.WinkelkarExport.SendResponse,Duurtijd:TECH.Decimal=""</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Registreer",KlantId,SendResponse,Duurtijd)
 ]]></Implementation>
 </Method>
 </Class>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusService.cls.xml
===================================================================
diff -u -r41062 -r42418
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusService.cls.xml	(.../ExportStatusService.cls.xml)	(revision 41062)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusService.cls.xml	(.../ExportStatusService.cls.xml)	(revision 42418)
@@ -35,7 +35,7 @@
 </Method>
 
 <Method name="Registreer">
-<FormalSpec>KlantId:%String,SendResponse:WS.Vhisie4.WinkelkarExport.SendResponse</FormalSpec>
+<FormalSpec>KlantId:%String,SendResponse:WS.Vhisie4.WinkelkarExport.SendResponse,Duurtijd:TECH.Decimal=""</FormalSpec>
 <Implementation><![CDATA[
 	#dim ExportStatus As WSdata.Vhisie4.Winkelkar.WinkelkarExport.ExportStatus
 	
@@ -46,11 +46,14 @@
 		Set ExportStatus.Hoofding.VanHoeckeId = SendResponse.Winkelkar.VanHoeckeId
 	}	
 	set ExportStatus.KlantId = KlantId
+	set ExportStatus.Duurtijd = Duurtijd
 	set ExportStatus.Hoofding = SendResponse.Winkelkar.%ConstructClone(1)
 	do ExportStatus.Lijnen.Clear()
 	set Iterator = ##class(TECH.ListIterator).%New(SendResponse.Lijnen)
 	while Iterator.HasNext() {
-		do ExportStatus.Lijnen.Insert(Iterator.Next().%ConstructClone(1))
+		#dim Lijn As WS.Vhisie4.WinkelkarExport.LijnStatus = Iterator.Next()
+		do ExportStatus.Lijnen.Insert(Lijn.%ConstructClone(1))
+		set:Lijn.Status="Gefaald" ExportStatus.Hoofding.Status = "Gefaald"
 	}
 	
 	Do ..ExportStatusRepository.Bewaar(ExportStatus)