Index: vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml	(revision 62710)
@@ -0,0 +1,240 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.impl.MVXLangtekstCreator.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.MVX.Base</Super>
+
+<Property name="MVXLangtekstCreator">
+<Type>DOM.PM.impl.MVXLangtekstCreator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MVXKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..MVXLangtekstCreator = ##class(DOM.PM.impl.MVXLangtekstCreator).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: StandaardLade N">
+<Implementation><![CDATA[
+	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).StandaardLade()
+	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.N
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX lade N" _ $$$CRLF)
+]]></Implementation>
+</Method>
+
+<Method name="Test: StandaardLade M">
+<Implementation><![CDATA[
+	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).StandaardLade()
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX lade M" _ $$$CRLF)
+]]></Implementation>
+</Method>
+
+<Method name="Test: StandaardLade M met stalen rug">
+<Implementation><![CDATA[
+	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).StandaardLade()
+	Set ..MVXKenmerken.RugWandMateriaal = ..Enum.RugWandMateriaal.Staal
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX lade M" _ $$$CRLF)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaard Binnenlade M">
+<Implementation><![CDATA[
+	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).BinnenLade()
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX binnenlade M" _ $$$CRLF)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaard Binnenlade M met stalen rug">
+<Implementation><![CDATA[
+	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).BinnenLade()
+	Set ..MVXKenmerken.RugWandMateriaal = ..Enum.RugWandMateriaal.Staal
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX binnenlade M" _ $$$CRLF)
+]]></Implementation>
+</Method>
+
+<Method name="Test: StandaardLade E">
+<Implementation><![CDATA[
+	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).StandaardLade()
+	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
+	Set ..MVXKenmerken.ZijwandType = ""
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX lade E" _ $$$CRLF)
+]]></Implementation>
+</Method>
+
+<Method name="Test: StandaardLade E pure =&gt; Bij combinatie LadeHoogte = E en ZijwandType = Pure">
+<Implementation><![CDATA[
+	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).StandaardLade()
+	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
+	Set ..MVXKenmerken.ZijwandType = ..Enum.ZijwandType.Pure
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX pure lade E" _ $$$CRLF)
+]]></Implementation>
+</Method>
+
+<Method name="Test: StandaardLade E pure met stalen rug">
+<Implementation><![CDATA[
+	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).StandaardLade()
+	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
+	Set ..MVXKenmerken.ZijwandType = ..Enum.ZijwandType.Pure
+	Set ..MVXKenmerken.RugWandMateriaal = ..Enum.RugWandMateriaal.Staal
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX pure lade E" _ $$$CRLF)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaard Binnenlade E pure">
+<Implementation><![CDATA[
+	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).BinnenLade()
+	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
+	Set ..MVXKenmerken.ZijwandType = ..Enum.ZijwandType.Pure
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX pure" _ $$$CRLF _ "binnenlade E" _ $$$CRLF)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaard Binnenlade E pure met stalen rug">
+<Implementation><![CDATA[
+	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).BinnenLade()
+	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
+	Set ..MVXKenmerken.ZijwandType = ..Enum.ZijwandType.Pure
+	Set ..MVXKenmerken.RugWandMateriaal = ..Enum.RugWandMateriaal.Staal
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX pure" _ $$$CRLF _ "binnenlade E" _ $$$CRLF)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaard Sifonlade M">
+<Implementation><![CDATA[
+	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).StandaardLade()
+	Set ..MVXKenmerken.Toepassing = ..Enum.Toepassing.Sifon
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX Sifonlade M" _ $$$CRLF)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaard Sifon Binnenlade M">
+<Implementation><![CDATA[
+	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).BinnenLade()
+	Set ..MVXKenmerken.Toepassing = ..Enum.Toepassing.Sifon
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX Sifon" _ $$$CRLF _ "binnenlade M" _ $$$CRLF)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaard Sifonlade E pure">
+<Implementation><![CDATA[
+	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).StandaardLade()
+	Set ..MVXKenmerken.Toepassing = ..Enum.Toepassing.Sifon
+	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
+	Set ..MVXKenmerken.ZijwandType = ..Enum.ZijwandType.Pure
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX pure Sifonlade E" _ $$$CRLF)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaard hoge Sifonlade E pure">
+<Implementation><![CDATA[
+	// WELK KENMERK MAAKT DEZE HOOG ??? Vragen aan SCA.
+	
+	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).StandaardLade()
+	Set ..MVXKenmerken.Toepassing = ..Enum.Toepassing.Sifon
+	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
+	Set ..MVXKenmerken.ZijwandType = ..Enum.ZijwandType.Pure
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX pure Sifonlade E" _ $$$CRLF)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaard Sifon Binnenlade E pure">
+<Implementation><![CDATA[
+	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).BinnenLade()
+	Set ..MVXKenmerken.Toepassing = ..Enum.Toepassing.Sifon
+	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
+	Set ..MVXKenmerken.ZijwandType = ..Enum.ZijwandType.Pure
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX pure Sifon" _ $$$CRLF _ "binnenlade E" _ $$$CRLF)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaard Spoelbaklade =&gt; is M-lade">
+<Implementation><![CDATA[
+	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).StandaardLade()
+	Set ..MVXKenmerken.Toepassing = ..Enum.Toepassing.Spoelbak
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX Spoelbaklade" _ $$$CRLF)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaard Spoelbaklade pure =&gt; is E-lade">
+<Implementation><![CDATA[
+	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).StandaardLade()
+	Set ..MVXKenmerken.Toepassing = ..Enum.Toepassing.Spoelbak
+	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
+	Set ..MVXKenmerken.ZijwandType = ..Enum.ZijwandType.Pure
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX pure" _ $$$CRLF _ "Spoelbaklade" _ $$$CRLF)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLangtekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim Taal As DOM.enu.Taal = ##class(DOM.enu.Taal).Nederlands()
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New() // VOORLOPIG NEW. Eens de link met .NET voorzien is: ..GeefHalffabItemsBoom(..MVXKenmerken)
+	#dim HalffabItemsBoomOnherwerkt As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New() // VOORLOPIG NEW. Eens de link met .NET voorzien is: ..HalffabItemsBoomOnherwerktBepaler.InitieerHalffabItemsBoomOnherwerkt(..MVXKenmerken)
+	
+	Quit ..MVXLangtekstCreator.GeefLangtekst(..MVXKenmerken, HalffabItemsBoom, Taal,,HalffabItemsBoomOnherwerkt)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/impl/MVXLangtekstCreator.cls.xml
===================================================================
diff -u
--- DOM/PM/impl/MVXLangtekstCreator.cls.xml	(revision 0)
+++ DOM/PM/impl/MVXLangtekstCreator.cls.xml	(revision 62710)
@@ -0,0 +1,153 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.impl.MVXLangtekstCreator">
+<Super>DOM.PM.impl.LangtekstCreator,DOM.PM.Maatwerk.MVX.impl.Base</Super>
+
+<Property name="IngegevenKenmerkenTypeApi">
+<Type>DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="UitsparingTekstFormatter">
+<Type>DOM.PM.Maatwerk.MVX.impl.UitsparingTekstFormatter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>IngegevenKenmerkenTypeApi:DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerkenTypeApi = $$$Implementation(IngegevenKenmerkenTypeApi, ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI())
+	Set ..UitsparingTekstFormatter = ##class(DOM.PM.Maatwerk.MVX.impl.UitsparingTekstFormatter).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BepaalHoofding">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..LangtekstHoofding = "MERIVOBOX "
+	
+	If (..IsPure()) {
+		Set ..LangtekstHoofding = ..LangtekstHoofding _ "pure "
+	}
+	
+	If (..IsSpoelbaklade()) {
+		Set ..LangtekstHoofding = ..LangtekstHoofding _ ..Vertaler.GeefVertaling("Spoelbaklade")
+	} ElseIf (..IsSifonlade() && ..IngegevenKenmerken.IsBinnenlade) {
+		Set ..LangtekstHoofding = ..LangtekstHoofding _ ..Vertaler.GeefVertaling("SifonbinnenladeLangtekstHoofding") _ " " _ ..IngegevenKenmerken.LadeHoogte
+	} ElseIf (..IsSifonlade()) {
+		Set ..LangtekstHoofding = ..LangtekstHoofding _ ..Vertaler.GeefVertaling("SifonladeLangtekstHoofding") _ " " _ ..IngegevenKenmerken.LadeHoogte
+	} ElseIf (..IngegevenKenmerken.IsBinnenlade) {
+		Set ..LangtekstHoofding = ..LangtekstHoofding _ ..Vertaler.GeefVertaling("Binnenlade") _ " " _ ..IngegevenKenmerken.LadeHoogte
+	} Else {
+		Set ..LangtekstHoofding = ..LangtekstHoofding _ ..Vertaler.GeefVertaling("Lade") _ " " _ ..IngegevenKenmerken.LadeHoogte
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeBasisGegevens">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim Paragraaf As TECH.String
+	/*
+	If (..IsSpoelbaklade()) {
+		Do ..VoegToeLangtekstParagraaf(..GeefDimensieTekst())
+		
+		#Dim UitsparingTekstFormatterInput As DOM.PM.Maatwerk.impl.UitsparingTekstFormatterInput = ##class(DOM.PM.Maatwerk.impl.UitsparingTekstFormatterInput).%New()
+		Set UitsparingTekstFormatterInput.UitsparingData = ..IngegevenKenmerken.UitsparingData
+		Set UitsparingTekstFormatterInput.Taal = ..Taal
+		Set UitsparingTekstFormatterInput.MetUitlegTekst = $$$True
+		Set UitsparingTekstFormatterInput.IsSpoelbak = $$$True
+		
+		Set Paragraaf = ..UitsparingTekstFormatter.GeefFormattedTekstBreedte(UitsparingTekstFormatterInput)
+	}
+	*/
+	/*
+	#Dim Paragraaf As TECH.String
+	
+	If (..IsSpaceStep()) {
+		Set ..LangtekstDetail = (##class(DOM.PM.impl.SSTLangtekstCreator).%New(..IngegevenKenmerken, ..Taal).VoegToeBasisGegevens())
+	} Else {
+	
+		If (..IsSpoelbaklade()) {
+			Do ..VoegToeLangtekstParagraaf(" 2 x " _ ..IngegevenKenmerken.LadeHoogte _ ..#KenmerkSeparator _ ..GeefDimensieTekst() _ ..#KenmerkSeparator)
+			
+			#Dim AfmetingUitsparing As %Decimal = ..SpoelbakAfmetingBepaler.GeefAfmetingUitsparing(..IngegevenKenmerken)
+			#Dim AfmetingZijstukLinks As %Decimal = ..SpoelbakAfmetingBepaler.GeefAfmetingZijstukLinks(..IngegevenKenmerken)
+			#Dim AfmetingZijstukRechts As %Decimal = ..SpoelbakAfmetingBepaler.GeefAfmetingZijstukRechts(..IngegevenKenmerken)
+			
+			Set Paragraaf = ..Vertaler.GeefVertaling("Spoelbakopening") _ " = " _ AfmetingUitsparing _ "mm (" _ AfmetingZijstukLinks _ "/" _ AfmetingUitsparing _ "/" _ AfmetingZijstukRechts _ ")"
+		} ElseIf (..IsSifonlade()) {
+			Do ..VoegToeLangtekstParagraaf(..GeefDimensieTekst())
+			
+			#Dim UitsparingTekstFormatterInput As DOM.PM.Maatwerk.impl.UitsparingTekstFormatterInput = ##class(DOM.PM.Maatwerk.impl.UitsparingTekstFormatterInput).%New()
+			Set UitsparingTekstFormatterInput.UitsparingData = ..IngegevenKenmerken.UitsparingData
+			Set UitsparingTekstFormatterInput.Taal = ..Taal
+			Set UitsparingTekstFormatterInput.MetUitlegTekst = $$$True
+			
+			Set Paragraaf = ..UitsparingTekstFormatter.GeefFormattedTekstBreedte(UitsparingTekstFormatterInput)
+		} Else {
+			Set Paragraaf = ..GeefDimensieTekst()
+		}
+
+		If (..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Volledig()) {	
+			Set Paragraaf = Paragraaf _ ..#KenmerkSeparator
+			Set Paragraaf = Paragraaf _ ..Vertaler.GeefVertaling("Bodem") _ ":" _ ..GeefKleurBinnen()
+			Set Paragraaf = Paragraaf _ ..#KenmerkSeparator
+			Set Paragraaf = Paragraaf _	..Vertaler.GeefVertaling("ladezijkant", "", $$$True) _ ":" _ ..GeefKleurBuiten()
+			Set Paragraaf = Paragraaf _ ..#KenmerkSeparator
+			Set Paragraaf = Paragraaf _ ..GeefRugWandTekst()
+			Set Paragraaf = Paragraaf _ ..Vertaler.GeefVertaling("Bevat") _ ": " _ $Select(..IsSpoelbaklade():"2x ", 1:"") _ ..Vertaler.GeefVertaling("GemonteerdeLade")
+
+			Set Paragraaf = Paragraaf _ ..GeefZijwandTekst()
+			Set Paragraaf = Paragraaf _ ..GeefVoorwandTekst()
+			Set Paragraaf = Paragraaf _ ..GeefGeleiderTekst()
+			Set Paragraaf = Paragraaf _ ..GeefTekstVoorRol(..Enum.Rol.FrontBevestiging, ..GeefFrontBevestigingTekst(), $$$True)
+			Set Paragraaf = Paragraaf _ ..GeefTekstVoorRol(..Enum.Rol.Zijstabilisering, ..Vertaler.GeefVertaling("Zijstabilisering"), $$$True)
+			Set Paragraaf = Paragraaf _ ..GeefTekstVoorRol(..Enum.Rol.Opvullijst, ..GeefOpvullijstTekst(), $$$True)
+			Set Paragraaf = Paragraaf _ ..GeefTekstVoorRol(..Enum.Rol.MeenemerSet, ..Vertaler.GeefVertaling("MeenemerSet"), $$$True)
+
+			Do ..VoegToeLangtekstParagraaf(Paragraaf)
+			
+			Do ..VoegToeGekoppeldeInfoIndienNodig()
+			Do ..VoegToeDwarsverdelingInfo()
+			Do ..VoegToeLangtekstParagraaf(..GeefVerpakkingTekst())
+			Do ..VoegToeSmalleLadeInfo() 
+		} Else {
+			Do ..VoegToeLangtekstParagraaf(Paragraaf)
+			Do ..VoegToeEnkelOnderdeelTekst()
+		}
+	}
+	*/
+]]></Implementation>
+</Method>
+
+<Method name="IsPure">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ((..IngegevenKenmerken.ZijwandType = ..Enum.ZijwandType.Pure) && (..IngegevenKenmerken.LadeHoogte = ..Enum.LadeHoogte.E))
+]]></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>
+</Class>
+
+
+</Export>