Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOO/BuilderHFv001.cls.xml
===================================================================
diff -u -r1511 -r1513
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOO/BuilderHFv001.cls.xml	(.../BuilderHFv001.cls.xml)	(revision 1511)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOO/BuilderHFv001.cls.xml	(.../BuilderHFv001.cls.xml)	(revision 1513)
@@ -19,7 +19,7 @@
 	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.HFKoppelingv001).%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)
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFKoppelingv001.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFKoppelingv001.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFKoppelingv001.cls.xml	(revision 1513)
@@ -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.HFKoppelingv001">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.Calc.HF.TAOO.HFKoppelingv001")</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.HFKoppelingv001).%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/Kost/impl/ATOO/KostMontagev001.cls.xml
===================================================================
diff -u -r1511 -r1513
--- DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostMontagev001.cls.xml	(.../KostMontagev001.cls.xml)	(revision 1511)
+++ DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostMontagev001.cls.xml	(.../KostMontagev001.cls.xml)	(revision 1513)
@@ -22,7 +22,7 @@
 	Set RugAanwezigEvaluator = ##class(DOM.PM.Maatwerk.Calc.Kost.RolAanwezigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAOORol).Rug())
 	Set BodemAanwezigEvaluator = ##class(DOM.PM.Maatwerk.Calc.Kost.RolAanwezigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAOORol).Bodem())
 	Set ZijkantAanwezigEvaluator = ##class(DOM.PM.Maatwerk.Calc.Kost.RolAanwezigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAOORol).LadeZijkant())
-	Set TandemKoppelingAanwezigEvaluator = ##class(DOM.PM.Maatwerk.Calc.Kost.RolAanwezigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAOORol).TandemKoppeling())
+	Set TandemKoppelingAanwezigEvaluator = ##class(DOM.PM.Maatwerk.Calc.Kost.RolAanwezigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAOORol).Koppeling())
 	Set GlijderAanwezigEvaluator = ##class(DOM.PM.Maatwerk.Calc.Kost.RolAanwezigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAOORol).Glijder())
 	Set FrontAanwezigEvaluator = ##class(DOM.PM.Maatwerk.Calc.Kost.RolAanwezigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAOORol).Front())
 	
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFKoppelingv001.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFKoppelingv001.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFKoppelingv001.cls.xml	(revision 1513)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFKoppelingv001">
+<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).Koppeling()
+	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>
+</Class>
+</Export>
FishEye: Tag 1513 refers to a dead (removed) revision in file `DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFTandemKoppelingv001.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 1513 refers to a dead (removed) revision in file `vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFTandemKoppelingv001.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: DOM/PM/Maatwerk/Calc/HF/enu/TAOORol.cls.xml
===================================================================
diff -u -r1511 -r1513
--- DOM/PM/Maatwerk/Calc/HF/enu/TAOORol.cls.xml	(.../TAOORol.cls.xml)	(revision 1511)
+++ DOM/PM/Maatwerk/Calc/HF/enu/TAOORol.cls.xml	(.../TAOORol.cls.xml)	(revision 1513)
@@ -7,7 +7,7 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="VALUELIST">
-<Default>;LadeZijkant;Bodem;Rug;Front;Glijder;TANDEM koppeling;FrontBevestiging;Schroef;Lijm;Etiket</Default>
+<Default>;LadeZijkant;Bodem;Rug;Front;Glijder;Koppeling;FrontBevestiging;Schroef;Lijm;Etiket</Default>
 </Parameter>
 
 <Method name="LadeZijkant">
@@ -45,10 +45,10 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TandemKoppeling">
+<Method name="Koppeling">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.enu.TAOORol</ReturnType>
-<Implementation><![CDATA[	Quit "TANDEM koppeling"
+<Implementation><![CDATA[	Quit "Koppeling"
 ]]></Implementation>
 </Method>