Index: WSimpl/Vhisie4/Winkelkar/TbxWinkelkarConverter/Sender.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/TbxWinkelkarConverter/Sender.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/TbxWinkelkarConverter/Sender.cls.xml	(revision 38965)
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.TbxWinkelkarConverter.Sender">
+<Super>%RegisteredObject</Super>
+</Class>
+
+
+</Export>
Index: WSimpl/Vhisie4/Winkelkar/TbxWinkelkarConverter/Retriever.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/TbxWinkelkarConverter/Retriever.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/TbxWinkelkarConverter/Retriever.cls.xml	(revision 38965)
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.TbxWinkelkarConverter.Retriever">
+<Super>%RegisteredObject</Super>
+</Class>
+
+
+</Export>
Index: WSimpl/Vhisie4/Winkelkar/TbxWinkelkarConverter/Converter.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/TbxWinkelkarConverter/Converter.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/TbxWinkelkarConverter/Converter.cls.xml	(revision 38965)
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.TbxWinkelkarConverter.Converter">
+<Super>%RegisteredObject</Super>
+</Class>
+
+
+</Export>
Index: WSimpl/Vhisie4/Winkelkar/TbxWinkelkarConverter.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/TbxWinkelkarConverter.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/TbxWinkelkarConverter.cls.xml	(revision 38965)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.TbxWinkelkarConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="VerkoopAPI">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Retriever">
+<Type>WSimpl.Vhisie4.Winkelkar.TbxWinkelkarConverter.Retriever</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Sender">
+<Type>WSimpl.Vhisie.Winkelkar.TbxWinkelkarConverter.Sender</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Converter">
+<Type>WSimpl.Vhisie4.Winkelkar.TbxWinkelkarConverter.Converter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VerkoopAPI:DOM.VKP.VerkoopAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
+	set ..Retriever = ##class(WSimpl.Vhisie4.Winkelkar.TbxWinkelkarConverter.Retriever).%New()
+	set ..Sender = ##class(WSimpl.Vhisie4.Winkelkar.TbxWinkelkarConverter.Sender).%New()
+	set ..Converter = ##class(WSimpl.Vhisie4.Winkelkar.TbxWinkelkarConverter.Converter).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Convert">
+<Implementation><![CDATA[
+	#dim KlantIdIterator As TECH.Iterat = ..VerkoopAPI.GeefKlantIDIterator()
+	while KlantIdIterator.HasNext() {
+		#dim KlantId As %String = KlantIdIterator.Next()
+		do ..ConvertCustomer(KlantId)	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConvertCustomer">
+<FormalSpec>KlantId:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim WebOrders As TECH.ListIterator = ##class(TECH.ListIterator).%New(..Retriever.ZoekViaKlantId(KlantId))
+	while WebOrders.HasNext() {
+		do ..Sender.Send(..Converter.Convert(WebOrders.Next())) 	
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>