Index: DOM/PM/enu/TAORConcept.cls.xml
===================================================================
diff -u -r63649 -r63654
--- DOM/PM/enu/TAORConcept.cls.xml	(.../TAORConcept.cls.xml)	(revision 63649)
+++ DOM/PM/enu/TAORConcept.cls.xml	(.../TAORConcept.cls.xml)	(revision 63654)
@@ -5,11 +5,11 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="DISPLAYLIST">
-<Default>;Valinge;Baliko;ValingeBaliko;FrontLBX</Default>
+<Default>;Valinge;Baliko;ValingeBaliko</Default>
 </Parameter>
 
 <Parameter name="VALUELIST">
-<Default>;V;B;ValingeBaliko;Y</Default>
+<Default>;V;B;ValingeBaliko</Default>
 </Parameter>
 
 <Method name="Valinge">
@@ -32,13 +32,6 @@
 <Implementation><![CDATA[	Quit "VB"
 ]]></Implementation>
 </Method>
-
-<Method name="FrontLBX">
-<ClassMethod>1</ClassMethod>
-<ReturnType>DOM.PM.enu.TAORConcept</ReturnType>
-<Implementation><![CDATA[	Quit "Y"
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/FrontLBX/VerwerkingIDBepaler/BepaalVerwerkingID/Test.cls.xml
===================================================================
diff -u -r63649 -r63654
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/FrontLBX/VerwerkingIDBepaler/BepaalVerwerkingID/Test.cls.xml	(.../Test.cls.xml)	(revision 63649)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/FrontLBX/VerwerkingIDBepaler/BepaalVerwerkingID/Test.cls.xml	(.../Test.cls.xml)	(revision 63654)
@@ -31,20 +31,18 @@
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
-	do ##super(aTestName)
-	set ..KleurConverter  = ##class(vhTest.Fake.APPS.Halux.PPS.Activiteit.impl.TAOR.KleurConverter).%New()
-	set ..ProgrammaBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.common.FreesProgrammaBepaler).%New()
-	set ..VolgnummerBepaler = ##class(vhTest.Fake.APPS.Halux.PPS.TAORProductie.impl.VolgnummerBepaler).%New()
+	Do ##super(aTestName)
+	Set ..KleurConverter  = ##class(vhTest.Fake.APPS.Halux.PPS.Activiteit.impl.TAOR.KleurConverter).%New()
+	Set ..ProgrammaBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.common.FreesProgrammaBepaler).%New()
+	Set ..VolgnummerBepaler = ##class(vhTest.Fake.APPS.Halux.PPS.TAORProductie.impl.VolgnummerBepaler).%New()
 	
 	Do ..InitFrontLBX()
