Index: TRANSPEA.mac.rou
===================================================================
diff -u -r52828 -r56132
--- TRANSPEA.mac.rou	(.../TRANSPEA.mac.rou)	(revision 52828)
+++ TRANSPEA.mac.rou	(.../TRANSPEA.mac.rou)	(revision 56132)
@@ -147,6 +147,8 @@
  .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"
+ Do:($$IsActiefDuPontNaarEindklant(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()
  Set Naam=$G(Naam,Bedrijf.Naam)
@@ -367,3 +369,7 @@
  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
+ Quit (KlantNummer=##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().GeefKlantNummerVoorPartijID(##class(DOM.VKP.enu.Klant).DuPont()))
+ ;