Index: DOM/PM/impl/ProductKenmerkenSets.cls.xml
===================================================================
diff -u -r1681 -r1722
--- DOM/PM/impl/ProductKenmerkenSets.cls.xml	(.../ProductKenmerkenSets.cls.xml)	(revision 1681)
+++ DOM/PM/impl/ProductKenmerkenSets.cls.xml	(.../ProductKenmerkenSets.cls.xml)	(revision 1722)
@@ -104,8 +104,8 @@
 <FormalSpec>BronUnID:%String</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
+	d WLIP^vhDBG(127,"BronUnID ? "_BronUnID)
 	Set GewijzigdePRNrs = ##class(%ListOfDataTypes).%New()
-	
 	Set ProdMulti = ##class(BL.Kenm.ProdMulti).Create(..KenmerkGroep)
 	Set Status = ""
 	Set IsMaster = 0
@@ -117,9 +117,9 @@
 	}
 	
 	Do GewijzigdePRNrs.Insert(##class(BL.Kenm.ProdMulti).GetCommonID(BronUnID))
-	
+	d WLIP^vhDBG(127,"1 ? "_BronUnID)
 	Set NewUnID = ProdMulti.AddMultiple(BronUnID,.Status)
-	
+	d WLIP^vhDBG(127,"2 ? "_BronUnID)
 	If (NewUnID = ""){
 		Set ErrorMsg = "Het gegeneerde nieuwe UnID '"_NewUnID_"' voor reeds bestaande UnID '"_BronUnID_"' is niet correct."
 		Set ErrorMsg = ErrorMsg_$C(13,10)_$$ParseStatus^vhLib(Status)
@@ -131,19 +131,27 @@
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),ErrorMsg))	
 	}	
 	
-	/// Indien product een MASTER is, dan ook aan de AUTO's een KenmerkenSet toevoegen.
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	
+	/// Indien product een MASTER is, dan ook aan de AUTO's een KenmerkenSet toevoegen.
 	If (IsMaster) {	
 		Set Autos = ##class(APPS.PM.OL.MasterAutoGenerator).GeefAutosVoorMaster(NewUnID)
+		d WLIP^vhDBG(127,"Auto's ? "_Autos.Count()_ " ("_BronUnID_")")
 		Set AutoIt = ##class(TECH.ListIterator).%New(Autos)
 		While (AutoIt.HasNext()){
 			Set AutoUnID = ##class(BL.Kenm.ProdMulti).GetFullID(AutoIt.Next(),SubID)
+			d WLIP^vhDBG(127,"Auto ? "_AutoUnID)
 			If (BronUnID = AutoUnID) {
 				Set ErrorMsg = "Oneindige lus : MaakNieuweKenmerkenSet ("_UnID_") roept als Auto ("_AutoUnID_") op om opnieuw aan te maken"
 				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),ErrorMsg))		
 			}
+			
 			Set AutoGewijzigdePRNrs = ..MaakNieuweKenmerkenSet(AutoUnID)
-			Do ..AfhandelingAutoProduct(AutoUnID)
+			Set NewUnIDIt = ProductAPI.GeefProductKenmerkenSets(AutoUnID, ..KenmerkGroep).GeefKenmerkenSets()
+			While NewUnIDIt.HasNext(){
+				Set NewUnID = NewUnIDIt.Next().GeefUnID()
+				Do ..AfhandelingAutoProduct(NewUnID)
+			}					
 			Set GewijzigdePRNrs = ##class(TECH.ListUtils).CopyListOfDataTypes(AutoGewijzigdePRNrs,GewijzigdePRNrs)			
 		}
 	}
@@ -258,6 +266,7 @@
 	Set flagReadOnly=0
 	Set ListOfUnIDs = ##class(%ListOfDataTypes).%New()
 	Do ListOfUnIDs.Insert(UnID)
