Index: PRDUPLI.mac.rou
===================================================================
diff -u -r1826 -r2214
--- PRDUPLI.mac.rou	(.../PRDUPLI.mac.rou)	(revision 1826)
+++ PRDUPLI.mac.rou	(.../PRDUPLI.mac.rou)	(revision 2214)
@@ -180,13 +180,16 @@
 		
 		Set lbClearKenmerken= $LB("GeneratieType","MasterVoorBreedtes","MasterVoorDieptes","MasterVoorKleuren","MasterVoorWandDiktes")
 		Set lbClearKenmerken = lbClearKenmerken_$LB("SleutelVarFotoB","SleutelVarFotoD","SleutelVarFotoKlr","SleutelVarFotoWD","SleutelVarTekstB","SleutelVarTekstD","SleutelVarTekstKlr","SleutelVarTekstWD")
-		Set ProductKenmerkenSetsIterator = ProductKenmerken.GeefProductKenmerkenSets("OL").GeefProductKenmerkenSetIterator()
-		While (ProductKenmerkenSetsIterator.HasNext()) {
-			Set KenmerkenSet = ProductKenmerkenSetsIterator.Next()
-		 	Set NewUnID = KenmerkenSet.GeefUnID()
-			Set $Piece(NewUnID,".") = NewPRNr
-		 	For i = 1 : 1 : $LL(lbClearKenmerken) {
-				Do ##class(Prod.Kenmerk.DataDefinitie).DeleteKM("OL",NewUnID,$LI(lbClearKenmerken,i))
+		If (ProductKenmerken.HeeftKenmerkGroep("OL"))
+		{
+			Set ProductKenmerkenSetsIterator = ProductKenmerken.GeefProductKenmerkenSets("OL").GeefProductKenmerkenSetIterator()
+			While (ProductKenmerkenSetsIterator.HasNext()) {
+				Set KenmerkenSet = ProductKenmerkenSetsIterator.Next()
+			 	Set NewUnID = KenmerkenSet.GeefUnID()
+				Set $Piece(NewUnID,".") = NewPRNr
+			 	For i = 1 : 1 : $LL(lbClearKenmerken) {
+					Do ##class(Prod.Kenmerk.DataDefinitie).DeleteKM("OL",NewUnID,$LI(lbClearKenmerken,i))
+				}
 			}
 		}