Index: KFLAD.mac.rou
===================================================================
diff -u -r50582 -r72928
--- KFLAD.mac.rou	(.../KFLAD.mac.rou)	(revision 50582)
+++ KFLAD.mac.rou	(.../KFLAD.mac.rou)	(revision 72928)
@@ -1,3 +1,5 @@
+#include BL.Derde.KlantSpecifiek
+
 KFLAD ;MODULE BEPALEN LEVERINGSADRES [ 05/15/2003  4:17 PM ]
  ;
  ; Als OrderObject hier niet gekend is dan zitten we in de fase van het initieren van de hoofding anders bevinden we ons in de fase
@@ -27,7 +29,8 @@
  . Set Optie="HP" If SWLA="Flow.NieuwDocHoofding",KlAdres["POSTBUS" Set Optie=Optie_"A"
  . Set:$P(LevAdr,D,19)="M" $P(LevAdr,D)="M"
  . Set Optie=Optie_"M"
- . Set R=$$SELECT^LEVADR(KLNr,Optie,$S($P(LevAdr,D,19)="M":LevAdr,1:""),"LB")
+ . If KLNr=$$$KlantHalux Set R=1 ; voor halux steeds het eerste leveringsadres nemen
+ . Else  Set R=$$SELECT^LEVADR(KLNr,Optie,$S($P(LevAdr,D,19)="M":LevAdr,1:""),"LB")
  . Quit:R=""
  . If 'R Set LevAdr=$Select($piece(R,D)="M":R,1:"")
  . Else  Do