Index: vhTest/Mock/APPS/VKP/OfferteService/impl/NaarBerekenInputConverter.cls.xml
===================================================================
diff -u -r33082 -r33269
--- vhTest/Mock/APPS/VKP/OfferteService/impl/NaarBerekenInputConverter.cls.xml	(.../NaarBerekenInputConverter.cls.xml)	(revision 33082)
+++ vhTest/Mock/APPS/VKP/OfferteService/impl/NaarBerekenInputConverter.cls.xml	(.../NaarBerekenInputConverter.cls.xml)	(revision 33269)
@@ -10,7 +10,7 @@
 <Inheritance>right</Inheritance>
 
 <Method name="Convert">
-<FormalSpec>Verpakkingen:APPS.VKP.Offerte.dto.VerpakkingList,LeverAdres:APPS.TRANSP.dto.InternationaalAdres,OfferteId:%String</FormalSpec>
+<FormalSpec>Verpakkingen:APPS.VKP.Offerte.dto.VerpakkingList,LeverAdres:DOM.VKP.LeverAdres,OfferteId:%String</FormalSpec>
 <ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("Convert",Verpakkingen,LeverAdres,OfferteId)
 ]]></Implementation>
Index: vhTest/Fake/APPS/VKP/OfferteService/impl/NaarBerekenInputConverter.cls.xml
===================================================================
diff -u -r33082 -r33269
--- vhTest/Fake/APPS/VKP/OfferteService/impl/NaarBerekenInputConverter.cls.xml	(.../NaarBerekenInputConverter.cls.xml)	(revision 33082)
+++ vhTest/Fake/APPS/VKP/OfferteService/impl/NaarBerekenInputConverter.cls.xml	(.../NaarBerekenInputConverter.cls.xml)	(revision 33269)
@@ -8,7 +8,7 @@
 <Super>APPS.VKP.OfferteService.impl.NaarBerekenInputConverter</Super>
 
 <Method name="Convert">
-<FormalSpec>Verpakkingen:APPS.VKP.Offerte.dto.VerpakkingList,LeverAdres:APPS.TRANSP.dto.InternationaalAdres,OfferteId:%String</FormalSpec>
+<FormalSpec>Verpakkingen:APPS.VKP.Offerte.dto.VerpakkingList,LeverAdres:DOM.VKP.LeverAdres,OfferteId:%String</FormalSpec>
 <ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
Index: APPS/VKP/OfferteService/impl/NaarBerekenInputConverter.cls.xml
===================================================================
diff -u -r33082 -r33269
--- APPS/VKP/OfferteService/impl/NaarBerekenInputConverter.cls.xml	(.../NaarBerekenInputConverter.cls.xml)	(revision 33082)
+++ APPS/VKP/OfferteService/impl/NaarBerekenInputConverter.cls.xml	(.../NaarBerekenInputConverter.cls.xml)	(revision 33269)
@@ -4,32 +4,63 @@
 <Super>TECH.Mockable</Super>
 
 <Method name="Convert">
-<FormalSpec>Verpakkingen:APPS.VKP.Offerte.dto.VerpakkingList,LeverAdres:APPS.TRANSP.dto.InternationaalAdres,OfferteId:%String</FormalSpec>
+<FormalSpec>Verpakkingen:APPS.VKP.Offerte.dto.VerpakkingList,LeverAdres:DOM.VKP.LeverAdres,OfferteId:%String</FormalSpec>
 <ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
 <Implementation><![CDATA[
 	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
-	Set BerekenInput.LeverAdres = LeverAdres
+	
+	Set BerekenInput.LeverAdres = ..NaarInternationaalAdresConvert(LeverAdres)
+	
 	Set BerekenInput.Referentie = OfferteId
-	/// Set BerekenInput.GEwensteLeverDatum = ???	
+	/// Set BerekenInput.GewensteLeverDatum = ???	
 	if ($IsObject(Verpakkingen) && Verpakkingen.Count() > 0)
 	{
 		set Iterator = ##class(TECH.ListIterator).%New(Verpakkingen)
 		while Iterator.HasNext() {
-			#dim Verpakking As APPS.VKP.Offerte.dto.Verpakking = Iterator.Next()
-			#dim TeVerzendItem As APPS.TRANSP.OfferteService.dto.TeverzendenItem = ##class(APPS.TRANSP.OfferteService.dto.TeverzendenItem).%New()
-			Set TeVerzendItem.Gewicht = Verpakking.Gewicht
-			Set TeVerzendItem.WaardeGoederen = Verpakking.WaardeGoederen
-			Set TeVerzendItem.Afmeting = Verpakking.Afmeting.%ConstructClone()
-			Set TeVerzendItem.Aantal = Verpakking.Aantal
-			Set TeVerzendItem.ProductID = Verpakking.ProductID
-			///Set TeVerzendItem.DatumBeschikbaar = ???
-			Do BerekenInput.TeVerzendenItems.Insert(TeVerzendItem)
+			Do BerekenInput.TeVerzendenItems.Insert(..NaarTeVerzendItem(Iterator.Next()))
 		}
 	}
 	
 	Quit BerekenInput
 ]]></Implementation>
 </Method>
