Index: APPS/EC/Verkoop/impl/Externe/VerkoopService.cls.xml
===================================================================
diff -u -r40594 -r40796
--- APPS/EC/Verkoop/impl/Externe/VerkoopService.cls.xml	(.../VerkoopService.cls.xml)	(revision 40594)
+++ APPS/EC/Verkoop/impl/Externe/VerkoopService.cls.xml	(.../VerkoopService.cls.xml)	(revision 40796)
@@ -72,7 +72,7 @@
 	Set Offerte.PersonalityID = PersonalityID
 	Set Offerte.LeverAdres = ..GeefStandaardLeverAdres(Offerte)
 	Set Offerte.ExterneId = ExterneId
-	
+	Do ##class(Tools.Wlip).%New(26).String("ExterneId " _ ExterneId)
 	#dim OfferteBewaarder As APPS.VKP.OfferteBewaarder = ..OfferteService.GeefOfferteBewaarder()
 	Do OfferteBewaarder.Bewaar(Offerte)
 	
Index: CSPimpl/Vhisie4/WinkelkarTotOrderVerwerker/Service.cls.xml
===================================================================
diff -u -r40791 -r40796
--- CSPimpl/Vhisie4/WinkelkarTotOrderVerwerker/Service.cls.xml	(.../Service.cls.xml)	(revision 40791)
+++ CSPimpl/Vhisie4/WinkelkarTotOrderVerwerker/Service.cls.xml	(.../Service.cls.xml)	(revision 40796)
@@ -47,7 +47,25 @@
 
 <Method name="MaakOrder">
 <FormalSpec>WinkelkarId:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim InterneOfferteId As %String = ..OfferteRepository.GeefViaExterneId(WinkelkarId).GeefID()
+	Do ..OrderIngaveService.MaakOrderVanOfferte(InterneOfferteId,"").GeefID()
+]]></Implementation>
 </Method>
+
+<Method name="IsReedsGeimporteerd">
+<FormalSpec>WinkelkarId:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..OfferteRepository.GeefViaExterneId(WinkelkarId).OrderID'="")
+]]></Implementation>
+</Method>
+
+<Method name="GeefHoofding">
+<FormalSpec>WinkelkarId:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ..DataCollector.MaakHoofding(..OfferteRepository.GeefViaExterneId(WinkelkarId))
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: CSPimpl/Vhisie4/WinkelkarTotOrderVerwerker/DataCollector.cls.xml
===================================================================
diff -u -r40791 -r40796
--- CSPimpl/Vhisie4/WinkelkarTotOrderVerwerker/DataCollector.cls.xml	(.../DataCollector.cls.xml)	(revision 40791)
+++ CSPimpl/Vhisie4/WinkelkarTotOrderVerwerker/DataCollector.cls.xml	(.../DataCollector.cls.xml)	(revision 40796)
@@ -1,22 +1,86 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="CSPimpl.Vhisie4.WinkelkarTotOrderVerwerker.DataCollector">
-<Super>TECH.RegisteredObject</Super>
+<Super>DOM.EC.Winkelkar.WinkelkarVisitor</Super>
 
+<Property name="WinkelkarRepository">
+<Type>DOM.EC.Winkelkar.impl.WinkelkarRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WinkelkarLijnen">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..WinkelkarRepository = ##class(DOM.EC.Winkelkar.impl.WinkelkarRepository).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkGroepBegin">
+<FormalSpec>GroepLijn:DOM.EC.Winkelkar.GroepLijn</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..WinkelkarLijnen.Insert($listbuild("G",$listbuild(GroepLijn.Naam)))
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkProductLijn">
+<FormalSpec>ProductLijn:DOM.EC.Winkelkar.ProductLijn</FormalSpec>
+<Implementation><![CDATA[	Do ..WinkelkarLijnen.Insert($listbuild("P",$listbuild(ProductLijn.GeefProductId(), ProductLijn.Product.KortTekst, ProductLijn.GeefAantal(), ProductLijn.GeefEindklantEenheidPrijsNettoExclBTW(), ProductLijn.GeefEindklantTotaalPrijs())))
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTekstLijn">
+<FormalSpec>TekstLijn:DOM.EC.Winkelkar.TekstLijn</FormalSpec>
+<Implementation><![CDATA[	Do ..WinkelkarLijnen.Insert($listbuild("T",$listbuild(TekstLijn.GeefTekst())))
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkMaatwerkLijn">
+<FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
+<Implementation><![CDATA[	Do ..WinkelkarLijnen.Insert($listbuild("M",$listbuild(MaatwerkLijn.ProjectReferentie, MaatwerkLijn.Aantal, MaatwerkLijn.EindklantEenheidPrijsExclBTW, MaatwerkLijn.EindklantTotaalPrijs)))
+]]></Implementation>
+</Method>
+
 <Method name="GeefLijnenIterator">
-<FormalSpec>OfferteId:%String</FormalSpec>
+<FormalSpec>WinkelkarID:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
-	set Items = ##class(%ListOfDataTypes).%New()
+	Set ..WinkelkarLijnen = ##class(%ListOfDataTypes).%New()
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarRepository.GeefViaExterneId(WinkelkarID)	
+	Do Winkelkar.Accept($this)
 	
-	do Items.Insert($listbuild("G","Data"))
-	do Items.Insert($listbuild("P",$listbuild("1","Omschrijving","10","1234","12340")))
-	do Items.Insert($listbuild("M",$listbuild("Omschrijving","10","1234","12340")))
-	do Items.Insert($listbuild("M",$listbuild("Omschrijving","10","1234","12340")))
-	do Items.Insert($listbuild("T",$listbuild("Wat tekst")))
-	quit ##class(TECH.ListIterator).%New(Items)
+	Quit ##class(TECH.ListIterator).%New(..WinkelkarLijnen)
 ]]></Implementation>
 </Method>
+
+<Method name="MaakHoofding">
+<FormalSpec>Offerte:APPS.VKP.impl.Offerte</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	set Items = ##class(%ListOfDataTypes).%New()
+	do Items.Insert(Offerte.GeefLeverAdres().GeefToenaam() _" " _Offerte.GeefLeverAdres().GeefNaam())
+	do Items.Insert(Offerte.GeefLeverAdres().GeefStraat())
+	do Items.Insert(Offerte.GeefLeverAdres().GeefPostcode() _" "  _Offerte.GeefLeverAdres().GeefGemeente())
+	do Items.Insert(Offerte.GeefLeverAdres().GeefTelefoon())
+	do Items.Insert("<BR>")
+	do Items.Insert(Offerte.GeefLeverAdres().GeefOpmerking1())
+	do Items.Insert(Offerte.GeefLeverAdres().GeefOpmerking2())
+	do Items.Insert("<BR>")
+	do Items.Insert("Leverdatum " _Offerte.GeefLeverDatum())
+	do Items.Insert("<BR>")
+	do Items.Insert(Offerte.GeefDocumentReferenties().OrderReferentie)
+	do Items.Insert(Offerte.GeefDocumentReferenties().CommissieReferentie)
+	Quit ##class(TECH.ListIterator).%New(Items)
+]]></Implementation>
+</Method>
 </Class>