Index: DOM/CRM/Interacties/MetadataImport/Parser.cls.xml
===================================================================
diff -u -r734 -r946
--- DOM/CRM/Interacties/MetadataImport/Parser.cls.xml	(.../Parser.cls.xml)	(revision 734)
+++ DOM/CRM/Interacties/MetadataImport/Parser.cls.xml	(.../Parser.cls.xml)	(revision 946)
@@ -1,9 +1,9 @@
 <?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 10:56:29">
 <Class name="DOM.CRM.Interacties.MetadataImport.Parser">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>61901,55555.180915</TimeChanged>
+<TimeChanged>62172,39473.509016</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Seperator">
@@ -25,6 +25,16 @@
 <Calculated>1</Calculated>
 </Property>
 
+<Property name="Type">
+<Type>%String</Type>
+<Calculated>1</Calculated>
+</Property>
+
+<Property name="Omschrijving">
+<Type>%String</Type>
+<Calculated>1</Calculated>
+</Property>
+
 <Property name="BezoekKS">
 <Type>%String</Type>
 <Calculated>1</Calculated>
@@ -42,7 +52,6 @@
 
 <Property name="Groep">
 <Type>%String</Type>
-<Calculated>1</Calculated>
 </Property>
 
 <Property name="ToonzaalbezoekKS">
@@ -70,7 +79,10 @@
 
 <Method name="GroepGet">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit $piece(..Data,..Seperator,1)
+<Implementation><![CDATA[
+	set Value = $piece(..Data,..Seperator,1)
+	if $length(Value) set i%Groep = Value
+	quit i%Groep
 ]]></Implementation>
 </Method>
 
@@ -86,41 +98,53 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BezoekKSGet">
+<Method name="TypeGet">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit $piece(..Data,..Seperator,4)
 ]]></Implementation>
 </Method>
 
-<Method name="BezoekIPGet">
+<Method name="OmschrijvingGet">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit $piece(..Data,..Seperator,5)
 ]]></Implementation>
 </Method>
 
+<Method name="BezoekKSGet">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit 1 ;$piece(..Data,..Seperator,5)
+]]></Implementation>
+</Method>
+
+<Method name="BezoekIPGet">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit 1 ;$piece(..Data,..Seperator,6)
+]]></Implementation>
+</Method>
+
 <Method name="BezoekARGet">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit $piece(..Data,..Seperator,6)
+<Implementation><![CDATA[	quit 1 ;$piece(..Data,..Seperator,7)
 ]]></Implementation>
 </Method>
 
 <Method name="ToonzaalbezoekKSGet">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit $piece(..Data,..Seperator,7)
+<Implementation><![CDATA[	quit 1 ;$piece(..Data,..Seperator,7)
 ]]></Implementation>
 </Method>
 
 <Method name="ToonzaalbezoekIPGet">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit $piece(..Data,..Seperator,8)
+<Implementation><![CDATA[	quit 1 ;$piece(..Data,..Seperator,8)
 ]]></Implementation>
 </Method>
 
 <Method name="ToonzaalbezoekARGet">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit $piece(..Data,..Seperator,9)
+<Implementation><![CDATA[	quit 1 ;$piece(..Data,..Seperator,9)
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3003115005"/>
+<Checksum value="1293532417"/>
 </Export>