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) + */ +]]> + + + + +