Index: FLOWORD7.mac.rou
===================================================================
diff -u -r51341 -r51451
--- FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 51341)
+++ FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 51451)
@@ -154,11 +154,11 @@
  ..Set OrdToe("P",LEVNr)=PrMunt,OrdToe("P",LEVNr,OLNr)=""
  .Else  If LijnTyp="T",$P(BlockId,";",4)["T" Set OrdToe("T",OLNr)=""
  Set LEVNr=""
- Set R=^KOD(KLNr,"F",ORDNr,1),OrdDat=$P(R,D,2)
+ Set R=^KOD(KLNr,"F",ORDNr,1),OrdDat=$P(R,D,2),OorsprongKetting=$P(R,D,59)
  Set KlKey=^KK1(KLNr),R=^KKL(KlKey,0),KlNaam=$P(R,D,2),ToeRef="KOMM. "_$E(KlNaam,1,19)
  For  Set LEVNr=$O(OrdToe("P",LEVNr)) Quit:LEVNr=""  Do
  .Set LevKey=^KL1(LEVNr),R=^KLE(LevKey,2),CorLevT=$P(R,D,16),NoSa="" Set:$P(R,D,3) NoSa="S"
- .Set TOENr=$$GETNUM^FLOW("KTO","KTO1"),ToeMunt=OrdToe("P",LEVNr),OorsprongKetting=$P(R,D,59)
+ .Set TOENr=$$GETNUM^FLOW("KTO","KTO1"),ToeMunt=OrdToe("P",LEVNr)
  .Do ADD^vhLock("^KTO(LEVNr,TOENr)")
  .Set R="",$P(R,D,26)="",$P(R,D,2)=OrdDat,$P(R,D,3)=ToeRef,$P(R,D,6)=LEVNr
  .Set $P(R,D,7)=ORDNr,$P(R,D,8)=KLNr,$P(R,D,18)=ToeMunt,$P(R,D,22)=2,$P(R,D,27)=OorsprongKetting