Index: Res/Iterator.cls.xml
===================================================================
diff -u
--- Res/Iterator.cls.xml	(revision 0)
+++ Res/Iterator.cls.xml	(revision 2263)
@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="Res.Iterator">
+<Description>
+Een lege string wordt niet aanschouwd als een piece. De HasNext() zal dus false teruggeven als de string leeg is.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,TECH.Iterator</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="CurrentItem">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Type">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SubType">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Type:%String,SubType:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Type = Type
+	Set ..SubType = SubType
+	set ..CurrentItem = ""
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<Description>
+Returns true if the iteration has more elements.</Description>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $order(^RES(..Type,"PI",..SubType,"D",..CurrentItem))'=""
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<Description>
+Returns the next element in the iteration.
+Only returns a valid element if HasNext() returns true
+Causes an error if HasNext() returns false</Description>
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[
+	set ..CurrentItem = $order(^RES(..Type,"PI",..SubType,"D",..CurrentItem))
+	set Result = ""
+	if $Length(..CurrentItem) set Result = $piece(^RES(..Type,"PI",..SubType,"D",..CurrentItem),"`",2)
+	Quit Result
+]]></Implementation>
+</Method>
+
+<Method name="Key">
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[	quit ..CurrentItem
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: WS/Derde/Agenda/AgendaServer.cls.xml
===================================================================
diff -u -r2098 -r2263
--- WS/Derde/Agenda/AgendaServer.cls.xml	(.../AgendaServer.cls.xml)	(revision 2098)
+++ WS/Derde/Agenda/AgendaServer.cls.xml	(.../AgendaServer.cls.xml)	(revision 2263)
@@ -206,8 +206,6 @@
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	$$$TECHErrorTrapOn
-	
-	
 
 	$$$ReInstateSession(SessionKey)
 
@@ -223,6 +221,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GetAgendaTypes">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>SessionKey:%String</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$ReInstateSession(SessionKey)
+	
+	set arTypes = ##class(%ArrayOfDataTypes).%New()
+	
+	set itAgendaTypes = ##class(Res.Iterator).%New("Derde.Agenda","TYPE")
+	while itAgendaTypes.HasNext() {
+		set Item = itAgendaTypes.Next()
+		set Index = itAgendaTypes.Key()
+		do arTypes.SetAt(Item,Index)
+	}
+	quit arTypes
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderAgenda">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>SessionKey,UserID:%Integer,Datum:%String,SubID:%String</FormalSpec>
Index: Derde/Agenda/Agenda.cls.xml
===================================================================
diff -u -r2190 -r2263
--- Derde/Agenda/Agenda.cls.xml	(.../Agenda.cls.xml)	(revision 2190)
+++ Derde/Agenda/Agenda.cls.xml	(.../Agenda.cls.xml)	(revision 2263)
@@ -353,7 +353,7 @@
 	Set pxAgenda.TijdTot=$zt(Agenda.TijdTot,2)
 	Set pxAgenda.TijdDuur=$zt(Agenda.TijdTot-Agenda.TijdVan,2)
 	Set pxAgenda.SubID=Agenda.SubID
-	Set pxAgenda.AutoCreate=Agenda.AutoCreate
+	Set pxAgenda.AutoCreate=+Agenda.AutoCreate
 	
 	Set pxAgenda.Straat=Agenda.Straat
 	Set pxAgenda.PostCode=Agenda.PostCode