Index: AXimpl/BizTalkMessage/Converter/AddressUpsertConverter/LeveradresRepository.cls.xml
===================================================================
diff -u -r38107 -r38113
--- AXimpl/BizTalkMessage/Converter/AddressUpsertConverter/LeveradresRepository.cls.xml	(.../LeveradresRepository.cls.xml)	(revision 38107)
+++ AXimpl/BizTalkMessage/Converter/AddressUpsertConverter/LeveradresRepository.cls.xml	(.../LeveradresRepository.cls.xml)	(revision 38113)
@@ -46,15 +46,15 @@
 	}
 	
 	Set Leveradres = ##class(DOM.VKP.impl.LeverAdres).%New()
-	Set Leveradres.UniekId = $Piece(Key,"\",28)
+	Do Leveradres.ZetUniekId($Piece(Key,"\",28))
 	Set Leveradres.Straat = $Piece(Key,"\",5)
 	Set Leveradres.Postcode = $Piece(Key,"\",6)
 	Set Leveradres.Gemeente = $Piece(Key,"\",7)
 	Set Leveradres.LandNr = $Piece(Key,"\",8)
 	Set Leveradres.Telefoon = $Piece(Key,"\",13)
 	Set Leveradres.VerzendingWijze = $Piece(Key,"\",26)
-	Set Leveradres.AdresType = $Piece(Key,"\",12)
-	Set Leveradres.KlantId = KlantId
+	Do Leveradres.ZetAdresType($Piece(Key,"\",12))
+	Do Leveradres.ZetKlantId(KlantId)
 	
 	Quit Leveradres
 ]]></Implementation>