Index: EWTOE.mac.rou =================================================================== diff -u -r3872 -r3941 --- EWTOE.mac.rou (.../EWTOE.mac.rou) (revision 3872) +++ EWTOE.mac.rou (.../EWTOE.mac.rou) (revision 3941) @@ -202,6 +202,7 @@ ...Do SWNODE^FLOWORD(KLNr,ORDNr,OLNr) ...//Backorder lijn aangemaakt ...Do ProductOrderLijnGemaakt^FLOWORD2(KLNr,ORDNr,OLNr) + ...Do InvoerUitvoerLinkAangemaakt^FLOWTOE2(LEVNr,TOENr,TLNr) ...If $D(^KTOK(LEVNr,TOENr,TLNr)) Set $P(^KTOK(LEVNr,TOENr,TLNr),D,5)=OLNr ...Set Rec=^KTO(LEVNr,TOENr,TLNr) ...New r Set r=$P(Rec,D,28),$P(r,";")=OLNr,$P(Rec,D,28)=r