Index: zTryout/THB/TelbaarheidCorrigeerderTAX.cls.xml
===================================================================
diff -u
--- zTryout/THB/TelbaarheidCorrigeerderTAX.cls.xml	(revision 0)
+++ zTryout/THB/TelbaarheidCorrigeerderTAX.cls.xml	(revision 51456)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.THB.TelbaarheidCorrigeerderTAX">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductRolApi">
+<Type>DOM.PM.ProductRolAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductApi:DOM.PM.ProductAPI,ProductRolApi:DOM.PM.ProductRolAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
+	Set ..ProductRolApi = $$$Inject(ProductRolApi, ##class(DOM.PM.impl.ProductRolAPIimpl).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="CorrigeerGenerischProductLinkVolgensComponent">
+<Implementation><![CDATA[
+	#dim ProductIdIterator As TECH.Iterator = ..ProductApi.GeefProductIDIterator()
+	#dim ProductId As %Integer
+	#dim SamengesteldProduct As DOM.PM.SamengesteldProduct
+	
+	While ProductIdIterator.HasNext() {
+		Set ProductId = ProductIdIterator.Next()
+		If (..ProductRolApi.BestaatAdministratiefProduct(ProductId)) {
+			If (..ProductRolApi.IsSamengesteldProduct(ProductId)) {
+				Set SamengesteldProduct = ..ProductRolApi.GeefSamengesteldProduct(ProductId)
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>