Index: APPS/PM/KenmerkenService.cls.xml
===================================================================
diff -u -r2064 -r2140
--- APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 2064)
+++ APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 2140)
@@ -27,9 +27,13 @@
 </Property>
 
 <Method name="GeefAutoVariantenVanMasters">
-<FormalSpec>MasterUnIDs:%ListOfDataTypes</FormalSpec>
+<FormalSpec>MasterUnIDs:%ListOfDataTypes,KenmerkGroep:%String</FormalSpec>
 <ReturnType>APPS.PM.dto.Kenm.AutoVariantenVanMasters</ReturnType>
 <Implementation><![CDATA[
+	If '..HeeftProdMulti(KenmerkGroep){
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Deze kenmerkgroep '"_KenmerkGroep_"' bevat geen masters of auto's."))	
+	}
+	
 	Set AutoVariantenVanMasters = ##class(APPS.PM.dto.Kenm.AutoVariantenVanMasters).%New()
 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	Set ProductService = ##class(APPS.PM.ProductService).%New()
@@ -132,7 +136,8 @@
 				 /// Nagaan of dit record nog bij vorige hoort.
 			 	If (tmpUnID '= UnID || (tmpKenmerkGroep '= KenmerkGroep)) {
 				 	Set ProductKenmerkenSet = ##class(APPS.PM.dto.Kenm.ProductKenmerkenSet).%New()	 				
-					Set ProductKenmerkenSet.UnID = UnID	 	 				 	 
+					Set ProductKenmerkenSet.UnID = UnID	 
+					Set ProductKenmerkenSet.ProductID = PRNr	 				 	 
 					/// GeneratieType
 					Set ProductKenmerkenSet.GeneratieType = ..GeefGeneratieType(UnID)
 					
@@ -384,6 +389,10 @@
 	$$$chkRequiredParameter(UnIDs)
 	$$$chkIsObject(UnIDs)
 	
+	If '..HeeftProdMulti(KenmerkGroep){
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Deze kenmerkgroep '"_KenmerkGroep_"' bevat geen masters of auto's."))	
+	}
+	
 	/// Scope ophalen
 	Set OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
 	
@@ -424,6 +433,10 @@
 	$$$chkRequiredParameter(UnIDs)
 	$$$chkIsObject(UnIDs)
 	
+	If '..HeeftProdMulti(KenmerkGroep){
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Deze kenmerkgroep '"_KenmerkGroep_"' bevat geen masters of auto's."))	
+	}
+	
 	/// Scope ophalen
 	Set OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
 	
@@ -494,5 +507,17 @@
 	Quit GeneratieType
 ]]></Implementation>
 </Method>
+
+<Method name="HeeftProdMulti">
+<FormalSpec>KenmerkGroep:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set HeeftProdMulti = 0
+	&SQL( select Count(1) Into :HeeftProdMulti from Prod_Kenmerk.MetaDefinitie where Groep = :KenmerkGroep and Kenmerk = 'ProdMulti' )
+	Set:(HeeftProdMulti > 1) HeeftProdMulti = 1
+	Quit HeeftProdMulti
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: DOM/common/dto/ProductData.cls.xml
===================================================================
diff -u -r2084 -r2140
--- DOM/common/dto/ProductData.cls.xml	(.../ProductData.cls.xml)	(revision 2084)
+++ DOM/common/dto/ProductData.cls.xml	(.../ProductData.cls.xml)	(revision 2140)
@@ -5,10 +5,6 @@
 <Super>%RegisteredObject,%XML.Adaptor</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Property name="ClassificatieID">
-<Type>%String</Type>
-</Property>
-
 <Property name="Code">
 <Type>%String</Type>
 </Property>
@@ -21,12 +17,20 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="Korttekst">
+<Type>%String</Type>
+</Property>
+
 <Property name="Omschrijving">
 <Type>%String</Type>
 </Property>
 
 <Property name="Classificatie">
 <Type>DOM.common.dto.ClassificatieData</Type>
 </Property>