-	set ..ProductieSequentieItem = ##class(APPS.Halux.common.ProductieSequentieItem).%New()
+	Set ..ProductieSequentieItem = ##class(APPS.Halux.common.ProductieSequentieItem).%New()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: 3e karakter is een &apos;Y&apos;">
-<Implementation><![CDATA[
-	Do ##class(Tools.Wlip).%New(110).String(..BepaalVerwerkingID())
-	do $$$AssertEquals($extract(..BepaalVerwerkingID(),3),"Y")
+<Implementation><![CDATA[	Do $$$AssertEquals($extract(..BepaalVerwerkingID(),3),"Y")
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/DOM/PM/Maatwerk/TAX/impl/ConceptBepaler/Test.cls.xml
===================================================================
diff -u -r63649 -r63654
--- vhUnitTest/DOM/PM/Maatwerk/TAX/impl/ConceptBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 63649)
+++ vhUnitTest/DOM/PM/Maatwerk/TAX/impl/ConceptBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 63654)
@@ -45,14 +45,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Indien productiewijze FrontLBX">
-<Implementation><![CDATA[
-	Set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.FrontLBX
-	
-	Do ..AssertConcept(..Enum.Concept.FrontLBX)
-]]></Implementation>
-</Method>
-
 <Method name="AssertConcept">
 <FormalSpec>VerwachtConcept:DOM.PM.enu.TAORConcept</FormalSpec>
 <Private>1</Private>
Index: DOM/PM/Maatwerk/TAX/impl/ConceptBepaler.cls.xml
===================================================================
diff -u -r63649 -r63654
--- DOM/PM/Maatwerk/TAX/impl/ConceptBepaler.cls.xml	(.../ConceptBepaler.cls.xml)	(revision 63649)
+++ DOM/PM/Maatwerk/TAX/impl/ConceptBepaler.cls.xml	(.../ConceptBepaler.cls.xml)	(revision 63654)
@@ -9,9 +9,7 @@
 <Implementation><![CDATA[
 	#dim Concept As DOM.PM.enu.TAORConcept
 	
-	If (IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).FrontLBX()) {
-		Set Concept = ..Enum.Concept.FrontLBX	
-	} ElseIf $$$Not(IngegevenKenmerken.LadeHoogte = IngegevenKenmerken.RugHoogte) {
+	If $$$Not(IngegevenKenmerken.LadeHoogte = IngegevenKenmerken.RugHoogte) {
 		Set Concept = ..Enum.Concept.Baliko
 	} Else {
 		Set Concept = IngegevenKenmerken.Concept	
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/FreesProgrammaBepaler/BepaalFreesProgramma/Test.cls.xml
===================================================================
diff -u -r30508 -r63654
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/FreesProgrammaBepaler/BepaalFreesProgramma/Test.cls.xml	(.../Test.cls.xml)	(revision 30508)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/FreesProgrammaBepaler/BepaalFreesProgramma/Test.cls.xml	(.../Test.cls.xml)	(revision 63654)
@@ -8,42 +8,56 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Lade">
+<Type>DOM.PM.Maatwerk.LadeInfo.Lade</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
 	Set ..Rug = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Rug).%New()
+	Set ..Lade = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade).%New()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: RugBreedte Kleiner dan Minimumbreedte Vector RugFrees en Valinge concept -&gt; FreesProgramma: Valigne">
 <Implementation><![CDATA[
+	Do ..Rug.IndienMethodCall("GeefLade").DanReturn(..Lade)
 	Do ..Rug.IndienMethodCall("GeefConcept").DanReturn(##class(DOM.PM.enu.TAORConcept).Valinge())
 	Do ..Rug.IndienMethodCall("GeefBreedteInMM").DanReturn(##class(APPS.Halux.Machine.Frees.Vector).MinimumBreedte()-100)
+	Do ..Lade.IndienMethodCall("GeefProductieWijze").DanReturn("")
 	Do ..AssertFreesProgramma(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma).Valinge())
 ]]></Implementation>
 </Method>
 
 <Method name="Test: RugBreedte Groter dan Minimumbreedte Vector RugFrees en Valinge concept -&gt; FreesProgramma: Valigne">
 <Implementation><![CDATA[
+	Do ..Rug.IndienMethodCall("GeefLade").DanReturn(..Lade)
 	Do ..Rug.IndienMethodCall("GeefConcept").DanReturn(##class(DOM.PM.enu.TAORConcept).Valinge())
 	Do ..Rug.IndienMethodCall("GeefBreedteInMM").DanReturn(##class(APPS.Halux.Machine.Frees.Vector).MinimumBreedte()+100)
+	Do ..Lade.IndienMethodCall("GeefProductieWijze").DanReturn("")
 	Do ..AssertFreesProgramma(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma).Valinge())
 ]]></Implementation>
 </Method>
 
 <Method name="Test: RugBreedte Kleiner dan Minimumbreedte Vector RugFrees en Baliko concept -&gt; FreesProgramma: Baliko">
 <Implementation><![CDATA[
+	Do ..Rug.IndienMethodCall("GeefLade").DanReturn(..Lade)
 	Do ..Rug.IndienMethodCall("GeefConcept").DanReturn(##class(DOM.PM.enu.TAORConcept).Baliko())
 	Do ..Rug.IndienMethodCall("GeefBreedteInMM").DanReturn(##class(APPS.Halux.Machine.Frees.Vector).MinimumBreedte()-100)
+	Do ..Lade.IndienMethodCall("GeefProductieWijze").DanReturn("")
 	Do ..AssertFreesProgramma(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma).Baliko())
 ]]></Implementation>
 </Method>
 
 <Method name="Test: RugBreedte Groter dan Minimumbreedte Vector RugFrees en Baliko concept -&gt; FreesProgramma: Baliko">
 <Implementation><![CDATA[
+	Do ..Rug.IndienMethodCall("GeefLade").DanReturn(..Lade)
 	Do ..Rug.IndienMethodCall("GeefConcept").DanReturn(##class(DOM.PM.enu.TAORConcept).Baliko())
 	Do ..Rug.IndienMethodCall("GeefBreedteInMM").DanReturn(##class(APPS.Halux.Machine.Frees.Vector).MinimumBreedte()+100)
+	Do ..Lade.IndienMethodCall("GeefProductieWijze").DanReturn("")
 	Do ..AssertFreesProgramma(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma).Baliko())
 ]]></Implementation>
 </Method>
Index: DOM/PM/enu/TAORConcept/AutoComplete.cls.xml
===================================================================
diff -u -r63649 -r63654
--- DOM/PM/enu/TAORConcept/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 63649)
+++ DOM/PM/enu/TAORConcept/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 63654)
@@ -16,13 +16,6 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
-<Property name="FrontLBX">
-<Type>%String</Type>
-<InitialExpression>"Y"</InitialExpression>
-<Transient>1</Transient>
-<ReadOnly>1</ReadOnly>
-</Property>
-
 <Property name="Valinge">
 <Type>%String</Type>
 <InitialExpression>"V"</InitialExpression>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/common/FreesProgrammaBepaler.cls.xml
===================================================================
diff -u -r63649 -r63654
--- APPS/Halux/PPS/Activiteit/impl/TAOR/common/FreesProgrammaBepaler.cls.xml	(.../FreesProgrammaBepaler.cls.xml)	(revision 63649)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/common/FreesProgrammaBepaler.cls.xml	(.../FreesProgrammaBepaler.cls.xml)	(revision 63654)
@@ -18,8 +18,12 @@
 <ReturnType>APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma</ReturnType>
 <Implementation><![CDATA[
 	Set ..LadeOnderdeel = LadeOnderdeel
-	Do ##class(Tools.Wlip).%New(110).String(LadeOnderdeel.GeefConcept())
-	Do ..Verwerk(LadeOnderdeel.GeefConcept())
+	If (..LadeOnderdeel.GeefLade().GeefProductieWijze() = ##class(DOM.PM.enu.TAORProductieWijze).FrontLBX()) {
+		Do ..VerwerkFrontLBX()
+	} Else {
+		Do ..Verwerk(LadeOnderdeel.GeefConcept())
+	}
+	
 	Quit ..FreesProgramma
 ]]></Implementation>
 </Method>
Index: DOM/PM/enu/TAORConcept/Verwerker.cls.xml
===================================================================
diff -u -r63649 -r63654
--- DOM/PM/enu/TAORConcept/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 63649)
+++ DOM/PM/enu/TAORConcept/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 63654)
@@ -15,8 +15,6 @@
 <Implementation><![CDATA[
 	If TAORConcept = "B" {
 		Do ..VerwerkBaliko()
-	} ElseIf TAORConcept = "Y" {
-		Do ..VerwerkFrontLBX()
 	} ElseIf TAORConcept = "V" {
 		Do ..VerwerkValinge()
 	} ElseIf TAORConcept = "VB" {
@@ -34,12 +32,6 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
-<Method name="VerwerkFrontLBX">
-<Abstract>1</Abstract>
-<Private>1</Private>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
-
 <Method name="VerwerkValinge">
 <Abstract>1</Abstract>
 <Private>1</Private>