Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/LeveradresInvuller.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/LeveradresInvuller.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/LeveradresInvuller.cls.xml	(revision 55934)
@@ -0,0 +1,73 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.LeveradresInvuller">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="LeverAdresRepository">
+<Type>DOM.VKP.impl.LeverAdresRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>LeverAdresRepository:DOM.VKP.impl.LeverAdresRepository</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..LeverAdresRepository = $$$Inject(LeverAdresRepository, ##class(DOM.VKP.impl.LeverAdresRepository).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VulInLeverAdres">
+<FormalSpec><![CDATA[BestelWinkelkarRequest:WS.Vhisie4.Winkelkar.BestelWinkelkarRequest,&Hoofding:APPS.EC.dto.Hoofding]]></FormalSpec>
+<Implementation><![CDATA[
+	If ..IsIngevoerdAdres(BestelWinkelkarRequest) {
+		Set Hoofding.LeveringDetail.Adres = ##class(APPS.common.dto.Adres).%New()
+		Set Hoofding.LeveringDetail.Adres.ID = BestelWinkelkarRequest.LeverAdres.Id
+		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
+	} Else {
+		#dim AxLeverAdres As DOM.VKP.impl.LeverAdres = ""
+		If (BestelWinkelkarRequest.Header.PersonalityId = ##class(DOM.common.enu.Personality).VanHoecke()) &&( ..LeverAdresRepository.BestaatViaAXLeverAdresIdEnKlantNummer(BestelWinkelkarRequest.LeverAdres.Id, BestelWinkelkarRequest.Winkelkar.KlantId)) {
+			Set AxLeverAdres = ..LeverAdresRepository.GeefViaAXLeverAdresIdEnKlantNummer(BestelWinkelkarRequest.LeverAdres.Id, BestelWinkelkarRequest.Winkelkar.KlantId)
+		} ElseIf ($$$Not(BestelWinkelkarRequest.Header.PersonalityId = ##class(DOM.common.enu.Personality).VanHoecke()) && (..LeverAdresRepository.BestaatViaAXLeverAdresId(BestelWinkelkarRequest.LeverAdres.Id))){
+			Set AxLeverAdres = ..LeverAdresRepository.GeefViaAXLeverAdresId(BestelWinkelkarRequest.LeverAdres.Id)
+		}
+		If $IsObject(AxLeverAdres) {
+			Set Hoofding.LeveringDetail.Adres = ##class(APPS.TRANSP.dto.LeveringAdres).%New()
+			Set Hoofding.LeveringDetail.Adres.Aanspreking =  AxLeverAdres.Aanspreking
+			Set Hoofding.LeveringDetail.Adres.Naam = AxLeverAdres.Naam 
+			Set Hoofding.LeveringDetail.Adres.Toenaam = AxLeverAdres.Toenaam 
+			Set Hoofding.LeveringDetail.Adres.LandCode = ##class(DOM.common.Locatie.impl.LandRepository).%New().GeefViaID(AxLeverAdres.LandNr).GeefCode()
+			Set Hoofding.LeveringDetail.Adres.Woonplaats = AxLeverAdres.Gemeente
+			Set Hoofding.LeveringDetail.Adres.Postcode = AxLeverAdres.Postcode
+			Set Hoofding.LeveringDetail.Adres.Straat = AxLeverAdres.Straat
+			Set Hoofding.LeveringDetail.Adres.Taal = AxLeverAdres.Taal
+			Set Hoofding.LeveringDetail.Adres.Volmacht = AxLeverAdres.Volmacht
+			Set Hoofding.LeveringDetail.Adres.AxLeveradresId = AxLeverAdres.AxLeveradresId
+			Do Hoofding.LeveringDetail.Adres.Opmerkingen.Insert(AxLeverAdres.Opmerking1)
+			Do Hoofding.LeveringDetail.Adres.Opmerkingen.Insert(AxLeverAdres.Opmerking2)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="IsIngevoerdAdres">
+<FormalSpec>BestelWinkelkarRequest:WS.Vhisie4.Winkelkar.BestelWinkelkarRequest</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$$Not($$$HasLength(BestelWinkelkarRequest.LeverAdres.Id))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/LeveradresInvuller/VulInLeverAdres.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/LeveradresInvuller/VulInLeverAdres.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/LeveradresInvuller/VulInLeverAdres.cls.xml	(revision 55934)
@@ -0,0 +1,122 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.LeveradresInvuller.VulInLeverAdres">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: AxLeverAdresId ingevuld en personality VanHoecke">
+<Implementation><![CDATA[
+	#dim AxLeverAdresId As %String = "1001"
+	#dim KlantNummer As %String = "1000"
+	#dim TeConverterenLeverAdres As DOM.VKP.LeverAdres = ..MaakTeConverterenLeverAdres(AxLeverAdresId)
+	
+	Set LeverAdresRepositoryMock =  ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New()
+	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",AxLeverAdresId,KlantNummer).DanReturn($$$True)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",AxLeverAdresId,KlantNummer).DanReturn(TeConverterenLeverAdres)
+		
+	#dim BestelWinkelkarRequest As WS.Vhisie4.Winkelkar.BestelWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BestelWinkelkarRequest).StandaardBestelWinkelkarRequest()
+	Set BestelWinkelkarRequest.LeverAdres.Id = AxLeverAdresId
+	Set BestelWinkelkarRequest.Header.PersonalityId = ##class(DOM.common.enu.Personality).VanHoecke()
+	
+	#dim Hoofding As APPS.EC.dto.Hoofding = ##class(vhTest.Utils.APPS.EC.dto.Hoofding).StandaardHoofdingMetVolmachtEnOpmerkingen()
+	
+	Do ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.LeveradresInvuller).%New(LeverAdresRepositoryMock).VulInLeverAdres(BestelWinkelkarRequest, Hoofding)
+	
+	Do $$$AssertEquals(Hoofding.LeveringDetail.Adres.Aanspreking,"Aanspreking")
+	
+	Do LeverAdresRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: AxLeverAdresId ingevuld en personality niet VanHoecke">
+<Implementation><![CDATA[
+	#dim AxLeverAdresId As %String = "1001"
+	#dim KlantNummer As %String = "1000"
+	#dim TeConverterenLeverAdres As DOM.VKP.LeverAdres = ..MaakTeConverterenLeverAdres(AxLeverAdresId)
+	
+	Set LeverAdresRepositoryMock =  ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New()
+	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",AxLeverAdresId).DanReturn($$$True)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresId",AxLeverAdresId).DanReturn(TeConverterenLeverAdres)
+		
+	#dim BestelWinkelkarRequest As WS.Vhisie4.Winkelkar.BestelWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BestelWinkelkarRequest).StandaardBestelWinkelkarRequest()
+	Set BestelWinkelkarRequest.LeverAdres.Id = AxLeverAdresId
+	Set BestelWinkelkarRequest.Header.PersonalityId = ##class(DOM.common.enu.Personality).Dupont()
+	
+	#dim Hoofding As APPS.EC.dto.Hoofding = ##class(vhTest.Utils.APPS.EC.dto.Hoofding).StandaardHoofdingMetVolmachtEnOpmerkingen()
+	
+	Do ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.LeveradresInvuller).%New(LeverAdresRepositoryMock).VulInLeverAdres(BestelWinkelkarRequest, Hoofding)
+	
+	Do $$$AssertEquals(Hoofding.LeveringDetail.Adres.Aanspreking,"Aanspreking")
+	
+	Do LeverAdresRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: AxLeverAdresId niet te vinden in repo">
+<Implementation><![CDATA[
+	#dim AxLeverAdresId As %String = "1001"
+	#dim KlantNummer As %String = "1000"
+	#dim TeConverterenLeverAdres As DOM.VKP.LeverAdres = ..MaakTeConverterenLeverAdres(AxLeverAdresId)
+	
+	Set LeverAdresRepositoryMock =  ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New()
+	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",AxLeverAdresId).DanReturn($$$True)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresId",AxLeverAdresId).DanReturn("")
+		
+	#dim BestelWinkelkarRequest As WS.Vhisie4.Winkelkar.BestelWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BestelWinkelkarRequest).StandaardBestelWinkelkarRequest()
+	Set BestelWinkelkarRequest.LeverAdres.Id = AxLeverAdresId
+	Set BestelWinkelkarRequest.Header.PersonalityId = ##class(DOM.common.enu.Personality).Dupont()
+	
+	#dim Hoofding As APPS.EC.dto.Hoofding = ##class(vhTest.Utils.APPS.EC.dto.Hoofding).StandaardHoofdingMetVolmachtEnOpmerkingen()
+	
+	Do ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.LeveradresInvuller).%New(LeverAdresRepositoryMock).VulInLeverAdres(BestelWinkelkarRequest, Hoofding)
+	
+	Do $$$AssertEquals(Hoofding.LeveringDetail.Adres.Aanspreking,"Dhr")
+	
+	Do LeverAdresRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen AxLeverAdresId (adhoc)">
+<Implementation><![CDATA[
+	#dim AxLeverAdresId As %String = ""
+	#dim KlantNummer As %String = "1000"
+	#dim TeConverterenLeverAdres As DOM.VKP.LeverAdres = ..MaakTeConverterenLeverAdres(AxLeverAdresId)
+	
+	Set LeverAdresRepositoryMock =  ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New()
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresId",$$$ElkeWaarde).ExactAantalKeer(0)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("BestaatViaAXLeverAdresId",$$$ElkeWaarde).ExactAantalKeer(0)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",$$$ElkeWaarde).ExactAantalKeer(0)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",$$$ElkeWaarde).ExactAantalKeer(0)
+		
+	#dim BestelWinkelkarRequest As WS.Vhisie4.Winkelkar.BestelWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BestelWinkelkarRequest).StandaardBestelWinkelkarRequest()
+	Set BestelWinkelkarRequest.LeverAdres.Id = AxLeverAdresId
+	Set BestelWinkelkarRequest.Header.PersonalityId = ##class(DOM.common.enu.Personality).Dupont()
+	
+	#dim Hoofding As APPS.EC.dto.Hoofding = ##class(vhTest.Utils.APPS.EC.dto.Hoofding).StandaardHoofdingMetVolmachtEnOpmerkingen()
+	
+	Do ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.LeveradresInvuller).%New(LeverAdresRepositoryMock).VulInLeverAdres(BestelWinkelkarRequest, Hoofding)
+	
+	Do $$$AssertEquals(Hoofding.LeveringDetail.Adres.Aanspreking,"Dhr")
+	
+	Do LeverAdresRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="MaakTeConverterenLeverAdres">
+<FormalSpec>AxLeverAdresId:%String</FormalSpec>
+<ReturnType>DOM.VKP.LeverAdres</ReturnType>
+<Implementation><![CDATA[
+	#dim TeConverterenLeverAdres As DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch()
+	Do TeConverterenLeverAdres.ZetID(AxLeverAdresId)
+	Do TeConverterenLeverAdres.ZetTaal("N")
+	Do TeConverterenLeverAdres.ZetAanspreking("Aanspreking")
+	Do TeConverterenLeverAdres.ZetVolmacht("Volmacht")
+	Do TeConverterenLeverAdres.ZetOpmerking1("Opmerking1")
+	Do TeConverterenLeverAdres.ZetOpmerking2("Opmerking2")
+	
+	Quit TeConverterenLeverAdres
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>