Index: vhUnitTest/DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler/FrontLBX/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler/FrontLBX/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler/FrontLBX/Test.cls.xml	(revision 63606)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.TAX.impl.LosseComponentKorttekstBepaler.FrontLBX.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
+
+<Property name="LosseComponentKorttekstCreator">
+<Type>DOM.PM.Maatwerk.TAX.impl.LosseComponentKorttekstBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TAORKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..LosseComponentKorttekstCreator = ##class(DOM.PM.Maatwerk.TAX.impl.LosseComponentKorttekstBepaler).%New()
+	
+	Set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenlade()
+	Set ..TAORKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).FrontLBX()
+	Set ..TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).LosseComponentenInBulk()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bij verpakking LosseComponentenBulk is de 4e positie voro FrontLBX gelijk aan &apos;L&apos;">
+<Implementation><![CDATA[	Do $$$AssertEquals($Extract(..GeefKorttekst(),4,4),"L")
+]]></Implementation>
+</Method>
+
+<Method name="GeefKorttekst">
+<ReturnType>DOM.PM.ProductLangtekst</ReturnType>
+<Implementation><![CDATA[
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemsBoom(..TAORKenmerken)
+	
+	Quit ..LosseComponentKorttekstCreator.BepaalKorttekst("",..TAORKenmerken, HalffabItemsBoom)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler.cls.xml
===================================================================
diff -u -r58568 -r63606
--- DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler.cls.xml	(.../LosseComponentKorttekstBepaler.cls.xml)	(revision 58568)
+++ DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler.cls.xml	(.../LosseComponentKorttekstBepaler.cls.xml)	(revision 63606)
@@ -67,7 +67,11 @@
 		Set $Extract(Korttekst, 3) = $Extract(TAORKenmerken.LadeHoogte)
 	}
 	
-	Set $Extract(Korttekst, 4) = "."
+	If (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.FrontLBX) {
+		Set $Extract(Korttekst, 4) = "L"
+	} Else {
+		Set $Extract(Korttekst, 4) = "."
+	}
 
 	If (##class(TECH.StringUtils).Equals(TAORKenmerken.ProductieWijze, ..Enum.ProductieWijze.ZijkantLinks, ..Enum.ProductieWijze.ZijkantRechts)) {
 		Set $Extract(Korttekst, 5, 7) = TAORKenmerken.LadeDiepte 
Index: DOM/PM/Maatwerk/TAX/impl/ProductieWijzeNaarLosseComponentConverter.cls.xml
===================================================================
diff -u -r30113 -r63606
--- DOM/PM/Maatwerk/TAX/impl/ProductieWijzeNaarLosseComponentConverter.cls.xml	(.../ProductieWijzeNaarLosseComponentConverter.cls.xml)	(revision 30113)
+++ DOM/PM/Maatwerk/TAX/impl/ProductieWijzeNaarLosseComponentConverter.cls.xml	(.../ProductieWijzeNaarLosseComponentConverter.cls.xml)	(revision 63606)
@@ -10,15 +10,20 @@
 	#dim Resultaat As DOM.PM.enu.TAORProductieWijze = ""
 	#dim Iterator As TECH.ListIterator = ##class(DOM.PM.Maatwerk.Lade.enu.LosseComponent).ValueListIterator()
 	
-	while (Iterator.HasNext() && $$$Not(Resultaat)) {
+	//FrontLBX wordt gezien als een exacte kopie van de gewone Front
+	If (ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).FrontLBX()) {
+		Set ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Front()
+	}
+	
+	While (Iterator.HasNext() && $$$Not(Resultaat)) {
 		#dim LosseComponent As DOM.PM.Maatwerk.Lade.enu.LosseComponent = Iterator.Next()
 
-		if (..GeefEersteLetterPerDeel(LosseComponent) = ProductieWijze) {
-			set Resultaat = LosseComponent
+		If (..GeefEersteLetterPerDeel(LosseComponent) = ProductieWijze) {
+			Set Resultaat = LosseComponent
 		}	
 	}
 		
-	quit Resultaat
+	Quit Resultaat
 ]]></Implementation>
 </Method>
 
@@ -30,11 +35,11 @@
 	#dim StringIterator As TECH.Iterator = ##class(TECH.PiecesIterator).%New(LosseComponent, ".")
 	#dim Resultaat As TECH.String = ""
 	
-	while (StringIterator.HasNext()) {
-		set Resultaat = Resultaat _ $extract(StringIterator.Next(), 1)
+	While (StringIterator.HasNext()) {
+		Set Resultaat = Resultaat _ $extract(StringIterator.Next(), 1)
 	}
 	
-	quit Resultaat
+	Quit Resultaat
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/FrontLBX/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/FrontLBX/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/FrontLBX/Test.cls.xml	(revision 63606)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.impl.TAORLangtekstCreator.FrontLBX.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
+
+<Property name="LangtekstCreator">
+<Type>DOM.PM.impl.TAORLangtekstCreator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TAORKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HalffabItemsBoomOnherwerktBepaler">
+<Type>DOM.PM.impl.HalffabItemsBoomOnherwerktBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..LangtekstCreator = ##class(DOM.PM.impl.TAORLangtekstCreator).%New()
+	Set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenlade()
+	Set ..TAORKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).FrontLBX()
+	Set ..HalffabItemsBoomOnherwerktBepaler = ##class(DOM.PM.impl.HalffabItemsBoomOnherwerktBepaler).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Hoofding binnenlade start met &apos;TA&apos;OR BOX binnenlade&apos;">
+<Implementation><![CDATA[	Do $$$AssertEquals($Extract(..GeefLangtekst().GeefHoofding(), 1, 20), "TA'OR BOX binnenlade")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Productiewijze FrontLBX heeft op 2e detail lijn &apos;voor LEGRABOX&apos; staan">
+<Implementation><![CDATA[	Do $$$AssertEquals(..GeefLangtekst().GeefDetail().GetAt(2), "voor LEGRABOX")
+]]></Implementation>
+</Method>
+
+<Method name="GeefLangtekst">
+<ReturnType>DOM.PM.ProductLangtekst</ReturnType>
+<Implementation><![CDATA[
+	#dim Taal As DOM.enu.Taal = ##class(DOM.enu.Taal).Nederlands()
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemsBoom(..TAORKenmerken)
+	#dim HalffabItemsBoomOnherwerkt As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..HalffabItemsBoomOnherwerktBepaler.InitieerHalffabItemsBoomOnherwerkt(..TAORKenmerken)
+	
+	Quit ..LangtekstCreator.GeefLangtekst(..TAORKenmerken, HalffabItemsBoom, Taal,,HalffabItemsBoomOnherwerkt)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>