Index: AX/Uitgaand/EC/Klanten/impl/pxKlant.cls.xml
===================================================================
diff -u -r37150 -r41787
--- AX/Uitgaand/EC/Klanten/impl/pxKlant.cls.xml	(.../pxKlant.cls.xml)	(revision 37150)
+++ AX/Uitgaand/EC/Klanten/impl/pxKlant.cls.xml	(.../pxKlant.cls.xml)	(revision 41787)
@@ -87,6 +87,11 @@
 <Parameter name="XMLNAME" value="LeveringsAdressen"/>
 </Property>
 
+<Property name="PersonalityId">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="PersonalityID"/>
+</Property>
+
 <Method name="InvullenMetKlantData">
 <FormalSpec>KLNr:%String</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
@@ -109,7 +114,22 @@
 	Set ..BTWNr=..Klant.BTWnummer
 	Set ..IsInclusiefBTW=("GEEN"[..BTWNr)
 	Do ##class(pxAdres).ToevoegenLeveringsAdressen(..Klant, ..LeveringsAdressen)
+	
+	Set ..PersonalityId = ..BepaalPersonalityId(KLNr)
 ]]></Implementation>
 </Method>
+
+<Method name="BepaalPersonalityId">
+<FormalSpec>KLNR:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ResultSet as TECH.ResultSet = $$ExecDynQuery^vhLib.Query("SELECT ID FROM DOM_common_impl.HandelPersonality WHERE Klant = ?",$listbuild(KLNR))
+	if ResultSet.Next() {
+		quit ResultSet.GetDataByName("ID")
+	}
+	quit ""
+]]></Implementation>
+</Method>
 </Class>
 </Export>