Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFTandemKoppelingv001.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFTandemKoppelingv001.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFTandemKoppelingv001.cls.xml	(revision 1496)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.TAOO.HFTandemKoppelingv001">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.Calc.HF.TAOO.HFTandemKoppelingv001")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.DOM.PM.Maatwerk.HF.ITestHalffabBuilder</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="VulHalffabTabel">
+<FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
+<Implementation><![CDATA[	// Geen Halffabs te maken
+]]></Implementation>
+</Method>
+
+<Method name="TestKoppeling">
+<Implementation><![CDATA[
+	Set Context = ..GeefContext()
+	
+	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%New()
+	
+	Set HFBuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFTandemKoppelingv001).%New("")
+	Set HalffabItem = HFBuilder.Bereken(IngegevenKenmerken,Context)
+	
+	Do $$$AssertTrue($IsObject(HalffabItem),"HalffabItem is een object")
+	Do $$$AssertTrue(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem"),"HalffabItem is een SamengesteldHalffabItem")
+	
+	Set HalffabItemLinks = HalffabItem.GeefHalffabItem("Links")
+	
+	Do $$$AssertTrue($IsObject(HalffabItemLinks),"HalffabItem is een object")
+	Do $$$AssertTrue(HalffabItemLinks.%Extends("DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem"),"HalffabItem is een StandaardHalffabItem")
+	Do $$$AssertTrue($IsObject(HalffabItemLinks.Halffab),"HalffabItem heeft een halffab")
+	Do $$$AssertEquals(HalffabItemLinks.Halffab.UnID,10479,"Halffab UnID voor Tandem koppeling")
+	
+	Set HalffabItemRechts = HalffabItem.GeefHalffabItem("Rechts")
+	
+	Do $$$AssertTrue($IsObject(HalffabItemRechts),"HalffabItem is een object")
+	Do $$$AssertTrue(HalffabItemRechts.%Extends("DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem"),"HalffabItem is een StandaardHalffabItem")
+	Do $$$AssertTrue($IsObject(HalffabItemRechts.Halffab),"HalffabItem heeft een halffab")
+	Do $$$AssertEquals(HalffabItemRechts.Halffab.UnID,10480,"Halffab UnID voor Tandem koppeling")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFSchroefv001.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFSchroefv001.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFSchroefv001.cls.xml	(revision 1496)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFSchroefv001">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="%OnNew">
+<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Rol=##class(DOM.PM.Maatwerk.Calc.HF.enu.TAOORol).Schroef()
+	Quit ##super(SamengesteldHalffabItemBuilder)
+]]></Implementation>
+</Method>
+
+<Method name="Bereken">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</ReturnType>
+<Implementation><![CDATA[
+	Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(Context, ..Rol)
+	Set HalffabItem.Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.Halffab).%New()
+	Set HalffabItem.Halffab.UnID = 11611
+	Set HalffabItem.Aantal = 3
+	
+	Quit HalffabItem
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFLijmv001.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFLijmv001.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFLijmv001.cls.xml	(revision 1496)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFLijmv001">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="%OnNew">
+<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Rol=##class(DOM.PM.Maatwerk.Calc.HF.enu.TAOORol).Lijm()
+	Quit ##super(SamengesteldHalffabItemBuilder)
+]]></Implementation>
+</Method>
+
+<Method name="Bereken">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</ReturnType>
+<Implementation><![CDATA[
+	Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(Context, ..Rol)
+	Set HalffabItem.Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.Halffab).%New()
+	Set HalffabItem.Halffab.UnID = "<Onbekend>"
+	Set HalffabItem.Aantal = 1
+	
+	Quit HalffabItem
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+</Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFRugv001.cls.xml
===================================================================
diff -u -r1494 -r1496
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFRugv001.cls.xml	(.../HFRugv001.cls.xml)	(revision 1494)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFRugv001.cls.xml	(.../HFRugv001.cls.xml)	(revision 1496)
@@ -35,7 +35,7 @@
 
 <Method name="PostProcessHalffabItem">
 <FormalSpec><![CDATA[&HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext]]></FormalSpec>
-<Implementation><![CDATA[	Do HalffabItem.ZetAfwijkendKenmerk("RugLengte",IngegevenKenmerken.InbouwBreedte)
+<Implementation><![CDATA[	Do HalffabItem.ZetAfwijkendKenmerk("RugLengte",IngegevenKenmerken.InbouwBreedte - 22)
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFGlijderv001.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFGlijderv001.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFGlijderv001.cls.xml	(revision 1496)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFGlijderv001">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="%OnNew">
+<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Rol=##class(DOM.PM.Maatwerk.Calc.HF.enu.TAOORol).Glijder()
+	Quit ##super(SamengesteldHalffabItemBuilder)
+]]></Implementation>
+</Method>
+
+<Method name="GenereerKenmerken">
+<FormalSpec><![CDATA[IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,&SelectieKenmerken:%ArrayOfDataTypes]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeDiepte,"LadeDiepte")
+	Do SelectieKenmerken.SetAt(IngegevenKenmerken.Draagkracht,"Draagkracht")
+]]></Implementation>
+</Method>
+
+<Method name="GeefHalffabListToItemProcessor">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabListToItemProcessor</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.Processor.HFItemProcessorExactEen).%New()
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+</Export>
Index: zTryout/CSC/TAOOLade.cls.xml
===================================================================
diff -u -r1494 -r1496
--- zTryout/CSC/TAOOLade.cls.xml	(.../TAOOLade.cls.xml)	(revision 1494)
+++ zTryout/CSC/TAOOLade.cls.xml	(.../TAOOLade.cls.xml)	(revision 1496)
@@ -23,6 +23,7 @@
 	Set IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAOOLadeKleur).SmokedWalnut()
 	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAOOLadeHoogte).N()
 	Set IngegevenKenmerken.IsBinnenlade = 1
