Index: FLOWORD7.mac.rou
===================================================================
diff -u -r48055 -r48110
--- FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 48055)
+++ FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 48110)
@@ -125,13 +125,14 @@
 BLDTOE(KLNr,ORDNr) 
  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
+ New ToeMunt,OrdDat,ToeRef,KlKey,KlNaam,LevKey,NettoPr,BrutoPr,Netto,Bruto,Korting1,Korting2,GrOrde,TOELijnNr
  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)
  .Set OLevWk=$P(R,D,29) Set:OLevWk="" OLevWk=$P(R,D,25)
- .Set LijnKode=$P(R,D,17),BlockId=$P(R,D,18),TOENr=$P(R,D,27)
+ .Set LijnKode=$P(R,D,17),BlockId=$P(R,D,18),TOENr=$P(R,D,27),TOELijnNr=$P(R,D,28)
  .Quit:TOENr
+ .Quit:(TOELijnNr="KOM")
  .Set LijnTyp=$P(LijnKode,"#"),LijnTyp=$S(LijnTyp="KF0":"P",LijnTyp="KF1925":"M",LijnTyp="KF11":"T",PRNr:"P",1:"")
  .If LijnTyp="P" Do
  ..Set StockUpd=$P(R,D,14)'["S" Set:StockUpd StockUpd=$P(R,D,14)'["Z"