Index: vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/BepaalKorttekst/TestLosseComponenten.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/BepaalKorttekst/TestLosseComponenten.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/BepaalKorttekst/TestLosseComponenten.cls.xml	(revision 29907)
@@ -0,0 +1,91 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.TAX.impl.KorttekstBepaler.BepaalKorttekst.TestLosseComponenten">
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.impl.KorttekstBepaler.TestBase</Super>
+
+<Property name="CUT">
+<Type>DOM.PM.Maatwerk.TAX.impl.LosseComponentKorttekstBepaler</Type>
+</Property>
+
+<Method name="Test: Positie 1">
+<Implementation><![CDATA[
+	#dim ProductieWijzen As TECH.Iterator =  ..GeefLosseComponentProductieWijzeIterator()  
+	while ProductieWijzen.HasNext() {
+		#dim ProductieWijze As DOM.PM.enu.TAORProductieWijze = ProductieWijzen.Next()
+		continue:ProductieWijze=..Enum.ProductieWijze.Volledig
+		do ..AssertPositie(1,..Enum.KenmerkNaam.ProductieWijze,ProductieWijze,"T")	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: Positie 2 - Productiewijze">
+<Implementation><![CDATA[
+	do ..AssertPositie(2,..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.Bodem, "B")
+	do ..AssertPositie(2,..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.Zijkant, "Z")
+	do ..AssertPositie(2,..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.Front, "F")
+	do ..AssertPositie(2,..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.Rug, "R")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Positie 3 - Bodem - KoppelingTypes">
+<Implementation><![CDATA[
+	Set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem
+
+	do ..AssertPositie(3,..Enum.KenmerkNaam.KoppelingType, ..Enum.KoppelingType.Drevel, "D")
+	do ..AssertPositie(3,..Enum.KenmerkNaam.KoppelingType, ..Enum.KoppelingType.Schroef, "S")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Positie 3 - Zijkant, Front, Rug - LadeHoogte">
+<Implementation><![CDATA[
+	#dim ProductieWijze As DOM.PM.enu.TAORProductieWijze
+	
+	set ..TAORKenmerken.LadeHoogte = ..Enum.LadeHoogte.C
+	for ProductieWijze = ..Enum.ProductieWijze.Zijkant,..Enum.ProductieWijze.Front,..Enum.ProductieWijze.Rug {
+		do ..AssertPositie(3,..Enum.KenmerkNaam.ProductieWijze,ProductieWijze,"C")
+	}
+	
+	set ..TAORKenmerken.LadeHoogte = ..Enum.LadeHoogte.M
+	for ProductieWijze = ..Enum.ProductieWijze.Zijkant,..Enum.ProductieWijze.Front,..Enum.ProductieWijze.Rug {
+		do ..AssertPositie(3,..Enum.KenmerkNaam.ProductieWijze,ProductieWijze,"M")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: Positie 4">
+<Implementation><![CDATA[
+	#dim ProductieWijzen As TECH.Iterator = ..GeefLosseComponentProductieWijzeIterator()
+	while ProductieWijzen.HasNext() {
+		#dim ProductieWijze As DOM.PM.enu.TAORProductieWijze = ProductieWijzen.Next()
+		continue:ProductieWijze=..Enum.ProductieWijze.Volledig
+		do ..AssertPositie(4,..Enum.KenmerkNaam.ProductieWijze,ProductieWijze,".")	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AssertPositie">
+<FormalSpec>Positie:%String,KenmerkNaam:%String,KenmerkWaarde:%String,VerwachteWaarde:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	set $property(..TAORKenmerken,KenmerkNaam)=KenmerkWaarde
+	Do $$$AssertEquals($Extract(..BepaalKorttekst(), Positie, Positie), VerwachteWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLosseComponentProductieWijzeIterator">
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	set ProductieWijzen = ##class(%ListOfDataTypes).%New()
+	set Converter = ##class(DOM.PM.Maatwerk.TAX.impl.LosseComponentNaarProductieWijzeConverter).%New()
+	#dim Iterator As TECH.Iterator = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).ValueListIterator()
+	while Iterator.HasNext() {
+		do ProductieWijzen.Insert(Converter.Convert(Iterator.Next()))
+	}	
+	quit ##class(TECH.ListIterator).%New(ProductieWijzen)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/TestBase.cls.xml
===================================================================
diff -u -r29835 -r29907
--- vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 29835)
+++ vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 29907)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.TAX.impl.KorttekstBepaler.TestBase">
 <Abstract>1</Abstract>
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.TestCase,DOM.PM.Maatwerk.TAX.impl.Base</Super>
 
 <Parameter name="DossierNummer">
 <Type>%String</Type>
@@ -15,7 +15,7 @@
 </Property>
 
 <Property name="KorttekstBepaler">
-<Type>DOM.PM.Maatwerk.TAX.impl.KorttekstBepaler</Type>
+<Type>DOM.PM.Maatwerk.Lade.KorttekstBepaler</Type>
 <Private>1</Private>
 </Property>
 
@@ -36,13 +36,12 @@
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
-
 	Set ..TAORKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).CLade()
 ]]></Implementation>
 </Method>
 
 <Method name="TestLengte">
-<Implementation><![CDATA[	Do $$$AssertEquals($Length(..Korttekst), 25)
+<Implementation><![CDATA[	 Do $$$AssertEquals($Length(..BepaalKorttekst()), 25)
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler.cls.xml
===================================================================
diff -u -r29898 -r29907
--- DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 29898)
+++ DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 29907)
@@ -8,7 +8,13 @@
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	#Dim KorttekstBepaler As DOM.PM.Maatwerk.Lade.KorttekstBepaler
-	Set KorttekstBepaler = ##class(DOM.PM.Maatwerk.TAX.impl.StandaardKorttekstBepaler).%New()
+	
+	If (TAORKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Volledig()) {
+		Set KorttekstBepaler = ##class(DOM.PM.Maatwerk.TAX.impl.StandaardKorttekstBepaler).%New()
+	} Else {
+		Set KorttekstBepaler = ##class(DOM.PM.Maatwerk.TAX.impl.LosseComponentKorttekstBepaler).%New()
+	}
+	
 	Quit KorttekstBepaler.BepaalKorttekst(DossierNummer, TAORKenmerken, HalffabItemsBoom)
 ]]></Implementation>
 </Method>
Index: DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler.cls.xml
===================================================================
diff -u -r29831 -r29907
--- DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler.cls.xml	(.../LosseComponentKorttekstBepaler.cls.xml)	(revision 29831)
+++ DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler.cls.xml	(.../LosseComponentKorttekstBepaler.cls.xml)	(revision 29907)
@@ -1,19 +1,82 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.Maatwerk.TAX.impl.LosseComponentKorttekstBepaler">
-<Super>TECH.RegisteredObject,DOM.PM.Maatwerk.Lade.KorttekstBepaler</Super>
+<Super>DOM.PM.Maatwerk.TAX.impl.Base</Super>
 
+<Parameter name="Prefix">
+<Type>%String</Type>
+<Default>T</Default>
+</Parameter>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Property Lade As DOM.PM.Maatwerk.LadeInfo.Lade [ Private ];
+
+]]></Content>
+</UDLText>
+
 <Method name="BepaalKorttekst">
 <FormalSpec>DossierNummer:TECH.String,TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
+	#Dim Korttekst As %String = ""
+	
+	Set $Extract(Korttekst, 1) = "T"
+	Set $Extract(Korttekst, 2) = $Extract(TAORKenmerken.ProductieWijze)
+	if TAORKenmerken.ProductieWijze=..Enum.ProductieWijze.Bodem {
+		set $Extract(Korttekst, 3) = $Extract(TAORKenmerken.KoppelingType)
+	} else {
+		Set $Extract(Korttekst, 3) = $Extract(TAORKenmerken.LadeHoogte)
+	}
+	
+	Set $Extract(Korttekst, 4) = "."
+	
+	set Korttekst = ##class(TECH.StringUtils).AddTrailingSpace(Korttekst,25)
+	Quit Korttekst
+	
+
+	#Dim Code As TECH.String = ""
+	#Dim Omschrijving As TECH.String = ""
+	#Dim Kleur As TECH.String = ""
+	
+	// kan in visitor
+	If (TAORKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Bodem()) {
+		Set Code = ..GeefCodeVoorBodem()
+		//Set Omschrijving = ..GeefOmschrijvingVoorBodem()
+		//Set Kleur = ..GeefKleurVoorBodem()
+		
+		//Set LosseComponentSpecifiek = ..GeefKorttekstDeelBodem(HalffabItemsBoom, TAORKenmerken, Verpakking)
+	} ElseIf (TAORKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Rug()) {
+	
+	} ElseIf (TAORKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Front()) {
+		
+	} ElseIf (TAORKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Zijkant()) {
+		
+	}
+	
+	Quit Code _ Omschrijving _ Kleur
+	
+	
+	
+	/*
 	#Dim Prefix As TECH.String = "T"
-	#Dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeInfo(HalffabItemsBoom, TAORKenmerken)
 	#Dim LosseComponentSpecifiek As TECH.String = ""
 	#Dim Verpakking As TECH.String = "V10" // todo MVI: V10, V5 of V3 op basis van de afmetingen van het losse component
 	
+	
+	/////////////////////////////
+	;Set ..Lade = ##class(DOM.PM.Maatwerk.impl.LadeInfoAPI).%New().GeefLade(HalffabItemsBoom, TAORKenmerken)
+	;#Dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = LadeInfoAPI.GeefLade(HalffabItemsBoom, TAORKenmerken)
+	;#Dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeInfo(HalffabItemsBoom, TAORKenmerken)
+	/////////////////////////////
+	
+	
+	#Dim Code As TECH.String = ""
+	
 	If (TAORKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Bodem()) {
-		Set LosseComponentSpecifiek = ..GeefKorttekstDeelBodem(HalffabItemsBoom, TAORKenmerken, Verpakking)
+		Set Code = ..GeefCodeVoorBodem()
+		
+		//Set LosseComponentSpecifiek = ..GeefKorttekstDeelBodem(HalffabItemsBoom, TAORKenmerken, Verpakking)
 	} ElseIf (TAORKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Rug()) {
 		Set LosseComponentSpecifiek = ..GeefKorttekstDeelRug(HalffabItemsBoom, TAORKenmerken, Verpakking)
 	} ElseIf (TAORKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Front()) {
@@ -22,12 +85,25 @@
 		Set LosseComponentSpecifiek = ..GeefKorttekstDeelZijkant(HalffabItemsBoom, TAORKenmerken, Verpakking)
 	}
 	
-	//#Dim BinnenkantKleur As TECH.String = TAORKenmerken.LadeKleur // todo MVI: kleuren verder uitklaren
-	
 	Quit Prefix _ TAORKenmerken.ProductieWijze _ LosseComponentSpecifiek
+	*/
 ]]></Implementation>
 </Method>
 
+<Method name="GeefCodeVoorBodem">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#Dim Code As TECH.String = ""
+	
+	Set Code = Code _ ..#Prefix
+	Set Code = Code _ $Extract(TAORKenmerken.ProductieWijze)
+	
+	Quit Code
+]]></Implementation>
+</Method>
+
 <Method name="GeefKorttekstDeelFront">
 <FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,Verpakking:TECH.String</FormalSpec>
 <Private>1</Private>
@@ -43,17 +119,37 @@
 <Implementation><![CDATA[
 	#Dim KoppelingType As TECH.String = $Extract(TAORKenmerken.KoppelingType, 1)
 	#Dim LadeDiepte As TECH.String = TAORKenmerken.LadeDiepte * 10 
+	#Dim Rol As DOM.PM.Maatwerk.Calc.HF.enu.TAORRol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).BodemPlaat()
+	#Dim LadeOnderdeelType As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Bodem()
+	#Dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.impl.LadeOnderdeel = ##class(DOM.PM.Maatwerk.impl.LadeInfoAPI).%New().GeefLadeOnderdeel(HalffabItemsBoom, TAORKenmerken, Rol, LadeOnderdeelType)
 	
-	#Dim LadeInfoAPI As DOM.PM.Maatwerk.LadeInfoAPI = ##class(DOM.PM.Maatwerk.impl.LadeInfoAPI).%New()
-	#Dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = LadeInfoAPI.GeefLade()
-	#Dim Iterator As TECH.Iterator = Lade.GeefOnderdelenIterator()
-	
-	While (Iterator.HasNext()) {
-		w !, "--> ladeonderdeeliterator: " _ Iterator.Next()	
+	#Dim KleurenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(LadeOnderdeel.GeefKleuren())
+		
+	While (KleurenIterator.HasNext()) {
+		w !, "==> KleurenIterator: " _ KleurenIterator.Next()
 	}
+
+
+
+	//.GeefLadeOnderdeel(ClassName, HalffabItemsBoom, TAORKenmerken, "Bodem")
 	
-	//#Dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ..GeefLadeOnderdeel(HalffabItemsBoom, TAORKenmerken, ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).BodemPlaat())
+	/////////////////////////////
+	/*#Dim BinnenkantKleur As TECH.String = TAORKenmerken.LadeKleur // todo MVI: kleuren verder uitklaren	
+	#Dim BodemIterator As TECH.Iterator =  ..Lade.GeefBodemIterator()
+	While (BodemIterator.HasNext()) {
+		#Dim Bodem As DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem = BodemIterator.Next()
+		
+		w !, "--> BodemIterator: " _ Bodem
+		w !, "==> Kleur: " _ Bodem.GeefKleur()
+		
+		#Dim KleurenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Bodem.GeefKleuren())
+		While (KleurenIterator.HasNext()) {
+			w !, "==> KleurenIterator: " _ KleurenIterator.Next()
+		}
+	}*/
+	/////////////////////////////
 	
+
 	Quit KoppelingType _ "." _ ..GeefInterneBreedte(TAORKenmerken) _ " " _ LadeDiepte _ "BODEN" _ KoppelingType _ " " _ Verpakking _ "  " //_ LadeOnderdeel.GeefKleuren()
 ]]></Implementation>
 </Method>
@@ -65,8 +161,7 @@
 <Implementation><![CDATA[
 	#Dim InterneBreedte As TECH.String = ##class(TECH.StringUtils).AddTrailingSpace(TAORKenmerken.InterneBreedte, 4)
 	#Dim KantenbandKleur As TECH.String = "  "
-	//#Dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ..GeefLadeOnderdeel(HalffabItemsBoom, TAORKenmerken, ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).RugPlaat())
-	
+
 	Quit TAORKenmerken.LadeHoogte _ "." _ ..GeefInterneBreedte(TAORKenmerken) _ " " _ KantenbandKleur _ "RUCKW"  _ "  " _ Verpakking _ "  " //_ LadeOnderdeel.GeefKleuren()
 ]]></Implementation>
 </Method>
@@ -93,19 +188,19 @@
 
 <UDLText name="T">
 <Content><![CDATA[
-/*Method GeefLadeOnderdeel(HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom, TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken, Rol As DOM.PM.Maatwerk.Calc.HF.enu.TAORRol) As DOM.PM.Maatwerk.LadeInfo.impl.LadeOnderdeel [ Private ]
+/*Method GeefLadeOnderdeel(HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom, TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken, Rol As TECH.String) As DOM.PM.Maatwerk.LadeInfo.impl.LadeOnderdeel [ Private ]
 {
 	#Dim HalffabItem = HalffabItemsBoom.GeefHalffabItem(Rol)
-	#Dim Lade As DOM.PM.Maatwerk.LadeInfo.impl.Lade = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeInfo(HalffabItemsBoom, TAORKenmerken)
-	#Dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Lade.GeefFronten())
-	#Dim Front As DOM.PM.Maatwerk.LadeInfo.Front 
+	;#Dim Lade As DOM.PM.Maatwerk.LadeInfo.impl.Lade = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeInfo(HalffabItemsBoom, TAORKenmerken)
+	;#Dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Lade.GeefFronten())
+	;#Dim Front As DOM.PM.Maatwerk.LadeInfo.Front 
 	
-	While (Iterator.HasNext()) {
-		Set Front = Iterator.Next()
-	}
+	;While (Iterator.HasNext()) {
+	;	Set Front = Iterator.Next()
+	;}
 	
-	Quit Front
-	//Quit ##class(DOM.PM.Maatwerk.LadeInfo.impl.LadeOnderdeel).%New(Lade, HalffabItem, TAORKenmerken)
+	;Quit Front
+	Quit ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem).%New(, HalffabItem, TAORKenmerken)
 }*/
 ]]></Content>
 </UDLText>
Index: DOM/PM/Maatwerk/TAX/impl/StandaardKorttekstBepaler.cls.xml
===================================================================
diff -u -r29831 -r29907
--- DOM/PM/Maatwerk/TAX/impl/StandaardKorttekstBepaler.cls.xml	(.../StandaardKorttekstBepaler.cls.xml)	(revision 29831)
+++ DOM/PM/Maatwerk/TAX/impl/StandaardKorttekstBepaler.cls.xml	(.../StandaardKorttekstBepaler.cls.xml)	(revision 29907)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.Maatwerk.TAX.impl.StandaardKorttekstBepaler">
-<Super>TECH.RegisteredObject,DOM.PM.Maatwerk.Lade.KorttekstBepaler</Super>
+<Super>DOM.PM.Maatwerk.TAX.impl.Base</Super>
 
 <Method name="BepaalKorttekst">
 <FormalSpec>DossierNummer:TECH.String,TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>