+
+<Property name="ProductAfbeeldingen">
+<Type>APPS.PM.dto.ProductAfbeeldingen</Type>
+</Property>
 </Class>
 </Export>
Index: APPS/common/DataService.cls.xml
===================================================================
diff -u -r2084 -r2140
--- APPS/common/DataService.cls.xml	(.../DataService.cls.xml)	(revision 2084)
+++ APPS/common/DataService.cls.xml	(.../DataService.cls.xml)	(revision 2140)
@@ -89,7 +89,6 @@
 	Set ProductData.IdentNr = Product.GeefIdentNr()
 	Set ProductData.Omschrijving = Product.GeefLangtekst("N")
 	Set ProductData.Classificatie = ..GeefClassificatieData(ProductAPI.GeefProductClassificatie(ProductID).GeefClassificatie().GeefID())
-	Set ProductData.ClassificatieID = ProductData.Classificatie.ID
 	
 	Quit ProductData
 ]]></Implementation>
Index: vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml
===================================================================
diff -u -r2064 -r2140
--- vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml	(.../TestKenmerkenService.cls.xml)	(revision 2064)
+++ vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml	(.../TestKenmerkenService.cls.xml)	(revision 2140)
@@ -83,10 +83,11 @@
 <Implementation><![CDATA[
 	Do ..OnAfterAllTests()
 	Do ..OnBeforeAllTests()
+	Set KenmerkGroep = "OL"
 	Set KenmerkenService = ##class(APPS.PM.KenmerkenService).%New()
 	Set MasterUnIDs = ##class(%ListOfDataTypes).%New()
 	Do MasterUnIDs.Insert(1018)
-	Set AutoVariantenVoorMasters = KenmerkenService.GeefAutoVariantenVanMasters(MasterUnIDs)
+	Set AutoVariantenVoorMasters = KenmerkenService.GeefAutoVariantenVanMasters(MasterUnIDs,KenmerkGroep)
 	
 	Do $$$AssertTrue($IsObject(AutoVariantenVoorMasters),"Het resultaat werd teruggegeven")
 	Do $$$AssertEquals(AutoVariantenVoorMasters.Count(),1,"Er zit 1 item in")
@@ -97,12 +98,28 @@
 	Do $$$AssertEquals(AutoVariantenVoorMaster.MasterUnID,1018,"De UnID is ingevuld")
 	Do $$$AssertEquals(AutoVariantenVoorMaster.AutoVarianten.Count(),3,"Er zijn 3 auto's gevonden") 
 	
-	Do $$$AssertEquals(AutoVariantenVoorMaster.AutoVarianten.GetAt(1).PRNr,1019,"De eerste auto")
-	Do $$$AssertEquals(AutoVariantenVoorMaster.AutoVarianten.GetAt(2).PRNr,1020,"De tweede auto")
-	Do $$$AssertEquals(AutoVariantenVoorMaster.AutoVarianten.GetAt(3).PRNr,1021,"De derde auto")
+	Do $$$AssertEquals(AutoVariantenVoorMaster.AutoVarianten.GetAt(1).ID,1019,"De eerste auto")
+	Do $$$AssertEquals(AutoVariantenVoorMaster.AutoVarianten.GetAt(2).ID,1020,"De tweede auto")
+	Do $$$AssertEquals(AutoVariantenVoorMaster.AutoVarianten.GetAt(3).ID,1021,"De derde auto")
 ]]></Implementation>
 </Method>
 
