Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml
===================================================================
diff -u -r38904 -r38939
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml	(.../Test.cls.xml)	(revision 38904)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml	(.../Test.cls.xml)	(revision 38939)
@@ -79,14 +79,14 @@
 	#dim BestelWinkelkarRequest As WS.Vhisie4.Winkelkar.BestelWinkelkarRequest = ..GeefBestelWinkelkarRequest()
 	Set BestelWinkelkarRequest.BestelOpmerking = "BestelOpmerking"
 	Set BestelWinkelkarRequest.Leverdatum = ..GeefHuidigeDatum()
-	Set BestelWinkelkarRequest.LeverAdres.Aanspreking = "Aanspreking"
-	Set BestelWinkelkarRequest.LeverAdres.Naam = "Naam"
-	Set BestelWinkelkarRequest.LeverAdres.Toenaam = "Toenaam"
-	Set BestelWinkelkarRequest.LeverAdres.Land = "LandCode" 
-	Set BestelWinkelkarRequest.LeverAdres.Woonplaats = "Woonplaats" 
-	Set BestelWinkelkarRequest.LeverAdres.PostCode = "PostCode"  
-	Set BestelWinkelkarRequest.LeverAdres.StraatNrBus = "Straat"
-	Set BestelWinkelkarRequest.LeverAdres.Taal = "Taal"
+	Set BestelWinkelkarRequest.LeverAdres.Aanspreking = "Dhr"
+	Set BestelWinkelkarRequest.LeverAdres.Naam = "Kapoen"
+	Set BestelWinkelkarRequest.LeverAdres.Toenaam = "Jo"
+	Set BestelWinkelkarRequest.LeverAdres.Land = "BE" 
+	Set BestelWinkelkarRequest.LeverAdres.Woonplaats = "Sint Niklaas" 
+	Set BestelWinkelkarRequest.LeverAdres.PostCode = "9100"  
+	Set BestelWinkelkarRequest.LeverAdres.StraatNrBus = "ANKERSTRAAT 91"
+	Set BestelWinkelkarRequest.LeverAdres.Taal = "N"
 	Set BestelWinkelkarRequest.Referentie = "OrderReferentie"
 
 	Do BestelWinkelkar.BestelWinkelkar(BestelWinkelkarRequest)
@@ -158,15 +158,7 @@
 	Set Hoofding.LeveringDetail.Datum = ""
 	Set Hoofding.LeveringDetail.WensDatum = ..GeefHuidigeDatum()
 	
-	Set Hoofding.LeveringDetail.Adres = ##class(APPS.common.dto.Adres).%New()
-	Set Hoofding.LeveringDetail.Adres.Aanspreking = "Aanspreking"
-	Set Hoofding.LeveringDetail.Adres.Naam = "Naam"
-	Set Hoofding.LeveringDetail.Adres.Toenaam = "Toenaam"
-	Set Hoofding.LeveringDetail.Adres.LandCode = "LandCode"
-	Set Hoofding.LeveringDetail.Adres.Woonplaats = "Woonplaats"
-	Set Hoofding.LeveringDetail.Adres.Postcode = "PostCode"
-	Set Hoofding.LeveringDetail.Adres.Straat = "Straat"
-	Set Hoofding.LeveringDetail.Adres.Taal = "Taal"
+	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 = "OrderReferentie"