Index: vhTest/Utils/WS/Vhisie4/Winkelkar/BestelWinkelkarRequest.cls.xml
===================================================================
diff -u -r41496 -r41531
--- vhTest/Utils/WS/Vhisie4/Winkelkar/BestelWinkelkarRequest.cls.xml	(.../BestelWinkelkarRequest.cls.xml)	(revision 41496)
+++ vhTest/Utils/WS/Vhisie4/Winkelkar/BestelWinkelkarRequest.cls.xml	(.../BestelWinkelkarRequest.cls.xml)	(revision 41531)
@@ -13,8 +13,8 @@
 	Set BestelWinkelkarRequest.Leverdatum = $$$CurrentDate
 	Set BestelWinkelkarRequest.WensLeverDatum = "31/12/2020"
 	Set BestelWinkelkarRequest.LeverAdres = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.dto.LeverAdres).Belgisch()
-	Set BestelWinkelkarRequest.Referentie = "OrderReferentie"
 	Set BestelWinkelkarRequest.Winkelkar.CommissieReferentie = "CommissieReferentie"
+	Set BestelWinkelkarRequest.Winkelkar.Referentie = "OrderReferentie"
 	Set BestelWinkelkarRequest.VerzendingMogelijkheidID = "VerzendingMogelijkheidID"
 	Set BestelWinkelkarRequest.OptieKeuze = "OptieKeuze"
 	Quit BestelWinkelkarRequest
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml
===================================================================
diff -u -r41522 -r41531
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml	(.../BestelWinkelkar.cls.xml)	(revision 41522)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml	(.../BestelWinkelkar.cls.xml)	(revision 41531)
@@ -111,7 +111,7 @@
 	Set Hoofding.LeveringDetail.Adres.Taal = BestelWinkelkarRequest.LeverAdres.Taal
 	
 	Set Hoofding.Referentie = ##class(APPS.VKP.dto.DocumentReferenties).%New()
-	Set Hoofding.Referentie.OrderReferentie = BestelWinkelkarRequest.Referentie
+	Set Hoofding.Referentie.OrderReferentie = BestelWinkelkarRequest.Winkelkar.Referentie
 	Set Hoofding.Referentie.KlantOrderNummer = ""   
 	Set Hoofding.Referentie.CommissieReferentie = BestelWinkelkarRequest.Winkelkar.CommissieReferentie
 	
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml
===================================================================
diff -u -r41491 -r41531
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml	(.../BereidVoorBestelling.cls.xml)	(revision 41491)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml	(.../BereidVoorBestelling.cls.xml)	(revision 41531)
@@ -114,12 +114,72 @@
 </Method>
 
 <Method name="ConverteerMogelijkeZendingen">
-<FormalSpec>MogelijkeZendingen:APPS.EC.Transport.dto.VerzendingMogelijkheden</FormalSpec>
+<FormalSpec>VerzendingMogelijkheden:APPS.EC.Transport.dto.VerzendingMogelijkheden</FormalSpec>
 <Private>1</Private>
 <ReturnType>WS.Vhisie4.Winkelkar.dto.VerzendingMogelijkheden</ReturnType>
