Index: FLOWORD7.mac.rou
===================================================================
diff -u -r51337 -r51341
--- FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 51337)
+++ FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 51341)
@@ -131,7 +131,7 @@
  New R,OLNr,PRNr,LEVNr,TOENr,TLNr,LijnKode,LijnTyp,BlockId,OrdToe,StockUpd,LinkType,Aantal,OLevWk,TLevWk
  New NoSa,IsStock,FysStock,InToelev,InOrder,MinBestH,LevTerm,GenPRNr,GrootVp,PrMunt,CorLevT,RALKleur
  New ToeMunt,OrdDat,ToeRef,KlKey,KlNaam,LevKey,NettoPr,BrutoPr,Netto,Bruto,Korting1,Korting2,GrOrde,TOELijnNr
- New InventTransId
+ New InventTransId,OorsprongKetting
  Set OLNr=100
  For  Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:OLNr=""  Do
  .Set R=^KOD(KLNr,"F",ORDNr,OLNr),PRNr=$P(R,D,2),Aantal=$P(R,D,3),InventTransId=$P(R,D,55)