Index: DCDETAIL.mac.rou
===================================================================
diff -u -r762 -r2185
--- DCDETAIL.mac.rou	(.../DCDETAIL.mac.rou)	(revision 762)
+++ DCDETAIL.mac.rou	(.../DCDETAIL.mac.rou)	(revision 2185)
@@ -90,6 +90,12 @@
  If $P(R,D,2) Do PRODTOE^DCPROD(R) Quit 1
  Quit 0
  ;
+ ; Bouwstenen Halux
+TOELEVBS(TOENr,TLNr) 
+ Set R=^KTO(LEVNr,TOENr,TLNr)
+ If $P(R,D,2) Do PRODTOEBS^DCPROD(R) Quit 1
+ Quit 0
+ ;
  ; Nazicht volgende lijn. Mag de huidige blok verwerkt worden?
  ; 0 = wachten, 1 = verwerk
 PROFNXTL(FANr,BONNr,OLNr)