Index: vhTest/Utils/APPS/TRANSP/OfferteService/dto/BerekenInput.cls.xml
===================================================================
diff -u -r33607 -r33610
--- vhTest/Utils/APPS/TRANSP/OfferteService/dto/BerekenInput.cls.xml	(.../BerekenInput.cls.xml)	(revision 33607)
+++ vhTest/Utils/APPS/TRANSP/OfferteService/dto/BerekenInput.cls.xml	(.../BerekenInput.cls.xml)	(revision 33610)
@@ -12,7 +12,7 @@
 	Set LeverAdres.LandCode = "US"
 	Set LeverAdres.Postcode = "28164"
 	Set LeverAdres.Woonplaats = "Stanley"
-	Quit ..GeefBerekenInput(LeverAdres)
+	Quit ..GeefBerekenInput(##class(vhTest.Utils.APPS.TRANSP.dto.InternationaalAdres).GeefProcinviecodeLeeg())
 ]]></Implementation>
 </Method>
 
@@ -25,7 +25,7 @@
 	Set LeverAdres.LandCode = ""
 	Set LeverAdres.Postcode = "20867"
 	Set LeverAdres.Woonplaats = "Caponaga"
-	Quit ..GeefBerekenInput(LeverAdres)
+	Quit ..GeefBerekenInput(##class(vhTest.Utils.APPS.TRANSP.dto.InternationaalAdres).GeefLandcodeLeeg())
 ]]></Implementation>
 </Method>
 
@@ -38,7 +38,7 @@
 	Set LeverAdres.LandCode = "IT"
 	Set LeverAdres.Postcode = ""
 	Set LeverAdres.Woonplaats = "Caponaga"
-	Quit ..GeefBerekenInput(LeverAdres)
+	Quit ..GeefBerekenInput(##class(vhTest.Utils.APPS.TRANSP.dto.InternationaalAdres).GeefPostcodeLeeg())
 ]]></Implementation>
 </Method>
 
@@ -51,7 +51,7 @@
 	Set LeverAdres.LandCode = "IT"
 	Set LeverAdres.Postcode = "20867"
 	Set LeverAdres.Woonplaats = ""
-	Quit ..GeefBerekenInput(LeverAdres)
+	Quit ..GeefBerekenInput(##class(vhTest.Utils.APPS.TRANSP.dto.InternationaalAdres).GeefWoonplaatsLeeg())
 ]]></Implementation>
 </Method>
 
@@ -64,7 +64,7 @@
 	Set LeverAdres.LandCode = "US"
 	Set LeverAdres.Postcode = "28164"
 	Set LeverAdres.Woonplaats = "Stanley"
-	Quit ..GeefBerekenInput(LeverAdres)
+	Quit ..GeefBerekenInput(##class(vhTest.Utils.APPS.TRANSP.dto.InternationaalAdres).GeefStanley())
 ]]></Implementation>
 </Method>
 
@@ -77,7 +77,7 @@
 	Set LeverAdres.LandCode = "DE"
 	Set LeverAdres.Postcode = "57462"
 	Set LeverAdres.Woonplaats = "Olpe"
-	Quit ..GeefBerekenInput(LeverAdres)
+	Quit ..GeefBerekenInput(##class(vhTest.Utils.APPS.TRANSP.dto.InternationaalAdres).GeefGeldigInternationaalAdres())
 ]]></Implementation>
 </Method>
 
@@ -90,7 +90,7 @@
 	Set LeverAdres.LandCode = "BE"
 	Set LeverAdres.Postcode = "9000"
 	Set LeverAdres.Woonplaats = "Gent"
-	Quit ..GeefBerekenInput(LeverAdres)
+	Quit ..GeefBerekenInput(##class(vhTest.Utils.APPS.TRANSP.dto.InternationaalAdres).GeefBelgischAdres())
 ]]></Implementation>
 </Method>
 
@@ -103,7 +103,7 @@
 	Set LeverAdres.LandCode = "NL"
 	Set LeverAdres.Postcode = "9761"
 	Set LeverAdres.Woonplaats = "Eelde"
-	Quit ..GeefBerekenInput(LeverAdres)
+	Quit ..GeefBerekenInput(##class(vhTest.Utils.APPS.TRANSP.dto.InternationaalAdres).GeefNederlandsAdres())
 ]]></Implementation>
 </Method>
 
@@ -116,7 +116,7 @@
 	Set LeverAdres.LandCode = "LU"
 	Set LeverAdres.Postcode = "6562"
 	Set LeverAdres.Woonplaats = "Berdorf"
-	Quit ..GeefBerekenInput(LeverAdres)
+	Quit ..GeefBerekenInput(##class(vhTest.Utils.APPS.TRANSP.dto.InternationaalAdres).GeefLuxemburgsAdres())
 ]]></Implementation>
 </Method>
 
@@ -129,7 +129,7 @@
 	Set LeverAdres.LandCode = "IT"
 	Set LeverAdres.Postcode = "20867"
 	Set LeverAdres.Woonplaats = "Capanago"
-	Quit ..GeefBerekenInput(LeverAdres)
+	Quit ..GeefBerekenInput(##class(vhTest.Utils.APPS.TRANSP.dto.InternationaalAdres).GeefCapanago())
 ]]></Implementation>
 </Method>
 
@@ -159,12 +159,8 @@
 	Set BerekenInput.Referentie = "1"
 	Set BerekenInput.GewensteLeverDatum = GewensteLeverDatum
 	Set BerekenInput.VroegsteAfhaalDatum = ##class(TECH.DateTime).TextToDate("10/03/2016")
-	Set BerekenInput.LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
-	Set BerekenInput.LeverAdres.ProvincieCode = ""
-	Set BerekenInput.LeverAdres.LandCode = "DE"
-	Set BerekenInput.LeverAdres.Postcode = "57462"
-	Set BerekenInput.LeverAdres.Woonplaats = "Olpe"
-	
+	Set BerekenInput.LeverAdres = ##class(vhTest.Utils.APPS.TRANSP.dto.InternationaalAdres).GeefGeldigInternationaalAdres()
+
 	Do ..VoegDetailLijnenToe(BerekenInput)
 	
 	Quit BerekenInput
@@ -196,12 +192,7 @@
 	
 
 	Set BerekenInput.GewensteLeverDatum = ..GeefGeldigeDatum()
-	Set BerekenInput.LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
-	Set BerekenInput.LeverAdres.ProvincieCode = ""
-	Set BerekenInput.LeverAdres.LandCode = "DE"
-	Set BerekenInput.LeverAdres.Postcode = "57462"
-	Set BerekenInput.LeverAdres.Woonplaats = "Olpe"
-	
+	Set BerekenInput.LeverAdres = ##class(vhTest.Utils.APPS.TRANSP.dto.InternationaalAdres).GeefGeldigInternationaalAdres()
 	Do BerekenInput.TeVerzendenItems.Clear()
 	
 	Quit BerekenInput