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>