Index: DOM/CRM/Interacties/Metadata.cls.xml
===================================================================
diff -u -r734 -r946
--- DOM/CRM/Interacties/Metadata.cls.xml	(.../Metadata.cls.xml)	(revision 734)
+++ DOM/CRM/Interacties/Metadata.cls.xml	(.../Metadata.cls.xml)	(revision 946)
@@ -1,11 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:00:58">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-22 11:17:31">
 <Class name="DOM.CRM.Interacties.Metadata">
 <ClassType>persistent</ClassType>
 <IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%Persistent</Super>
-<TimeChanged>61901,57299.620327</TimeChanged>
+<TimeChanged>62172,40736.068883</TimeChanged>
 <TimeCreated>61879,57172.763939</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -57,7 +57,10 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Filename:%String</FormalSpec>
 <Implementation><![CDATA[
-	do ..%KillExtent()
+	;do ..%KillExtent()
+	;do ##class(DOM.CRM.BehandeldOnderwerp.Groep).%KillExtent()
+	;do ##class(DOM.CRM.BehandeldOnderwerp.Onderwerp).%KillExtent()
+	;do ##class(DOM.CRM.Interacties.MetadataActie).%KillExtent()
 
 	set aStream = ##class(%FileCharacterStream).%New()
 	set aStream.Filename = Filename
@@ -67,9 +70,34 @@
 	while $$$Not(aStream.AtEnd)
 	 { set Parser.Data = aStream.ReadLine()
 	   continue:$$$Not(Parser.IsValid())
-	   continue:$$$Not(##class(DOM.CRM.BehandeldOnderwerp.Groep).%ExistsId(Parser.Groep))
-	   continue:$$$Not(##class(DOM.CRM.BehandeldOnderwerp.Onderwerp).%ExistsId(Parser.Groep_"||"_Parser.Onderwerp))
 	   
+	   
+	   if $$$Not(##class(DOM.CRM.BehandeldOnderwerp.Groep).%ExistsId(Parser.Groep)) {
+	   		set Groep = ##class(DOM.CRM.BehandeldOnderwerp.Groep).%New()
+	   		set Groep.Omschrijving = Parser.Groep
+	   		do Groep.%Save()
+	   }
+	  
+	   set OnderwerpID = Parser.Groep_"||"_Parser.Onderwerp
+	   if $$$Not(##class(DOM.CRM.BehandeldOnderwerp.Onderwerp).%ExistsId(OnderwerpID)) {
+		   	set Onderwerp = ##class(DOM.CRM.BehandeldOnderwerp.Onderwerp).%New()
+	   		do Onderwerp.GroepSetObjectId(Parser.Groep)
+	   		set Onderwerp.Omschrijving = Parser.Onderwerp
+	   		do Onderwerp.%Save()
+	   }
+	   
+	   set MetadataActieID = Parser.Actie
+	   if ##class(DOM.CRM.Interacties.MetadataActie).%ExistsId(MetadataActieID) {
+		   set MetadataActie = ##class(DOM.CRM.Interacties.MetadataActie).%OpenId(MetadataActieID)
+	   }
+	   else {  
+	   	   set MetadataActie = ##class(DOM.CRM.Interacties.MetadataActie).%New()
+	   }
+	   set MetadataActie.Omschrijving = Parser.Actie
+	   set MetadataActie.ParamDataType = Parser.Type
+	   set MetadataActie.ParamOmschrijving = Parser.Omschrijving
+	   do MetadataActie.%Save()
+	   
 	   set MetadataID = Parser.Groep_"||"_Parser.Onderwerp_"||"_Parser.Actie
 	   if ..%ExistsId(MetadataID) 
 	     { set Metadata = ..%OpenId(MetadataID) }
@@ -80,16 +108,17 @@
 	   
 	   do Metadata.Toepassingen.Clear()
 
-	   for Toepassing = "Bezoek","Toonzaalbezoek" 
-	    { for KlantDivisie = "KS","IP","AR" 
-	       { if $length($zobjProperty(Parser,Toepassing_KlantDivisie))
-	         { set objToepassing = ##class(DOM.CRM.Interacties.MetadataToepassing).%New()
-	           set objToepassing.KlantDivisie = KlantDivisie
-	           set ToepassingID = ##class(DOM.CRM.BehandeldOnderwerp.Toepassing).CodeFromOmschrijving(Toepassing)
-	           do objToepassing.ToepassingSetObjectId(ToepassingID)
-	           do Metadata.Toepassingen.SetAt(objToepassing,Metadata.Toepassingen.Count()+1) }
-	       }
-	    }
+	   for Toepassing = "Bezoek","Toonzaalbezoek" {
+		     for KlantDivisie = "KS","IP","AR" {
+			       if $length($zobjProperty(Parser,Toepassing_KlantDivisie)) {
+						set objToepassing = ##class(DOM.CRM.Interacties.MetadataToepassing).%New()
+						set objToepassing.KlantDivisie = KlantDivisie
+						set ToepassingID = ##class(DOM.CRM.BehandeldOnderwerp.Toepassing).CodeFromOmschrijving(Toepassing)
+						do objToepassing.ToepassingSetObjectId(ToepassingID)
+						do Metadata.Toepassingen.SetAt(objToepassing,Metadata.Toepassingen.Count()+1) 
+			       }
+			     }
+		    }
 	   
 	   do Metadata.%Save()
 	 }
@@ -131,5 +160,5 @@
 </Data>
 </Storage>
 </Class>
-<Checksum value="4209878591"/>
+<Checksum value="91377369"/>
 </Export>