Index: BLEXPO1.mac.rou
===================================================================
diff -u -r29059 -r35812
--- BLEXPO1.mac.rou	(.../BLEXPO1.mac.rou)	(revision 29059)
+++ BLEXPO1.mac.rou	(.../BLEXPO1.mac.rou)	(revision 35812)
@@ -230,7 +230,9 @@
  ..Set ^HULP(%J,"DO",TLNr)=""
  .Else  Set ^HULP(%J,"SO",TLNr)=""
  Lock +^BLExport:60 Else  Set r=$$WARN^vhLock($NA(^BLExport),"X")  Quit
- D ^BLEXPO2,^BLEXP
+ D ^BLEXPO2  ;Vult BLExport op.
+ ;D ^BLEXP ;Export naar fixed length TXT : de oude manier.
+ D ##class(APPS.EDIExport.AankoopOrder.impl.BLUM.Verzender).%New().Verzend() ; Export naar XML : de nieuwe manier
  Lock -^BLExport
  D RTVW S (TR,VNR)=-1
 OTB4 Set Type="" For  Set Type=$O(^HULP(%J,Type)) Quit:Type=""  Do
@@ -423,3 +425,4 @@
  Set FileName="L"_$E($ZSTRIP(LevNaam,"*E'A'N"),1,10)_ToeNr_".pdf"
  Quit FileName
 
+