Index: KLEXP.mac.rou
===================================================================
diff -u -r734 -r3844
--- KLEXP.mac.rou	(.../KLEXP.mac.rou)	(revision 734)
+++ KLEXP.mac.rou	(.../KLEXP.mac.rou)	(revision 3844)
@@ -47,8 +47,12 @@
  ..Set Begin=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp($H,"M","-12"),"DM4")_" "
  ..Set Einde=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp($H,"M","-1"),"DM4")_" "
  ..Set Omzet=$$KLANT^STAT($P(Rec,D),"",Begin,Einde,3)
- ..Set KlantVan=$P(^KKL(KL,1),D,10)
- ..If $L(KlantVan),$D(^KK1(KlantVan)) Set KlantVan=$P(^KKL(^KK1(KlantVan),0),D,2)
+ ..Set KLNr=$P(^KKL(KL,0),D),KlantVan=##class(BL.Derde.Klant.Relaties).KlantVan(KLNr)
+ ..If $LL(KlantVan) Do
+ ...Set KlantVan=$$ListToPieces^vhLib(KlantVan,", ")
+ ...For I=1:1:$L(KlantVan,", ") Do
+ ....Set KLNr=$P(KlantVan,", ",I)
+ ....If $L(KLNr),$D(^KK1(KLNr)) Set $P(KlantVan,", ",I)=$P(^KKL(^KK1(KLNr),0),D,2)
  .Set PostBus=0
  .If "\POSTBUS\PB\Postbus\P.O.\BOX\"[(D_$P($P(Rec,D,5)," ")_D),$E($O(^KKL(KL,"L")))="L" Do
  ..Set ARec=^($O(^KKL(KL,"L"))),$P(Rec,D,5)=$P(ARec,D,5),$P(Rec,D,7)=$P(ARec,D,7)