Index: Flow/Order/ImportPakket.mac.rou
===================================================================
diff -u -r29059 -r50131
--- Flow/Order/ImportPakket.mac.rou	(.../ImportPakket.mac.rou)	(revision 29059)
+++ Flow/Order/ImportPakket.mac.rou	(.../ImportPakket.mac.rou)	(revision 50131)
@@ -15,6 +15,7 @@
  New R,PakketNr,Next,Pak,Taal,PakketBegin,PakketEinde
  Set UZ=^KOD(KC,US,UR,0),PakketNr=""
  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)