Index: Res/InternePersoon.cls.xml
===================================================================
diff -u -r1074 -r2656
--- Res/InternePersoon.cls.xml	(.../InternePersoon.cls.xml)	(revision 1074)
+++ Res/InternePersoon.cls.xml	(.../InternePersoon.cls.xml)	(revision 2656)
@@ -5,7 +5,6 @@
 <ProcedureBlock>1</ProcedureBlock>
 <StorageStrategy>VHOpslag</StorageStrategy>
 <Super>%Persistent</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="EmailDomain">
 <Default>vanhoecke.be</Default>
@@ -17,7 +16,9 @@
 
 <Property name="Active">
 <Type>%Boolean</Type>
-<ReadOnly>1</ReadOnly>
+<Calculated>1</Calculated>
+<SqlComputeCode>set {*}=$D(^vhUSER("D",{ID},"M"))</SqlComputeCode>
+<SqlComputed>1</SqlComputed>
 </Property>
 
 <Property name="Firma">
@@ -75,6 +76,11 @@
 <Type>%String</Type>
 </Property>
 
+<Method name="ActiveGet">
+<Implementation><![CDATA[	quit $D(^vhUSER("D",..ID,"M"))
+]]></Implementation>
+</Method>
+
 <Method name="RegiosAlsExtVtwGet">
 <Implementation><![CDATA[	Quit ..RegiosAlsExtVtw(..ID)
 ]]></Implementation>
@@ -353,9 +359,6 @@
 <Subscript name="2">
 <Expression>{ID}</Expression>
 </Subscript>
-<Data name="Active">
-<RetrievalCode> Set {Active}=$D(^vhUSER("D",{ID},"M"))</RetrievalCode>
-</Data>
 <Data name="Firma">
 <Delimiter>"\"</Delimiter>
 <Piece>16</Piece>