Index: DOM/PM/impl/TBXLangtekstCreator.cls.xml
===================================================================
diff -u
--- DOM/PM/impl/TBXLangtekstCreator.cls.xml	(revision 0)
+++ DOM/PM/impl/TBXLangtekstCreator.cls.xml	(revision 65451)
@@ -0,0 +1,413 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.impl.TBXLangtekstCreator">
+<Super>DOM.PM.impl.LangtekstCreator,DOM.PM.Maatwerk.TBX.impl.Base</Super>
+
+<Property name="IngegevenKenmerkenTypeApi">
+<Type>DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IngegevenKenmerkenApi">
+<Type>DOM.PM.IngegevenKenmerkenAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OnderdeelTekstBepaler">
+<Type>DOM.PM.impl.Langtekst.MVXEnkelOnderdeelTekstBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="UitsparingTekstFormatter">
+<Type>DOM.PM.Maatwerk.MVX.impl.UitsparingTekstFormatter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DomNaarDotNetConvertor">
+<Type>DOTNET.PM.Maatwerk.Converter.DomNaarDotnet.TbxKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="UitsparingData">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>IngegevenKenmerkenTypeApi:DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI="",IngegevenKenmerkenApi:DOM.PM.IngegevenKenmerkenAPI="",OnderdeelTekstBepaler:DOM.PM.impl.Langtekst.MVXEnkelOnderdeelTekstBepaler="",DomNaarDotNetConvertor:DOTNET.PM.Maatwerk.Converter.DomNaarDotnet.TbxKenmerken=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerkenTypeApi = $$$Inject(IngegevenKenmerkenTypeApi, ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI())
+	Set ..IngegevenKenmerkenApi = $$$Inject(IngegevenKenmerkenTypeApi, ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenAPI())
+	Set ..OnderdeelTekstBepaler = $$$Inject(OnderdeelTekstBepaler, ##class(DOM.PM.impl.Langtekst.MVXEnkelOnderdeelTekstBepaler).%New())
+	Set ..UitsparingTekstFormatter = ##class(DOM.PM.Maatwerk.TBX.impl.UitsparingTekstFormatter).%New()
+	Set ..DomNaarDotNetConvertor = $$$Inject(DomNaarDotNetConvertor, ##class(DOTNET.PM.Maatwerk.Converter.DomNaarDotnet.TbxKenmerken).%New())
+	Set ..DomNaarDotNetConvertor.IngegevenKenmerken = ..IngegevenKenmerken
+	Set ..UitsparingData = ..DomNaarDotNetConvertor.GeefUitsparingData()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BepaalHoofding">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..LangtekstHoofding = ..LangtekstHoofding _ ##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.LadeCode",..IngegevenKenmerken.LegacyKenmerken.ItemLT, ..Taal)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeBasisGegevens">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Paragraaf As TECH.String
+	
+	If (..IsSpoelbaklade() || ..IsSifonlade()) {
+		Do ..VoegToeLangtekstParagraaf(..GeefDimensieTekst())
+		
+		Set UitsparingTekstFormatterInput = ##class(DOM.PM.Maatwerk.impl.UitsparingTekstFormatterInput).%New()
+		Set UitsparingTekstFormatterInput.UitsparingData = ..UitsparingData
+		Set UitsparingTekstFormatterInput.Taal = ..Taal
+		Set UitsparingTekstFormatterInput.MetUitlegTekst = $$$True
+		Set UitsparingTekstFormatterInput.IsSpoelbak = ..IsSpoelbaklade()
+		
+		Set Paragraaf = ..UitsparingTekstFormatter.GeefFormattedTekstBreedte(UitsparingTekstFormatterInput)
+	} Else {
+		Set Paragraaf = ..GeefDimensieTekst()
+	}
+	
+	Set Paragraaf = Paragraaf _ ..GeefBodemTekst()
+	Set Paragraaf = Paragraaf _ ..GeefDesignTekst()
+		
+	Set Paragraaf = Paragraaf _ ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("Bevat") _ ": " _ ..Vertaler.GeefVertaling("GemonteerdeLade")
+	
+	Set Paragraaf = Paragraaf _ ..GeefStalenRugTekst()
+	Set Paragraaf = Paragraaf _ ..GeefGeleiderTekst()
+	
+	Set Paragraaf = Paragraaf _ ..GeefZijwandTekst()
+	Set Paragraaf = Paragraaf _ ..GeefZijstabiliseringTekst()
+	Set Paragraaf = Paragraaf _ ..GeefFrontBevestigingTekst()
+	;Set Paragraaf = Paragraaf _ ..GeefGekoppeldeMatTekst() // Wordt hogerop  in het framework toegevoegd? ->IKApi verwijderen in properties 
+	Set Paragraaf = Paragraaf _ ..GeefFrontSteuntTekst() //Nog goed testen want er is slechts voor 2 vd 3 een vertaleing	Set Paragraaf = Paragraaf _ ..GeefAfdekkapTekst()
+	Set Paragraaf = Paragraaf _ ..GeefAfdekkapTekst()
+	Set Paragraaf = Paragraaf _ ..GeefOpvullijstTekst()
+	Set Paragraaf = Paragraaf _ ..GeefDwarsverdelingTekst()
+	Set Paragraaf = Paragraaf _ ..GeefGreepBinnenladeTekst() //Nog af te werken
+	Set Paragraaf = Paragraaf _ ..GeefVerlaagdeRugTekst()
+	Set Paragraaf = Paragraaf _ ..GeefOnvolledigeProductiewijzeTekst()
+
+	Do ..VoegToeLangtekstParagraaf(Paragraaf)	
+	Do ..VoegToeLangtekstParagraaf(..GeefVerpakkingTekst())
+]]></Implementation>
+</Method>
+
+<Method name="IsSpoelbaklade">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..IngegevenKenmerkenTypeApi.IsSpoelbaklade(..IngegevenKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="IsSifonlade">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..IngegevenKenmerkenTypeApi.IsSifonlade(..IngegevenKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="IsAfwijkendeRugHoogte">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$$Not(..IngegevenKenmerken.LadeHoogte = ..IngegevenKenmerken.RugHoogte)
+]]></Implementation>
+</Method>
+
+<Method name="HeeftStalenRug">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..IngegevenKenmerken.RugwandMateriaal = ..Enum.RugwandMateriaal.Staal)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBodemTekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim BodemTekst As TECH.String = ""
+	#dim IsPlaatMateriaalKlant As %Boolean = ($E(..IngegevenKenmerken.PlaatMateriaal) = "K")
+	
+	If (IsPlaatMateriaalKlant) {
+		Set BodemTekst = ##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.PlaatMat", ..IngegevenKenmerken.PlaatMateriaal, ..Taal)
+	} Else {
+		Set BodemTekst = ##class(Prod.GAMeta.BT.TBBodemKleur).TaalAfhOmsClass("", ..IngegevenKenmerken.BodemKleur, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+	}
+	
+	Quit ..#KenmerkSeparator _ BodemTekst
+]]></Implementation>
+</Method>
+
+<Method name="GeefDesignTekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim DesignTekst As TECH.String = ""
+	
+	Set DesignTekst = ..Vertaler.GeefVertaling("Zijkant", "", $$$True) _ ":" _ ##class(Prod.GAMeta.BT.TBLadeKleur).TaalAfhOmsClass("", ..IngegevenKenmerken.LadeKleur, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+	Set DesignTekst = DesignTekst _ ..#KenmerkSeparator
+	Set DesignTekst = DesignTekst _	##class(Prod.GAMeta.BT.TBDesignCode).TaalAfhOmsClass("", ..IngegevenKenmerken.LegacyKenmerken.ItemDC, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+	
+	Quit ..#KenmerkSeparator _ DesignTekst
+]]></Implementation>
+</Method>
+
+<Method name="GeefStalenRugTekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim StalenRugTekst As TECH.String = ""
+	
+	If (..HeeftStalenRug()) {
+		Set StalenRugTekst = ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBStalenRug).TaalAfhOmsClass("", ..IngegevenKenmerken.LadeKleur, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+	}
+	
+	Quit StalenRugTekst
+]]></Implementation>
+</Method>
+
+<Method name="GeefGeleiderTekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim GeleiderTekst As TECH.String = ""
+	
+	If (##class(TECH.ListUtils).Contains(..IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.Geleider)) {
+		Set GeleiderTekst = ..#KenmerkSeparator	_ ..Vertaler.GeefVertaling("Geleider") _ " " _ ..GeefDraagkrachtTekst()
+		Set GeleiderTekst = GeleiderTekst _ ..#KenmerkSeparator	_##class(Prod.GAMeta.BT.TBBlumotion).TaalAfhOmsClass("", ..IngegevenKenmerken.LegacyKenmerken.ItemBM, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+		
+		/*
+		If (..IngegevenKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).TiponBlumotion()) {
+			Set TOBInfoBepaler = ##class(DOM.PM.impl.TBXLangtekstCreator.TOBInfoBepaler).%New(..Taal)
+			Set GeleiderTekst = GeleiderTekst _ " " _ TOBInfoBepaler.BepaalTOBInfo()
+		}
+		*/
+		
+		//@@@@@@@@@@@@@@@@@@@@@ TO DO PVR @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+		
+	}
+	 
+	Set GeleiderTekst = GeleiderTekst _ ..#KenmerkSeparator _ ##class(DOM.PM.enu.MVXGeleiderTechnologie).LogicalToDisplay(..IngegevenKenmerken.GeleiderTechnologie)
+
+	Quit GeleiderTekst
+]]></Implementation>
+</Method>
+
+<Method name="GeefZijwandTekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim ZijwandTekst As %String = ""		
+	
+	If (((..IngegevenKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).InschuifElement()) && $$$Not(..IsInschuifElementNietMeegeleverd()))
+			|| ((..IngegevenKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling()) && $$$Not(..IsRelingNietMeegeleverd()))) {
+		Set ZijwandTekst = ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBBoxSide).TaalAfhOmsClass("", ..IngegevenKenmerken.ZijwandVerhogingType, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+		
+		If (..IngegevenKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).InschuifElement()) {
+			Set ZijwandTekst = ZijwandTekst _ " " _ ##class(Prod.GAMeta.BT.TBVulstukKleur).TaalAfhOmsClass("", ..IngegevenKenmerken.ZijwandVerhogingKleur, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+		}
+	}
+	
+	Quit ZijwandTekst
+]]></Implementation>
+</Method>
+
+<Method name="GeefZijstabiliseringTekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim ZijstabiliseringTekst As %String = ""		
+	
+	If (..IngegevenKenmerken.HeeftZijstabilisering) {
+		Set ZijstabiliseringTekst = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("Stabilisator")
+	}
+	
+	Quit ZijstabiliseringTekst
+]]></Implementation>
+</Method>
+
+<Method name="GeefFrontBevestigingTekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim FrontBevestigingTekst As %String = ""	
+	#dim NietMeeleverenFrontBevestiging As %Boolean = (##class(TECH.ListUtils).Contains(..IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.FrontBevestiging))	
+	
+	If ($$$Not(..IngegevenKenmerken.IsBinnenlade) &&  $$$Not(NietMeeleverenFrontBevestiging)) {
+		Set FrontBevestigingTekst =  ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBFBevestiging).TaalAfhOmsClass("", ..IngegevenKenmerken.FrontBevestiging, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+	}
+	
+	Quit FrontBevestigingTekst
+]]></Implementation>
+</Method>
+
+<Method name="GeefGekoppeldeMatTekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim GekoppeldeMatTekst As %String = ""		
+	
+	If (..IngegevenKenmerkenApi.HeeftGekoppeldeMat(..IngegevenKenmerken)) {
+		Set GekoppeldeMatTekst =  ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBMat).TaalAfhOmsClass("", ..IngegevenKenmerken.LegacyKenmerken.ItemASM, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+	}
+	
+	Quit GekoppeldeMatTekst
+]]></Implementation>
+</Method>
+
+<Method name="GeefFrontSteuntTekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim FrontSteuntTekst As TECH.String = ""
+	
+	If (##class(TECH.StringUtils).Equals(..IngegevenKenmerken.FrontOndersteuningType, ##class(DOM.PM.enu.TBXFrontOndersteuningType).FrontStabilisator() ,##class(DOM.PM.enu.TBXFrontOndersteuningType).FrontSteunMetSchroeven())) {
+		If (..IngegevenKenmerken.FrontOndersteuningAantal > 0 ) {
+			Set FrontSteuntTekst = ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBFrontSteun).TaalAfhOmsClass("", ..IngegevenKenmerken.FrontOndersteuningAantal, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+		} Else {
+			Set FrontSteuntTekst = ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBFrontSteun).TaalAfhOmsClass("", ..IngegevenKenmerken.FrontOndersteuningType, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+		}
+	}
+	
+	Quit FrontSteuntTekst
+]]></Implementation>
+</Method>
+
+<Method name="GeefAfdekkapTekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim AfdekkapTekst As TECH.String = ""
+	
+	If $$$Not(..IsAfdekkapNietMeegeleverd()) { 
+		Set AfdekkapTekst = ..#KenmerkSeparator _ ##class(Res.Vertaling).GetVertaling("TB","LT-AFDEKKAP","O",..Taal, , 1)
+	}
+	
+	Quit AfdekkapTekst
+]]></Implementation>
+</Method>
+
+<Method name="GeefOpvullijstTekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim OpvullijstTekst As TECH.String = ""
+	
+	If ($$$Not(..IsOpvullijstNietMeegeleverd()) && (..IngegevenKenmerken.HeeftOpvullijstLinks || ..IngegevenKenmerken.HeeftOpvullijstRechts)) { 
+		Set OpvullijstTekst = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("Opvullijst")
+		
+		If (..IngegevenKenmerken.HeeftOpvullijstLinks && ..IngegevenKenmerken.HeeftOpvullijstRechts) {
+			Set OpvullijstTekst = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("Opvullijsten")
+		}
+		
+		Set OpvullijstTekst = OpvullijstTekst _ ##class(Prod.GAMeta.BT.TBOpvullijstKleur).TaalAfhOmsClass("", ..IngegevenKenmerken.OpvullijstKleur, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+	}
+	
+	Quit OpvullijstTekst
+]]></Implementation>
+</Method>
+
+<Method name="GeefDwarsverdelingTekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim DwarsverdelingTekst As TECH.String = ""
+	
+	If $$$Not(..IngegevenKenmerken.DwarsverdelingAantal = 0) { 
+		Set DwarsverdelingTekst = ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBDwarsVerdeling).TaalAfhOmsClass("", ..IngegevenKenmerken.DwarsverdelingAantal, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+	}
+	
+	Quit DwarsverdelingTekst
+]]></Implementation>
+</Method>
+
+<Method name="GeefGreepBinnenladeTekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim GreepBinnenladeTekst As TECH.String = ""
+	
+	If (..IngegevenKenmerken.IsBinnenlade && (..IngegevenKenmerken.LegacyKenmerken.ItemBGRP'?1(1"X",1"Z",1"H"))) { 
+		Set GreepBinnenladeTekst = ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBBinnenGreep).TaalAfhOmsClass("", ..IngegevenKenmerken.LegacyKenmerken.ItemBGRP, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+		//TODO PVR: BGRP = V????
+	}
+	
+	Quit GreepBinnenladeTekst
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerlaagdeRugTekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim VerlaagdeRugTekst As TECH.String = ""
+	
+	If (..IsAfwijkendeRugHoogte()) { 
+		Set VerlaagdeRugTekst = ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBRugStukVerlaagd).TaalAfhOmsClass("", ..IngegevenKenmerken.RugHoogte, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+	}
+	
+	Quit VerlaagdeRugTekst
+]]></Implementation>
+</Method>
+
+<Method name="GeefOnvolledigeProductiewijzeTekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductiewijzeTekst As TECH.String = ""
+	
+	If $$$Not(..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TBXProductieWijze).Volledig()) { 
+		Set ProductiewijzeTekst = ..#KenmerkSeparator _ "*** " _ ##class(Prod.GAMeta.BT.TBOndSpecial).TaalAfhOmsClass("", ..IngegevenKenmerken.ProductieWijze, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC) _" ***"
+	}
+	
+	Quit ProductiewijzeTekst
+]]></Implementation>
+</Method>
+
+<Method name="IsInschuifElementNietMeegeleverd">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Rol As %String = ..Enum.Rol.InschuifElementZijkant
+	Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
+]]></Implementation>
+</Method>
+
+<Method name="IsRelingNietMeegeleverd">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Rol As %String = ..Enum.Rol.RelingZijkant
+	Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
+]]></Implementation>
+</Method>
+
+<Method name="IsOpvullijstNietMeegeleverd">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Rol As %String = ..Enum.Rol.Opvullijst
+	Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
+]]></Implementation>
+</Method>
+
+<Method name="IsAfdekkapNietMeegeleverd">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Rol As %String = ..Enum.Rol.Afdekkap
+	Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>