TECH.Error 1 DOM.PM.impl.MaatwerkProductImpl,DOM.PM.TBXProduct.TBXLade right DOM.PM.TBXProduct.TBXReling 1 DOM.PM.TBXProduct.TBXReling 1 DOM.PM.TBXProduct.TBXBodem 1 DOM.PM.TBXProduct.TBXRug 1 %Boolean %Boolean %Boolean %Boolean %Boolean %Boolean %Boolean %Boolean %Boolean %Boolean %Boolean %Boolean %Boolean %Boolean %Boolean 0) } Quit BevatOpvullijst ]]> %Boolean 0) } Quit BevatOpvullijst ]]> %Boolean %Boolean %Boolean %Boolean %Boolean %Boolean %Boolean %Boolean Bevat adapterstuk. Dit moet op een gewone reling geschroefd worden om zo te dienen als tussenreling. %Boolean %Boolean %Boolean %Boolean %Boolean TBXOnderdeel:DOM.PM.Product,Tandembox:DOM.PM.TBXProduct.TBXLade 1 %String Controleer TandemBOX-kenmerken (TB - BasisType). " _$$$CRLF_Tandembox_" "_TBXOnderdeel ]]> %Boolean %Integer %Integer %Integer DOM.PM.enu.TBXAntislipmat %Boolean %String %Boolean %Boolean %Boolean DOM.PM.TBXProduct.TBXRug 1 %String DOM.PM.TBXProduct.TBXBodem DOM.PM.enu.TBXBodemBewerking %Integer DOM.PM.enu.TBXBlumotion DOM.PM.enu.TBXBoxsideKleur Glas is geen boxside element Quit BoxsideKleur ]]> %Integer %Integer %String DOM.PM.enu.TBXFrontBevestiging %String %Integer DOM.PM.enu.TBXFrontOndersteuningType 0) { Set FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).FrontStabilisator() } ElseIf (..GeefFrontOndersteuningAantal() > 0) { Set FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).FrontSteun() } Quit FrontOndersteuningType ]]> %Float DOM.PM.enu.TBXDwarsverdeling DOM.PM.enu.Familie Geeft Lade of BinnenLade DOM.PM.enu.TBXLadeType %Float %Float %Float %String %Float %String DOM.PM.TBXProduct.TBXReling %String %String %Integer DOM.PM.enu.TBXRugHoogte %Integer 1 ProductId:%String %Boolean SPF.RUGX35 R-STR2840 LGDG 1 %String SPF.RUG35DG RSTR2800 LGDG (Donkergrijs voor OG-M zijkant) 1 %String SPF.RUGX40 R-STR2840 BZWI 1 %String DOM.PM.enu.TBXUittrekbaarheid DOM.PM.enu.TBXVerpakking %String DOM.PM.enu.TBXRugwandMateriaal DOM.PM.enu.TBXZijkantHoogte DOM.PM.TBXProduct.TBXReling DOM.PM.enu.LadeVariant DOM.PM.enu.TBXVoorwandVerhogingType DOM.PM.enu.TBXVoorwandVerhogingMateriaal DOM.PM.enu.TBXVoorwandVerhogingKleur %Integer DOM.PM.enu.TBXZijwandVerhogingKleur DOM.PM.enu.TBXZijwandVerhogingMateriaal 1) { Set Prefix = $Piece(KVKenmerk,".",1) If (Prefix = "ALU") { Set ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium() } ElseIf (Prefix = "LE") { Set ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Leder() } ElseIf (Prefix = "H") { Set ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Hout() } Else { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Ongeldige waarde voor TBXZijwandVerhogingMateriaal ("_Prefix_")")) } } Else { // Zonder prefix Set ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas() } } Else { Set ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Geen() } Quit ZijwandVerhogingMateriaal ]]> DOM.PM.enu.TBXZijwandVerhogingType %Integer DOM.PM.enu.TBXZijkantDesign DOM.PM.enu.TBXLadeKleur DOM.PM.enu.TBXLadehoogte DOM.PM.enu.TBXOpvullijstKleur %Boolean %Boolean %Boolean Key:%String 1 Beginpatroon:%String 1 %String TECH.ListIterator ELEMENTTYPE="DOM.PM.Bouwstenen.BouwsteenKind"