Index: Derde/Klant/Persoon.cls.xml
===================================================================
diff -u -r1074 -r1666
--- Derde/Klant/Persoon.cls.xml	(.../Persoon.cls.xml)	(revision 1074)
+++ Derde/Klant/Persoon.cls.xml	(.../Persoon.cls.xml)	(revision 1666)
@@ -56,27 +56,6 @@
 <Parameter name="ROWSPEC" value="ID,Naam,VoorNaam:%Library.String"/>
 </Query>
 
-<Query name="GeefVhizierLijst">
-<Type>%Library.SQLQuery</Type>
-<SqlQuery>SELECT Derde_Klant.Persoon.Aanspreking, 
- Derde_Klant.Persoon.Naam, 
- Derde_Klant.Persoon.VoorNaam, 
- Derde_Klant.Klant.StraatNrBus,
- Derde_Klant.Klant.LandCode, 
- Derde_Klant.Klant.Postnummer,
- Derde_Klant.Klant.Woonplaats,
- Case when Derde_Klant.Klant.Aktiviteit != "Consument"
- then Derde_Klant.Klant.Naam
- else  "" end As Klant
- FROM Derde_Klant.Persoon 
- INNER JOIN Derde_Klant.Klant 
- ON Derde_Klant.Persoon.Derde = Derde_Klant.Klant.ID
- WHERE PrivacyToelating LIKE '%BM%' AND StraatNrBus != ""
- Order by Derde_Klant.Persoon.Naam</SqlQuery>
-<SqlView>1</SqlView>
-<Parameter name="CONTAINID" value="1"/>
-</Query>
-
 <Method name="OpenViaPersID">
 <Description>
 s o=##class(Derde.Klant.Persoon).OpenViaPersID(8951)</Description>
@@ -128,6 +107,33 @@
  ORDER BY eMail]]></SqlQuery>
 </Query>
 
+<Query name="GeefVhizierLijst">
+<Type>%Library.SQLQuery</Type>
+<SqlQuery>SELECT Case when Derde_Klant.Persoon.Aanspreking IS NOT NULL
+ then Derde_Klant.Persoon.Aanspreking
+ else "" end As Aanspreking,
+ Derde_Klant.Persoon.Naam, 
+ Derde_Klant.Persoon.VoorNaam As Voornaam, 
+ Derde_Klant.Klant.StraatNrBus,
+ Derde_Klant.Klant.Woonplaats,
+ Derde_Klant.Klant.LandCode As Land, 
+ Derde_Klant.Klant.Postnummer As Postcode, 
+ Derde_Klant.Klant.Sektor As Regio,
+ Derde_Klant.Klant.Aktiviteit As Activiteit,
+ Derde_Klant.Klant.Taal As Taal,
+ Case when Derde_Klant.Klant.Aktiviteit != "Consument"
+ then Derde_Klant.Klant.Naam
+ else "" end As Bedrijfsnaam, 
+ Derde_Klant.Klant_GeefExterneVerantw(Derde_Klant.Klant.Nummer) As ExterneVerantwoordelijke
+ FROM Derde_Klant.Persoon 
+ INNER JOIN Derde_Klant.Klant 
+ ON Derde_Klant.Persoon.Derde = Derde_Klant.Klant.ID
+ WHERE PrivacyToelating LIKE '%BM%' AND StraatNrBus != ""
+ Order by Postcode DESC</SqlQuery>
+<SqlView>1</SqlView>
+<Parameter name="CONTAINID" value="1"/>
+</Query>
+
 <Storage name="VHOpslag">
 <Type>%CacheSQLStorage</Type>
 <StreamLocation>^Derde.Kl.PersoonS</StreamLocation>
Index: Derde/Klant/Klant.cls.xml
===================================================================
diff -u -r1074 -r1666
--- Derde/Klant/Klant.cls.xml	(.../Klant.cls.xml)	(revision 1074)
+++ Derde/Klant/Klant.cls.xml	(.../Klant.cls.xml)	(revision 1666)
@@ -21,7 +21,6 @@
 Format: Char: 2
 zie ^KKLAK</Description>
 <Type>%Library.String</Type>
-<Parameter name="MAXLEN" value="2"/>
 </Property>
 
 <Property name="Bank">
@@ -609,6 +608,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefExterneVerantw">
+<Description>
+/ Geef de initialen van de externe verantwoordelijke voor de opgegeven klant. </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantNr</FormalSpec>
+<ReturnType>%String</ReturnType>
+<SqlProc>1</SqlProc>
+<Implementation><![CDATA[
+	Do ##class(vhLib.OldSchool).InitVars()
+	Quit $$USERNAME^vhUSER($$EXTVW^KLOPV(KlantNr),-1)
+]]></Implementation>
+</Method>
+
 <Method name="GetFullName">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>KlantNr:%Library.String</FormalSpec>
Index: Derde/Lev/Persoon.cls.xml
===================================================================
diff -u -r1074 -r1666
--- Derde/Lev/Persoon.cls.xml	(.../Persoon.cls.xml)	(revision 1074)
+++ Derde/Lev/Persoon.cls.xml	(.../Persoon.cls.xml)	(revision 1666)
@@ -27,6 +27,28 @@
 <Type>%Library.String</Type>
 </Property>
 
+<Query name="GeefVhizierLijst">
+<Type>%Library.SQLQuery</Type>
+<SqlQuery>SELECT Case when Derde_Lev.Persoon.Aanspreking IS NOT NULL
+ then Derde_Lev.Persoon.Aanspreking
+ else "" end As Aanspreking,
+ Derde_Lev.Persoon.Naam, 
+ Derde_Lev.Persoon.VoorNaam As Voornaam, 
+ Derde_Lev.Lev.StraatNrBus,
+ Derde_Lev.Lev.Woonplaats,
+ Derde_Lev.Lev.LandCode As Land, 
+ Derde_Lev.Lev.Postnummer As Postcode, 
+ Derde_Lev.Lev.Taal As Taal,
+ Derde_Lev.Lev.Naam As Bedrijfsnaam
+ FROM Derde_Lev.Persoon 
+ INNER JOIN Derde_Lev.Lev 
+ ON Derde_Lev.Persoon.Derde = Derde_Lev.Lev.ID
+ WHERE PrivacyToelating LIKE '%BM%' AND StraatNrBus != ""
+ Order by Derde_Lev.Persoon.Naam</SqlQuery>
+<SqlView>1</SqlView>
+<Parameter name="CONTAINID" value="1"/>
+</Query>
+
 <Storage name="VHOpslag">
 <Type>%CacheSQLStorage</Type>
 <StreamLocation>^Derde.Kl.PersoonS</StreamLocation>