+	d WLIP^vhDBG(127,"AfhandelingAutoProduct : "_ListOfUnIDs.GetAt(1))
 	Set Status = ##class(APPS.PM.OL.AfgeleideKenmerkenGenerator).VerwerkProducten(ListOfUnIDs,flagReadOnly,blKenm)
 	If ($$$ISERR(Status)){
 		Set ErrorMsg = "Kon de afhandeling van auto-product '"_UnID_"' ("_..KenmerkGroep_") niet voltooien : "_$$ParseStatus^vhLib(Status)
Index: Prod/Kenmerk/DataDefinitie.cls.xml
===================================================================
diff -u -r1694 -r1722
--- Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 1694)
+++ Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 1722)
@@ -464,14 +464,19 @@
 	}Else {
 		 For i=1:1:$LL(lbGroepIDs) {
 			 	Set:($L($LG(lbGroepIDs,i))) Aantal=..DeleteViaUnIDSQL(UnID,$LG(lbGroepIDs,i)) 
-			 	Set AantalDeleted = AantalDeleted + Aantal  ; Per groep 
+			 	If '($$$ISERR(Aantal)){
+			 		Set AantalDeleted = AantalDeleted + Aantal  ; Per groep 
+			 	}Else{
+				 	d WLIP^vhDBG(	127,"FOUT DeleteViaUnID : "_$$ParseStatus^vhLib(Aantal))		
+				}
 		 }
 	}
 	Set Status = $$$OK
 	If (AantalDeleted <= 0){
 		Set ErrorMsg = "Kon kenmerken van het UnID "_UnID_" voor kenmerkgroep(en) "_$$LCVT^vhLib(lbGroepIDs)_" niet verwijderen, omdat deze niet bestaan."
 		;Set Status = $$$ERROR($$$GeneralError,ErrorMsg)
 		;Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),ErrorMsg))		
+		;Do WLIP^vhDBG(127,ErrorMsg)
 	}
 	Quit Status
 ]]></Implementation>
@@ -484,12 +489,14 @@
 <Implementation><![CDATA[
 	;New DDefID,SQLCODE
 	Set HasDeleteKenmerk = 0
+	Set Status = $$$OK
 	&sql(DECLARE crsDP CURSOR FOR 
 		SELECT ID INTO :DDefID FROM Prod_Kenmerk.DataDefinitie 
 		WHERE (UnID=:UnID) AND ((Kenmerk->Groep = :GroepID) OR (:GroepID=$$$CodeAllGroups)) )
 	&sql(OPEN crsDP)
-	For  &sql(FETCH crsDP) Quit:SQLCODE  Set HasDeleteKenmerk = 1 Do ##class(Prod.Kenmerk.DataDefinitie).%DeleteId(DDefID)
+	For  &sql(FETCH crsDP) Quit:SQLCODE  Set HasDeleteKenmerk = 1 Set Status = ##class(Prod.Kenmerk.DataDefinitie).%DeleteId(DDefID) Quit:$$$ISERR(Status)
 	&sql(CLOSE crsDP)
+	If $$$ISERR(Status) Quit Status
 	Quit HasDeleteKenmerk
 ]]></Implementation>
 </Method>
@@ -534,6 +541,7 @@
 	Quit sc
 cvpCopyGroep(FromUnID,ToUnID,GroepID,lbExcludeGroepIDs)
 	Quit:(GroepID="") $$$OK
+	
 	; ToUnID : Delete previous values if blnOverwrite
 	If blnOverwrite  Set sc=..DeleteViaUnID(ToUnID,$LB(GroepID))
 	Else  If ..Exists(ToUnID,GroepID) Set sc=$$$ERROR($$$GeneralError,$$$msgDestProdNotEmpty(ToUnID))
@@ -547,6 +555,7 @@
 	
 	For  &sql(FETCH crsCP) Quit:SQLCODE  Do  Quit:($$$ISERR(sc))
 	. If $LL($G(lbExcludeGroepIDs)) Quit:$LF(lbExcludeGroepIDs,KenmerkGroep)
+	. Do WLIP^vhDBG(127,"Prod.Kenmerk.DataDefinitie.OpenId("_DDefID_")")
 	. Set objFrom=##class(Prod.Kenmerk.DataDefinitie).OpenId(DDefID)
 	. Set objNew=objFrom.%ConstructClone(0)
 	. ;Set DDefIDNew = "381469.1||"_$Piece(DDefID,"||",2,99)