Index: AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml
===================================================================
diff -u
--- AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml	(revision 0)
+++ AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml	(revision 45102)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Admin.DOM.PM.BouwsteenConverter">
+<Super>TECH.Mockable</Super>
+
+<Method name="Convert">
+<FormalSpec>ProductBouwsteen:DOM.PM.Bouwstenen.Bouwsteen,ParentProductId:%String=""</FormalSpec>
+<ReturnType>AXimpl.Admin.DOM.PM.Bouwsteen</ReturnType>
+<Implementation><![CDATA[
+	#dim Bouwsteen As AXimpl.Admin.DOM.PM.Bouwsteen = ##class(AXimpl.Admin.DOM.PM.Bouwsteen).%New()
+	
+	Set Bouwsteen.IdentNummer = ProductBouwsteen.KindProduct.IdentNummer
+	Set Bouwsteen.ProductId = ProductBouwsteen.KindProduct.ProductNr
+	Set Bouwsteen.Aantal = ProductBouwsteen.Aantal
+	Set Bouwsteen.ParentProductId = ParentProductId
+	
+	Quit Bouwsteen
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: Default_MartijnV.prj.xml
===================================================================
diff -u
--- Default_MartijnV.prj.xml	(revision 0)
+++ Default_MartijnV.prj.xml	(revision 45102)
@@ -0,0 +1,3 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+</Export>
Index: AXimpl/Admin/DOM/PM/BouwsteenIterator.cls.xml
===================================================================
diff -u
--- AXimpl/Admin/DOM/PM/BouwsteenIterator.cls.xml	(revision 0)
+++ AXimpl/Admin/DOM/PM/BouwsteenIterator.cls.xml	(revision 45102)
@@ -0,0 +1,93 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Admin.DOM.PM.BouwsteenIterator">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="BouwsteenConverter">
+<Type>AXimpl.Admin.DOM.PM.BouwsteenConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Iterator">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Product">
+<Type>DOM.PM.Product</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Product:DOM.PM.Product,BouwsteenConverter:AXimpl.Admin.DOM.PM.BouwsteenConverter="",ProductApi:DOM.PM.ProductAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Product = Product
+	Set ..BouwsteenConverter = $$$Inject(BouwsteenConverter, ##class(AXimpl.Admin.DOM.PM.BouwsteenConverter).%New())
+	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.DomeinContext).Instance().GeefProductAPI())
+	
+	Do ..Reset()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..Iterator.HasNext()
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[	Quit ..Iterator.Next()
+]]></Implementation>
+</Method>
+
+<Method name="Reset">
+<Implementation><![CDATA[	Set ..Iterator = ##class(TECH.ListIterator).%New(..GeefBouwstenen(..Product))
+]]></Implementation>
+</Method>
+
+<Method name="GeefBouwstenen">
+<FormalSpec>Product:DOM.PM.Product,ParentProductId:%String=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim Bouwstenen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim HalffabricaatBouwstenenIterator As TECH.ListIterator = Product.GeefHFBouwstenenIterator()
+	#dim KindBouwstenenIterator As TECH.ListIterator = Product.GeefKindBouwstenenIterator()
+	
+	While (HalffabricaatBouwstenenIterator.HasNext()) {
+		#dim HalffabricaatBouwsteen As DOM.PM.Bouwstenen.BouwsteenHalfFabr = HalffabricaatBouwstenenIterator.Next()
+		
+		Do Bouwstenen.Insert(..BouwsteenConverter.Convert(HalffabricaatBouwsteen, ParentProductId))
+	}
+	
+	While (KindBouwstenenIterator.HasNext()) {
+		#dim KindBouwsteen As DOM.PM.Bouwstenen.BouwsteenKind = KindBouwstenenIterator.Next()
+		#dim Bouwsteen As AXimpl.Admin.DOM.PM.Bouwsteen = ..BouwsteenConverter.Convert(KindBouwsteen, ParentProductId)
+		
+		Do Bouwstenen.Insert(Bouwsteen)
+		
+		#dim KindProduct As DOM.PM.Product = ..ProductApi.GeefProduct(Bouwsteen.ProductId)
+		#dim KindBouwstenen AS %ListOfDataTypes = ..GeefBouwstenen(KindProduct, Bouwsteen.ProductId)
+		
+		Do ##class(TECH.ListUtils).AppendList(Bouwstenen, KindBouwstenen)
+	}
+	
+	Quit Bouwstenen
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenConverter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenConverter/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenConverter/Test.cls.xml	(revision 45102)
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Admin.DOM.PM.BouwsteenConverter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="BouwsteenConverter">
+<Type>AXimpl.Admin.DOM.PM.BouwsteenConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..BouwsteenConverter = ##class(AXimpl.Admin.DOM.PM.BouwsteenConverter).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: BouwsteenConverter converteert Bouwstenen">
+<Implementation><![CDATA[
+	#dim ProductBouwsteenDummy As DOM.PM.Bouwstenen.Bouwsteen = ..GeefDummyProductBouwsteenDummy()
+	#dim Bouwsteen As AXimpl.Admin.DOM.PM.Bouwsteen = ..BouwsteenConverter.Convert(ProductBouwsteenDummy)
+	
+	Do $$$AssertEquals(Bouwsteen.IdentNummer, ProductBouwsteenDummy.KindProduct.IdentNummer)
+	Do $$$AssertEquals(Bouwsteen.ProductId, ProductBouwsteenDummy.KindProduct.ProductNr)
+	Do $$$AssertEquals(Bouwsteen.Aantal, ProductBouwsteenDummy.Aantal)
+	Do $$$AssertEquals(Bouwsteen.ParentProductId, "")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ParentProductId wordt ingevuld">
+<Implementation><![CDATA[
+	#dim RandomParentProductId As %String = $$$DummyString
+	#dim ProductBouwsteenDummy As DOM.PM.Bouwstenen.Bouwsteen = ..GeefDummyProductBouwsteenDummy()	
+	#dim Bouwsteen As AXimpl.Admin.DOM.PM.Bouwsteen = ..BouwsteenConverter.Convert(ProductBouwsteenDummy, RandomParentProductId)
+	
+	Do $$$AssertEquals(Bouwsteen.ParentProductId, RandomParentProductId)
+]]></Implementation>
+</Method>
+
+<Method name="GeefDummyProductBouwsteenDummy">
+<Private>1</Private>
+<ReturnType>DOM.PM.Bouwstenen.Bouwsteen</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductBouwsteenDummy As DOM.PM.Bouwstenen.Bouwsteen = ##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New()
+	
+	Set ProductBouwsteenDummy.KindProduct = ##class(Prod.Product).%New()
+	Set ProductBouwsteenDummy.KindProduct.IdentNummer = $$$DummyString
+	Set ProductBouwsteenDummy.KindProduct.ProductNr = $$$DummyString
+	Set ProductBouwsteenDummy.Aantal = $$$DummyInteger
+	
+	Quit ProductBouwsteenDummy
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/Admin/DOM/PM/Bouwsteen.cls.xml
===================================================================
diff -u
--- AXimpl/Admin/DOM/PM/Bouwsteen.cls.xml	(revision 0)
+++ AXimpl/Admin/DOM/PM/Bouwsteen.cls.xml	(revision 45102)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Admin.DOM.PM.Bouwsteen">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Aantal">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="IdentNummer">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductId">
+<Type>%String</Type>
+</Property>
+
+<Property name="ParentProductId">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml
===================================================================
diff -u
--- vhTest/Mock/AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml	(revision 0)
+++ vhTest/Mock/AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml	(revision 45102)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.AXimpl.Admin.DOM.PM.BouwsteenConverter">
+<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</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AXimpl.Admin.DOM.PM.BouwsteenConverter,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="Convert">
+<FormalSpec>ProductBouwsteen:DOM.PM.Bouwstenen.Bouwsteen,ParentProductId:%String=""</FormalSpec>
+<ReturnType>AXimpl.Admin.DOM.PM.Bouwsteen</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Convert",ProductBouwsteen,ParentProductId)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIterator/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIterator/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIterator/Test.cls.xml	(revision 45102)
@@ -0,0 +1,134 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Admin.DOM.PM.BouwsteenIterator.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Geen HasNext als geen Bouwstenen gevonden worden voor een Product">
+<Implementation><![CDATA[
+	#dim ProductStub As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do ProductStub.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(..EmptyIterator())
+	Do ProductStub.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(..EmptyIterator())
+	
+	#dim BouwsteenIterator As AXimpl.Admin.DOM.PM.BouwsteenIterator = ##class(AXimpl.Admin.DOM.PM.BouwsteenIterator).%New(ProductStub)
+	
+	Do $$$AssertFalse(BouwsteenIterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="Test: BouwsteenConverter wordt voor elke Halffabricaat- en KindBouwsteen opgeroepen">
+<Implementation><![CDATA[
+	#dim RandomProductId1 As %String = "RandomProductId1"
+	#dim RandomProductId2 As %String = "RandomProductId2"
+	#dim RandomProductId3 As %String = "RandomProductId3"
+	
+	#dim HalffabricaatBouwstenen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do HalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
+	Do HalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
+	Do HalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
+	
+	#dim KindBouwstenen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do KindBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenKind).%New())
+	Do KindBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenKind).%New())
+	Do KindBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenKind).%New())
+	
+	#dim ProductStub As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do ProductStub.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(##class(TECH.ListIterator).%New(HalffabricaatBouwstenen))
+	Do ProductStub.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(##class(TECH.ListIterator).%New(KindBouwstenen))
+	
+	#dim KindProductStub As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do KindProductStub.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(..EmptyIterator())
+	Do KindProductStub.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(..EmptyIterator())
+	
+	#dim BouwsteenConverterMock As vhTest.Mock.AXimpl.Admin.DOM.PM.BouwsteenConverter = ##class(vhTest.Mock.AXimpl.Admin.DOM.PM.BouwsteenConverter).%New()
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", HalffabricaatBouwstenen.GetAt(1), "").DanReturn(..GeefBouwsteenDummy())
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", HalffabricaatBouwstenen.GetAt(2), "").DanReturn(..GeefBouwsteenDummy())
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", HalffabricaatBouwstenen.GetAt(3), "").DanReturn(..GeefBouwsteenDummy())
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindBouwstenen.GetAt(1), "").DanReturn(..GeefBouwsteenDummy(RandomProductId1))
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindBouwstenen.GetAt(2), "").DanReturn(..GeefBouwsteenDummy(RandomProductId2))
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindBouwstenen.GetAt(3), "").DanReturn(..GeefBouwsteenDummy(RandomProductId3))
+	
+	#dim ProductApiStub As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiStub.IndienMethodCall("GeefProduct", RandomProductId1).DanReturn(KindProductStub)
+	Do ProductApiStub.IndienMethodCall("GeefProduct", RandomProductId2).DanReturn(KindProductStub)
+	Do ProductApiStub.IndienMethodCall("GeefProduct", RandomProductId3).DanReturn(KindProductStub)
+	
+	#dim BouwsteenIterator As AXimpl.Admin.DOM.PM.BouwsteenIterator = ##class(AXimpl.Admin.DOM.PM.BouwsteenIterator).%New(ProductStub, BouwsteenConverterMock, ProductApiStub)
+		
+	Do BouwsteenConverterMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: BouwsteenConverter maakt Bouwsteen voor elk KindProduct met Halffabricaat- en KindBouwstenen">
+<Implementation><![CDATA[
+	#dim RandomParentProductId As %String = "RandomParentProductId"
+	
+	#dim KindBouwstenen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do KindBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenKind).%New())
+	
+	#dim ProductStub As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do ProductStub.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(..EmptyIterator())
+	Do ProductStub.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(##class(TECH.ListIterator).%New(KindBouwstenen))
+	
+	#dim KindHalffabricaatBouwstenen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do KindHalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
+	Do KindHalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
+	Do KindHalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
+	
+	#dim KindProductStub As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do KindProductStub.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(##class(TECH.ListIterator).%New(KindHalffabricaatBouwstenen))
+	Do KindProductStub.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(..EmptyIterator())
+	
+	#dim BouwsteenConverterMock As vhTest.Mock.AXimpl.Admin.DOM.PM.BouwsteenConverter = ##class(vhTest.Mock.AXimpl.Admin.DOM.PM.BouwsteenConverter).%New()
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindBouwstenen.GetAt(1), "").DanReturn(..GeefBouwsteenDummy(RandomParentProductId))
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindHalffabricaatBouwstenen.GetAt(1), RandomParentProductId).DanReturn(..GeefBouwsteenDummy())
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindHalffabricaatBouwstenen.GetAt(2), RandomParentProductId).DanReturn(..GeefBouwsteenDummy())
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindHalffabricaatBouwstenen.GetAt(3), RandomParentProductId).DanReturn(..GeefBouwsteenDummy())
+	
+	#dim ProductApiStub As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiStub.IndienMethodCall("GeefProduct", RandomParentProductId).DanReturn(KindProductStub)
+	
+	#dim BouwsteenIterator As AXimpl.Admin.DOM.PM.BouwsteenIterator = ##class(AXimpl.Admin.DOM.PM.BouwsteenIterator).%New(ProductStub, BouwsteenConverterMock, ProductApiStub)
+	
+	Do BouwsteenConverterMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bij reset van Iterator worden de Bouwstenen opnieuw opgehaald">
+<Implementation><![CDATA[
+	#dim HalffabricaatBouwstenen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do HalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
+	Do HalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
+	Do HalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
+	
+	#dim ProductStub As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do ProductStub.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(##class(TECH.ListIterator).%New(HalffabricaatBouwstenen))
+	Do ProductStub.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(..EmptyIterator())
+	
+	#dim BouwsteenConverterMock As vhTest.Mock.AXimpl.Admin.DOM.PM.BouwsteenConverter = ##class(vhTest.Mock.AXimpl.Admin.DOM.PM.BouwsteenConverter).%New()
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", HalffabricaatBouwstenen.GetAt(1), "").DanReturn(..GeefBouwsteenDummy()).ExactAantalKeer(2)
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", HalffabricaatBouwstenen.GetAt(2), "").DanReturn(..GeefBouwsteenDummy()).ExactAantalKeer(2)
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", HalffabricaatBouwstenen.GetAt(3), "").DanReturn(..GeefBouwsteenDummy()).ExactAantalKeer(2)
+	
+	#dim BouwsteenIterator As AXimpl.Admin.DOM.PM.BouwsteenIterator = ##class(AXimpl.Admin.DOM.PM.BouwsteenIterator).%New(ProductStub, BouwsteenConverterMock)
+	Do BouwsteenIterator.Reset()
+	
+	Do BouwsteenConverterMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefBouwsteenDummy">
+<FormalSpec>ProductId:%String=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXimpl.Admin.DOM.PM.Bouwsteen</ReturnType>
+<Implementation><![CDATA[
+	#dim BouwsteenDummy As AXimpl.Admin.DOM.PM.Bouwsteen = ##class(AXimpl.Admin.DOM.PM.Bouwsteen).%New()
+	
+	Set BouwsteenDummy.ProductId = ProductId
+	
+	Quit BouwsteenDummy
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml
===================================================================
diff -u
--- vhTest/Fake/AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml	(revision 0)
+++ vhTest/Fake/AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml	(revision 45102)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.AXimpl.Admin.DOM.PM.BouwsteenConverter">
+<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.Admin.DOM.PM.BouwsteenConverter</Super>
+
+<Method name="Convert">
+<FormalSpec>ProductBouwsteen:DOM.PM.Bouwstenen.Bouwsteen,ParentProductId:%String=""</FormalSpec>
+<ReturnType>AXimpl.Admin.DOM.PM.Bouwsteen</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>