Index: HADTBXPrep.mac.rou
===================================================================
diff -u -r60883 -r60888
--- HADTBXPrep.mac.rou	(.../HADTBXPrep.mac.rou)	(revision 60883)
+++ HADTBXPrep.mac.rou	(.../HADTBXPrep.mac.rou)	(revision 60888)
@@ -264,6 +264,7 @@
 	
 VerwijderGewijzigdeLegeRegels(Lijst, LengteLijst, NieuweLijst)	
 	Set NieuweLijst($Increment(NieuweLijst)) = Lijst(1)	;Tekst: ***Losse onderdelen BULK***
+	
 	For ii = 2:2:LengteLijst*2
 	{
 		If $$$Not(Lijst(ii) = "") {
@@ -275,7 +276,7 @@
 
 ZetKorttekstVoorAndereSoortGeleider(Lijst, Index)
 	#dim Korttekst As %String = $Piece(Lijst(Index),"\",3)
-	Do ##class(Tools.Wlip).%New(110).String(Korttekst)
+	
 	If ((##class(TECH.StringUtils).Contains(Korttekst,"41K R+L  EP6") && (##class(TECH.StringUtils).Contains(Korttekst,"578.5001")))) {		//Korttekst aanpassen voor Product met korttekst 578.5001B41K R+L  V20  ZN
 		Set $Piece(Lijst(Index),"\",3) = $Extract(Korttekst,1,22)_"V20"_$Extract(Korttekst,26,*)
 	}