Index: vhTest/Mock/AXimpl/BizTalkMessage/Converter/AddressUpsertConverter/LeveradresRepository.cls.xml
===================================================================
diff -u
--- vhTest/Mock/AXimpl/BizTalkMessage/Converter/AddressUpsertConverter/LeveradresRepository.cls.xml	(revision 0)
+++ vhTest/Mock/AXimpl/BizTalkMessage/Converter/AddressUpsertConverter/LeveradresRepository.cls.xml	(revision 38107)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.AXimpl.BizTalkMessage.Converter.AddressUpsertConverter.LeveradresRepository">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AXimpl.BizTalkMessage.Converter.AddressUpsertConverter.LeveradresRepository,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="BestaatViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BestaatViaID",ID)
+]]></Implementation>
+</Method>
+
+<Method name="Bewaar">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Bewaar")
+]]></Implementation>
+</Method>
+
+<Method name="GeefViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefViaID",ID)
+]]></Implementation>
+</Method>
+
+<Method name="GeefViaKlantIdEnAdresVolgnummer">
+<FormalSpec>KlantId:%String,AdresVolgNr:%String</FormalSpec>
+<ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefViaKlantIdEnAdresVolgnummer",KlantId,AdresVolgNr)
+]]></Implementation>
+</Method>
+
+<Method name="Maak">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Maak")
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderViaID",ID)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
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>
Index: vhTest/Fake/AXimpl/BizTalkMessage/Converter/AddressUpsertConverter/LeveradresRepository.cls.xml
===================================================================
diff -u
--- vhTest/Fake/AXimpl/BizTalkMessage/Converter/AddressUpsertConverter/LeveradresRepository.cls.xml	(revision 0)
+++ vhTest/Fake/AXimpl/BizTalkMessage/Converter/AddressUpsertConverter/LeveradresRepository.cls.xml	(revision 38107)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.AXimpl.BizTalkMessage.Converter.AddressUpsertConverter.LeveradresRepository">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AXimpl.BizTalkMessage.Converter.AddressUpsertConverter.LeveradresRepository</Super>
+
+<Method name="BestaatViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="Bewaar">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="GeefViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefViaKlantIdEnAdresVolgnummer">
+<FormalSpec>KlantId:%String,AdresVolgNr:%String</FormalSpec>
+<ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="Maak">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/VKP/impl/LeverAdres.cls.xml
===================================================================
diff -u -r38106 -r38107
--- DOM/VKP/impl/LeverAdres.cls.xml	(.../LeverAdres.cls.xml)	(revision 38106)
+++ DOM/VKP/impl/LeverAdres.cls.xml	(.../LeverAdres.cls.xml)	(revision 38107)
@@ -78,6 +78,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="KlantId">
+<Type>%String</Type>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>