Index: APPS/PM/Maatwerk/MaatwerkModel/Modellen/MerivoboxInitializer.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/MaatwerkModel/Modellen/MerivoboxInitializer.cls.xml (revision 0)
+++ APPS/PM/Maatwerk/MaatwerkModel/Modellen/MerivoboxInitializer.cls.xml (revision 62427)
@@ -0,0 +1,27 @@
+
+
+
+APPS.PM.Maatwerk.MaatwerkModel.Modellen.Initializer
+
+
+
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.MerivoboxInitializer).%New().Alles()
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.MerivoboxInitializer).%New().Builder(Rol)
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.MerivoboxInitializer).%New().Builders()
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.MerivoboxInitializer).%New().RegistreerSpecsIndienNodig()
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.MerivoboxInitializer).%New().MaakRolEnumeratie()
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.MerivoboxInitializer).%New().MaakHalffabClassNameFactory()
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.MerivoboxInitializer).%New().IngegevenKenmerken()
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.MerivoboxInitializer).%New().ProductieWijze()
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.MerivoboxInitializer).%New().KenmerkGroepen()
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.MerivoboxInitializer).%New().KenmerkGroepVoorRol(Rol)
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.MerivoboxInitializer).%New().UpdateHalffabsVoorIngegevenKenmerkWijziging(KenmerkNaam)
+d ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.MerivoboxInitializer).%New().MaakBewerkingKenmerkGroepVoorDimensie(Dimensie)
+APPS.PM.Maatwerk.MaatwerkModel.dto.MaatwerkModel
+
+
+
+
+
+
Index: APPS/PM/Maatwerk/MaatwerkModel/Modellen/MerivoboxModel.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/MaatwerkModel/Modellen/MerivoboxModel.cls.xml (revision 0)
+++ APPS/PM/Maatwerk/MaatwerkModel/Modellen/MerivoboxModel.cls.xml (revision 62427)
@@ -0,0 +1,576 @@
+
+
+
+APPS.PM.Maatwerk.MaatwerkModel.impl.MaatwerkModelBase
+
+
+1
+1
+%Status
+1
+
+
+
+
+ SCA zoekt het uit...
+ // Do ..VoegToeEnumeratieKenmerk("UitsparingData.UitsparingCode", "UitsparingCode", "SY_Recht_M_D250_B150/SY_Recht_M_D250_B300/SY_Recht_M_D240_B160/SY_Recht_M_D240_B300", "Smal/Breed/Smal160/Breed300",,,"DOM.PM.enu.UitsparingCode")
+ Do ..VoegToeEnumeratieKenmerk("VoorWandType", "Type voorwand", "Metaal")
+ Do ..VoegToeEnumeratieKenmerk("ZijWandType", "Type zijwand", "Pure")
+
+
+ /*
+ UIT LBX-MODEL:
+ Do ..VoegToeEnumeratieKenmerk("LadeKleur", "Ladekleur", "SW-M/OG-M/INGL/TS-M/PS-M", "Zijdewit/Oriongrijs/Inox/Terrazwart/Polarzilver")
+ Do ..VoegToeEnumeratieKenmerk("BodemKleur", "Bodemkleur", "DG/WI/BZ/LG", "Donkergrijs/Wit/Bruinzwart/LichtGrijs")
+ Do ..VoegToeEnumeratieKenmerk("LadeHoogte", "Ladehoogte", "N/M/K/C/F")
+ Do ..VoegToeEnumeratieKenmerk("LadeDiepte", "Ladediepte", "270/300/350/400/450/500/550/600/650",,##class(APPS.PM.enu.DataType).Getal())
+ Do ..VoegToeBooleanKenmerk("IsBinnenlade", "Binnenlade")
+ Do ..VoegToeGetalKenmerk("InterneBreedte", "Interne breedte")
+ Do ..VoegToeEnumeratieKenmerk("RugWandMateriaal", "Materiaal rugwand", "Hout/Staal")
+ Do ..VoegToeEnumeratieKenmerk("VoorWandVerhogingHoogte", "Hoogte inschuifelement", "Hoog/Laag")
+ Do ..VoegToeEnumeratieKenmerk("VoorWandVerhogingMateriaal", "Materiaal voorwandverhoging", "DIA10", "Glas.Diamant")
+ Do ..VoegToeBooleanKenmerk("HeeftOpvullijstLinks", "Opvullijst links")
+ Do ..VoegToeBooleanKenmerk("HeeftOpvullijstRechts", "Opvullijst rechts")
+ Do ..VoegToeBooleanKenmerk("HeeftZijstabilisering", "Zijstabilisering")
+ Do ..VoegToeBooleanKenmerk("HeeftDiepteVerstelling", "Diepteverstelling")
+ Do ..VoegToeEnumeratieKenmerk("FrontBevestiging", "Frontbevestiging", "E/S/D/ET", "EXPANDO/Schroef/Drevel/EXPANDO-T")
+ Do ..VoegToeEnumeratieKenmerk("GeleiderTechnologie", "GeleiderTechnologie", "B/T/TOB", "BLUMOTION/TIP-ON/TIP-ON BLUMOTION")
+ Do ..VoegToeEnumeratieKenmerk("Draagkracht", "Draagkracht", "40/70",,##class(APPS.PM.enu.DataType).Getal())
+ Do ..VoegToeEnumeratieKenmerk("VerpakkingType", "Verpakking", "V1/Probox/VHoss/Pallet")
+ Do ..VoegToeEnumeratieKenmerk("VoorWandType", "Type voorwand", "Vulling/Reling/Voorstuk")
+ Do ..VoegToeEnumeratieKenmerk("RugHoogte", "Rughoogte", "N/M/K/C/F")
+ Do ..VoegToeEnumeratieKenmerk("OpvullijstKleur", "Kleur opvullijst", "LG/PSG/WI/S/OG", "Lichtgrijs/PlatinaZilverGrijs/Wit/Zwart/OrionGrijs")
+ Do ..VoegToeEnumeratieKenmerk("Klasse", "Klasse", "L/SP/SY", "Lade/Spoelbak/Sifon",,,,1)
+ Do ..VoegToeSamengesteldKenmerk("UitsparingData", "Uitsparingdata", "DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData", 1)
+ Do ..VoegToeGetalKenmerk("UitsparingData.RugDeelX", "Afmeting rug X")
+ Do ..VoegToeGetalKenmerk("UitsparingData.RugDeelY", "Afmeting rug Y")
+ Do ..VoegToeGetalKenmerk("UitsparingData.RugDeelZ", "Afmeting rug Z")
+ Do ..VoegToeEnumeratieKenmerk("UitsparingData.AantalUitsparingen", "Aantal uitsparingen", "Enkel/Dubbel",,,,"DOM.PM.enu.AantalUitsparingen")
+ Do ..VoegToeEnumeratieKenmerk("UitsparingData.UitsparingCode", "UitsparingCode", "SY_Recht_M_D250_B150/SY_Recht_M_D250_B300/SY_Recht_M_D240_B160/SY_Recht_M_D240_B300", "Smal/Breed/Smal160/Breed300",,,"DOM.PM.enu.UitsparingCode")
+ Do ..VoegToeEnumeratieKenmerk("ZijWandType", "Type zijwand", "Pure/Free",,,,,1)
+ Do ..VoegToeEnumeratieKenmerk("ZijWandVerhogingMateriaal", "Materiaal zijwandverhoging", "DIA10", "Glas.Diamant",,,,1)
+ Do ..VoegToeGetalKenmerk("AantalDwarsverdelingen", "Aantal dwarsverdelingen", 1)
+ Do ..VoegToeEnumeratieKenmerk("MeenemerSet", "MeenemerSet", "/V", "Zonder/VolledigeSet",,,,1)
+ */
+]]>
+
+
+
+
+
+
+
+="
+ Set Conditie.Waarde = "560"
+ Do Rol.Condities.Insert(Conditie)
+ Do ..Rollen.Insert(Rol)
+
+ Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("TiponSynchronisatieSet", "Synchronisatieset TIP-ON")
+ Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.CustomBuilderType).%New()
+ Do ..Rollen.Insert(Rol)
+
+ Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Zijstabilisering")
+ Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType).%New()
+ Set BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New()
+ Set BewerkingInfo.Aftrek = 295
+ 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()
+ Set Conditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkBooleanConditie).%New()
+ Set Conditie.BooleanIngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("HeeftZijstabilisering")
+ Do Rol.Condities.Insert(Conditie)
+ Do ..Rollen.Insert(Rol)
+
+ Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Verpakking")
+ Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.CustomBuilderType).%New()
+ 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)
+
+ Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Opvullijst")
+ Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType).%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("RugWandHouderSchroef", "Schroef rugwandhouder")
+ Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.SpecifiekProductBuilderType).%New(906180)
+ Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen()
+ Set Conditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.RolBestaatConditie).%New("RugWandHouder")
+ Do Rol.Condities.Insert(Conditie)
+ Do ..ZetSpecialeProductieWijzenOpRol(Rol, "RRWH")
+ Do ..Rollen.Insert(Rol)
+
+ Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("RugBodemSchroef", "Schroef rug-bodem")
+ Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.SpecifiekProductBuilderType).%New(113091)
+ Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen()
+ Do ..Rollen.Insert(Rol)
+
+ // Maatwerkmodel in sync brengen, fase 1 (UST815)
+ // Voorlopig custom builder. Een volgende fase kan de manueel gemaakte builders vervangen door een gegenereerde
+ // en eventuele customisatie.
+ Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("VerpakkingTussenschot", "Verpakking tussenschot")
+ Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.CustomBuilderType).%New()
+ Do ..Rollen.Insert(Rol)
+
+ // Maatwerkmodel in sync brengen, fase 1 (UST815)
+ // Voorlopig custom builder. Een volgende fase kan de manueel gemaakte builders vervangen door een gegenereerde
+ // en eventuele customisatie.
+ Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("SchroefManueleMontage", "Schroeven manuele montage")
+ Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.CustomBuilderType).%New()
+ 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(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("AantalSchroeven","%Integer",##class(APPS.PM.enu.DataType).Getal()))
+ ;Do Rol.SelectieKenmerken.Insert(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("UitsparingBreedte","%Integer",##class(APPS.PM.enu.DataType).Getal()))
+ Set Conditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkWaardeConditie).%New()
+ Set Conditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("Klasse")
+ Set Conditie.Operator = "="
+ Set Conditie.Waarde = "##class(DOM.PM.enu.LBXKlasse).Sifon()"
+ Set Rol.ProductieDocTemplate = "{Rol}, {UitsparingCode}, {PPS:LBX:Kleur:o:}, Freespositie X"
+ Do Rol.Condities.Insert(Conditie)
+ Do ..Rollen.Insert(Rol)
+
+ Set LBXFreeConditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkWaardeConditie).%New()
+ Set LBXFreeConditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("ZijWandType")
+ Set LBXFreeConditie.Operator = "="
+ Set LBXFreeConditie.Waarde = "##class(DOM.PM.enu.LBXZijWandType).Free()"
+
+ Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("InschuifElementZijkant", "Inschuifelement zijkant")
+ Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New()
+ Set Rol.BuilderType.AantalItems = 2
+ Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen()
+ Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ZijWandVerhogingMateriaal"))
+ Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeDiepte"))
+ Do Rol.Condities.Insert(LBXFreeConditie)
+ Do ..Rollen.Insert(Rol)
+
+ Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("TransportZekerheid", "Transportbeveiliging")
+ Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.SpecifiekProductBuilderType).%New(1125085)
+ Set Rol.BuilderType.AantalItems = 2
+ Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen()
+ Do Rol.Condities.Insert(LBXFreeConditie)
+ Set Conditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.RolBestaatConditie).%New("InschuifElementZijkant")
+ Do Rol.Condities.Insert(Conditie)
+ Do ..Rollen.Insert(Rol)
+
+ Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("BoxCoverVoor", "Boxcover voor")
+ Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New()
+ Set Rol.BuilderType.AantalItems = 2
+ Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen()
+ Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur"))
+ Do Rol.Condities.Insert(LBXFreeConditie)
+ Do ..Rollen.Insert(Rol)
+
+ Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("BoxCoverAchter", "Boxcover achter")
+ 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.Condities.Insert(LBXFreeConditie)
+ Do ..Rollen.Insert(Rol)
+
+ Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("AfdekkapRugWandHouder", "Afdekkap rugwandhouder")
+ 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("RugHoogte"))
+ Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ZijWandType"))
+ Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur"))
+ Do ..Rollen.Insert(Rol)
+
+ Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Dwarsverdeling", "Dwarsverdeling")
+ Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType).%New()
+ Set BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New()
+ Set BewerkingInfo.Aftrek = 90
+ 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"))
+ Set HeeftDwarsverdelingConditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkWaardeConditie).%New()
+ Set HeeftDwarsverdelingConditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("AantalDwarsverdelingen")
+ Set HeeftDwarsverdelingConditie.Operator = ">"
+ Set HeeftDwarsverdelingConditie.Waarde = "0"
+ Do Rol.Condities.Insert(HeeftDwarsverdelingConditie)
+ Do ..Rollen.Insert(Rol)
+
+ Do ..VoegToeRol(##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.LBX.Rollen.DwarsverdelingHouder).%New($this).GeefRol())
+
+ Set HeeftTiponBlumotionConditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkWaardeConditie).%New()
+ Set HeeftTiponBlumotionConditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("GeleiderTechnologie")
+ Set HeeftTiponBlumotionConditie.Operator = "="
+ Set HeeftTiponBlumotionConditie.Waarde = "##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION()"
+
+ Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("TiponBlumotionEenheid", "TIP-ON BLUMOTION eenheid")
+ 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(##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.Condities.Insert(HeeftTiponBlumotionConditie)
+ Set Rol.ProductieDocTemplate = "{Rol}, {PPS:LBX:Identificatie}, {LiRe}"
+ Do ..Rollen.Insert(Rol)
+
+ Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("TiponBlumotionMeenemer", "TIP-ON BLUMOTION meenemer")
+ Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New()
+ Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).LinksRechts()
+ Do Rol.Condities.Insert(HeeftTiponBlumotionConditie)
+ Do ..Rollen.Insert(Rol)
+
+ Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("TiponBlumotionSetEenhedenEnMeenemers", "TIP-ON BLUMOTION set eenheden en meenemers")
+ 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("Klasse"))
+ Do Rol.Condities.Insert(HeeftTiponBlumotionConditie)
+ Set Rol.ProductieDocTemplate = "{Rol}, {PPS:LBX:Identificatie}"
+ Do ..Rollen.Insert(Rol)
+
+ Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("TiponBlumotionSynchronisatieStang", "TIP-ON BLUMOTION synchronisatiestang rond")
+ Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardOfBewerktBuilderType).%New()
+ Set BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New()
+ Set BewerkingInfo.Aftrek = 247
+ 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 Rol.Condities.Insert(HeeftTiponBlumotionConditie)
+ Do ..Rollen.Insert(Rol)
+
+ Set HeeftPalletVerpakkingConditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkWaardeConditie).%New()
+ Set HeeftPalletVerpakkingConditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("VerpakkingType")
+ Set HeeftPalletVerpakkingConditie.Operator = "="
+ Set HeeftPalletVerpakkingConditie.Waarde = "##class(DOM.PM.enu.LBXVerpakkingType).Pallet()"
+
+ Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("PalletKartonvulstuk", "Pallet kartonvulstuk")
+ Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.SpecifiekProductBuilderType).%New("1108497")
+ Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen()
+ Do Rol.Condities.Insert(HeeftPalletVerpakkingConditie)
+ Do ..Rollen.Insert(Rol)
+
+ Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("PalletKartonUProfiel", "Pallet karton U-profiel")
+ Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.SpecifiekProductBuilderType).%New("1108481")
+ Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen()
+ Do Rol.Condities.Insert(HeeftPalletVerpakkingConditie)
+ Do ..Rollen.Insert(Rol)
+
+ Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("MeenemerSet", "Meenemerset bij binnenlade")
+ 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("LadeHoogte"))
+ Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("IsBinnenlade"))
+ Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("VoorWandType"))
+ Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur"))
+ Set Conditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkWaardeConditie).%New()
+ Set Conditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("IsBinnenlade")
+ Set Conditie.Operator = "="
+ Set Conditie.Waarde = "1"
+ Do Rol.Condities.Insert(Conditie)
+ Set Conditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkWaardeConditie).%New()
+ Set Conditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("VoorWandType")
+ Set Conditie.Operator = "="
+ Set Conditie.Waarde = "##class(DOM.PM.enu.LBXVoorWandType).Voorstuk()"
+ Do Rol.Condities.Insert(Conditie)
+ Set Conditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkWaardeConditie).%New()
+ Set Conditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("MeenemerSet")
+ Set Conditie.Operator = "="
+ Set Conditie.Waarde = "##class(DOM.PM.enu.LBXMeenemerSet).VolledigeSet()"
+ Do Rol.Condities.Insert(Conditie)
+ Do ..Rollen.Insert(Rol)
+ */
+]]>
+
+
+
+
+