+<Method name="TestGeefFoutieveAutosVoorMaster">
+<Implementation><![CDATA[
+	Do ..OnAfterAllTests()
+	Do ..OnBeforeAllTests()
+	Set KenmerkGroep = "OEI"
+	Set KenmerkenService = ##class(APPS.PM.KenmerkenService).%New()
+	Set MasterUnIDs = ##class(%ListOfDataTypes).%New()
+	Do MasterUnIDs.Insert(1018)
+	Set $ZTRAP = "Catch"
+	Set AutoVariantenVoorMasters = KenmerkenService.GeefAutoVariantenVanMasters(MasterUnIDs,KenmerkGroep)
+Catch Set $ZTRAP = ""
+	Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	Do $$$AssertEquals(Exception.GeefOmschrijving(),"Deze kenmerkgroep 'OEI' bevat geen masters of auto's.","Foutieve kenmerkgroep voor auto's is gedetecteerd.")
+]]></Implementation>
+</Method>
+
 <Method name="TestGeefProdKenmPRNrsKenmGroep">
 <Implementation><![CDATA[
 	Set KenmerkenService = ##class(APPS.PM.KenmerkenService).%New()
@@ -563,6 +580,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestFoutieveVerwijderKenmSets">
+<Description>
+Test met foutieve kenmerkgroep</Description>
+<Implementation><![CDATA[
+	Set KenmerkenService = ##class(APPS.PM.KenmerkenService).%New()
+	Set KenmerkGroep = "OEI"
+	
+	Set UnIDs = ##class(%ListOfDataTypes).%New()
+	Do UnIDs.Insert("1003.2")
+	
+	Set $ZTRAP = "CatchVerwijder"
+	
+	Set GewijzigdePRNrs = KenmerkenService.VerwijderKenmerkenSets(KenmerkGroep,UnIDs)		
+	
+CatchVerwijder Set $ZTRAP = ""
+	Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	Do $$$AssertEquals(Exception.GeefOmschrijving(),"Deze kenmerkgroep 'OEI' bevat geen masters of auto's.","Foutieve kenmerkgroep voor verwijderen kenmerken sets is gedetecteerd.")
+]]></Implementation>
+</Method>
+
 <Method name="TestVerwijderKenmerkenSets2">
 <Description>
 Test het verwijderen van een kenmerkenset, waardoor er nog twee multiple kenmerkensets overschieten.
@@ -650,5 +687,26 @@
 	Do $$$AssertEquals(Sets.Count(),2,"Er zijn twee multiple producten aanwezig voor PRNr 1023")
 ]]></Implementation>
 </Method>
+
+<Method name="TestMaakFoutieveNieuweKenmSets">
+<Description>
+Testen op fout indien geen correcte kenmerkengroep is meegegeven voor sets te creeren</Description>
+<Implementation><![CDATA[
+	Set KenmerkenService = ##class(APPS.PM.KenmerkenService).%New()
+	Set KenmerkGroep = "OEI"
+	Set KenmerkGroepen = ##class(%ListOfDataTypes).%New()
+	Do KenmerkGroepen.Insert(KenmerkGroep)
+	
+	Set UnIDs = ##class(%ListOfDataTypes).%New()
+	Do UnIDs.Insert(1022)
+	Do UnIDs.Insert(1023)
+	
+	Set $ZTRAP = "CatchMaak"
+	Set GewijzigdePRNrs = KenmerkenService.MaakNieuweKenmerkenSets(KenmerkGroep,UnIDs)
+CatchMaak Set $ZTRAP = ""
+	Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	Do $$$AssertEquals(Exception.GeefOmschrijving(),"Deze kenmerkgroep 'OEI' bevat geen masters of auto's.","Foutieve kenmerkgroep voor aanmaken van kenmerken sets is gedetecteerd.")
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: WS/PM/KenmerkenService.cls.xml
===================================================================
diff -u -r2131 -r2140
--- WS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 2131)
+++ WS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 2140)
@@ -19,14 +19,15 @@
 </Parameter>
 
 <Method name="GeefAutoVariantenVanMasters">
-<FormalSpec>MasterUnIDs:%ListOfDataTypes</FormalSpec>
+<FormalSpec>MasterUnIDs:%ListOfDataTypes,KenmerkGroep:%String</FormalSpec>
 <ReturnType>APPS.PM.dto.Kenm.AutoVariantenVanMasters</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	$$$TECHErrorTrapOn
 	$$$chkRequiredParameter(MasterUnIDs)
+	$$$chkRequiredParameter(KenmerkGroep)
 	$$$chkIsObject(MasterUnIDs)