+
+<Method name="NaarInternationaalAdresConvert">
+<FormalSpec>LeverAdres:DOM.VKP.impl.LeverAdres</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.dto.InternationaalAdres</ReturnType>
+<Implementation><![CDATA[
+	#dim InternationaalAdres As APPS.TRANSP.dto.InternationaalAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
+	Do ##class(Tools.Wlip).%New(26).String("tot hiert")
+	Set InternationaalAdres.Aanspreking = LeverAdres.GeefAanspreking()
+	Set InternationaalAdres.ID  = LeverAdres.GeefID()
+	Set InternationaalAdres.LandCode  = LeverAdres.GeefLandNr() 
+	Set InternationaalAdres.Naam  = LeverAdres.GeefNaam()
+	Set InternationaalAdres.Postcode = LeverAdres.GeefPostcode() 
+	Set InternationaalAdres.Straat = LeverAdres.GeefStraat()
+	Set InternationaalAdres.Woonplaats = LeverAdres.GeefGemeente()
+	Set InternationaalAdres.Taal = LeverAdres.GeefTaal()
+	Set InternationaalAdres.Toenaam = LeverAdres.GeefToenaam()
+	Set InternationaalAdres.ProvincieCode = ""
+	Quit InternationaalAdres
+]]></Implementation>
+</Method>
+
+<Method name="NaarTeVerzendItem">
+<FormalSpec>Verpakking:APPS.VKP.Offerte.dto.Verpakking</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.OfferteService.dto.TeverzendenItem</ReturnType>
+<Implementation><![CDATA[
+	#dim TeVerzendItem As APPS.TRANSP.OfferteService.dto.TeverzendenItem = ##class(APPS.TRANSP.OfferteService.dto.TeverzendenItem).%New()
+	Set TeVerzendItem.Gewicht = Verpakking.Gewicht
+	Set TeVerzendItem.WaardeGoederen = Verpakking.WaardeGoederen
+	Set TeVerzendItem.Afmeting = Verpakking.Afmeting.%ConstructClone()
+	Set TeVerzendItem.Aantal = Verpakking.Aantal
+	Set TeVerzendItem.ProductID = Verpakking.ProductID
+	///Set TeVerzendItem.DatumBeschikbaar = ???
+	Quit TeVerzendItem
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/VKP/OfferteService.cls.xml
===================================================================
diff -u -r33009 -r33269
--- APPS/VKP/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 33009)
+++ APPS/VKP/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 33269)
@@ -106,7 +106,7 @@
 <Method name="GeefLeverAdres">
 <Abstract>1</Abstract>
 <FormalSpec>OfferteID:%String</FormalSpec>
-<ReturnType>APPS.TRANSP.dto.InternationaalAdres</ReturnType>
+<ReturnType>DOM.VKP.LeverAdres</ReturnType>
 </Method>
 </Class>
 
Index: WS/EC/Unishop/InternationaleZending/Service.cls.xml
===================================================================
diff -u -r33248 -r33269
--- WS/EC/Unishop/InternationaleZending/Service.cls.xml	(.../Service.cls.xml)	(revision 33248)
+++ WS/EC/Unishop/InternationaleZending/Service.cls.xml	(.../Service.cls.xml)	(revision 33269)
@@ -37,7 +37,7 @@
 <ReturnType>WS.EC.ExterneVerkoop.MogelijkeVerzendingen</ReturnType>
 <Implementation><![CDATA[
 	#dim Verpakkingen As APPS.VKP.Offerte.dto.VerpakkingList = ..OfferteService.GeefProductVerpakkingDetails(OfferteId)
-	#dim LeverAdres As APPS.TRANSP.dto.InternationaalAdres = ..OfferteService.GeefLeverAdres(OfferteId)
+	#dim LeverAdres As DOM.VKP.LeverAdres = ..OfferteService.GeefLeverAdres(OfferteId)
 
 	#dim BerekenInput As APPS.TRANSP.OfferteService.dto.BerekenInput = ..NaarBerekenInputConverter.Convert(Verpakkingen, LeverAdres, OfferteId)
 	
Index: APPS/VKP/impl/OfferteService.cls.xml
===================================================================
diff -u -r32274 -r33269
--- APPS/VKP/impl/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 32274)
+++ APPS/VKP/impl/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 33269)
@@ -217,6 +217,16 @@
 	quit r%MagWijzigenBepaler
 ]]></Implementation>
 </Method>
+
+<Method name="GeefLeverAdres">
+<Abstract>1</Abstract>
+<FormalSpec>OfferteID:%String</FormalSpec>
+<ReturnType>DOM.VKP.LeverAdres</ReturnType>
+<Implementation><![CDATA[
+	#dim Offerte As APPS.VKP.impl.Offerte = ..GeefOfferte(OfferteID)
+	Quit Offerte.GeefLeverAdres()
+]]></Implementation>
+</Method>
 </Class>
 
 
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)
Index: vhTest/Mock/APPS/VKP/OfferteService.cls.xml
===================================================================
diff -u -r33009 -r33269
--- vhTest/Mock/APPS/VKP/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 33009)
+++ vhTest/Mock/APPS/VKP/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 33269)
@@ -22,7 +22,7 @@
 
 <Method name="GeefLeverAdres">
 <FormalSpec>OfferteID:%String</FormalSpec>
-<ReturnType>APPS.TRANSP.dto.InternationaalAdres</ReturnType>
+<ReturnType>DOM.VKP.LeverAdres</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefLeverAdres",OfferteID)
 ]]></Implementation>
 </Method>