Index: KLANT.mac.rou
===================================================================
diff -u -r1421 -r1707
--- KLANT.mac.rou	(.../KLANT.mac.rou)	(revision 1421)
+++ KLANT.mac.rou	(.../KLANT.mac.rou)	(revision 1707)
@@ -51,9 +51,11 @@
  .If WisAval="/A" Set R(Count)=R(Count)_" "_$$TXT("Aval")
  Quit R(1)_$S($D(R(2)):"#"_R(2),1:"")_$S($D(R(3)):"#"_R(3),1:"")
  ;
-COMPRES(KlantNm,KLNr) 
- Set Compressed = $$UPTRIMAN^vhRtn1(KlantNm)_" "_$G(KLNr)
- Quit $TR(Compressed,"�����������������","AEUIOAEUIOAEUIOAO")
+COMPRES(KlantNm,KLNr)
+ Quit $$DI^cAN000(KlantNm,KLNr) ; Code van DATA-M
+ ; Onderstaande code is onze oude foutieve COMPRES, deze mag over enkele maanden weg - CW 19-07-2011
+ ;Set Compressed = $$UPTRIMAN^vhRtn1(KlantNm)_" "_$G(KLNr)
+ ;Quit $TR(Compressed,"�����������������","AEUIOAEUIOAEUIOAO")
  ;
 TXT(Ref,Piece) 
  If '$D(Piece) Set Piece=2