-	Set Result = ##class(APPS.PM.KenmerkenService).%New().GeefAutoVariantenVanMasters(MasterUnIDs)
+	Set Result = ##class(APPS.PM.KenmerkenService).%New().GeefAutoVariantenVanMasters(MasterUnIDs, KenmerkGroep)
 	$$$TECHErrorTrapOff
 	Quit Result
 ]]></Implementation>
Index: APPS/PM/dto/ProductIDsControleResult.cls.xml
===================================================================
diff -u -r1073 -r2140
--- APPS/PM/dto/ProductIDsControleResult.cls.xml	(.../ProductIDsControleResult.cls.xml)	(revision 1073)
+++ APPS/PM/dto/ProductIDsControleResult.cls.xml	(.../ProductIDsControleResult.cls.xml)	(revision 2140)
@@ -11,7 +11,7 @@
 </Property>
 
 <Property name="HerkendeProducten">
-<Type>APPS.PM.dto.ProductIDs</Type>
+<Type>DOM.common.dto.ProductData</Type>
 <Collection>list</Collection>
 </Property>
 </Class>
Index: vhUnitTest/APPS/PM/TestProductService.cls.xml
===================================================================
diff -u -r1820 -r2140
--- vhUnitTest/APPS/PM/TestProductService.cls.xml	(.../TestProductService.cls.xml)	(revision 1820)
+++ vhUnitTest/APPS/PM/TestProductService.cls.xml	(.../TestProductService.cls.xml)	(revision 2140)
@@ -221,7 +221,7 @@
 	Set ProductIt = ##class(TECH.ListIterator).%New(ProductenLijst)
 	While (ProductIt.HasNext()){		
 		Set ProductID =  ProductIt.Next()		
-		Set Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductID.PRNr)
+		Set Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductID.ID)
 		Set Multiples = Product.GeefMultiples()
 		Set MultipleIt = ##class(TECH.ListIterator).%New(Multiples)
 		While (MultipleIt.HasNext()){
@@ -237,7 +237,7 @@
 						Set JuistType = 1
 					}
 				}
-				Do $$$AssertTrue(JuistType,"Het product "_ProductID.PRNr_" heeft een juist generatietype.")
+				Do $$$AssertTrue(JuistType,"Het product "_ProductID.ID_" heeft een juist generatietype.")
 			}
 		}
 	}
@@ -374,19 +374,19 @@
 	
 	Set HerkendeProducten = ProductIDsControleResult.HerkendeProducten
 	
-	Do $$$AssertEquals(HerkendeProducten.GetAt(1).PRNr,137136,"PRNr 137136 van eerste herkend product is corrrect.")
+	Do $$$AssertEquals(HerkendeProducten.GetAt(1).ID,137136,"PRNr 137136 van eerste herkend product is corrrect.")
 	Do $$$AssertEquals(HerkendeProducten.GetAt(1).Korttekst,"BAN.4.BU 2072x681x587  EV","Korttekst 'BAN.4.BU 2072x681x587  EV' van eerste product is corrrect.")
 	Do $$$AssertEquals(HerkendeProducten.GetAt(1).IdentNr,"9.371.360.1","IdentNr '9.371.360.1' van eerste product is corrrect.")
 	
-	Do $$$AssertEquals(HerkendeProducten.GetAt(2).PRNr,411830,"PRNr 411830 van tweede herkend product is corrrect.")
+	Do $$$AssertEquals(HerkendeProducten.GetAt(2).ID,411830,"PRNr 411830 van tweede herkend product is corrrect.")
 	Do $$$AssertEquals(HerkendeProducten.GetAt(2).Korttekst,"SD1.PH   BU 400X1","Korttekst 'SD1.PH   BU 400X1' van tweede product is corrrect.")
 	Do $$$AssertEquals(HerkendeProducten.GetAt(2).IdentNr,"9.118.303.4","IdentNr '9.118.303.4' van tweede product is corrrect.")
 	
