Index: AXimpl/BizTalkMessage/Converter/AddressUpsertConverter/LeveradresRepository.cls.xml
===================================================================
diff -u -r38106 -r38107
--- AXimpl/BizTalkMessage/Converter/AddressUpsertConverter/LeveradresRepository.cls.xml	(.../LeveradresRepository.cls.xml)	(revision 38106)
+++ AXimpl/BizTalkMessage/Converter/AddressUpsertConverter/LeveradresRepository.cls.xml	(.../LeveradresRepository.cls.xml)	(revision 38107)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="AXimpl.BizTalkMessage.Converter.AddressUpsertConverter.LeveradresRepository">
-<Super>TECH.Repository</Super>
+<Super>TECH.Repository,TECH.Mockable</Super>
 
 <Method name="Maak">
 <Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Maak() nog niet geïmplementeerd"))
@@ -54,6 +54,7 @@
 	Set Leveradres.Telefoon = $Piece(Key,"\",13)
 	Set Leveradres.VerzendingWijze = $Piece(Key,"\",26)
 	Set Leveradres.AdresType = $Piece(Key,"\",12)
+	Set Leveradres.KlantId = KlantId
 	
 	Quit Leveradres
 ]]></Implementation>