-<Implementation><![CDATA[	Quit ""
+<Implementation><![CDATA[
+	Set Vhisie4VerzendingMogelijkheden = ##class(WS.Vhisie4.Winkelkar.dto.VerzendingMogelijkheden).%New()
+	Set Vhisie4VerzendingMogelijkheden.Titel = VerzendingMogelijkheden.Titel
+	#dim VerzendingMogelijkhedenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(VerzendingMogelijkheden.VerzendingMogelijkheden)
+	While VerzendingMogelijkhedenIterator.HasNext() {
+		Do Vhisie4VerzendingMogelijkheden.VerzendingMogelijkheden.Insert(..MaakVhisie4VerzendMogelijkheid(VerzendingMogelijkhedenIterator.Next()))
+	}
+	Quit Vhisie4VerzendingMogelijkheden
 ]]></Implementation>
 </Method>
+
+<Method name="MaakVhisie4VerzendMogelijkheid">
+<FormalSpec>VerzendingMogelijkheid:APPS.EC.Transport.dto.VerzendingMogelijkheid</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.Winkelkar.dto.VerzendingMogelijkheid</ReturnType>
+<Implementation><![CDATA[
+	Set VHisie4VerzendingMogelijkheid = ##class(WS.Vhisie4.Winkelkar.dto.VerzendingMogelijkheid).%New()
+	Set VHisie4VerzendingMogelijkheid.Code = VerzendingMogelijkheid.Code
+	Set VHisie4VerzendingMogelijkheid.Duurtijd = VerzendingMogelijkheid.Duurtijd
+	Set VHisie4VerzendingMogelijkheid.ExtraInfo = VerzendingMogelijkheid.ExtraInfo 
+	Set VHisie4VerzendingMogelijkheid.LeverDag = VerzendingMogelijkheid.LeverDag
+	Set VHisie4VerzendingMogelijkheid.LeverDatum = VerzendingMogelijkheid.LeverDatum 
+	Set VHisie4VerzendingMogelijkheid.LeverTijd = VerzendingMogelijkheid.LeverTijd 
+	Set VHisie4VerzendingMogelijkheid.Omschrijving = VerzendingMogelijkheid.Omschrijving 
+	Set VHisie4VerzendingMogelijkheid.Opmerking = VerzendingMogelijkheid.Opmerking 
+	Set VHisie4VerzendingMogelijkheid.TransportFirma = VerzendingMogelijkheid.TransportFirma 
+	Set VHisie4VerzendingMogelijkheid.TransportKost = VerzendingMogelijkheid.TransportKost  
+	Set VHisie4VerzendingMogelijkheid.Optie = ..MaakVhisie4Optie(VerzendingMogelijkheid.Optie)
+	Quit VHisie4VerzendingMogelijkheid
+]]></Implementation>
+</Method>
+
+<Method name="MaakVhisie4Optie">
+<FormalSpec>Optie:APPS.EC.Transport.dto.Optie</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.Winkelkar.dto.VerzendingMogelijkheid.Optie</ReturnType>
+<Implementation><![CDATA[
+	#dim VHisie4Optie As WS.Vhisie4.Winkelkar.dto.VerzendingMogelijkheid.Optie = ""
+	If $IsObject(Optie) {
+		Set VHisie4Optie = ##class(WS.Vhisie4.Winkelkar.dto.VerzendingMogelijkheid.Optie).%New()
+		Set VHisie4Optie.ExtraInfo = Optie.ExtraInfo
+		Set VHisie4Optie.Omschrijving = Optie.Omschrijving
+		#dim MogelijkeWaarden As TECH.ListIterator = ##class(TECH.ListIterator).%New(Optie.MogelijkeWaarden)
+		While MogelijkeWaarden.HasNext() {
+			Do VHisie4Optie.MogelijkeWaarden.Insert(..MaakVhisie4Selectie(MogelijkeWaarden.Next()))
+		}
+	}
+	Quit VHisie4Optie
+]]></Implementation>
+</Method>
+
+<Method name="MaakVhisie4Selectie">
+<FormalSpec>Selectie:APPS.EC.Transport.dto.Selectie</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.Winkelkar.dto.VerzendingMogelijkheid.Selectie</ReturnType>
+<Implementation><![CDATA[
+	Set Vhisie4Selectie = ##class(WS.Vhisie4.Winkelkar.dto.VerzendingMogelijkheid.Selectie).%New()
+	Set Vhisie4Selectie.ID = Selectie.ID
+	Set Vhisie4Selectie.Omschrijving = Selectie.Omschrijving
+	Set Vhisie4Selectie.Prijs  = Selectie.Prijs
+	Quit Vhisie4Selectie
+]]></Implementation>
+</Method>
 </Class>