-	Do $$$AssertEquals(HerkendeProducten.GetAt(3).PRNr,647511,"PRNr 647511 van derde herkend product is corrrect.")
+	Do $$$AssertEquals(HerkendeProducten.GetAt(3).ID,647511,"PRNr 647511 van derde herkend product is corrrect.")
 	Do $$$AssertEquals(HerkendeProducten.GetAt(3).Korttekst,"RAI.U10BU  VERZ","RAI.U10BU  VERZ' van derde product is corrrect.")
 	Do $$$AssertEquals(HerkendeProducten.GetAt(3).IdentNr,"9.475.114.6","IdentNr '9.475.114.6' van derde product is corrrect.")
 	
-	Do $$$AssertEquals(HerkendeProducten.GetAt(4).PRNr,166448,"PRNr 166448 van vierde herkend product is corrrect.")
+	Do $$$AssertEquals(HerkendeProducten.GetAt(4).ID,166448,"PRNr 166448 van vierde herkend product is corrrect.")
 	Do $$$AssertEquals(HerkendeProducten.GetAt(4).Korttekst,"BAN.4.GB912x1922x1174  EV","Korttekst 'BAN.4.GB912x1922x1174  EV' van vierde product is corrrect.")
 	Do $$$AssertEquals(HerkendeProducten.GetAt(4).IdentNr,"9.664.481.1","IdentNr '9.664.481.1' van vierde product is corrrect.")
 ]]></Implementation>
@@ -433,7 +433,7 @@
 	
 	Do $$$AssertEquals(ProductIDsControleResult.NietHerkendeProductIDs.Count(),0,"Er zijn geen niet herkende producten")
 	Set HerkendeProducten = ProductIDsControleResult.HerkendeProducten
-	Do $$$AssertEquals(HerkendeProducten.GetAt(1).PRNr,"380928","PRNr 380928 van product is corrrect.")
+	Do $$$AssertEquals(HerkendeProducten.GetAt(1).ID,"380928","PRNr 380928 van product is corrrect.")
 	Do $$$AssertEquals(HerkendeProducten.GetAt(1).Omschrijving,"Cuisio-Flex inzet set van 4 stuks ","Omschrijving van product is corrrect.")
 ]]></Implementation>
 </Method>
@@ -453,9 +453,9 @@
 	Do $$$AssertEquals(ProductIDsControleResult.NietHerkendeProductIDs.Count(),0,"Er zijn geen niet herkende producten")
 	Set HerkendeProducten = ProductIDsControleResult.HerkendeProducten
 	Do $$$AssertEquals(HerkendeProducten.Count(),2,"Er zijn twee producten gevonden.")
-	Do $$$AssertEquals(HerkendeProducten.GetAt(1).PRNr,"380928","PRNr 380928 van product is corrrect.")
-	Do $$$AssertEquals(HerkendeProducten.GetAt(1).ClassificatieID,"1190","ClassificatieID van product is corrrect.")
-	Do $$$AssertEquals(HerkendeProducten.GetAt(2).PRNr,"398706","PRNr 398706 van product is corrrect.")
+	Do $$$AssertEquals(HerkendeProducten.GetAt(1).ID,"380928","PRNr 380928 van product is corrrect.")
+	Do $$$AssertEquals(HerkendeProducten.GetAt(1).Classificatie.ID,"1190","ClassificatieID van product is corrrect.")
+	Do $$$AssertEquals(HerkendeProducten.GetAt(2).ID,"398706","PRNr 398706 van product is corrrect.")
 ]]></Implementation>
 </Method>
 
