Index: vhUnitTest/APPS/VKP/OfferteService/impl/NaarBerekenInputConverter/Test.cls.xml
===================================================================
diff -u -r33097 -r33269
--- vhUnitTest/APPS/VKP/OfferteService/impl/NaarBerekenInputConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 33097)
+++ vhUnitTest/APPS/VKP/OfferteService/impl/NaarBerekenInputConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 33269)
@@ -51,27 +51,41 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLeverAdres">
+<Method name="GeefInternationaalLeverAdres">
 <Private>1</Private>
 <ReturnType>APPS.TRANSP.dto.InternationaalAdres</ReturnType>
 <Implementation><![CDATA[
 	Set LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
 	Set LeverAdres.LandCode = "BE"
 	Set LeverAdres.Postcode = "9170"
-	Set LeverAdres.ProvincieCode = "OV"
+	Set LeverAdres.ProvincieCode = "" /// "OV" 
 	Set LeverAdres.Straat = "Kemzekestraat"
 	Set LeverAdres.Woonplaats = "Sint-Gillis-Waas"
 	Quit LeverAdres
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLeverAdres">
+<Private>1</Private>
+<ReturnType>DOM.VKP.LeverAdres</ReturnType>
+<Implementation><![CDATA[
+	#dim LeverAdres As DOM.VKP.impl.LeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New()
+	Do LeverAdres.ZetLandNr("BE")
+	Do LeverAdres.ZetPostcode("9170")
+	///Set LeverAdres.ProvincieCode = "OV"
+	Do LeverAdres.ZetStraat("Kemzekestraat")
+	Do LeverAdres.ZetGemeente("Sint-Gillis-Waas")
+	Quit LeverAdres
+]]></Implementation>
+</Method>
+
 <Method name="GeefBerekenInput">
 <Private>1</Private>
 <ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
 <Implementation><![CDATA[
 	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
 	Set BerekenInput.Referentie = ..OfferteID
-	Set BerekenInput.LeverAdres = ..GeefLeverAdres()
+	Set BerekenInput.LeverAdres = ..GeefInternationaalLeverAdres()
 
  	#dim TeVerzendItem As APPS.TRANSP.OfferteService.dto.TeverzendenItem = ##class(APPS.TRANSP.OfferteService.dto.TeverzendenItem).%New()
 	Set TeVerzendItem.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(40,50,60)