Index: FLOWTOER.mac.rou
===================================================================
diff -u -r948 -r1079
--- FLOWTOER.mac.rou	(.../FLOWTOER.mac.rou)	(revision 948)
+++ FLOWTOER.mac.rou	(.../FLOWTOER.mac.rou)	(revision 1079)
@@ -1,3 +1,5 @@
+#include BL.Derde.LevSpecifiek
+ 
 FLOWTOER ;Inboeken toelevering [ 10/03/2003  11:21 AM ]
  ; LEVNr 6092 Folitec
  ;       6428 Niegel
@@ -205,7 +207,7 @@
  Quit
  ;
 RCVLINE(TOENr,TLLNr,Receive,BackOrd) 
- New %TC,R,Rec,LEVNr,PRNr,ABLNr,Besteld,KLNr,ORDNr,OLNr,RDate,PR,CifPPL,ASAP
+ New %TC,R,Rec,LEVNr,PRNr,ABLNr,Besteld,KLNr,ORDNr,OLNr,OLUNr,RDate,PR,CifPPL,ASAP
  New LijstPr,LevTA,LevTB,LevTW,IDNr,Decimals,IsEuro,TLUNr,IsWerkVl,DefMag,RTemp
  Do COPY^EWTOE(TOENr)
  Set LEVNr=$P($G(^KTO1(TOENr)),D) Quit:'LEVNr
@@ -261,6 +263,8 @@
  .Set ^KOD(KLNr,"F",ORDNr,OLNr)=Rec
  .Do SWNODE^FLOWORD(KLNr,ORDNr,OLNr)
  .Do:ASAP ASAP^EWTOE(ORDNr)
+ .Set OLUNr=$P(Rec,D,15)
+ .If LEVNr=$$$LevHalux Do:OLUNr MergeOLUNrs^FLOWORD6(ORDNr,OLUNr)
  If 'BackOrd Do KILL(TOENr,TLLNr)
  If BackOrd Do
  .Set Rec=^KTO(LEVNr,TOENr,TLLNr) Set:'$P(Rec,D,23) $P(Rec,D,23)=$P(Rec,D,3)