Index: APPS/PM/OL/MasterAutoGenerator.cls.xml
===================================================================
diff -u -r1133 -r1507
--- APPS/PM/OL/MasterAutoGenerator.cls.xml	(.../MasterAutoGenerator.cls.xml)	(revision 1133)
+++ APPS/PM/OL/MasterAutoGenerator.cls.xml	(.../MasterAutoGenerator.cls.xml)	(revision 1507)
@@ -102,6 +102,57 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefMasterProdKM">
+<ReturnType>APPS.PM.OL.ProductKenmerken</ReturnType>
+<Implementation><![CDATA[	Quit ..MasterProdKM
+]]></Implementation>
+</Method>
+
+<Method name="GeefKTPatroonFactory">
+<ReturnType>KortTekstPatroonFactory</ReturnType>
+<Implementation><![CDATA[	Quit ..KTPatroonFactory
+]]></Implementation>
+</Method>
+
+<Method name="GeefAutosVoorMaster">
+<Description>
+JBL + 2011-06-21
+Geef voor het opgegeven UnID of PRNr de AUTO's
+indien het opgegeven UnID of PRNr een MASTER is.</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>UnID:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	
+	Set Varianten = ##class(%ListOfDataTypes).%New()
+	
+	Set BLProdMulti=##class(BL.Kenm.ProdMulti).Create($$$KenmerkGroepID)
+	Set MasterAutoGenerator=##class(APPS.PM.OL.MasterAutoGenerator).%New(BLProdMulti)
+	
+	Set KTPatroonFactory = MasterAutoGenerator.GeefKTPatroonFactory()
+	Set KTPatroonFactory=##class(KortTekstPatroonFactory).%New()
+	
+	Set MasterProdKM = MasterAutoGenerator.GeefProductKenmerken(UnID)
+	
+	Do MasterAutoGenerator.PrefetchKenmerkWaardeMappings()
+	
+	// Opzoeken van de varianten (= gelijkaardige OL-producten) en de master-kenmerken kopïeren + ev. aanpassen van Foto/Tekst-sleutels 
+	Set $ZTRAP = "Catch"
+	Set Varianten = MasterProdKM.GeefVarianten()
+	If ('$IsObject(Varianten) && $$$ISERR(Varianten)){
+		Do ##class(vhLib.Logger).%New("APPS.PM.OL").ErrorMail("Geen varianten/auto's gevonden.",$$ParseStatus^vhLib(Varianten))	
+		Set Varianten = ##class(%ListOfDataTypes).%New()
+	}
+	GoTo Finally
+Catch
+	Do ##class(vhLib.Logger).%New("APPS.PM.OL").ErrorMail("Geen varianten/auto's gevonden.",$$ParseStatus^vhLib(Varianten))	
+	Set $ECODE = ""
+	Set Varianten = ##class(%ListOfDataTypes).%New()
+Finally
+	Quit Varianten
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 /*
@@ -142,7 +193,6 @@
 <Method name="PrefetchKenmerkWaardeMappings">
 <Description>
 Prefetch all KenmerkWaardeMappings (for better performance) </Description>
-<Private>1</Private>
 <Implementation><![CDATA[
 	Set rs=##class(%ResultSet).%New("APPS.PM.OL.KenmerkWaardeMap:Extent")
 	Do rs.Execute()
@@ -180,7 +230,6 @@
 
 <Method name="GeefProductKenmerken">
 <FormalSpec>UnID:%String</FormalSpec>
-<Private>1</Private>
 <ReturnType>APPS.PM.OL.ProductKenmerken</ReturnType>
 <Implementation><![CDATA[
 	Set LijnID="UnID="_UnID