Index: TRANSPEA.mac.rou
===================================================================
diff -u -r40943 -r51086
--- TRANSPEA.mac.rou	(.../TRANSPEA.mac.rou)	(revision 40943)
+++ TRANSPEA.mac.rou	(.../TRANSPEA.mac.rou)	(revision 51086)
@@ -139,7 +139,7 @@
  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:((KLNr=$$$KlantSchachermayerAU)||(KLNr=$$$KlantSchachermayerNL))
+ Do:(($$IsSchachermayerAU(KLNr))||($$IsSchachermayerNL(KLNr))||($$IsActiefHaefeleNlNaarEindklant(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)
@@ -355,5 +355,14 @@
  Set FileName="ABX"_$E($$EXTDATE^vhLib.DataTypes($P(FileNum,"#"),"DKN"),1,4)_$C(64+$P(FileNum,"#",2))
  Quit FileName
  ;
+IsSchachermayerAU(KlantNummer)
+ Quit (KlantNummer=##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().GeefKlantNummerVoorPartijID(##class(DOM.VKP.enu.Klant).SchachermayerOostenrijk()))
+ ;
+IsSchachermayerNL(KlantNummer)
+ Quit (KlantNummer=##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().GeefKlantNummerVoorPartijID(##class(DOM.VKP.enu.Klant).SchachermayerNederland()))
+ ;
+IsActiefHaefeleNlNaarEindklant(KlantNummer)
+ Quit:($$$Not(##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefHaefeleNlNaarEindklant())) 0
+ Quit (KlantNummer=##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().GeefKlantNummerVoorPartijID(##class(DOM.VKP.enu.Klant).HaefeleNederland()))
+ ;
 
-