Index: DOM/CRM/impl/DataM/DataMPersoon.cls.xml
===================================================================
diff -u -r1075 -r1264
--- DOM/CRM/impl/DataM/DataMPersoon.cls.xml	(.../DataMPersoon.cls.xml)	(revision 1075)
+++ DOM/CRM/impl/DataM/DataMPersoon.cls.xml	(.../DataMPersoon.cls.xml)	(revision 1264)
@@ -5,110 +5,17 @@
 JBL + 2011-03-29 
 enkapsulatie van ^PERS</Description>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>DOM.CRM.impl.DataM.DataMPersoonBase</Super>
+<Super>DOM.common.impl.DataM.DataMPersoon</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Parameter name="PersoonGegevensNode">
-<Type>%Integer</Type>
-<Default>0</Default>
-</Parameter>
-
-<Property name="Persisted">
-<Type>%Boolean</Type>
-<InitialExpression>"0"</InitialExpression>
-<Private>1</Private>
-</Property>
-
-<Property name="PersoonGegevensDirty">
-<Type>%Boolean</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="PersoonGegevensCached">
-<Type>%Boolean</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
 <FormalSpec>KlantNummer:%Integer,VolgNummer:%Integer</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-		Do ##super(KlantNummer, VolgNummer)
-		Set ..Persisted = 0
-		Set ..PersoonGegevensDirty = 1
-		Quit $$$OK
+	Do ##super(KlantNummer, VolgNummer)
+	Set ..PersoonNode = "K" ///De node in ^PERS die nodig is om aan te duiden als Klant.
+	Quit $$$OK
 ]]></Implementation>
 </Method>
-
-<Method name="Open">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-		Set Status = $$$OK
-		If ($Data(^PERS("K",..KlantNummer,..VolgNummer)))
-		{
-			Set ..Persisted = 1
-			Set ..PersoonGegevensDirty = 0
-		}Else{
-			Set Status = '($$$OK)
-		}
-		Quit Status
-]]></Implementation>
-</Method>
-
-<Method name="Save">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	
-		If ((..KlantNummer = "") || (..VolgNummer = "") ) 
-		{
-			$$$ThrowError($$$errGeneralError,"Er is geen KlantNummer of VolgNummer ingevuld, kan object niet saven.")	
-		}
-		
-		If (..PersoonGegevensDirty)
-		{
-			Do ..ZetTijdstipLaatsteWijziging($h)
-			
-			If (..PersoonGegevensDirty) {
-				TSTART
-				Do ##class(vhLib.OldSchool).InitVars()
-				
-				/// Als het nieuwe persoon is, nog een een uniek nummer instellen
-				If (..GeefNummer() = ""){
-					Do ..ZetNummer($$NEXTID^PERS)
-				}
-				
-				/// Nieuwe gegevens in de global wegschrijven
-				Set ^PERS("K",..KlantNummer,..VolgNummer) = ..PersoonGegevens				
-				Do REMINDEX^PERS("K",..KlantNummer)
-				
-				Do BLDINDEX^PERS("K",..KlantNummer)
-				
-				Set %J=$G(%J,$$%J^vhRtn1())
-				Do CompMassMail^PERS2(%J,..KlantNummer)
-				TCOMMIT
-			}
-		}
-		Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="PersoonGegevensGewijzigd">
-<Implementation><![CDATA[
-		Set ..PersoonGegevensDirty = 1
-		Set ..PersoonGegevensCached = 1
-]]></Implementation>
-</Method>
-
-<Method name="PersoonGegevensGet">
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	If (..Persisted && ('..PersoonGegevensCached)){
-		Set i%PersoonGegevens = ^PERS("K",..KlantNummer,..VolgNummer)
-		Set PersoonGegevensCached = 1
-	}
-	Quit i%PersoonGegevens
-]]></Implementation>
-</Method>
 </Class>
 </Export>