Index: DOM/VKP/impl/LeverAdres.cls.xml
===================================================================
diff -u -r44924 -r47647
--- DOM/VKP/impl/LeverAdres.cls.xml	(.../LeverAdres.cls.xml)	(revision 44924)
+++ DOM/VKP/impl/LeverAdres.cls.xml	(.../LeverAdres.cls.xml)	(revision 47647)
@@ -170,6 +170,8 @@
 </Method>
 
 <Method name="GeefAdresType">
+<Description>
+Obsolete, gebruik GeefType()</Description>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..AdresType
 ]]></Implementation>
@@ -224,6 +226,8 @@
 </Method>
 
 <Method name="ZetAdresType">
+<Description>
+Obsolete, gebruik ZetType()</Description>
 <FormalSpec>AdresType:%String</FormalSpec>
 <Implementation><![CDATA[	Set ..AdresType = AdresType
 ]]></Implementation>
@@ -234,6 +238,18 @@
 <Implementation><![CDATA[	Set ..KlantId = KlantId
 ]]></Implementation>
 </Method>
+
+<Method name="GeefType">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..AdresType
+]]></Implementation>
+</Method>
+
+<Method name="ZetType">
+<FormalSpec>AdresType:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..AdresType = AdresType
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/common/impl/AdresTemplate.cls.xml
===================================================================
diff -u -r35574 -r47647
--- DOM/common/impl/AdresTemplate.cls.xml	(.../AdresTemplate.cls.xml)	(revision 35574)
+++ DOM/common/impl/AdresTemplate.cls.xml	(.../AdresTemplate.cls.xml)	(revision 47647)
@@ -40,6 +40,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="Type">
+<Type>%String</Type>
+</Property>
+
 <Method name="GeefAanspreking">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..Aanspreking
@@ -162,6 +166,18 @@
 <Implementation><![CDATA[	Quit ..Naam _ ", " _ ..Straat _ ", " _ ..Postcode _ " " _ ..Gemeente _ ", " _ ..GeefLand().GeefCode()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefType">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Type
+]]></Implementation>
+</Method>
+
+<Method name="ZetType">
+<FormalSpec>Type:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..Type = Type
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/common/Adres.cls.xml
===================================================================
diff -u -r29059 -r47647
--- vhTest/Mock/DOM/common/Adres.cls.xml	(.../Adres.cls.xml)	(revision 29059)
+++ vhTest/Mock/DOM/common/Adres.cls.xml	(.../Adres.cls.xml)	(revision 47647)
@@ -3,8 +3,7 @@
 <Class name="vhTest.Mock.DOM.common.Adres">
 <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>
+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>DOM.common.Adres,Tools.Mock.MockClassBase</Super>
 
@@ -68,6 +67,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefType">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefType")
+]]></Implementation>
+</Method>
+
 <Method name="ToString">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("ToString")
@@ -127,6 +132,12 @@
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetToenaam",Toenaam)
 ]]></Implementation>
 </Method>
+
+<Method name="ZetType">
+<FormalSpec>Type:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetType",Type)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/VKP/LeverAdres.cls.xml
===================================================================
diff -u -r37910 -r47647
--- DOM/VKP/LeverAdres.cls.xml	(.../LeverAdres.cls.xml)	(revision 37910)
+++ DOM/VKP/LeverAdres.cls.xml	(.../LeverAdres.cls.xml)	(revision 47647)
@@ -103,6 +103,16 @@
 <Abstract>1</Abstract>
 <FormalSpec>Volmacht:%String</FormalSpec>
 </Method>
+
+<Method name="GeefType">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="ZetType">
+<Abstract>1</Abstract>
+<FormalSpec>Type:%String</FormalSpec>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/VKP/LeverAdres.cls.xml
===================================================================
diff -u -r37910 -r47647
--- vhTest/Mock/DOM/VKP/LeverAdres.cls.xml	(.../LeverAdres.cls.xml)	(revision 37910)
+++ vhTest/Mock/DOM/VKP/LeverAdres.cls.xml	(.../LeverAdres.cls.xml)	(revision 47647)
@@ -3,11 +3,16 @@
 <Class name="vhTest.Mock.DOM.VKP.LeverAdres">
 <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>
+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>DOM.VKP.LeverAdres,vhTest.Mock.DOM.common.Adres</Super>
 
+<Method name="GeefAanspreking">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefAanspreking")
+]]></Implementation>
+</Method>
+
 <Method name="GeefAdresKey">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefAdresKey")
@@ -20,6 +25,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefGemeente">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefGemeente")
+]]></Implementation>
+</Method>
+
 <Method name="GeefID">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefID")
