Index: TRANSPEA.mac.rou =================================================================== diff -u -r56303 -r69971 --- TRANSPEA.mac.rou (.../TRANSPEA.mac.rou) (revision 56303) +++ TRANSPEA.mac.rou (.../TRANSPEA.mac.rou) (revision 69971) @@ -148,7 +148,7 @@ 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:($$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 Naam="DU PONT BVBA",Straat="BOUWELVEN",Nummer="16",PostCode=##class(DOM.common.impl.AdresUtils).MaakPostcodeGlsVriendelijk("BE 2280"),Gemeente="GROBBENDONK",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)