Index: APPS/PM/Maatwerk/MaatwerkModel/Modellen/RevegoModel.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/MaatwerkModel/Modellen/RevegoModel.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/MaatwerkModel/Modellen/RevegoModel.cls.xml	(revision 69063)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.PM.Maatwerk.MaatwerkModel.Modellen.RevegoModel">
+<Super>APPS.PM.Maatwerk.MaatwerkModel.impl.MaatwerkModelBase</Super>
+
+<Method name="%OnNew">
+<Description>
+Dit model wordt voorlopig enkel gebruikt om het selectiekenmerk aan te maken voor het plaatmateriaal. Dit is op deze manier om een
+vrij tekstveld in Vhintra aan te maken voor het selectiekenmerk "Kleur"</Description>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..VersieNrIngegevenKenmerken = 0
+	Set ..ExterneNaam = "Revego"
+	Set ..MaatwerkTypeCode = "RVG"
+	Set ..Familie = ##class(DOM.PM.enu.Familie).Meubel()
+	Set ..Variant = ##class(DOM.PM.enu.Variant).Revego()
+	Set ..CategorieNaam = "Revego"
+	Quit ##super()
+]]></Implementation>
+</Method>
+
+<Method name="BepaalIngegevenKenmerken">
+<Implementation><![CDATA[
+	////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+	//                                                                                                                                                                        //
+	//  OPGELET: ALS JE DE OPTIE ".Alles()" OF "IngegevenKenmerken()" VAN DE "MerivoboxInitializer" GEBRUIKT, WORDEN VIA DEZE LIJST DE KENMERKEN AANGEMAAKT/OVERSCHREVEN !!!  //
+	//  DEZE LIJST IS ECHTER OOK NODIG VOOR DE DEFINITIE VAN DE ROLLEN (zie: BepaalRollen).                                                                                   //
+	//  DOE DAT MET DE OPTIE "KenmerkGroepen()" OF "KenmerkGroepVoorRol" VAN DE "MerivoboxInitializer" OM DE KENMERKEN DAARBIJ NIET AAN TE MAKEN/OVERSCHRIJVEN.               //
+	//                                                                                                                                                                        //
+	////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+]]></Implementation>
+</Method>
+
+<Method name="BepaalIngegevenKenmerkenStorage">
+<Implementation><![CDATA[	// N/A
+]]></Implementation>
+</Method>
+
+<Method name="BepaalRollen">
+<Implementation><![CDATA[
+	// ROLLEN:
+	
+	////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+	//                                                                                                                                                                        //
+	//  OPGELET: Bij sommige rollen staan condities en productid's en bij andere weer niet. Het is pas in 2e fase gebleken dat deze niet nodig zijn omdat dit toch allemaal   //
+	//  in .NET wordt gedefinieerd, cache heeft hier niets aan.                                                                                								  //
+	//                                                                                                                                                                        //
+	////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+	
+	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Plaatmateriaal", "Plaatmateriaal")
+	Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New()
+	Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen()
+	Do Rol.SelectieKenmerken.Insert(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("Kleur","%String",##class(APPS.PM.enu.DataType).Tekst()))
+	Do ..Rollen.Insert(Rol)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/PM/Maatwerk/MaatwerkModel/Modellen/RevegoInitializer.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/MaatwerkModel/Modellen/RevegoInitializer.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/MaatwerkModel/Modellen/RevegoInitializer.cls.xml	(revision 69063)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.PM.Maatwerk.MaatwerkModel.Modellen.RevegoInitializer">
+<Super>APPS.PM.Maatwerk.MaatwerkModel.Modellen.Initializer</Super>
+
+<Method name="GeefModel">
+<Description>
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.RevegoInitializer).%New().Alles()
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.RevegoInitializer).%New().Builder(Rol)
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.RevegoInitializer).%New().Builders()
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.RevegoInitializer).%New().RegistreerSpecsIndienNodig()
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.RevegoInitializer).%New().MaakRolEnumeratie()
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.RevegoInitializer).%New().MaakHalffabClassNameFactory()
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.RevegoInitializer).%New().IngegevenKenmerken()
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.RevegoInitializer).%New().ProductieWijze()
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.RevegoInitializer).%New().KenmerkGroepen()
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.RevegoInitializer).%New().KenmerkGroepVoorRol(Rol)
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.RevegoInitializer).%New().UpdateHalffabsVoorIngegevenKenmerkWijziging(KenmerkNaam)
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.RevegoInitializer).%New().MaakBewerkingKenmerkGroepVoorDimensie(Dimensie)</Description>
+<ReturnType>APPS.PM.Maatwerk.MaatwerkModel.dto.MaatwerkModel</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.RevegoModel).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>