@@ -32,12 +43,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLand">
+<ReturnType>DOM.common.Land</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefLand")
+]]></Implementation>
+</Method>
+
 <Method name="GeefLandNr">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefLandNr")
 ]]></Implementation>
 </Method>
 
+<Method name="GeefNaam">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefNaam")
+]]></Implementation>
+</Method>
+
 <Method name="GeefOpmerking1">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefOpmerking1")
@@ -50,6 +73,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPostcode">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefPostcode")
+]]></Implementation>
+</Method>
+
+<Method name="GeefStraat">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefStraat")
+]]></Implementation>
+</Method>
+
 <Method name="GeefTaal">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefTaal")
@@ -62,6 +97,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefToenaam">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefToenaam")
+]]></Implementation>
+</Method>
+
+<Method name="GeefType">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefType")
+]]></Implementation>
+</Method>
+
 <Method name="GeefVerzendWijze">
 <ReturnType>DOM.VKP.enu.VerzendWijze</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVerzendWijze")
@@ -80,6 +127,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ToString">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ToString")
+]]></Implementation>
+</Method>
+
+<Method name="ZetAanspreking">
+<FormalSpec>Aanspreking:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetAanspreking",Aanspreking)
+]]></Implementation>
+</Method>
+
+<Method name="ZetGemeente">
+<FormalSpec>Gemeente:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetGemeente",Gemeente)
+]]></Implementation>
+</Method>
+
 <Method name="ZetID">
 <FormalSpec>ID:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetID",ID)
@@ -92,6 +157,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetLandNr">
+<FormalSpec>LandNr:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetLandNr",LandNr)
+]]></Implementation>
+</Method>
+
+<Method name="ZetNaam">
+<FormalSpec>Naam:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetNaam",Naam)
+]]></Implementation>
+</Method>
+
 <Method name="ZetOpmerking1">
 <FormalSpec>Opmerking:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetOpmerking1",Opmerking)
@@ -104,6 +181,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetPostcode">
+<FormalSpec>Postcode:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetPostcode",Postcode)
+]]></Implementation>
+</Method>
+
+<Method name="ZetStraat">
+<FormalSpec>Straat:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetStraat",Straat)
+]]></Implementation>
+</Method>
+
 <Method name="ZetTaal">
 <FormalSpec>Taal:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetTaal",Taal)
@@ -116,6 +205,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetToenaam">
+<FormalSpec>Toenaam:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetToenaam",Toenaam)
+]]></Implementation>
+</Method>
+
+<Method name="ZetType">
+<FormalSpec>Type:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetType",Type)
+]]></Implementation>
+</Method>
+
 <Method name="ZetVerzendingWijze">
 <FormalSpec>VerzendingWijze:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetVerzendingWijze",VerzendingWijze)
Index: DOM/common/Adres.cls.xml
===================================================================
diff -u -r29059 -r47647
--- DOM/common/Adres.cls.xml	(.../Adres.cls.xml)	(revision 29059)
+++ DOM/common/Adres.cls.xml	(.../Adres.cls.xml)	(revision 47647)
@@ -105,6 +105,16 @@
 <Abstract>1</Abstract>
 <ReturnType>%String</ReturnType>
 </Method>
+
+<Method name="GeefType">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="ZetType">
+<Abstract>1</Abstract>
+<FormalSpec>Type:%String</FormalSpec>
+</Method>
 </Class>
 
 
Index: DOM/VKP/impl/DataM/DataMAdres.cls.xml
===================================================================
diff -u -r36474 -r47647
--- DOM/VKP/impl/DataM/DataMAdres.cls.xml	(.../DataMAdres.cls.xml)	(revision 36474)
+++ DOM/VKP/impl/DataM/DataMAdres.cls.xml	(.../DataMAdres.cls.xml)	(revision 47647)
@@ -74,6 +74,12 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Type">
+<Type>%String</Type>
+<InitialExpression>"L"</InitialExpression>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>Naam:%String,Toenaam:%String,Aanspreking:%String,Straat:%String,Postcode:%String,Gemeente:%String,LandNr:%Integer,Taal:%String,KlantAdresNr:%String,Opmerking1:%String</FormalSpec>
 <Private>1</Private>
@@ -196,6 +202,18 @@
 <Implementation><![CDATA[	Quit ..GeefAanspreking()_" "_..GeefNaam()_" "_..GeefToenaam()_" - "_..GeefStraat()_" "_..GeefPostcode()_" "_..GeefGemeente()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefType">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Type
+]]></Implementation>
+</Method>
+
+<Method name="ZetType">
+<FormalSpec>Type:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..Type = Type
+]]></Implementation>
+</Method>
 </Class>