Index: APPS/PM/Maatwerk/MaatwerkModel/Modellen/TandemboxInitializer.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/MaatwerkModel/Modellen/TandemboxInitializer.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/MaatwerkModel/Modellen/TandemboxInitializer.cls.xml	(revision 65441)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.PM.Maatwerk.MaatwerkModel.Modellen.TandemboxInitializer">
+<Super>APPS.PM.Maatwerk.MaatwerkModel.Modellen.Initializer</Super>
+
+<Method name="GeefModel">
+<Description>
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.TandemboxInitializer).%New().Alles()
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.TandemboxInitializer).%New().Builder(Rol)
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.TandemboxInitializer).%New().Builders()
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.TandemboxInitializer).%New().RegistreerSpecsIndienNodig()
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.TandemboxInitializer).%New().MaakRolEnumeratie()
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.TandemboxInitializer).%New().MaakHalffabClassNameFactory()
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.TandemboxInitializer).%New().IngegevenKenmerken()
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.TandemboxInitializer).%New().ProductieWijze()
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.TandemboxInitializer).%New().KenmerkGroepen()
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.TandemboxInitializer).%New().KenmerkGroepVoorRol(Rol)
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.TandemboxInitializer).%New().UpdateHalffabsVoorIngegevenKenmerkWijziging(KenmerkNaam)
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.TandemboxInitializer).%New().MaakBewerkingKenmerkGroepVoorDimensie(Dimensie)</Description>
+<ReturnType>APPS.PM.Maatwerk.MaatwerkModel.dto.MaatwerkModel</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.TandemboxModel).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/PM/Maatwerk/MaatwerkModel/Modellen/TandemboxModel.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/MaatwerkModel/Modellen/TandemboxModel.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/MaatwerkModel/Modellen/TandemboxModel.cls.xml	(revision 65441)
@@ -0,0 +1,327 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.PM.Maatwerk.MaatwerkModel.Modellen.TandemboxModel">
+<Super>APPS.PM.Maatwerk.MaatwerkModel.impl.MaatwerkModelBase</Super>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..VersieNrIngegevenKenmerken = 0
+	Set ..ExterneNaam = "Tandembox"
+	Set ..MaatwerkTypeCode = "TBX"
+	Set ..Familie = ##class(DOM.PM.enu.Familie).Lade()
+	Set ..Variant = ##class(DOM.PM.enu.Variant).TandemboxAntaro()
+	Set ..GenerischProductID = 675436 // OPGELET: Is generisch product voor TBX in Probox. Er zijn er nog andere
+	Set ..CategorieNaam = "Tandembox"
+	Do ..ZetSpecialeProductieWijzen("F/R/B/BR/RH/RBF/X", "Front/Rug/Bodem/Bodem en rug/Rug met houders/Bodem, rug en front/Andere onderdelen")
+	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.               //
+	//                                                                                                                                                                        //
+	////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+	
+	Do ..VoegToeBooleanKenmerk("IsBinnenlade", "Binnenlade")
+	Do ..VoegToeEnumeratieKenmerk("BodemKleur", "Bodemkleur", "WI/LG/DG/BZ", "Wit/Lichtgrijs/Donkergrijs/Terrazwart")
+	Do ..VoegToeEnumeratieKenmerk("Draagkracht", "Draagkracht", "20/30/50/65",,##class(APPS.PM.enu.DataType).Getal())
+	Do ..VoegToeGetalKenmerk("AantalDwarsverdelingen", "Aantal dwarsverdelingen")
+	Do ..VoegToeEnumeratieKenmerk("FrontBevestiging", "Frontbevestiging", "S/A/I/E/D/Z", "Schroef/AluVolkern/Inserta/Expando/Drevel/Zonder")
+	Do ..VoegToeEnumeratieKenmerk("GeleiderTechnologie", "GeleiderTechnologie", "B/T/TOB", "Blumotion/Tipon/TiponBlumotion")
+	Do ..VoegToeBooleanKenmerk("HeeftOpvullijstLinks", "Opvullijst links")
+	Do ..VoegToeBooleanKenmerk("HeeftOpvullijstRechts", "Opvullijst rechts")
+	Do ..VoegToeBooleanKenmerk("HeeftZijstabilisering", "Zijstabilisering")
+	Do ..VoegToeGetalKenmerk("InterneBreedte", "Interne breedte")
+	Do ..VoegToeEnumeratieKenmerk("LadeDiepte", "Ladediepte", "270/300/350/400/450/500/550/600/650",,##class(APPS.PM.enu.DataType).Getal())
+	Do ..VoegToeEnumeratieKenmerk("Ladehoogte", "Ladehoogte", "C/D/B/G/N/M/K/L")
+	Do ..VoegToeEnumeratieKenmerk("LadeKleur", "Ladekleur", "MG/WI/SW/BZ/OG/IN/BA/BI/AL/SA")
+	Do ..VoegToeEnumeratieKenmerk("OpvullijstKleur", "Kleur opvullijst", "LG/WI/PSG/S/OG", "Lichtgrijs/Grijs/Zwart/OrionGrijs")
+	Do ..VoegToeEnumeratieKenmerk("RugHoogte", "Rughoogte", "N/M/K/C/D/B/G/X35/X40")
+	Do ..VoegToeEnumeratieKenmerk("RugwandMateriaal", "Materiaal rugwand", "Hout/Staal")
+	Do ..VoegToeEnumeratieKenmerk("Toepassing", "Toepassing", "B/L/SP2/SY/SY2/SY3", "Buro/Lade/Spoelbak/SifonType1/SifonType2/SifonType3")
+	Do ..VoegToeSamengesteldKenmerk("UitsparingData", "Uitsparingdata", "DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData", 1)
+	Do ..VoegToeEnumeratieKenmerk("UitsparingData.UitsparingCode", "UitsparingCode", "SP_Recht_M_D300_B470/SP_Recht_M_D300_B570/SP_Recht_M_D300_B770/SP_Recht_M_D350_B470/SP_Recht_M_D350_B570/SP_Recht_M_D350_B770/SP_Recht_M_D400_B470/SP_Recht_M_D400_B570/SP_Recht_M_D400_B770/SP_Recht_M_D450_B470/SP_Recht_M_D450_B570/SP_Recht_M_D450_B770/SY_Recht_E_D240_B350", "MvxD300B470/MvxD300B570/MvxD300B770/MvxD350B470/MvxD350B570/MvxD350B770/MvxD400B470/MvxD400B570/MvxD400B770/MvxD450B470/MvxD450B570/MvxD450B770/MvxD240B350",,,"DOM.PM.enu.UitsparingCode")
+	Do ..VoegToeEnumeratieKenmerk("VerpakkingType", "Verpakking", "V1/Probox/VHoss/Pallet/Procom")
+	Do ..VoegToeEnumeratieKenmerk("ZijkantHoogte", "zijkanthoogte", "N/M/K/L")
+	Do ..VoegToeEnumeratieKenmerk("ZijwandVerhogingInschuifElementKleur", "Kleur inschuifelement zijwandverhoging", "FG8/8FZ8/AluMG/AluSW/AluBZ/ZV")
+	Do ..VoegToeEnumeratieKenmerk("ZijwandVerhogingMateriaal", "Materiaal zijwandverhoging", "Glas/Alu/ZV")
+	Do ..VoegToeEnumeratieKenmerk("ZijwandVerhogingRelingKleur", "Kleur reling zijwandverhoging", "SW/MG/BZ")
+	Do ..VoegToeEnumeratieKenmerk("ZijwandVerhogingKleur", "Kleur zijwandverhoging", "SW/MG/BZ/FG8/8FZ8/AluMG/AluSW/AluBZ/ZV")
+	Do ..VoegToeEnumeratieKenmerk("ZijwandVerhogingType", "Type zijwand", "Zonder/Reling/InschuifElement")	
+	Do ..VoegToeEnumeratieKenmerk("Designcode", "Design code", "A/B/F/I/MA/MT/S", "Antaro/Baliko/FDesign/Intivo/MengvormADesign/MengvormTDesign/StandaardDesign")
+	Do ..VoegToeEnumeratieKenmerk("GreepEnMeenemer", "Design code", "Zonder/Greep/Meenemer")
+	Do ..VoegToeEnumeratieKenmerk("ProductVerpakking", "Verpakking product", "I/V1/E/MP...")
+	Do ..VoegToeEnumeratieKenmerk("VoorwandVerhogingType", "Type voorwandverhoging", "Geen/Reling/Vulling")
+]]></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("RugHouder")
+	Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New()
+	Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).LinksRechts()
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ProductVerpakking"))
+	o Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugHoogte"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Ladehoogte"))
+	Do ..Rollen.Insert(Rol)
+	
+	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("StalenRug", "Stalen rug")
+	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("InterneBreedte","%Integer",##class(APPS.PM.enu.DataType).Getal()))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugHoogte"))
+	Do ..Rollen.Insert(Rol)
+	
+	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("RelingZijkant", "Reling zijkant")
+	Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New()
+	Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).LinksRechts()
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Designcode"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeDiepte"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ZijwandVerhogingRelingKleur"))
+	Do Rol.SelectieKenmerken.Insert(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("Opties","%String",##class(APPS.PM.enu.DataType).Tekst()))
+	Do ..Rollen.Insert(Rol)
+	
+	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Geleider")
+	Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New()
+	Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).LinksRechts()
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("GeleiderTechnologie"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ProductVerpakking"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeDiepte"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Draagkracht"))
+	Do ..Rollen.Insert(Rol)	
+	
+	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("FrontHouder")
+	Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New()
+	Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).LinksRechts()
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Designcode"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ProductVerpakking"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("VoorwandVerhogingType"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugHoogte"))
+	Do ..Rollen.Insert(Rol)
+	
+	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("FrontBevestiging")
+	Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New()
+	Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).LinksRechts()
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Ladehoogte"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("FrontBevestiging"))
+	Do ..Rollen.Insert(Rol)
+	
+	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Afdekkap")
+	Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New()
+	Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).LinksRechts()
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur"))
+	Do ..Rollen.Insert(Rol)
+	
+	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("RelingVoor", "Reling vooraan")
+	Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType).%New()
+	Set BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New()
+	Set BewerkingInfo.Aftrek = 0
+	Set BewerkingInfo.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("InterneBreedte")
+	Do BuilderType.BewerkingDimensies.SetAt(BewerkingInfo, ##class(DOM.PM.enu.BewerkingDimensie).Lengte())
+	Set Rol.BuilderType = BuilderType
+	Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen()
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ZijwandVerhogingRelingKleur"))
+	Do ..Rollen.Insert(Rol)
+	
+	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Bodemsteun")
+	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(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("IsBinnenlade"))
+	Do ..Rollen.Insert(Rol)
+	
+	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Frontplaat")
+	Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType).%New()
+	Set BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New()
+	Set BewerkingInfo.Aftrek = 0
+	Set BewerkingInfo.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("InterneBreedte")
+	Do BuilderType.BewerkingDimensies.SetAt(BewerkingInfo, ##class(DOM.PM.enu.BewerkingDimensie).Lengte())
+	Set Rol.BuilderType = BuilderType
+	Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen()
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur"))
+	Do ..Rollen.Insert(Rol)	
+	
+	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("FrontGreep")
+	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(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur"))	
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("GreepEnMeenemer"))
+	Do ..Rollen.Insert(Rol)
+	
+	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Stabilisator")
+	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(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeDiepte"))	
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugHoogte"))
+	Do ..Rollen.Insert(Rol)	
+	
+	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("LadeZijkant")
+	Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New()
+	Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).LinksRechts()
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Designcode"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ProductVerpakking"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeDiepte"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Ladehoogte"))
+	Do ..Rollen.Insert(Rol)	
+	/*
+	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("OpvulstukPalletStapeling", "Opvulstuk palletstapeling")
+	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(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeDiepte"))
+	Do ..Rollen.Insert(Rol)	
+	*/
+	
+	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Sifonkap")
+	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(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("UitsparingData.UitsparingCode"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugHoogte"))
+	Do ..Rollen.Insert(Rol)	
+	
+	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("BevestigingDwarsverdeling", "Bevestiging dwarsverdeling")
+	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(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ZijwandVerhogingRelingKleur"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugHoogte"))
+	Do ..Rollen.Insert(Rol)
+	
+	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Dwarsverdeling")
+	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(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ZijwandVerhogingRelingKleur"))
+	Do ..Rollen.Insert(Rol)
+	
+	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Opvullijst")
+	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(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("OpvullijstKleur"))
+	Do ..Rollen.Insert(Rol)
+	
+	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Bodem")
+	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(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeDiepte"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("BodemKleur"))
+	Do Rol.SelectieKenmerken.Insert(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("InterneBreedte","%Integer",##class(APPS.PM.enu.DataType).Getal()))
+	
+	Do ..Rollen.Insert(Rol)
+	
+	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Bodemstrook")
+	Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType).%New()
+	Set BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New()
+	Set BewerkingInfo.Aftrek = 0
+	Set BewerkingInfo.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("InterneBreedte")
+	Do BuilderType.BewerkingDimensies.SetAt(BewerkingInfo, ##class(DOM.PM.enu.BewerkingDimensie).Lengte())
+	Set Rol.BuilderType = BuilderType
+	Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen()
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeDiepte"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("BodemKleur"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugwandMateriaal"))
+	Do ..Rollen.Insert(Rol)	
+	
+	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Rugstrook")
+	Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType).%New()
+	Set BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New()
+	Set BewerkingInfo.Aftrek = 0
+	Set BewerkingInfo.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("InterneBreedte")
+	Do BuilderType.BewerkingDimensies.SetAt(BewerkingInfo, ##class(DOM.PM.enu.BewerkingDimensie).Lengte())
+	Set Rol.BuilderType = BuilderType
+	Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen()
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugHoogte"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("BodemKleur"))
+	Do ..Rollen.Insert(Rol)
+	
+	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("SpoelbakBinnenzijkant", "Spoelbak binnenzijkant")
+	Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New()
+	Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).LinksRechts()
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ProductVerpakking"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeDiepte"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Ladehoogte"))
+	Do Rol.SelectieKenmerken.Insert(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("AftrekBodem","%Integer",##class(APPS.PM.enu.DataType).Getal()))
+	Do ..Rollen.Insert(Rol)
+	
+	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("HoudersInschuifElement", "Houders inschuifelement")
+	Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New()
+	Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).LinksRechts()
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugHoogte"))
+	Do ..Rollen.Insert(Rol)	
+	
+	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("InschuifElement")
+	Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New()
+	Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).LinksRechts()
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Designcode"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeDiepte"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ZijwandVerhogingInschuifElementKleur"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugHoogte"))
+	Do ..Rollen.Insert(Rol)	
+	
+	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("TiponBlumotionSetEenhedenMeenemersEnAdapters", "TIP-ON BLUMOTION set eenheden, meenemers en adapters")
+	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("InterneBreedteMin","%Integer",##class(APPS.PM.enu.DataType).Getal()))
+	Do Rol.SelectieKenmerken.Insert(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("InterneBreedteMax","%Integer",##class(APPS.PM.enu.DataType).Getal()))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Ladehoogte"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeDiepte"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Draagkracht"))
+	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Toepassing"))
+	Do ..Rollen.Insert(Rol)
+	
+	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("TiponBlumotionSynchronisatieStang", "TIP-ON BLUMOTION synchronisatiestang")
+	Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardOfBewerktBuilderType).%New()
+	Set BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New()
+	Set BewerkingInfo.Aftrek = 1 //Waarde maakt niet uit, wordt gedefinieerd in .NET
+	Set BewerkingInfo.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("InterneBreedte")
+	Do BuilderType.BewerkingDimensies.SetAt(BewerkingInfo, ##class(DOM.PM.enu.BewerkingDimensie).Lengte())
+	Do Rol.SelectieKenmerken.Insert(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("InterneBreedteMin","%Integer",##class(APPS.PM.enu.DataType).Getal()))
+	Do Rol.SelectieKenmerken.Insert(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("InterneBreedteMax","%Integer",##class(APPS.PM.enu.DataType).Getal()))
+	Set Rol.BuilderType = BuilderType
+	Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen()
+	Do ..Rollen.Insert(Rol)
+	
+	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Verpakking")
+	Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType).%New()
+	Set BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New()
+	Set BewerkingInfo.Aftrek = 1 //Waarde maakt niet uit, wordt gedefinieerd in .NET
+	Set BewerkingInfo.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("InterneBreedte")
+	Do BuilderType.BewerkingDimensies.SetAt(BewerkingInfo, ##class(DOM.PM.enu.BewerkingDimensie).Lengte())
+	Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen()
+	Set Rol.BuilderType = BuilderType
+	Do Rol.SelectieKenmerken.Insert(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("Samenstelling","DOM.PM.Verpakking.enu.KartonSamenstelling",##class(APPS.PM.enu.DataType).Tekst(),1))
+	Do Rol.SelectieKenmerken.Insert(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("Kartonbreedte","%Integer",##class(APPS.PM.enu.DataType).Getal(),1))
+	Do ..Rollen.Insert(Rol)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>