Index: zTryout/THB/TelbaarheidCorrigeerderTAX.cls.xml
===================================================================
diff -u -r51471 -r51476
--- zTryout/THB/TelbaarheidCorrigeerderTAX.cls.xml	(.../TelbaarheidCorrigeerderTAX.cls.xml)	(revision 51471)
+++ zTryout/THB/TelbaarheidCorrigeerderTAX.cls.xml	(.../TelbaarheidCorrigeerderTAX.cls.xml)	(revision 51476)
@@ -13,15 +13,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductTypeApi">
+<Type>DOM.PM.ProductTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>ProductApi:DOM.PM.ProductAPI,ProductRolApi:DOM.PM.ProductRolAPI</FormalSpec>
+<FormalSpec>ProductApi:DOM.PM.ProductAPI,ProductRolApi:DOM.PM.ProductRolAPI,ProductTypeApi:DOM.PM.ProductTypeAPI</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())
+	Set ..ProductTypeApi = $$$Inject(ProductTypeApi, ##class(DOM.PM.impl.ProductTypeAPIimpl).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -30,19 +36,71 @@
 <Method name="CorrigeerGenerischProductLinkVolgensComponent">
 <Implementation><![CDATA[
 	#dim ProductIdIterator As TECH.Iterator = ..ProductApi.GeefProductIDIterator()
-	#dim ProductId As %Integer
-	#dim SamengesteldProduct As DOM.PM.Product
-	#dim GenerischId As %String
+	#dim ProductId, GenerischId As %Integer
+	#dim Product As DOM.PM.TAORProduct.TAORLade
+	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken
+	#dim ProductieWijze As DOM.PM.enu.TAORProductieWijze
 	
 	While ProductIdIterator.HasNext() {
 		Set ProductId = ProductIdIterator.Next()
 		If (..ProductRolApi.BestaatAdministratiefProduct(ProductId)) {
-			If (..ProductRolApi.IsSamengesteldProduct(ProductId)) {
-				Set SamengesteldProduct = ..ProductApi.GeefProduct(ProductId)
-				Set GenerischId = SamengesteldProduct.GeefGenerischProductID()
+			If (..ProductTypeApi.IsTaxLosseComponentenProduct(ProductId)) {
+				Set Product = ..ProductTypeApi.GeefTAORboxProduct(ProductId)
+				Set Kenmerken = Product.GeefIngegevenKenmerken()
+				Set ProductieWijze = Kenmerken.ProductieWijze
+				Set GenerischId = +Product.GeefGenerischProductID()
+				
+				If (GenerischId = 1253214) {
+					// Zijkant Bicolor
+					If (ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Bodem()) {
+						Write !,"BICOLOR: '"_GenerischId_"' => Bodem => 1868035"
+						;Do Product.ZetGenerischProductId("1868035")
+						;Do Product.Save()
+					} ElseIf (ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Front()) {
+						Write !,"BICOLOR: '"_GenerischId_"' => Front => 1868037"
+						;Do Product.ZetGenerischProductId("1868037")
+						;Do Product.Save()
+					} ElseIf (ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Rug()) {
+						Write !,"BICOLOR: '"_GenerischId_"' => Rug => 1868036"
+						;Do Product.ZetGenerischProductId("1868036")
+						;Do Product.Save()
+					}
+				} ElseIf (GenerischId = 1253212) {
+					// Zijkant Fineer
+					If (ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Bodem()) {
+						Write !,"FINEER: '"_GenerischId_"' => Bodem => 1869915"
+						;Do Product.ZetGenerischProductId("1869915")
+						;Do Product.Save()
+					} ElseIf (ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Front()) {
+						Write !,"FINEER: '"_GenerischId_"' => Front => 1869917"
+						;Do Product.ZetGenerischProductId("1869917")
+						;Do Product.Save()
+					} ElseIf (ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Rug()) {
+						Write !,"FINEER: '"_GenerischId_"' => Rug => 1869916"
+						;Do Product.ZetGenerischProductId("1869916")
+						;Do Product.Save()
+					}
+				} ElseIf (GenerischId = 1253213) {
+					// Zijkant Houtdecor
+					If (ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Bodem()) {
+						Write !,"HOUTDECOR '"_GenerischId_"' => Bodem => 1869829"
+						;Do Product.ZetGenerischProductId("1869829")
+						;Do Product.Save()
+					} ElseIf (ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Front()) {
+						Write !,"HOUTDECOR '"_GenerischId_"' => Front => 1869831"
+						;Do Product.ZetGenerischProductId("1869831")
+						;Do Product.Save()
+					} ElseIf (ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Rug()) {
+						Write !,"HOUTDECOR '"_GenerischId_"' => Rug => 1869830"
+						;Do Product.ZetGenerischProductId("1869830")
+						;Do Product.Save()
+					}
+				}
 			}
 		}
 	}
+	
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 </Class>