@@ -465,19 +465,19 @@
 <Implementation><![CDATA[
 	Do $$$AssertEquals(HerkendeProducten.Count(),4,"Er zijn vier producten herkend")
 	
-	Do $$$AssertEquals(HerkendeProducten.GetAt(1).PRNr,1000,"PRNr 1000 van eerste herkend product is corrrect.")
+	Do $$$AssertEquals(HerkendeProducten.GetAt(1).ID,1000,"PRNr 1000 van eerste herkend product is corrrect.")
 	Do $$$AssertEquals(HerkendeProducten.GetAt(1).Korttekst,"OL.UTPROD00","Korttekst OL.UTPROD00 van eerste product is corrrect.")
 	Do $$$AssertEquals(HerkendeProducten.GetAt(1).IdentNr,"0.123.450.0","IdentNr 0.123.450.0 van eerste product is corrrect.")
 	
-	Do $$$AssertEquals(HerkendeProducten.GetAt(2).PRNr,1002,"PRNr 1002 van tweede herkend product is corrrect.")
+	Do $$$AssertEquals(HerkendeProducten.GetAt(2).ID,1002,"PRNr 1002 van tweede herkend product is corrrect.")
 	Do $$$AssertEquals(HerkendeProducten.GetAt(2).Korttekst,"OL.UTPROD02","Korttekst OL.UTPROD02 van tweede product is corrrect.")
 	Do $$$AssertEquals(HerkendeProducten.GetAt(2).IdentNr,"0.123.450.2","IdentNr 0.123.450.2 van tweede product is corrrect.")
 	
-	Do $$$AssertEquals(HerkendeProducten.GetAt(3).PRNr,1005,"PRNr 1005 van derde herkend product is corrrect.")
+	Do $$$AssertEquals(HerkendeProducten.GetAt(3).ID,1005,"PRNr 1005 van derde herkend product is corrrect.")
 	Do $$$AssertEquals(HerkendeProducten.GetAt(3).Korttekst,"OL.UTPROD05","Korttekst OL.UTPROD02 van derde product is corrrect.")
 	Do $$$AssertEquals(HerkendeProducten.GetAt(3).IdentNr,"0.123.450.5","IdentNr 0.123.450.5 van derde product is corrrect.")
 	
-	Do $$$AssertEquals(HerkendeProducten.GetAt(4).PRNr,1003,"PRNr 1003 van vierde herkend product is corrrect.")
+	Do $$$AssertEquals(HerkendeProducten.GetAt(4).ID,1003,"PRNr 1003 van vierde herkend product is corrrect.")
 	Do $$$AssertEquals(HerkendeProducten.GetAt(4).Korttekst,"OL.UTPROD03","Korttekst OL.UTPROD03 van vierde product is corrrect.")
 	Do $$$AssertEquals(HerkendeProducten.GetAt(4).IdentNr,"0.123.450.3","IdentNr 0.123.450.3 van vierde product is corrrect.")
 ]]></Implementation>
Index: vhUnitTest/common/TestDataService.cls.xml
===================================================================
diff -u -r2084 -r2140
--- vhUnitTest/common/TestDataService.cls.xml	(.../TestDataService.cls.xml)	(revision 2084)
+++ vhUnitTest/common/TestDataService.cls.xml	(.../TestDataService.cls.xml)	(revision 2140)
@@ -72,7 +72,7 @@
 	Do $$$AssertEquals(ProductData.Code,"358M2702I  Z LI   V20IG/G","De product code")
 	Do $$$AssertEquals(ProductData.IdentNr,"0.234.930.0","De ident nr")
 	Do $$$AssertEquals(ProductData.Omschrijving,"Tandembox PLUS ladeprofiel links, staal, 270mm diep","De omschrijving")
-	Do $$$AssertEquals(ProductData.ClassificatieID,"409","De classificatie id")
+	Do $$$AssertEquals(ProductData.Classificatie.ID,"409","De classificatie id")
 	Do $$$AssertTrue($IsObject(ProductData.Classificatie),"De classificatie is ingesteld")
 ]]></Implementation>
 </Method>
Index: APPS/PM/dto/Kenm/ProductKenmerkenSet.cls.xml
===================================================================
diff -u -r1562 -r2140
--- APPS/PM/dto/Kenm/ProductKenmerkenSet.cls.xml	(.../ProductKenmerkenSet.cls.xml)	(revision 1562)
+++ APPS/PM/dto/Kenm/ProductKenmerkenSet.cls.xml	(.../ProductKenmerkenSet.cls.xml)	(revision 2140)
@@ -13,6 +13,11 @@
 <Required>1</Required>
 </Property>
 
