Index: TRANSPEA.mac.rou
===================================================================
diff -u -r51784 -r51807
--- TRANSPEA.mac.rou	(.../TRANSPEA.mac.rou)	(revision 51784)
+++ TRANSPEA.mac.rou	(.../TRANSPEA.mac.rou)	(revision 51807)
@@ -145,7 +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:##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)