Index: ULTOER.mac.rou
===================================================================
diff -u -r30369 -r31334
--- ULTOER.mac.rou	(.../ULTOER.mac.rou)	(revision 30369)
+++ ULTOER.mac.rou	(.../ULTOER.mac.rou)	(revision 31334)
@@ -93,8 +93,8 @@
  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 '$$IsBonMetEigenLeveradres(R) Set R=^KKL(KlantInd,0)
- If $$IsBonMetEnkelVerwijzingNaarLeveradres(R) Set R = ^KKL(KlantInd,"L"_##class(TECH.StringUtils).AlignRight($P(R,D)," ",3))
+ If '$$IsBonMetEigenLeveradres^TRANSP(R) Set R=^KKL(KlantInd,0)
+ If $$IsBonMetEnkelVerwijzingNaarLeveradres^TRANSP(R) Set R = ^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^FLOWBON5(ULNr)
  Set R=ULNr_D_Type_D_KLNr_D_KlantNm_D_$S(Land'="BE":Land_"-",1:"")_Gemeente
@@ -103,12 +103,6 @@
  Set KlantInd=$$UPTRIMAN^vhRtn1(KlantNm)_" "_KLNr
  Quit R
  ;
-IsBonMetEigenLeveradres(Node3VanBon)
- Quit ($L($P(Node3VanBon,D,2)) && $L($P(Node3VanBon,D,6)) && $L($P(Node3VanBon,D,7)) && $L($P(Node3VanBon,D,8))) 
- ;
-IsBonMetEnkelVerwijzingNaarLeveradres(Node3VanBon)
- Quit '$$IsBonMetEigenLeveradres(Node3VanBon) && (+$P(Node3VanBon,D)>=1)
- ;
 EDITEER(Field) 
  New R,KLNr,FakSoort,ULNr,KlantInd,PostKode,Taal,BONNr,Refetch
  Quit:'$$INITMOD()
Index: TRANSP.mac.rou
===================================================================
diff -u -r30369 -r31334
--- TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 30369)
+++ TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 31334)
@@ -105,8 +105,8 @@
  New R,Rembours,Rembours,Gewicht,ColTyp,Omschr,Count,BONNr,Node,BarCode,OphVoorz
  Set R=^KU1(GroepNr,"F"),KLNr=$P(R,D),Node=$$NODE(GroepNr)
  Set R=$G(^KUL(KLNr,Node,GroepNr,3))
- If $$IsBonMetEnkelVerwijzingNaarLeveradres^ULTOER(R) Set R = ^KKL(^KK1(KLNr),"L"_##class(TECH.StringUtils).AlignRight($P(R,D)," ",3))
- ELSE  If '$$IsBonMetEigenLeveradres^ULTOER(R) Set R=^KKL(^KK1(KLNr),0)
+ If $$IsBonMetEnkelVerwijzingNaarLeveradres(R) Set R = ^KKL(^KK1(KLNr),"L"_##class(TECH.StringUtils).AlignRight($P(R,D)," ",3))
+ ELSE  If '$$IsBonMetEigenLeveradres(R) Set R=^KKL(^KK1(KLNr),0)
  Set sFL("L")=R
  Set sFL(1)=$G(^TRANSP("D",VervRef,"D",GroepNr))
  Do:sFL(1)=""
@@ -771,6 +771,12 @@
 	 Set BONNr=$O(Bons("BON",BONNr))
  }
  Quit BevatLanggoed
+ 
+IsBonMetEigenLeveradres(Node3VanBon)
+ Quit ($L($P(Node3VanBon,D,2)) && $L($P(Node3VanBon,D,6)) && $L($P(Node3VanBon,D,7)) && $L($P(Node3VanBon,D,8))) 
  ;
+IsBonMetEnkelVerwijzingNaarLeveradres(Node3VanBon)
+ Quit '$$IsBonMetEigenLeveradres(Node3VanBon) && (+$P(Node3VanBon,D)>=1)
+ ;
 
 
Index: ULTOER2.mac.rou
===================================================================
diff -u -r30369 -r31334
--- ULTOER2.mac.rou	(.../ULTOER2.mac.rou)	(revision 30369)
+++ ULTOER2.mac.rou	(.../ULTOER2.mac.rou)	(revision 31334)
@@ -119,8 +119,8 @@
  .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(R) Set R = ^KKL(KlantInd,"L"_##class(TECH.StringUtils).AlignRight($P(R,D)," ",3))
- .ELSE  If '$$IsBonMetEigenLeveradres(R) Set R=^KKL(KlantInd,0)
+ .If $$IsBonMetEnkelVerwijzingNaarLeveradres^TRANSP(R) Set R = ^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)
  .Set R=ULNr_D_Type_D_KLNr_D_KlantNm_D_$S(Land'="BE":Land_"-",1:"")_Gemeente
@@ -133,8 +133,8 @@
  .Set Type="W",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(^KOD(KLNr,"F",ORDNr,3))
- .If '$$IsBonMetEigenLeveradres(R) Set R=^KKL(KlantInd,0)
- .If $$IsBonMetEnkelVerwijzingNaarLeveradres(R) Set R = ^KKL(KlantInd,"L"_$Select($L($P(R,D))>2:"",1:" ")_$P(R,D))
+ .If '$$IsBonMetEigenLeveradres^TRANSP(R) Set R=^KKL(KlantInd,0)
+ .If $$IsBonMetEnkelVerwijzingNaarLeveradres^TRANSP(R) Set R = ^KKL(KlantInd,"L"_$Select($L($P(R,D))>2:"",1:" ")_$P(R,D))
  .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
@@ -143,12 +143,6 @@
  .Set KlantInd=$$UPTRIMAN^vhRtn1(KlantNm)_" "_KLNr
  Quit R
  ;
-IsBonMetEigenLeveradres(Node3VanBon)
- Quit ($L($P(Node3VanBon,D,2)) && $L($P(Node3VanBon,D,6)) && $L($P(Node3VanBon,D,7)) && $L($P(Node3VanBon,D,8))) 
- ;
-IsBonMetEnkelVerwijzingNaarLeveradres(Node3VanBon)
- Quit '$$IsBonMetEigenLeveradres(Node3VanBon) && (+$P(Node3VanBon,D)>=1)
- ;
 VulAanGLSInfo(ULNr)
 	New RitID, LeveringID,StatusControleur,DistributeurData,DistributeurDataIt,Levering,Dienst,DienstBepaler,CommunicatieService,VerzendWijze
 	#dim RitID As %String = $$GeefRitID^ULTOER(ULNr)