Index: Derde/Klant/LevAdres.cls.xml
===================================================================
diff -u -r1074 -r1870
--- Derde/Klant/LevAdres.cls.xml	(.../LevAdres.cls.xml)	(revision 1074)
+++ Derde/Klant/LevAdres.cls.xml	(.../LevAdres.cls.xml)	(revision 1870)
@@ -40,6 +40,10 @@
 <Type>%Library.String</Type>
 </Property>
 
+<Property name="TypeAdres">
+<Type>%Library.String</Type>
+</Property>
+
 <Property name="Land">
 <Description>
 enkel indien manuele klant
@@ -235,7 +239,7 @@
 <Expression>{NummerLeveringsadres}</Expression>
 <LoopInitValue>"L"</LoopInitValue>
 <NextCode> s {L2}=$O(^KKL({1D1},{L2}))
-                                                                                   i $E({L2})'="L" s {L2}=""</NextCode>
+                                                                                               i $E({L2})'="L" s {L2}=""</NextCode>
 <Invalidcondition name="1">
 <Expression>$E({L2})'="L"</Expression>
 </Invalidcondition>
@@ -296,6 +300,10 @@
 <Delimiter>"\"</Delimiter>
 <Piece>3</Piece>
 </Data>
+<Data name="TypeAdres">
+<Delimiter>"\"</Delimiter>
+<Piece>12</Piece>
+</Data>
 <Data name="Woonplaats">
 <Delimiter>"\"</Delimiter>
 <Piece>7</Piece>
Index: BL/EC/pxKlantInfoAdres.cls.xml
===================================================================
diff -u -r1074 -r1870
--- BL/EC/pxKlantInfoAdres.cls.xml	(.../pxKlantInfoAdres.cls.xml)	(revision 1074)
+++ BL/EC/pxKlantInfoAdres.cls.xml	(.../pxKlantInfoAdres.cls.xml)	(revision 1870)
@@ -59,7 +59,6 @@
 <Implementation><![CDATA[
 	Quit:($$$Not(##class(TECH.Config.ConfigMgr).Instance().GetBoolean("BL.EC.pxKlantInfoAdres_MagVHInterneKlantenDataOphalen")))   // Do not execute this method on WWW-server !!! 
 
-	
 	/// Execute this code only on Internal servers !!! 
 	
 	Set SkipMainAddress=$G(SkipMainAddress,0)
@@ -74,28 +73,32 @@
 	; Leveringsadressen
    	Set KLNr=Klant.%Id()
 	&sql(DECLARE FAP CURSOR FOR
-		SELECT Aanspreking, Naam, PostNummer, StraatNrBus, ToeNaam, WoonPlaats, Land->Code,KodeLeveringsadres,Telefoon, Telefoon2, AlternatieveNaam, Opmerking1,Opmerking2
-    	INTO Aanspreking, Naam, PostCode, StraatNrBus, ToeNaam, WoonPlaats, LandCode,KodeLeveringsadres,Telefoon1, Telefoon2, AlternatieveNaam, Opmerking1,Opmerking2
+		SELECT Aanspreking, Naam, PostNummer, StraatNrBus, ToeNaam, WoonPlaats, Land->Code,KodeLeveringsadres,Telefoon, Telefoon2, AlternatieveNaam, Opmerking1,Opmerking2,TypeAdres
+    	INTO Aanspreking, Naam, PostCode, StraatNrBus, ToeNaam, WoonPlaats, LandCode,KodeLeveringsadres,Telefoon1, Telefoon2, AlternatieveNaam, Opmerking1,Opmerking2,TypeAdres
 		FROM Derde_Klant.LevAdres
-		WHERE Klant = :KLNr)
+		WHERE Klant = :KLNr 
+		ORDER BY TypeAdres )
    	&sql(OPEN FAP)
    
  	For  &sql(FETCH FAP) Quit:SQLCODE  Do
  	. Set pxAdres=..%New()
  	. If KodeLeveringsadres?4.6N Do  ; Het leveringsadres kan een link zijn naar het hoofdadres van een andere klant
  	. . Set oAndereKlant=##class(Derde.Klant.Klant).%OpenId(KodeLeveringsadres)
  	. . Quit:'$isObject(oAndereKlant)
-	. . Do pxAdres.Fill(oAndereKlant.Aanspreking, oAndereKlant.Naam, oAndereKlant.Toenaam, oAndereKlant.StraatNrBus, oAndereKlant.Postnummer, oAndereKlant.Woonplaats, oAndereKlant.LandCode,,,,"Link")
+ 	. . Do pxAdres.Fill(oAndereKlant.Aanspreking,oAndereKlant.Naam, oAndereKlant.Toenaam, oAndereKlant.StraatNrBus, oAndereKlant.Postnummer, oAndereKlant.Woonplaats, oAndereKlant.LandCode,,,,"Link",,TypeAdres)
 	. Else  Do
-	. . Do pxAdres.Fill(Aanspreking, Naam, ToeNaam, StraatNrBus, PostCode, WoonPlaats, LandCode,Telefoon1,Telefoon2,AlternatieveNaam,Opmerking1,Opmerking2)
+	. . Do pxAdres.Fill(Aanspreking, Naam, ToeNaam, StraatNrBus, PostCode, WoonPlaats, LandCode,Telefoon1,Telefoon2,AlternatieveNaam,Opmerking1,Opmerking2,TypeAdres)
 	. Do Array.SetAt(pxAdres,$I(VolgNr))
  	&sql(CLOSE FAP)
 ]]></Implementation>
 </Method>
 
 <Method name="Fill">
-<FormalSpec>Aanspreking,Naam,Toenaam,StraatNrBus,PostCode,WoonPlaats,LandCode,Telefoon1,Telefoon2,AlternatieveNaam,Opmerking1,Opmerking2</FormalSpec>
+<FormalSpec>Aanspreking,Naam,Toenaam,StraatNrBus,PostCode,WoonPlaats,LandCode,Telefoon1,Telefoon2,AlternatieveNaam,Opmerking1,Opmerking2,TypeAdres</FormalSpec>
 <Implementation><![CDATA[
+	if TypeAdres = "B" { 
+		Set Naam = $extract(Naam,1,21)_" (B)"
+	}
 	Set ..Naam=Naam
 	Set ..Toenaam=Toenaam
 	Set ..Aanspreking=Aanspreking