Index: Flow/Order/ImportPakket.mac.rou
===================================================================
diff -u -r50131 -r50326
--- Flow/Order/ImportPakket.mac.rou	(.../ImportPakket.mac.rou)	(revision 50131)
+++ Flow/Order/ImportPakket.mac.rou	(.../ImportPakket.mac.rou)	(revision 50326)
@@ -17,7 +17,6 @@
  Set Taal=$P(^KKL(^KK1(KC),0),D,9)
  Set PakketNr=$P(Pakket,D)
  If $L($P(Pakket,D,2)),$P(Pakket,D,5)>1 Do
- .Set PakketNr=$P(Pakket,D)
  .Set Pak=^PAKKET("D",PakketNr)
  .Set R=$P(Pak,D,2),PakketEinde=$S(Taal="F":"Fin",Taal="D":"Ende",Taal="E":"End",1:"Einde")_" "_R
  .Set PakketBegin=$J("",$L(PakketEinde)-$L(R)\2)_R,PakketBegin=PakketBegin_$J("",$L(PakketEinde)-$L(PakketBegin))