+	Set IngegevenKenmerken.Draagkracht = 30
 	
 	Do Context.GeefHalffabSpec().BerekenHalffabDetails(Context,IngegevenKenmerken)
 	Set WriterVisitor=##class(DOM.PM.Maatwerk.Calc.HF.impl.WriterVisitor).%New()
Index: vhDeploy/Deploy20110622x1605.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20110622x1605.cls.xml	(revision 0)
+++ vhDeploy/Deploy20110622x1605.cls.xml	(revision 1496)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.Deploy20110622x1605">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="ExecCode">
+<Description>
+Do ##class(vhDeploy.Deploy20110622x1605).ExecCode()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	/*/
+	/ /   Configuratie glijder
+	/*/
+	
+	Set KenmerkenModifiedEventData = ##class(TECH.Events.KenmerkenModifiedEventData).%New()
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert("250")
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(154581,"TAOOGlijder","LadeDiepte",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert("30")
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(154581,"TAOOGlijder","Draagkracht",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert("1")
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(154581,"TAOOGlijder","IsSelecteerbaar",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert(##class(TECH.DateTime).CurrentDate())
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(154581,"TAOOGlijder","GeldigVan",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert(##class(TECH.DateTime).MaxDate())
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(154581,"TAOOGlijder","GeldigTot",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert(##class(DOM.PM.enu.Familie).Lade())
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(154581,"TAOOGlijder","Familie",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Do ##class(APPS.PM.KenmMWFPlugin).%New(KenmerkenModifiedEventData)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/Maatwerk/Calc/Common/impl/TAOOKenmerken.cls.xml
===================================================================
diff -u -r1495 -r1496
--- DOM/PM/Maatwerk/Calc/Common/impl/TAOOKenmerken.cls.xml	(.../TAOOKenmerken.cls.xml)	(revision 1495)
+++ DOM/PM/Maatwerk/Calc/Common/impl/TAOOKenmerken.cls.xml	(.../TAOOKenmerken.cls.xml)	(revision 1496)
@@ -6,6 +6,10 @@
 <Super>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Property name="Draagkracht">
+<Type>DOM.PM.enu.TAOODraagkracht</Type>
+</Property>
+
 <Property name="LadeKleur">
 <Type>DOM.PM.enu.TAOOLadeKleur</Type>
 </Property>
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFFrontBevestigingv001.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFFrontBevestigingv001.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFFrontBevestigingv001.cls.xml	(revision 1496)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.TAOO.HFFrontBevestigingv001">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.Calc.HF.TAOO.HFFrontBevestigingv001")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.DOM.PM.Maatwerk.HF.ITestHalffabBuilder</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="VulHalffabTabel">
+<FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
+<Implementation><![CDATA[	// Geen Halffabs te maken
+]]></Implementation>
+</Method>
+
+<Method name="TestKoppeling">
+<Implementation><![CDATA[
+	Set Context = ..GeefContext()
+	
+	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%New()
+	
+	Set HFBuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFFrontBevestigingv001).%New("")
+	Set HalffabItem = HFBuilder.Bereken(IngegevenKenmerken,Context)
+	
+	Do $$$AssertTrue($IsObject(HalffabItem),"HalffabItem is een object")
+	Do $$$AssertTrue(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem"),"HalffabItem is een StandaardHalffabItem")
+	Do $$$AssertTrue($IsObject(HalffabItem.Halffab),"HalffabItem heeft een halffab")
+	Do $$$AssertEquals(HalffabItem.Halffab.UnID,"<Onbekend>","Halffab UnID voor de front bevestiging")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HalffabGlijder.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HalffabGlijder.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HalffabGlijder.cls.xml	(revision 1496)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HalffabGlijder">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.HF.Halffab</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Draagkracht">
+<Type>DOM.PM.enu.TAOODraagkracht</Type>
+</Property>
+
+<Property name="LadeDiepte">
+<Type>DOM.PM.enu.TAOOLadeDiepte</Type>
+</Property>
+
+<Index name="BitLadeDiepte">
+<Type>bitmap</Type>
+<Properties>LadeDiepte</Properties>
+</Index>
+
+<Index name="BitDraagkracht">
+<Type>bitmap</Type>
+<Properties>Draagkracht</Properties>
+</Index>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>HalffabGlijderDefaultData</DefaultData>
+<Data name="HalffabGlijderDefaultData">
+<Structure>listnode</Structure>
+<Subscript>"HalffabGlijder"</Subscript>
+<Value name="1">
+<Value>Draagkracht</Value>
+</Value>
+<Value name="2">
+<Value>LadeDiepte</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFGlijderv001.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFGlijderv001.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFGlijderv001.cls.xml	(revision 1496)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.TAOO.HFGlijderv001">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.Calc.HF.TAOO.HFGlijderv001")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.DOM.PM.Maatwerk.HF.ITestHalffabBuilder</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="VulHalffabTabel">
+<FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
+<Implementation><![CDATA[
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HalffabGlijder).%New()
+	Set Halffab.UnID = 154581
+	Set Halffab.LadeDiepte = 250
+	Set Halffab.Draagkracht = 30
+	Do HalffabTabel.VoegToeHalffab(Halffab)
+]]></Implementation>
+</Method>
+
+<Method name="TestLadeZijkant">
+<Implementation><![CDATA[
+	Set Context = ..GeefContext()
+	
+	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%New()
+	Set IngegevenKenmerken.LadeDiepte = 250
+	Set IngegevenKenmerken.Draagkracht = 30
+	
+	Set HFBuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFGlijderv001).%New("")
+	Set HalffabItem = HFBuilder.Bereken(IngegevenKenmerken,Context)
+	
+	Do $$$AssertTrue($IsObject(HalffabItem),"HalffabItem is een object")
+	Do $$$AssertTrue(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem"),"HalffabItem is een StandaardHalffabItem")
+	Do $$$AssertTrue($IsObject(HalffabItem.Halffab),"HalffabItem heeft een halffab")
+	Do $$$AssertEquals(HalffabItem.Halffab.UnID,154581,"Halffab UnID voor TAOO LadeZijkant")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/Maatwerk/Calc/HF/enu/TAOORol.cls.xml
===================================================================
diff -u -r1494 -r1496
--- DOM/PM/Maatwerk/Calc/HF/enu/TAOORol.cls.xml	(.../TAOORol.cls.xml)	(revision 1494)
+++ DOM/PM/Maatwerk/Calc/HF/enu/TAOORol.cls.xml	(.../TAOORol.cls.xml)	(revision 1496)
@@ -7,7 +7,7 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="VALUELIST">
-<Default>;LadeZijkant;Bodem;Rug;Front</Default>
+<Default>;LadeZijkant;Bodem;Rug;Front;Glijder;TANDEM koppeling;FrontBevestiging;Schroef;Lijm</Default>
 </Parameter>
 
 <Method name="LadeZijkant">
@@ -37,5 +37,40 @@
 <Implementation><![CDATA[	Quit "Front"
 ]]></Implementation>
 </Method>
+
+<Method name="Glijder">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.enu.TAOORol</ReturnType>
+<Implementation><![CDATA[	Quit "Glijder"
+]]></Implementation>
+</Method>
+
+<Method name="TandemKoppeling">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.enu.TAOORol</ReturnType>
+<Implementation><![CDATA[	Quit "TANDEM koppeling"
+]]></Implementation>
+</Method>
+
+<Method name="FrontBevestiging">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.enu.TAOORol</ReturnType>
+<Implementation><![CDATA[	Quit "FrontBevestiging"
+]]></Implementation>
+</Method>
+
+<Method name="Schroef">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.enu.TAOORol</ReturnType>
+<Implementation><![CDATA[	Quit "Schroef"
+]]></Implementation>
+</Method>
+
+<Method name="Lijm">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.enu.TAOORol</ReturnType>
+<Implementation><![CDATA[	Quit "Lijm"
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: DOM/PM/enu/TAOODraagkracht.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/TAOODraagkracht.cls.xml	(revision 0)
+++ DOM/PM/enu/TAOODraagkracht.cls.xml	(revision 1496)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.enu.TAOODraagkracht">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%Integer</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>;30;50</Default>
+</Parameter>
+</Class>
+</Export>
Index: CSC TAOO.prj.xml
===================================================================
diff -u -r1494 -r1496
--- CSC TAOO.prj.xml	(.../CSC TAOO.prj.xml)	(revision 1494)
+++ CSC TAOO.prj.xml	(.../CSC TAOO.prj.xml)	(revision 1496)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="CSC TAOO" LastModified="2011-06-22 14:54:25">
+<Project name="CSC TAOO" LastModified="2011-06-23 09:37:19">
   <Items>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken" type="CLS"/>
@@ -76,12 +76,17 @@
     <ProjectItem name="DOM.PM.Maatwerk.Calc.HF.impl.StandaardContinuFlowCalculator" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.HF.impl.TAOO.BuilderHFv001" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFBodemv001" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFFrontBevestigingv001" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFFrontv001" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFGlijderv001" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFLadeZijkantv001" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFRugv001" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFSchroevenv001" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFTandemKoppelingv001" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HalffabBodem" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HalffabClassNameFactory" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HalffabFront" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HalffabGlijder" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HalffabLadeZijkant" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HalffabRug" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HalffabTabel" type="CLS"/>
@@ -174,15 +179,20 @@
     <ProjectItem name="DOM.PM.Maatwerk.Calc.Kost.impl.TBX.SpecPlusPlanv001" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.Kost.impl.TBX.SpecTBXPlanv001" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.Kost.impl.TBX.V1VerpakkingEvaluator" type="CLS"/>
+    <ProjectItem name="DOM.PM.enu.TAOODraagkracht" type="CLS"/>
     <ProjectItem name="DOM.PM.enu.TAOOLadeDiepte" type="CLS"/>
     <ProjectItem name="DOM.PM.enu.TAOOLadeHoogte" type="CLS"/>
     <ProjectItem name="DOM.PM.enu.TAOOLadeKleur" type="CLS"/>
     <ProjectItem name="vhDeploy.Deploy20110620x1536" type="CLS"/>
     <ProjectItem name="vhDeploy.Deploy20110621x0804" type="CLS"/>
+    <ProjectItem name="vhDeploy.Deploy20110622x1605" type="CLS"/>
     <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.TAOO.HFBodemv001" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.TAOO.HFFrontBevestigingv001" type="CLS"/>
     <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.TAOO.HFFrontv001" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.TAOO.HFGlijderv001" type="CLS"/>
     <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.TAOO.HFLadeZijkantv001" type="CLS"/>
     <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.TAOO.HFRugv001" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.TAOO.HFTandemKoppelingv001" type="CLS"/>
     <ProjectItem name="zTryout.CSC.TAOOLade" type="CLS"/>
   </Items>
 </Project>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFTandemKoppelingv001.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFTandemKoppelingv001.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFTandemKoppelingv001.cls.xml	(revision 1496)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFTandemKoppelingv001">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="%OnNew">
+<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Rol=##class(DOM.PM.Maatwerk.Calc.HF.enu.TAOORol).TandemKoppeling()
+	Quit ##super(SamengesteldHalffabItemBuilder)
+]]></Implementation>
+</Method>
+
+<Method name="Bereken">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</ReturnType>
+<Implementation><![CDATA[
+
+	Set SamengesteldItem=##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New(Context,..Rol)
+
+	Set SubHalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(Context, "Links")
+	Set SubHalffabItem.Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.Halffab).%New()
+	Set SubHalffabItem.Halffab.UnID = 10479
+	Set SubHalffabItem.Aantal = 1
+	Do SamengesteldItem.VoegToe(SubHalffabItem)
+
+	Set SubHalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(Context, "Rechts")
+	Set SubHalffabItem.Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.Halffab).%New()
+	Set SubHalffabItem.Halffab.UnID = 10480
+	Set SubHalffabItem.Aantal = 1
+	Do SamengesteldItem.VoegToe(SubHalffabItem)
+
+	Quit SamengesteldItem
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+</Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFFrontBevestigingv001.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFFrontBevestigingv001.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFFrontBevestigingv001.cls.xml	(revision 1496)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFFrontBevestigingv001">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="%OnNew">
+<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Rol=##class(DOM.PM.Maatwerk.Calc.HF.enu.TAOORol).FrontBevestiging()
+	Quit ##super(SamengesteldHalffabItemBuilder)
+]]></Implementation>
+</Method>
+
+<Method name="Bereken">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</ReturnType>
+<Implementation><![CDATA[
+	Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(Context, ..Rol)
+	Set HalffabItem.Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.Halffab).%New()
+	Set HalffabItem.Halffab.UnID = "<Onbekend>"
+	Set HalffabItem.Aantal = 2
+	
+	Quit HalffabItem
+]]></Implementation>
+</Method>
+
+<Method name="BuilderMoetWerken">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit IngegevenKenmerken.IsBinnenlade
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+</Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOO/BuilderHFv001.cls.xml
===================================================================
diff -u -r1494 -r1496
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOO/BuilderHFv001.cls.xml	(.../BuilderHFv001.cls.xml)	(revision 1494)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOO/BuilderHFv001.cls.xml	(.../BuilderHFv001.cls.xml)	(revision 1496)
@@ -18,6 +18,11 @@
 	Do ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFBodemv001).%New(##this)
 	Do ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFRugv001).%New(##this)
 	Do ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFFrontv001).%New(##this)
+	Do ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFGlijderv001).%New(##this)
+	Do ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFTandemKoppelingv001).%New(##this)
+	Do ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFFrontBevestigingv001).%New(##this)
+	Do ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFSchroefv001).%New(##this)
+	Do ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFLijmv001).%New(##this)
 	
 	Quit ##super(SamengesteldHalffabItemBuilder)
 ]]></Implementation>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFBodemv001.cls.xml
===================================================================
diff -u -r1494 -r1496
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFBodemv001.cls.xml	(.../HFBodemv001.cls.xml)	(revision 1494)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFBodemv001.cls.xml	(.../HFBodemv001.cls.xml)	(revision 1496)
@@ -35,7 +35,7 @@
 
 <Method name="PostProcessHalffabItem">
 <FormalSpec><![CDATA[&HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext]]></FormalSpec>
-<Implementation><![CDATA[	Do HalffabItem.ZetAfwijkendKenmerk("BodemLengte",IngegevenKenmerken.InbouwBreedte)
+<Implementation><![CDATA[	Do HalffabItem.ZetAfwijkendKenmerk("BodemLengte",IngegevenKenmerken.InbouwBreedte - 34)
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFFrontv001.cls.xml
===================================================================
diff -u -r1494 -r1496
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFFrontv001.cls.xml	(.../HFFrontv001.cls.xml)	(revision 1494)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFFrontv001.cls.xml	(.../HFFrontv001.cls.xml)	(revision 1496)
@@ -35,7 +35,7 @@
 
 <Method name="PostProcessHalffabItem">
 <FormalSpec><![CDATA[&HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext]]></FormalSpec>
-<Implementation><![CDATA[	Do HalffabItem.ZetAfwijkendKenmerk("FrontLengte",IngegevenKenmerken.InbouwBreedte)
+<Implementation><![CDATA[	Do HalffabItem.ZetAfwijkendKenmerk("FrontLengte",IngegevenKenmerken.InbouwBreedte - 4)
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFLijmv001.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFLijmv001.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFLijmv001.cls.xml	(revision 1496)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.TAOO.HFLijmv001">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.Calc.HF.TAOO.HFLijmv001")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.DOM.PM.Maatwerk.HF.ITestHalffabBuilder</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="VulHalffabTabel">
+<FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
+<Implementation><![CDATA[	// Geen Halffabs te maken
+]]></Implementation>
+</Method>
+
+<Method name="TestLijm">
+<Implementation><![CDATA[
+	Set Context = ..GeefContext()
+	
+	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%New()
+	
+	Set HFBuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFLijmv001).%New("")
+	Set HalffabItem = HFBuilder.Bereken(IngegevenKenmerken,Context)
+	
+	Do $$$AssertTrue($IsObject(HalffabItem),"HalffabItem is een object")
+	Do $$$AssertTrue(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem"),"HalffabItem is een StandaardHalffabItem")
+	Do $$$AssertTrue($IsObject(HalffabItem.Halffab),"HalffabItem heeft een halffab")
+	Do $$$AssertEquals(HalffabItem.Halffab.UnID,"<Onbekend>","Halffab UnID voor de lijm")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFSchroefv001.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFSchroefv001.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFSchroefv001.cls.xml	(revision 1496)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.TAOO.HFSchroefv001">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.Calc.HF.TAOO.HFSchroefv001")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.DOM.PM.Maatwerk.HF.ITestHalffabBuilder</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="VulHalffabTabel">
+<FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
+<Implementation><![CDATA[	// Geen Halffabs te maken
+]]></Implementation>
+</Method>
+
+<Method name="TestSchroef">
+<Implementation><![CDATA[
+	Set Context = ..GeefContext()
+	
+	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%New()
+	
+	Set HFBuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFFrontBevestigingv001).%New("")
+	Set HalffabItem = HFBuilder.Bereken(IngegevenKenmerken,Context)
+	
+	Do $$$AssertTrue($IsObject(HalffabItem),"HalffabItem is een object")
+	Do $$$AssertTrue(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem"),"HalffabItem is een StandaardHalffabItem")
+	Do $$$AssertTrue($IsObject(HalffabItem.Halffab),"HalffabItem heeft een halffab")
+	Do $$$AssertEquals(HalffabItem.Halffab.UnID,"<Onbekend>","Halffab UnID voor de front bevestiging")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HalffabClassNameFactory.cls.xml
===================================================================
diff -u -r1494 -r1496
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HalffabClassNameFactory.cls.xml	(.../HalffabClassNameFactory.cls.xml)	(revision 1494)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HalffabClassNameFactory.cls.xml	(.../HalffabClassNameFactory.cls.xml)	(revision 1496)
@@ -14,6 +14,7 @@
 	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HalffabBodem",##class(DOM.PM.Maatwerk.Calc.HF.enu.TAOORol).Bodem())
 	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HalffabRug",##class(DOM.PM.Maatwerk.Calc.HF.enu.TAOORol).Rug())
 	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HalffabFront",##class(DOM.PM.Maatwerk.Calc.HF.enu.TAOORol).Front())
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HalffabGlijder",##class(DOM.PM.Maatwerk.Calc.HF.enu.TAOORol).Glijder())
 	Quit $$$OK
 ]]></Implementation>
 </Method>