Index: TRANSPEA.mac.rou
===================================================================
diff -u -r56132 -r56303
--- TRANSPEA.mac.rou	(.../TRANSPEA.mac.rou)	(revision 56132)
+++ TRANSPEA.mac.rou	(.../TRANSPEA.mac.rou)	(revision 56303)
@@ -145,9 +145,9 @@
  .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))
+ Do:(KLNr=##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().GeefKlantNummerVoorPartijID(##class(DOM.VKP.enu.Klant).HaefeleNederland()))
  .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"
- Do:($$IsActiefDuPontNaarEindklant(KLNr))
+ Do:($$GebruikDuPontAdres(KLNr))
  .Set Naam="DU PONT BVBA",Straat="KLEINHEIDE",Nummer="24G",PostCode=##class(DOM.common.impl.AdresUtils).MaakPostcodeGlsVriendelijk("BE 2242"),Gemeente="PULDERBOS",Land=$$LAND^vhRtn1(1019),Telefoon="+32 3 464 00 91"
  Set:Afzender="" Afzender=$P(^TRANSP("T",TranspNr),"\",2)
  Set Bedrijf = ##class(Res.Bedrijf).%New()
@@ -365,11 +365,7 @@
 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()))
- ;
-IsActiefDuPontNaarEindklant(KlantNummer)
- Quit:($$$Not(##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefDuPontNaarEindklant())) 0
+GebruikDuPontAdres(KlantNummer)
+ Quit:($$$Not(##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefDuPontNaarEindklant())) $$$False
  Quit (KlantNummer=##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().GeefKlantNummerVoorPartijID(##class(DOM.VKP.enu.Klant).DuPont()))
  ;