Index: ULTOER2.mac.rou
===================================================================
diff -u -r31450 -r31468
--- ULTOER2.mac.rou	(.../ULTOER2.mac.rou)	(revision 31450)
+++ ULTOER2.mac.rou	(.../ULTOER2.mac.rou)	(revision 31468)
@@ -119,7 +119,7 @@
  .Set Type=$P(R,D,28),Proforma=""
  .Set:$P(R,D,25)="M"!($P(R,D,25)="P") Proforma=$P(R,D,25)_$S($P(R,D,29)["P":"m",1:"z")
  .Set KlantInd=^KK1(KLNr),R=$G(^KUL(KLNr,FakSoort,ULNr,3))
- .If $$IsBonMetEnkelVerwijzingNaarLeveradres^TRANSP(R) Set R = ^KKL(KlantInd,"L"_##class(TECH.StringUtils).AlignRight($P(R,D)," ",3))
+ .If $$IsBonMetEnkelVerwijzingNaarLeveradres^TRANSP(R) Set R = $get(^KKL(KlantInd,"L"_##class(TECH.StringUtils).AlignRight($P(R,D)," ",3)))
  .ELSE  If '$$IsBonMetEigenLeveradres^TRANSP(R) Set R=^KKL(KlantInd,0)
  .Set KlantNm=$P(R,D,2),PostKode=$P(R,D,6),Gemeente=$P(R,D,7)
  .Set Land=$$LAND^vhRtn1($P(R,D,8)),IsTerugN=$$ISTERUGN^FLOWBON5(ULNr)
@@ -134,7 +134,7 @@
  .Set:$P(R,D,25)="M"!($P(R,D,25)="P") Proforma=$P(R,D,25)_$S($P(R,D,29)["P":"m",1:"z")
  .Set KlantInd=^KK1(KLNr),R=$G(^KOD(KLNr,"F",ORDNr,3))
  .If '$$IsBonMetEigenLeveradres^TRANSP(R) Set R=^KKL(KlantInd,0)
- .If $$IsBonMetEnkelVerwijzingNaarLeveradres^TRANSP(R) Set R = $get(^KKL(KlantInd,"L"_$Select($L($P(R,D))>2:"",1:" ")_$P(R,D)))
+ .If $$IsBonMetEnkelVerwijzingNaarLeveradres^TRANSP(R) Set R = $get(^KKL(KlantInd,"L"_##class(TECH.StringUtils).AlignRight($P(R,D)," ",3)))
  .Set KlantNm=$P(R,D,2),PostKode=$P(R,D,6),Gemeente=$P(R,D,7)
  .Set Land=$$LAND^vhRtn1($P(R,D,8)),IsTerugN=$$ISTERUGN^EWORDS3(ULNr)
  .Set R=ULNr_D_Type_D_KLNr_D_KlantNm_D_$S(Land'="BE":Land_"-",1:"")_Gemeente