Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml	(revision 38881)
@@ -0,0 +1,109 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="VerkoopService">
+<Type>APPS.EC.Verkoop.impl.Externe.VerkoopService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OfferteRepository">
+<Type>APPS.VKP.Offerte.OfferteRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LegacyPartijAPI">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService,OfferteRepository:APPS.VKP.Offerte.OfferteRepository,LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..VerkoopService = $$$Inject(VerkoopService, ##class(APPS.EC.Verkoop.impl.Externe.VerkoopService).%New())
+	Set ..OfferteRepository = $$$Inject(OfferteRepository,##class(APPS.VKP.Offerte.impl.OfferteRepository).%New())
+	Set ..LegacyPartijAPI = $$$Inject(LegacyPartijAPI,##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI())
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BestelWinkelkar">
+<FormalSpec>BestelWinkelkarRequest:WS.Vhisie4.Winkelkar.BestelWinkelkarRequest</FormalSpec>
+<ReturnType>WS.Vhisie4.Winkelkar.BestelWinkelkarResponse</ReturnType>
+<Implementation><![CDATA[
+	Do ..ControleerExterneId(BestelWinkelkarRequest.Header.WinkelkarId)
+
+	#dim OfferteID As %String = ..OfferteRepository.GeefViaExterneId(BestelWinkelkarRequest.Header.WinkelkarId).GeefID()
+
+	Do ..VerkoopService.ZetOfferteHoofding(OfferteID, ..MaakHoofding(BestelWinkelkarRequest))
+	
+	Do ..VerkoopService.BestelOfferte(OfferteID, ..GeefKlantPartijID(BestelWinkelkarRequest.Header.KlantId), ##class(DOM.common.enu.Personality).VanHoecke())
+	
+	#dim Resultaat As WS.Vhisie4.Winkelkar.BestelWinkelkarResponse
+	Set Resultaat = ##class(WS.Vhisie4.Winkelkar.BestelWinkelkarResponse).%New()	
+	
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantPartijID">
+<FormalSpec>KlantID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.VKP.VanHoeckeKlantID</ReturnType>
+<Implementation><![CDATA[
+	Quit:..LegacyPartijAPI.IsKlantPartijID(KlantID) KlantID	
+	Quit ..LegacyPartijAPI.GeefKlantPartijID(KlantID)
+]]></Implementation>
+</Method>
+
+<Method name="ControleerExterneId">
+<FormalSpec>ExterneId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If '..OfferteRepository.BestaatViaExterneId(ExterneId) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("ExterneId "_ExterneId _" bestaat niet."))			
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakHoofding">
+<FormalSpec>BestelWinkelkarRequest:WS.Vhisie4.Winkelkar.BestelWinkelkarRequest</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.EC.dto.Hoofding</ReturnType>
+<Implementation><![CDATA[
+	#dim Hoofding As APPS.EC.dto.Hoofding = ##class(APPS.EC.dto.Hoofding).%New()
+	
+	Set Hoofding.BestelOpmerking = BestelWinkelkarRequest.BestelOpmerking
+	
+	Set Hoofding.LeveringDetail = ##class(APPS.EC.dto.LeveringDetail).%New()
+	Set Hoofding.LeveringDetail.Datum = BestelWinkelkarRequest.Leverdatum
+	Set Hoofding.LeveringDetail.WensDatum = BestelWinkelkarRequest.Leverdatum
+	
+	Set Hoofding.LeveringDetail.Adres = ##class(APPS.common.dto.Adres).%New()
+	Set Hoofding.LeveringDetail.Adres.Aanspreking =  BestelWinkelkarRequest.LeverAdres.Aanspreking
+	Set Hoofding.LeveringDetail.Adres.Naam = BestelWinkelkarRequest.LeverAdres.Naam 
+	Set Hoofding.LeveringDetail.Adres.Toenaam = BestelWinkelkarRequest.LeverAdres.Toenaam 
+	Set Hoofding.LeveringDetail.Adres.LandCode = BestelWinkelkarRequest.LeverAdres.Land 
+	Set Hoofding.LeveringDetail.Adres.Woonplaats = BestelWinkelkarRequest.LeverAdres.Woonplaats 
+	Set Hoofding.LeveringDetail.Adres.Postcode = BestelWinkelkarRequest.LeverAdres.PostCode  
+	Set Hoofding.LeveringDetail.Adres.Straat = BestelWinkelkarRequest.LeverAdres.StraatNrBus
+	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.KlantOrderNummer = ""   
+	Set Hoofding.Referentie.CommissieReferentie = ""
+	
+	Quit Hoofding
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml	(revision 38881)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: BestelWinkelkar geeft foutmelding indien ExterneId niet bestaat">
+<Implementation><![CDATA[
+	#dim OfferteDummy As vhTest.Fake.APPS.VKP.Offerte = ##class(vhTest.Fake.APPS.VKP.Offerte).%New()
+	
+	#dim OfferteRepositoryMock As vhTest.Mock.APPS.VKP.Offerte.OfferteRepository = ##class(vhTest.Mock.APPS.VKP.Offerte.OfferteRepository).%New()
+	Do OfferteRepositoryMock.VerwachtMethodCall("BestaatViaExterneId", "WinkelkarId").DanReturn($$$False)
+	
+	#dim BestelWinkelkar As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar).%New(, OfferteRepositoryMock)
+
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("ExterneId WinkelkarId bestaat niet.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings))
+	
+	Do BestelWinkelkar.BestelWinkelkar(..GeefBestelWinkelkarRequest())
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestelWinkelkarRequest">
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.Winkelkar.BestelWinkelkarRequest</ReturnType>
+<Implementation><![CDATA[
+	#dim BestelWinkelkarRequest As WS.Vhisie4.Winkelkar.BestelWinkelkarRequest 
+	Set BestelWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BestelWinkelkarRequest).BestelWinkelkarRequest()
+	Set BestelWinkelkarRequest.Header.WinkelkarId = "WinkelkarId"
+	Quit BestelWinkelkarRequest
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/WS/Vhisie4/Winkelkar/BestelWinkelkarRequest.cls.xml
===================================================================
diff -u
--- vhTest/Utils/WS/Vhisie4/Winkelkar/BestelWinkelkarRequest.cls.xml	(revision 0)
+++ vhTest/Utils/WS/Vhisie4/Winkelkar/BestelWinkelkarRequest.cls.xml	(revision 38881)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.WS.Vhisie4.Winkelkar.BestelWinkelkarRequest">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="BestelWinkelkarRequest">
+<ClassMethod>1</ClassMethod>
+<ReturnType>WS.Vhisie4.Winkelkar.BestelWinkelkarRequest</ReturnType>
+<Implementation><![CDATA[
+	#dim BestelWinkelkarRequest As WS.Vhisie4.Winkelkar.BestelWinkelkarRequest
+	Set BestelWinkelkarRequest = ##class(WS.Vhisie4.Winkelkar.BestelWinkelkarRequest).%New()
+	
+	Quit BestelWinkelkarRequest
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>