Index: APPS/PM/Maatwerk/MaatwerkModel/Modellen/MerivoboxModel.cls.xml =================================================================== diff -u -r69856 -r71118 --- APPS/PM/Maatwerk/MaatwerkModel/Modellen/MerivoboxModel.cls.xml (.../MerivoboxModel.cls.xml) (revision 69856) +++ APPS/PM/Maatwerk/MaatwerkModel/Modellen/MerivoboxModel.cls.xml (.../MerivoboxModel.cls.xml) (revision 71118) @@ -159,13 +159,20 @@ 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() + Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen() 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("AfdekkapRugWandHouderVerlaagdeRug", "Afdekkap rugwandhouder verlaagde rug") + Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New() + Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen() + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeHoogte")) + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("RugHoogte")) + Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur")) + Do ..Rollen.Insert(Rol) + Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("BevestigingBodemFront", "Bevestiging bodem-front") Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderTypeZonderSelectiekenmerk).%New() // Vroeger was dit ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.SpecifiekProductBuilderType).%New(69056) maar hierdoor wordt een selectiekenmerk aangemaakt , is niet wat we willen Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen() @@ -194,18 +201,12 @@ Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeDiepte")) Do ..Rollen.Insert(Rol) - Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("BoxcoverAchter", "Boxcover achteraan") + Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Boxcover") Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New() Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).LinksRechts() Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur")) Do ..Rollen.Insert(Rol) - Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("BoxcoverVoor", "Boxcover vooraan") - Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New() - Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).LinksRechts() - Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur")) - Do ..Rollen.Insert(Rol) - Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("Dwarsverdeling", "Dwarsverdeling") Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType).%New() Set BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New() @@ -538,6 +539,19 @@ Do ..ZetSpecialeProductieWijzenOpRol(Rol, "F") Do ..Rollen.Insert(Rol) + Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("PbxOverdoos", "Probox Overdoos") + Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New() + Do ..Rollen.Insert(Rol) + + Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("PbxDeksel", "Probox Deksel") + Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New() + Do ..Rollen.Insert(Rol) + + Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("PbxOnderdelendoos", "Probox Onderdelendoos") + Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New() + 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()