Index: vhTest/Utils/APPS/common/dto/Adres.cls.xml
===================================================================
diff -u -r37455 -r38937
--- vhTest/Utils/APPS/common/dto/Adres.cls.xml	(.../Adres.cls.xml)	(revision 37455)
+++ vhTest/Utils/APPS/common/dto/Adres.cls.xml	(.../Adres.cls.xml)	(revision 38937)
@@ -20,6 +20,24 @@
 	Quit Adres
 ]]></Implementation>
 </Method>
+
+<Method name="BelgischAdres">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.common.dto.Adres</ReturnType>
+<Implementation><![CDATA[
+	#Dim Adres As APPS.common.dto.Adres = ##class(APPS.common.dto.Adres).%New()
+	Set Adres.ID = ""
+	Set Adres.Aanspreking = "Dhr"
+	Set Adres.Toenaam = "Jo"
+	Set Adres.LandCode = "BE"
+	Set Adres.Naam = "Kapoen"
+	Set Adres.Postcode = "9100"
+	Set Adres.Straat = "ANKERSTRAAT 91"
+	Set Adres.Taal = "N"
+	Set Adres.Woonplaats = "Sint Niklaas"
+	Quit Adres
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml
===================================================================
diff -u -r38936 -r38937
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 38936)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 38937)
@@ -21,14 +21,14 @@
 	#dim BereidVoorBestelling As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceMock, OfferteRepositoryStub)
 	
 	#dim BereidVoorBestellingRequest As WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest = ..GeefBereidVoorBestellingRequest()
-	Set BereidVoorBestellingRequest.LeverAdres.Aanspreking = "Herr"
-	Set BereidVoorBestellingRequest.LeverAdres.Naam = "Weemaes"
-	Set BereidVoorBestellingRequest.LeverAdres.Toenaam = "Patrick"
-	Set BereidVoorBestellingRequest.LeverAdres.Land = "DE" 
-	Set BereidVoorBestellingRequest.LeverAdres.Woonplaats = "Kreuztal" 
-	Set BereidVoorBestellingRequest.LeverAdres.PostCode = "57223"  
-	Set BereidVoorBestellingRequest.LeverAdres.StraatNrBus = "Hüttenstraße 45"
-	Set BereidVoorBestellingRequest.LeverAdres.Taal = "D"
+	Set BereidVoorBestellingRequest.LeverAdres.Aanspreking = "Dhr"
+	Set BereidVoorBestellingRequest.LeverAdres.Naam = "Kapoen"
+	Set BereidVoorBestellingRequest.LeverAdres.Toenaam = "Jo"
+	Set BereidVoorBestellingRequest.LeverAdres.Land = "BE" 
+	Set BereidVoorBestellingRequest.LeverAdres.Woonplaats = "Sint Niklaas" 
+	Set BereidVoorBestellingRequest.LeverAdres.PostCode = "9100"  
+	Set BereidVoorBestellingRequest.LeverAdres.StraatNrBus = "ANKERSTRAAT 91"
+	Set BereidVoorBestellingRequest.LeverAdres.Taal = "N"
 
 	Do BereidVoorBestelling.BereidVoorBestelling(BereidVoorBestellingRequest)
 
@@ -151,15 +151,7 @@
 	Set Hoofding.LeveringDetail.Datum = ""
 	Set Hoofding.LeveringDetail.WensDatum = ""
 	
-	Set Hoofding.LeveringDetail.Adres = ##class(APPS.common.dto.Adres).%New()
-	Set Hoofding.LeveringDetail.Adres.Aanspreking = "Herr"
-	Set Hoofding.LeveringDetail.Adres.Naam = "Weemaes"
-	Set Hoofding.LeveringDetail.Adres.Toenaam = "Patrick"
-	Set Hoofding.LeveringDetail.Adres.LandCode = "DE"
-	Set Hoofding.LeveringDetail.Adres.Woonplaats = "Kreuztal"
-	Set Hoofding.LeveringDetail.Adres.Postcode = "57223"
-	Set Hoofding.LeveringDetail.Adres.Straat = "Hüttenstraße 45"
-	Set Hoofding.LeveringDetail.Adres.Taal = "D"
+	Set Hoofding.LeveringDetail.Adres = ##class(vhTest.Utils.APPS.common.dto.Adres).BelgischAdres()
 	
 	Set Hoofding.Referentie = ##class(APPS.VKP.dto.DocumentReferenties).%New()
 	Set Hoofding.Referentie.OrderReferentie = ""