Index: TRANSPEA.mac.rou
===================================================================
diff -u -r51086 -r51784
--- TRANSPEA.mac.rou	(.../TRANSPEA.mac.rou)	(revision 51086)
+++ TRANSPEA.mac.rou	(.../TRANSPEA.mac.rou)	(revision 51784)
@@ -145,6 +145,7 @@
  .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=$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)
+ .Set:##class(TECH.StringUtils).StartsWith(PostCode,"NL ") PostCode = $P(PostCode," ",2)_$P(PostCode," ",3)
  Set:Afzender="" Afzender=$P(^TRANSP("T",TranspNr),"\",2)
  Set Bedrijf = ##class(Res.Bedrijf).%New()
  Set Naam=$G(Naam,Bedrijf.Naam)
@@ -365,4 +366,3 @@
  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()))
  ;
-