Index: BL/Legacy/FLOWTOE/AdHocSplitser.cls.xml
===================================================================
diff -u -r61044 -r61045
--- BL/Legacy/FLOWTOE/AdHocSplitser.cls.xml	(.../AdHocSplitser.cls.xml)	(revision 61044)
+++ BL/Legacy/FLOWTOE/AdHocSplitser.cls.xml	(.../AdHocSplitser.cls.xml)	(revision 61045)
@@ -318,13 +318,17 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	#dim Waarde As %String
+
 	#dim mdWaarde As %String
 	#dim lbProductLijnData As %List = ..mdProductLijnen(TLNr) 
 
+	#dim OrderLijnNr As %String = $LG(lbProductLijnData,3)
 	#dim Korttekst As %String = $LG(lbProductLijnData,1)
 	#dim DimensieDxB As %String = $Extract(Korttekst,12,19)
 	Set DimensieDxB = $$$Trim(DimensieDxB)
 
+	Set mdWaarde("OrderLijnNr") = OrderLijnNr
 	Set mdWaarde("Korttekst"  ) = Korttekst						// structuur: zie DOM.PM.Maatwerk.TAX.impl.StandaardKorttekstBepaler 
 	Set mdWaarde("KorttStart" ) = $Extract(Korttekst,1,3)
 	Set mdWaarde("LadeHoogte" ) = $Extract(Korttekst,4)
@@ -334,14 +338,9 @@
 	Set mdWaarde("LadeBreedte") = $Piece(DimensieDxB,"x",2)
 	Set mdWaarde("KleurenCode") = $Extract(Korttekst,22,25)
 
-	#dim Waarde As %String
-
 	If (Kenmerk = "") {
 		Set Waarde = "[!! Geen Kenmerk Ingevuld !!]"  ; Exception smijten 
 	}
-	ElseIf (Kenmerk = "OrderLijnNr") {
-		Set Waarde = $LG(lbProductLijnData,3)
-	}
 	ElseIf ($D(mdWaarde(Kenmerk)) = 0) {
 		Set Waarde = "[!! '"_Kenmerk_"' Is Ongeldig !!]"  ; Exception smijten 
 	}