+<Property name="ProductID">
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
 <Property name="UnID">
 <Type>%String</Type>
 <Required>1</Required>
Index: vhConsistency/Checks/MastersVarianten.cls.xml
===================================================================
diff -u -r1834 -r2140
--- vhConsistency/Checks/MastersVarianten.cls.xml	(.../MastersVarianten.cls.xml)	(revision 1834)
+++ vhConsistency/Checks/MastersVarianten.cls.xml	(.../MastersVarianten.cls.xml)	(revision 2140)
@@ -16,6 +16,7 @@
 	
 	Set KenmerkenService = ##class(APPS.PM.KenmerkenService).%New()
 	Set MasterUnIDLijst = ##class(%ListOfDataTypes).%New()
+	Set KenmerkGroep = "OL"
 	
 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	Set ProductIterator = ProductAPI.GeefProductIterator()
@@ -25,9 +26,9 @@
 		Set PRNr = Product.GeefPRNr()
 		
 		Set ProductKenmerken = ProductAPI.GeefProductKenmerken(PRNr)
-		If (ProductKenmerken.HeeftKenmerkGroep("OL"))
+		If (ProductKenmerken.HeeftKenmerkGroep(KenmerkGroep))
 		{
-			Set ProductKenmerkenSets = ProductKenmerken.GeefProductKenmerkenSets("OL")
+			Set ProductKenmerkenSets = ProductKenmerken.GeefProductKenmerkenSets(KenmerkGroep)
 			Set KenmerkenSetsIterator = ProductKenmerkenSets.GeefProductKenmerkenSetIterator()
 			If (KenmerkenSetsIterator.HasNext())
 			{
@@ -36,12 +37,12 @@
 				/// Wijzigingen die binnen deze method lopen zullen echter niet in de bulk event komen, maar zullen allemaal single events zijn.
 				If ((ProductKenmerkenSet.GeefKenmerkWaarden("GeneratieType").GetAt(1) = ##class(APPS.PM.enu.GeneratieType).Master())) {
 			 		Do MasterUnIDLijst.Insert(PRNr)
-			 		Set AutoVariantenLijst = KenmerkenService.GeefAutoVariantenVanMasters(MasterUnIDLijst).GetAt(1).AutoVarianten
+			 		Set AutoVariantenLijst = KenmerkenService.GeefAutoVariantenVanMasters(MasterUnIDLijst,KenmerkGroep).GetAt(1).AutoVarianten
 			 		Set AutoVariantenIterator = ##class(TECH.ListIterator).%New(AutoVariantenLijst)
 			 		While (AutoVariantenIterator.HasNext())
 			 		{
 				 		Set AutoVariantPRNr = AutoVariantenIterator.Next().PRNr
-				 		Set ProductKenmerkenSetsAuto = ProductAPI.GeefProductKenmerken(PRNr).GeefProductKenmerkenSets("OL")
+				 		Set ProductKenmerkenSetsAuto = ProductAPI.GeefProductKenmerken(PRNr).GeefProductKenmerkenSets(KenmerkGroep)
 				 		
 				 		If (ProductKenmerkenSets.GeefAantalSets() '= ProductKenmerkenSetsAuto.GeefAantalSets())
 				 		{
Index: APPS/PM/ProductService.cls.xml
===================================================================
diff -u -r1935 -r2140
--- APPS/PM/ProductService.cls.xml	(.../ProductService.cls.xml)	(revision 1935)
+++ APPS/PM/ProductService.cls.xml	(.../ProductService.cls.xml)	(revision 2140)
@@ -302,12 +302,12 @@
 				While(ProductIDIt.HasNext()){
 					Set ProductIDs = ProductIDIt.Next()
 					If ($IsObject(ProductIDs)){
-						If (PRNr = ProductIDs.PRNr){
+						If (PRNr = ProductIDs.ID){
 							Set ReedsToegevoegd = 0
 							Set It = ##class(TECH.ListIterator).%New(ProductenLijst.HerkendeProducten)
 							While It.HasNext() {
 								Set ProductID = It.Next()
-								If ProductID.PRNr = ProductIDs.PRNr {
+								If ProductID.ID = ProductIDs.ID {
 									Set ReedsToegevoegd = 1
 								}	
 							}
@@ -417,22 +417,24 @@
 
 <Method name="Product2ProductIDs">
 <FormalSpec>Product:DOM.PM.Product</FormalSpec>
-<ReturnType>APPS.PM.dto.ProductIDs</ReturnType>
+<ReturnType>DOM.common.dto.ProductData</ReturnType>
 <Implementation><![CDATA[
-	Set ProductZoekResultaat = ##class(APPS.PM.dto.ProductIDs).%New()
+	Set ProductZoekResultaat = ##class(DOM.common.dto.ProductData).%New()
  	Set ProductZoekResultaat.IdentNr = Product.GeefIdentNr()
  	Set ProductZoekResultaat.Korttekst = Product.GeefKorttekst()
- 	Set ProductZoekResultaat.PRNr = Product.GeefPRNr()
+ 	Set ProductZoekResultaat.ID = Product.GeefPRNr()
  	Set ProductZoekResultaat.Omschrijving = Product.GeefOmschrijving()
  
  	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
- 	Set ProductZoekResultaat.ClassificatieID = ProductAPI.GeefProductClassificatie(ProductZoekResultaat.PRNr).GeefClassificatie().GeefID()
+ 	Set DataService = ##class(APPS.common.DataService).%New()
+ 	Set ClassificatieData = DataService.GeefClassificatieData(ProductAPI.GeefProductClassificatie(ProductZoekResultaat.ID).GeefClassificatie().GeefID())
+ 	Set ProductZoekResultaat.Classificatie = ClassificatieData
  	
     /// Als het een gewoon product is (geen orgalux), foto ophalen via Prod.ImageLink
- 	If (##class(BL.Prod.ImageLink).HasImage(ProductZoekResultaat.PRNr)){
+ 	If (##class(BL.Prod.ImageLink).HasImage(ProductZoekResultaat.ID)){
      	Set ProductZoekResultaat.ProductAfbeeldingen = ##class(APPS.PM.dto.ProductAfbeeldingen).%New()
-    	Set ProductZoekResultaat.ProductAfbeeldingen.VoorOpScherm = ##class(BL.Prod.ImageLink).%New().GetProductImageURL(ProductZoekResultaat.PRNr,"PRINT")
-    	Set ProductZoekResultaat.ProductAfbeeldingen.Thumbnail = ##class(BL.Prod.ImageLink).%New().GetProductImageURL(ProductZoekResultaat.PRNr,"THUMBNAIL")
+    	Set ProductZoekResultaat.ProductAfbeeldingen.VoorOpScherm = ##class(BL.Prod.ImageLink).%New().GetProductImageURL(ProductZoekResultaat.ID,"PRINT")
+    	Set ProductZoekResultaat.ProductAfbeeldingen.Thumbnail = ##class(BL.Prod.ImageLink).%New().GetProductImageURL(ProductZoekResultaat.ID,"THUMBNAIL")
     }
     Quit ProductZoekResultaat
 ]]></Implementation>
Index: APPS/PM/dto/Kenm/AutoVariantenVanMaster.cls.xml
===================================================================
diff -u -r1735 -r2140
--- APPS/PM/dto/Kenm/AutoVariantenVanMaster.cls.xml	(.../AutoVariantenVanMaster.cls.xml)	(revision 1735)
+++ APPS/PM/dto/Kenm/AutoVariantenVanMaster.cls.xml	(.../AutoVariantenVanMaster.cls.xml)	(revision 2140)
@@ -14,7 +14,7 @@
 </Property>
 
 <Property name="AutoVarianten">
-<Type>APPS.PM.dto.ProductIDs</Type>
+<Type>DOM.common.dto.ProductData</Type>
 <Collection>list</Collection>
 </Property>