Index: RapJoDM.mac.rou
===================================================================
diff -u -r734 -r1989
--- RapJoDM.mac.rou	(.../RapJoDM.mac.rou)	(revision 734)
+++ RapJoDM.mac.rou	(.../RapJoDM.mac.rou)	(revision 1989)
@@ -14,11 +14,10 @@
  Do DISPLAY^vhScherm("RAPJODM"),FIELD^vhScherm("RAPJODM","REGIOS"),DISPLAY^vhScherm("RAPJODM",,,,"REGIOS")
  Quit:'$L(Regios)
  
- If Regios=29 Do
- . Set Formaat(1)="TXT`Text"
- . Set Formaat(2)="PDFG`PDF globaal"
- . Set Formaat(3)="PDFI`PDF individueel"
- . Set Formaat=$$WILD^vhPOPUP("C;C","O1-","Formaat",.Formaat)
+ Set Formaat(1)="TXT`Text"
+ Set Formaat(2)="PDFG`PDF globaal"
+ Set Formaat(3)="PDFI`PDF individueel"
+ Set Formaat=$$WILD^vhPOPUP("C;C","O1-","Formaat",.Formaat)
  If $E($G(Formaat),1,3)="PDF" Do ##Class(CHUI.Derde.Klant.FicheDoc).Regio(Regios,$E(Formaat,4)) Quit ; Klantenfische in PDF-formaat
  Set DevName=$E(HE_$S($L(Regios,";")=1:"Regio",1:"R")_$TR(Regios,";","&"),1,26)
  Set DevName=DevName_".txt",Dev=$$OPEN^vhDEV(,DevName,"W","A")
@@ -69,6 +68,15 @@
  . Set VOmzet=$$KLANT^STAT(KlantNr,,VB,VE,3) 
  . Set HOmzet=$$KLANT^STAT(KlantNr,,HB,HE,3)
  . Set vHisie=$$ATKUSERS^KLANT(KlantNr),vHisie=$S($L(vHisie):"Ja ("_$L(vHisie,D)_")",1:"")
+ . Set BezoekAdres=$$GetBezoekAdres^LEVADR(KlantNr)
+ . Do:$L($TR(BezoekAdres,D,""))
+ . . Set:$L($P(BezoekAdres,D,2)) KlantNm=$P(BezoekAdres,D,2)
+ . . Set:$L($P(BezoekAdres,D,5)) StrtNrBs=$P(BezoekAdres,D,5)
+ . . Set:$L($P(BezoekAdres,D,6)) PostNr=$P(BezoekAdres,D,6)
+ . . Set:$L($P(BezoekAdres,D,7)) WoonPlts=$P(BezoekAdres,D,7)
+ . . Set:$L($P(BezoekAdres,D,13)) Tel1=$P(BezoekAdres,D,13)
+ . . Set:$L($P(BezoekAdres,D,14)) Tel2=$P(BezoekAdres,D,14)
+ . . Set Adres=StrtNrBs_", "_PostNr_", "_WoonPlts
  . ;WRITE DATA
  . Write KlantNr,$C(9),KlantNm,$C(9),Adres,$C(9),PostNr,$C(9),Tel1,$C(9),Tel2,$C(9),GSMNr,$C(9),KlantVan,$C(9),PrsKls,$C(9),$J(VOmzet,0,0),$C(9),$J(HOmzet,0,0),$C(9),Regio,$C(9),Kontakt,$C(9),EMailAdr,$C(9),Aktiviteit,$C(9),vHisie,! 
  close:0'[Dev Dev