Index: LEVADR.mac.rou
===================================================================
diff -u -r734 -r1991
--- LEVADR.mac.rou	(.../LEVADR.mac.rou)	(revision 734)
+++ LEVADR.mac.rou	(.../LEVADR.mac.rou)	(revision 1991)
@@ -109,4 +109,29 @@
  . If $E(AdresNr)="L",Check Set AdresNr="a"_$TR(AdresNr,"L ","")
  . Else  Set AdresNr="m" ; Manueel
  Quit AdresNr
- ;
\ No newline at end of file
+ ;
+ ; Ophalen verzendadres facturen
+GetFactuurVerzendenNaar(KLNr)
+ Quit $$GetAdres(KLNr,"F")
+ ;
+ ; Ophalen bezoekadres
+GetBezoekAdres(KLNr)
+ Quit $$GetAdres(KLNr,"B")
+ ;
+ ; Ophalen van een bezoekadres of DocumentVerzendenNaar
+GetAdres(KLNr,AdresType)
+ New I,R,AdresRec,KlKey,Adres
+ Set KlKey=^KK1(KLNr),Adres="L",AdresRec=""
+ For  Set Adres=$O(^KKL(KlKey,Adres)) Quit:$E(Adres)'="L"  Do  Quit:$L(AdresRec)
+ . Set R=^KKL(KlKey,Adres)
+ . Quit:$P(R,D,12)'=AdresType
+ . Set AdresRec=R
+ . If $P(R,D,19) Do
+ . . New KLNr,KlKey
+ . . Set KLNr=$P(R,D,19),KlKey=^KK1(KLNr)
+ . . Set R=^KKL(KlKey,0)
+ . . For I=2:1:9,13,14 Set $P(AdresRec,D,I)=$P(R,D,I)
+ . . Set $P(AdresRec,D,19)=""
+ Quit AdresRec
+ ;
+ 
\ No newline at end of file