Index: BL/Legacy/FLOWTOE.cls.xml
===================================================================
diff -u -r54394 -r56677
--- BL/Legacy/FLOWTOE.cls.xml	(.../FLOWTOE.cls.xml)	(revision 54394)
+++ BL/Legacy/FLOWTOE.cls.xml	(.../FLOWTOE.cls.xml)	(revision 56677)
@@ -172,8 +172,12 @@
 <Implementation><![CDATA[
 	Quit:(TOENr'="2nnnnn")
 	
+	#dim Korttekst As %String = Product.GeefKorttekst()
+	#dim LadeHoogte As %String = $E(Korttekst,4)
+	#dim DossierCode As %String = $E(Korttekst,8,11)
+	
 	Do WLIP^vhDBG(97,"Te splitsen : KLNr="_KlantID_"   Product="_Product.GeefKorttekst())
-	;Set SortKey=SortKey_$CASE($E(Product.GeefKorttekst(),4), "N":"N", "K":"K", :"REST")
+	;Set SortKey=SortKey_$CASE(LadeHoogte, "N":"N", "K":"K", :"REST")
 	;Do WLIP^vhDBG(97,"Te splitsen : KLNr="_KlantID_"  "_SortKey)
 ]]></Implementation>
 </Method>