Index: FLOWORD2.mac.rou
===================================================================
diff -u -r3289 -r3957
--- FLOWORD2.mac.rou	(.../FLOWORD2.mac.rou)	(revision 3289)
+++ FLOWORD2.mac.rou	(.../FLOWORD2.mac.rou)	(revision 3957)
@@ -49,7 +49,7 @@
  ; Insert produkt
  ; LDefault doorgegeven als .Local(Piece)=Value
 PINSERT(Insert,Line,PRNr,Aantal,Prijs,Korting1,Korting2,LevTerm,Show,StkCorr,NoRecalc,Kost,NoChkPrs,LDefault) 
- New B,R,OrdTyp,CumContr,Piece
+ New B,R,OrdTyp,CumContr,Piece,LEVNr,TOENr,TLNr
  Set CumContr=$$CHKALG^DEFAULTS(KLNr,"FLOWORD","CONTRACT","AFNAME","CUMUL")
  Set UZ=^KOD(KLNr,"F",ORDNr,0)-100
  Set:$G(Insert)="" Insert="E" Set Line=$G(Line),Show=$G(Show,1)
@@ -71,8 +71,12 @@
  .Set $P(R,D,14)=$P(R,D,14)_$S(StkCorr="?":"",1:StkCorr)
  .Set Piece=""
  .For  Set Piece=$O(LDefault(Piece)) Quit:'Piece  Set $P(R,D,Piece)=LDefault(Piece)
+ .Set TOENr=$P(R,D,27),TLNr=$P(R,D,28)
  .Do INSERT(R,Insert,Line,Show),PRCOUNT^FLOW("+","KOD",Show),KOSTEN(R,"H",Kost,Insert,Line,Show)
  .If $G(IsProj),Show Do PROJREF
+ .If TOENr,TLNr Do
+ ..Set LEVNr=$P(^KTO1(TOENr),D)
+ ..Do InvoerUitvoerLinkAangemaakt^FLOWTOE2(LEVNr,TOENr,TLNr)
  Do:$D(ContrLns)
  .New Contract,PRNr,Aantal,Prijs
  .For  Set Contract=$P($G(ContrLns),U,2) Quit:Contract=""  Do