Index: APPS/Halux/PPS/Activiteit/impl/MVX/InkortenVoorstuk.cls.xml
===================================================================
diff -u -r62539 -r63142
--- APPS/Halux/PPS/Activiteit/impl/MVX/InkortenVoorstuk.cls.xml	(.../InkortenVoorstuk.cls.xml)	(revision 62539)
+++ APPS/Halux/PPS/Activiteit/impl/MVX/InkortenVoorstuk.cls.xml	(.../InkortenVoorstuk.cls.xml)	(revision 63142)
@@ -47,7 +47,7 @@
 	
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Item.GeefHalffabItemsBoom()
 	
-	If HalffabItemsBoom.BevatRol(..Enum.Rol.VoorwandType) {
+	If HalffabItemsBoom.BevatRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Voorstuk()) {
 		#dim VoorstukItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Voorstuk())
 		If ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemUtils).IsBewerkingNodig(VoorstukItem, ##class(DOM.PM.enu.BewerkingDimensie).Lengte()) {
 			#dim Product As DOM.PM.MaatwerkProduct = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI().GeefMaatwerkProduct(Item.ProductID)
@@ -73,17 +73,17 @@
 <FormalSpec>Info:APPS.Halux.PPS.Activiteit.impl.common.dto.VoorstukInkortenUitvoeringInfo,VoorstukItem:DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem</FormalSpec>
 <Implementation><![CDATA[
 	#dim VoorstukHalffab As DOM.PM.Maatwerk.Calc.HF.impl.MVX.Halffab.HalffabVoorstuk = VoorstukItem.GeefHalffab()
-	#dim ProductID As %String = VoorstukHalffab.GeefProductID()
-	#dim AdministratiefProduct As DOM.PM.AdministratiefProduct = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ProductID)	
-	#dim Kleur As %String = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("MVX_PPS_Voorstuk", ProductID, "Kleur"))
-	#dim Groef As %String = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("MVX_PPS_Voorstuk", ProductID, "Groef"))
+	#dim HalffabProductID As %String = VoorstukHalffab.GeefProductID()
+	#dim AdministratiefProduct As DOM.PM.AdministratiefProduct = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(HalffabProductID)	
+	#dim Kleur As %String = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("MVX_PPS_Voorstuk", HalffabProductID, "LadeKleur"))
+	#dim Groef As %String = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("MVX_PPS_Voorstuk", HalffabProductID, "Groef"))
 	
 	Set Info.AantalVoorstukken = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemUtils).GeefAantalProductenOpgenomenInEindproduct(VoorstukItem)
 	Set Info.AantalVoorstukkenTeBekomen = VoorstukItem.GeefTeBekomenAantal()
 	Set Info.VoorstukKleur = Kleur
 	Set Info.Groef = Groef
 	Set Info.VoorstukKorttekst = AdministratiefProduct.GeefKorttekst()
-	Set Info.VoorstukProductID = ProductID
+	Set Info.VoorstukProductID = HalffabProductID
 ]]></Implementation>
 </Method>