Index: TRANSPEA.mac.rou
===================================================================
diff -u -r51820 -r52828
--- TRANSPEA.mac.rou	(.../TRANSPEA.mac.rou)	(revision 51820)
+++ TRANSPEA.mac.rou	(.../TRANSPEA.mac.rou)	(revision 52828)
@@ -139,12 +139,14 @@
  New I,R,TranspNr,Afzender,LevAdr,Naam,Toenaam,Straat,Nummer,Land,PostCode,Gemeente,Telefoon,Bedrijf
  Set KLNr=+$G(KLNr),TranspNr=$$$LevGLS
  Set Afzender=$P($G(^TRANSP("T",TranspNr,KLNr)),"\",2)
- Do:(($$IsSchachermayerAU(KLNr))||($$IsSchachermayerNL(KLNr))||($$IsActiefHaefeleNlNaarEindklant(KLNr)))
+ Do:(($$IsSchachermayerAU(KLNr))||($$IsSchachermayerNL(KLNr)))
  .Set LevAdr=$O(^KKL(^KK1(KLNr),"L")) Set:$E(LevAdr)="L" LevAdr=^KKL(^KK1(KLNr),LevAdr)
  .Set R=^KKL(^KK1(KLNr),0)
  .For I=2,5,6,7,8,13 Set:$P(LevAdr,"\",I)="" $P(LevAdr,"\",I)=$P(R,"\",I)
  .Set Naam=$P(LevAdr,"\",2),Straat=$P(LevAdr,"\",5),PostCode=##class(DOM.common.impl.AdresUtils).MaakPostcodeGlsVriendelijk($P(LevAdr,"\",6)),Gemeente=$P(LevAdr,"\",7),Land=$P(LevAdr,"\",8),Telefoon=$P(LevAdr,"\",13)
  .Set Nummer=$P(Straat," ",$L(Straat," ")),Straat=$P(Straat," ",1,$L(Straat," ")-1),Land=$$LAND^vhRtn1(Land)
+ Do:($$IsActiefHaefeleNlNaarEindklant(KLNr))
+ .Set Naam="HAEFELE NEDERLAND",Straat="POSTBUS",Nummer="1085",PostCode=##class(DOM.common.impl.AdresUtils).MaakPostcodeGlsVriendelijk("NL-7333-NZ"),Gemeente="APELDOORN",Land=$$LAND^vhRtn1(1147),Telefoon="0031-55-541 90 00"
  Set:Afzender="" Afzender=$P(^TRANSP("T",TranspNr),"\",2)
  Set Bedrijf = ##class(Res.Bedrijf).%New()
  Set Naam=$G(Naam,Bedrijf.Naam)