Index: DOM/VKP/impl/LeverAdres.cls.xml
===================================================================
diff -u -r38107 -r38109
--- DOM/VKP/impl/LeverAdres.cls.xml	(.../LeverAdres.cls.xml)	(revision 38107)
+++ DOM/VKP/impl/LeverAdres.cls.xml	(.../LeverAdres.cls.xml)	(revision 38109)
@@ -172,6 +172,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantId">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..KlantId
+]]></Implementation>
+</Method>
+
 <Method name="ZetKlantAdresNr">
 <FormalSpec>KlantAdresNr:%String</FormalSpec>
 <Implementation><![CDATA[	Set ..KlantAdresNr = KlantAdresNr
Index: vhTest/Fake/DOM/VKP/LeverAdres.cls.xml
===================================================================
diff -u -r37870 -r38109
--- vhTest/Fake/DOM/VKP/LeverAdres.cls.xml	(.../LeverAdres.cls.xml)	(revision 37870)
+++ vhTest/Fake/DOM/VKP/LeverAdres.cls.xml	(.../LeverAdres.cls.xml)	(revision 38109)
@@ -67,6 +67,12 @@
 <Implementation><![CDATA[	Quit "VerzendingWijze"_..ID
 ]]></Implementation>
 </Method>
+
+<Method name="GeefKlantId">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "Klant "_..ID
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/AddressUpsertConverter/LeveradresRepository/GeefViaKlantIdEnAdresVolgnummer/Test.cls.xml
===================================================================
diff -u -r38106 -r38109
--- vhUnitTest/AXimpl/BizTalkMessage/Converter/AddressUpsertConverter/LeveradresRepository/GeefViaKlantIdEnAdresVolgnummer/Test.cls.xml	(.../Test.cls.xml)	(revision 38106)
+++ vhUnitTest/AXimpl/BizTalkMessage/Converter/AddressUpsertConverter/LeveradresRepository/GeefViaKlantIdEnAdresVolgnummer/Test.cls.xml	(.../Test.cls.xml)	(revision 38109)
@@ -45,6 +45,7 @@
 	Do $$$AssertEquals(LeverAdres.Telefoon,"0031887651900")
 	Do $$$AssertEquals(LeverAdres.VerzendingWijze,"OD;4")
 	Do $$$AssertEquals(LeverAdres.AdresType,"L")
+	Do $$$AssertEquals(LeverAdres.KlantId,"K||"_..#TestKlantnummer)
 ]]></Implementation>
 </Method>
 
@@ -64,6 +65,7 @@
 	Do $$$AssertEquals(LeverAdres.Telefoon,"0031887651900")
 	Do $$$AssertEquals(LeverAdres.VerzendingWijze,"OD;4")
 	Do $$$AssertEquals(LeverAdres.AdresType,"L")
+	Do $$$AssertEquals(LeverAdres.KlantId,"K||"_..#TestKlantnummer)
 ]]></Implementation>
 </Method>