Index: FLOWORD7.mac.rou
===================================================================
diff -u -r1024 -r1433
--- FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 1024)
+++ FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 1433)
@@ -1,5 +1,6 @@
 FLOWORD7 ;Order [ 09/25/2003  10:44 AM ]
 #include BL.Derde.LevSpecifiek
+#include BL.Derde.KlantSpecifiek
  ;
 BUILDBGR(KLNr,AutoMb,OrdRef,PRNr,EDIORDNr,OrdTyp,FBRef) 
  New R,Next,ORDNr,Aantal,LevTerm,Munt,BtwReg,NetBrut,LevVw,Land,VerzW,StockUpd
@@ -310,6 +311,7 @@
 BSControl(ORDNr)
  New R,KLNr,OLNr,OLUNr,PRNr,Aantal,Control,StockUpd
  Set KLNr=$P(^KO1(ORDNr,"F"),D),OLNr=100
+ Quit:KLNr=$$$KlantHalux  ; Niet voor Halux
  For  Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:OLNr=""  Do
  . Set R=^KOD(KLNr,"F",ORDNr,OLNr),PRNr=$P(R,D,2),OLUNr=$P(R,D,15)
  . Quit:'PRNr