APPS.PM.Maatwerk.MaatwerkModel.impl.MaatwerkModelBase 1 1 %Status 1 IS NOG VAN LBX !!! Van toepassing voor MVX ??? // Fase 2 (later): opkuis LadeHoogte als selectiekenmerk + vanaf dan storage van het halffab aanpassen na hergeneratie => IS NOG VAN LBX !!! Van toepassing voor MVX ??? Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("BodemKleur")) // Voor houten ruggen Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeHoogte")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugWandMateriaal")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur")) // Voor stalen ruggen Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("InterneBreedte", 0)) // Voor stalen ruggen. Geen bitmap index voor InterneBreedte. Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugHoogte")) 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.StandaardBuilderTypeZonderSelectiekenmerk).%New() // Vroeger was dit ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.SpecifiekProductBuilderType).%New(113091) maar hierdoor wordt een selectiekenmerk aangemaakt , is niet wat we willen 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("RugWandHouder", "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("LadeKleur")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeHoogte")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugHoogte")) Do Rol.SelectieKenmerken.Insert(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("AantalSchroeven","%Integer",##class(APPS.PM.enu.DataType).Tekst())) Set Rol.ProductieDocTemplate = "{Rol}, {LadeKleur}, {PPS:MVX:ZijkantHoogte}, {LiRe}" Set Conditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkWaardeConditie).%New() Set Conditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("RugWandMateriaal") Set Conditie.Operator = "=" Set Conditie.Waarde = "##class(DOM.PM.enu.MVXRugWandMateriaal).Hout()" Do Rol.Condities.Insert(Conditie) 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.StandaardBuilderTypeZonderSelectiekenmerk).%New() // Vroeger was dit ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.SpecifiekProductBuilderType).%New(906180) maar hierdoor wordt een selectiekenmerk aangemaakt , is niet wat we willen 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") // Voorlopig in comment gezet, wegens (nog) onbestaande ProductieWijze Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("SchroefManueleMontage", "SchroefManueleMontage") Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderTypeZonderSelectiekenmerk).%New() //Vroeger was dit ##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("SchroefManueleMontage") Do Rol.Condities.Insert(Conditie) 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())) Set Conditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkWaardeConditie).%New() Set Conditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("Toepassing") Set Conditie.Operator = "=" Set Conditie.Waarde = "##class(DOM.PM.enu.MVXToepassing).Sifon()" Set Rol.ProductieDocTemplate = "{Rol}, {UitsparingCode}, {PPS:MVX:Kleur:o:}, Freespositie X" Do Rol.Condities.Insert(Conditie) Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("SpoelbakBinnenRugwandHouder") Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderTypeZonderSelectiekenmerk).%New() Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).LinksRechts() Set Conditie1 = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkWaardeConditie).%New() Set Conditie1.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("RugWandMateriaal") Set Conditie1.Operator = "=" Set Conditie1.Waarde = "##class(DOM.PM.enu.MVXRugWandMateriaal).Hout()" Set Conditie2 = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkWaardeConditie).%New() Set Conditie2.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("Toepassing") Set Conditie2.Operator = "=" Set Conditie2.Waarde = "##class(DOM.PM.enu.MVXToepassing).Spoelbak()" Do Rol.Condities.Insert(Conditie1) Do Rol.Condities.Insert(Conditie2) Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("SpoelbakBinnenZijkant") Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderTypeZonderSelectiekenmerk).%New() Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).LinksRechts() Set Conditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("Toepassing") Set Conditie.Operator = "=" Set Conditie.Waarde = "##class(DOM.PM.enu.MVXToepassing).Spoelbak()" Do Rol.Condities.Insert(Conditie) Do ..Rollen.Insert(Rol) 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.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Toepassing")) Do Rol.Condities.Insert(HeeftTiponBlumotionConditie) Set Rol.ProductieDocTemplate = "{Rol}, {PPS:MVX:Identificatie}, {LiRe}" Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("TiponBlumotionSetEenhedenEnMeenemers", "TIP-ON BLUMOTION set eenehden 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("Toepassing")) Do ..Rollen.Insert(Rol) Set Rol.ProductieDocTemplate = "{Rol}, {PPS:MVX: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 = 250 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 Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Tussenstuk") 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("BodemKleur")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeHoogte")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("UitsparingData.UitsparingCode")) Set Conditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("Toepassing") Set Conditie.Operator = "=" Set Conditie.Waarde = "##class(DOM.PM.enu.MVXToepassing).Spoelbak()" Do Rol.Condities.Insert(Conditie) Do ..Rollen.Insert(Rol) //Deze rol moet achter Tussenstuk pas worden toegevoegd omdat er blijkbaar een of andere ongekende dependency bestaat Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("TiponBlumotionAdapter", "TIP-ON BLUMOTION adapter") Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderTypeZonderSelectiekenmerk).%New() //Vroeger was dit ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.SpecifiekProductBuilderType).%New(1096952) Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen() Set Conditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.RolBestaatConditie).%New("TiponBlumotionSynchronisatieStang") Do Rol.Condities.Insert(Conditie) 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 ..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) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Voorstuk") Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType).%New() Set BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New() Set BewerkingInfo.Aftrek = 126 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 Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeHoogte")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("VoorwandType")) Do Rol.Condities.Insert(BinnenladeConditie) Set Rol.ProductieDocTemplate = "{Rol}, {LadeKleur}, voor lade met: {VoorwandType}" Do ..ZetSpecialeProductieWijzenOpRol(Rol, "F") Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Zijstabilisering", "Zijstabilisering") Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderTypeZonderSelectiekenmerk).%New() // Vroeger was dit ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.SpecifiekProductBuilderType).%New(113091) maar hierdoor wordt een selectiekenmerk aangemaakt , is niet wat we willen Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen() Do ..Rollen.Insert(Rol) /* UIT LBX-MODEL: Set BinnenladeConditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkBooleanConditie).%New() Set BinnenladeConditie.BooleanIngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("IsBinnenlade") Set NietBinnenladeConditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkBooleanConditie).%New() Set NietBinnenladeConditie.BooleanIngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("IsBinnenlade") Set NietBinnenladeConditie.InverteerConditie = 1 Set CLadeConditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkWaardeConditie).%New() Set CLadeConditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("LadeHoogte") Set CLadeConditie.Operator = "=" Set CLadeConditie.Waarde = "##class(DOM.PM.enu.LBXLadeHoogte).C()" Set MLadeConditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkWaardeConditie).%New() Set MLadeConditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("LadeHoogte") Set MLadeConditie.Operator = "=" Set MLadeConditie.Waarde = "##class(DOM.PM.enu.LBXLadeHoogte).M()" Set LaagGlasConditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkWaardeConditie).%New() Set LaagGlasConditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("VoorWandVerhogingHoogte") Set LaagGlasConditie.Operator = "=" Set LaagGlasConditie.Waarde = "##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Laag()" Set VoorwandIsVullingConditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkWaardeConditie).%New() Set VoorwandIsVullingConditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("VoorWandType") Set VoorwandIsVullingConditie.Operator = "=" Set VoorwandIsVullingConditie.Waarde = "##class(DOM.PM.enu.LBXVoorWandType).Vulling()" Set VoorwandIsRelingConditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkWaardeConditie).%New() Set VoorwandIsRelingConditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("VoorWandType") Set VoorwandIsRelingConditie.Operator = "=" Set VoorwandIsRelingConditie.Waarde = "##class(DOM.PM.enu.LBXVoorWandType).Reling()" Set COfMMetVulling = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.OfConditie).%New(CLadeConditie, ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.EnConditie).%New(MLadeConditie, VoorwandIsVullingConditie)) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Bodem") Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType).%New() Set BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New() Set BewerkingInfo.Aftrek = 35 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")) Set Rol.ProductieDocTemplate = "{Rol}, {BodemKleur}, {LadeDiepte}mm, voor rug: {RugWandMateriaal}" Do ..ZetSpecialeProductieWijzenOpRol(Rol, "B/BR") Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Rug") Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardOfBewerktBuilderType).%New() Set BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New() Set BewerkingInfo.Aftrek = 38 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() // Fase 1 RugHoogte: toevoegen als extra selectiekenmerk, ladehoogte laten staan // Fase 2 (later): opkuis LadeHoogte als selectiekenmerk + vanaf dan storage van het halffab aanpassen na hergeneratie Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("BodemKleur")) // Voor houten ruggen Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeHoogte")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugWandMateriaal")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur")) // Voor stalen ruggen Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("InterneBreedte", 0)) // Voor stalen ruggen. Geen bitmap index voor InterneBreedte. Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugHoogte")) Do ..ZetSpecialeProductieWijzenOpRol(Rol, "R/BR/RRWH") Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("RugWandHouder", "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("LadeKleur")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeHoogte")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugHoogte")) Do Rol.SelectieKenmerken.Insert(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("AantalSchroeven","%Integer",##class(APPS.PM.enu.DataType).Tekst())) Set Rol.ProductieDocTemplate = "{Rol}, {LadeKleur}, {PPS:LBX:ZijkantHoogte}, {LiRe}" Set Conditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkWaardeConditie).%New() Set Conditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("RugWandMateriaal") Set Conditie.Operator = "=" Set Conditie.Waarde = "##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()" Do Rol.Condities.Insert(Conditie) Do ..ZetSpecialeProductieWijzenOpRol(Rol, "RRWH") Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("LadeZijkant", "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("LadeDiepte")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeHoogte")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ZijWandType")) 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("LadeDiepte")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("Draagkracht")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("GeleiderTechnologie")) Set Rol.ProductieDocTemplate = "{Rol}, {LadeDiepte}mm, {PPS:LBX:Draagkracht}kg, {GeleiderTechnologie}, {LiRe}" Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("FrontBevestiging", "Frontbevestiging") 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(##class(APPS.PM.Maatwerk.MaatwerkModel.dto.InfoVoorBuilderSelectiekenmerk).%New("AantalNodig","%Integer",##class(APPS.PM.enu.DataType).Tekst())) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("FrontBevestiging")) Do Rol.Condities.Insert(NietBinnenladeConditie) Set Rol.ProductieDocTemplate = "{Rol}, {PPS:LBX:Hoogte}, {FrontBevestiging}" Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("AfdekkapBinnen", "Afdekkap binnenkant") 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.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeHoogte")) Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("AfdekkapBuiten", "Afdekkap buitenkant") 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")) Set Rol.ProductieDocTemplate = "{Rol}, {PPS:LBX:Kleur}{PPS:LBX:Opdruk:o:, Opdruk }" Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Voorstuk") Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType).%New() Set BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New() Set BewerkingInfo.Aftrek = 127 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 Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeHoogte")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("VoorWandType")) Do Rol.Condities.Insert(BinnenladeConditie) Set Rol.ProductieDocTemplate = "{Rol}, {LadeKleur}, voor lade met: {VoorWandType}" Do ..ZetSpecialeProductieWijzenOpRol(Rol, "F") Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("AdapterStuk", "Adapterstuk") 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(BinnenladeConditie) Do Rol.Condities.Insert(CLadeConditie) Do Rol.Condities.Insert(LaagGlasConditie) Do Rol.Condities.Insert(VoorwandIsVullingConditie) Do ..ZetSpecialeProductieWijzenOpRol(Rol, "F") Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("AfdekkapFrontHouderBuiten", "Afdekkap fronthouder, buitenkant") 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("LadeKleur")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("VoorWandType")) Do Rol.Condities.Insert(BinnenladeConditie) Do ..ZetSpecialeProductieWijzenOpRol(Rol, "F") Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("AfdekkapFrontHouderBinnen", "Afdekkap fronthouder, binnenkant") 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("LadeKleur")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("VoorWandType")) Do Rol.Condities.Insert(BinnenladeConditie) Do Rol.Condities.Insert(COfMMetVulling) Do ..ZetSpecialeProductieWijzenOpRol(Rol, "F") Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("FrontHouder", "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("LadeHoogte")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("VoorWandType")) Do Rol.Condities.Insert(BinnenladeConditie) Set Rol.ProductieDocTemplate = "{Rol}, {LadeHoogte}, voor lade met: {VoorWandType}, {LiRe}" Do ..ZetSpecialeProductieWijzenOpRol(Rol, "F") Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("InschuifElementVoor", "Inschuifelement front") Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardOfBewerktBuilderType).%New() Set BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New() Set BewerkingInfo.Aftrek = 80 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("VoorWandVerhogingMateriaal")) Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("VoorWandVerhogingHoogte")) 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.Condities.Insert(BinnenladeConditie) Do Rol.Condities.Insert(VoorwandIsVullingConditie) Do ..ZetSpecialeProductieWijzenOpRol(Rol, "F") Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("RelingVoor", "Frontreling") 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")) Do Rol.Condities.Insert(BinnenladeConditie) Do Rol.Condities.Insert(CLadeConditie) Do Rol.Condities.Insert(VoorwandIsRelingConditie) Do ..ZetSpecialeProductieWijzenOpRol(Rol, "F") Do ..Rollen.Insert(Rol) Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("TiponSynchronisatieStang", "Synchronisatiestang TIP-ON") Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType).%New() Set BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New() Set BewerkingInfo.Aftrek = 229 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.IngegevenKenmerkWaardeConditie).%New() Set Conditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("GeleiderTechnologie") Set Conditie.Operator = "=" Set Conditie.Waarde = "##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPON()" Do Rol.Condities.Insert(Conditie) Set Conditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkWaardeConditie).%New() Set Conditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("InterneBreedte") Set Conditie.Operator = ">=" 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) // 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) */ ]]>