Index: FLOWORD7.mac.rou
===================================================================
diff -u -r50407 -r51337
--- FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 50407)
+++ FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 51337)
@@ -158,10 +158,10 @@
  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)
+ .Set TOENr=$$GETNUM^FLOW("KTO","KTO1"),ToeMunt=OrdToe("P",LEVNr),OorsprongKetting=$P(R,D,59)
  .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
+ .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
  .Set ^KTO(LEVNr,TOENr,1)=R,^KTO(LEVNr,TOENr,0)=101
  .Set OLNr="" ; Produktlijnen verwerken
  .; KCA, hier gezet, want INSERT^FLOWTOE2 triggert event die KTO1 gebruikt. Faalde bij testen. Ofwel is de controle op bestaat toelevering niet juist en moet deze controleren in KTO ipv KTO1