Index: BL/Derde/Agenda/pxAgenda.cls.xml
===================================================================
diff -u -r1074 -r2154
--- BL/Derde/Agenda/pxAgenda.cls.xml	(.../pxAgenda.cls.xml)	(revision 1074)
+++ BL/Derde/Agenda/pxAgenda.cls.xml	(.../pxAgenda.cls.xml)	(revision 2154)
@@ -79,6 +79,18 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="Architect">
+<Type>pxArchitect</Type>
+</Property>
+
+<Property name="OngekendeArchitectNaam">
+<Type>%String</Type>
+</Property>
+
+<Property name="Eindgebruiker">
+<Type>pxEindgebruiker</Type>
+</Property>
+
 <Property name="KlantTekst">
 <Type>%String</Type>
 <Parameter name="MAXLEN" value="15000"/>
Index: vhDeploy/JCL/Deploy20110921x0819.cls.xml
===================================================================
diff -u
--- vhDeploy/JCL/Deploy20110921x0819.cls.xml	(revision 0)
+++ vhDeploy/JCL/Deploy20110921x0819.cls.xml	(revision 2154)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.JCL.Deploy20110921x0819">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Default>Converteren toonzaalbezoek data</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	
+	set idxGebruiker=""
+	for  { set idxGebruiker = $order(^Derde.Agenda.AgendaD(idxGebruiker)) quit:idxGebruiker=""
+		set idxDatum =""
+		for { set idxDatum = $order(^Derde.Agenda.AgendaD(idxGebruiker,idxDatum)) quit:idxDatum=""
+			set idxItem = ""
+			for { set idxItem = $order(^Derde.Agenda.AgendaD(idxGebruiker,idxDatum,idxItem)) quit:idxItem=""
+				set ItemIndex = idxGebruiker_"||"_idxDatum_"||"_idxItem
+				set AgendaItem = ##class(Derde.Agenda.Agenda).%OpenId(ItemIndex)
+				
+				if AgendaItem.%Extends("Derde.Agenda.ToonzaalBezoek") {
+					w ItemIndex
+					set AgendaItem.Architect = AgendaItem.ArchitectOld
+					set AgendaItem.Eindgebruiker = AgendaItem.EindgebruikerOld
+					set AgendaItem.OngekendeArchitectNaam = AgendaItem.OngekendeArchitectNaamOld
+					write " ---> "_AgendaItem.%Save(),!
+				}
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: Derde/Agenda/ToonzaalBezoek.cls.xml
===================================================================
diff -u -r2044 -r2154
--- Derde/Agenda/ToonzaalBezoek.cls.xml	(.../ToonzaalBezoek.cls.xml)	(revision 2044)
+++ Derde/Agenda/ToonzaalBezoek.cls.xml	(.../ToonzaalBezoek.cls.xml)	(revision 2154)
@@ -10,10 +10,14 @@
 <Type>Derde.Agenda.Aanleiding</Type>
 </Property>
 
-<Property name="Architect">
+<Property name="ArchitectOld">
 <Type>Derde.Klant.Klant</Type>
 </Property>
 
+<Property name="OngekendeArchitectNaamOld">
+<Type>%String</Type>
+</Property>
+
 <Property name="AantalPersonenArchitect">
 <Type>%Integer</Type>
 </Property>
@@ -22,18 +26,14 @@
 <Type>%Integer</Type>
 </Property>
 
-<Property name="Eindgebruiker">
+<Property name="EindgebruikerOld">
 <Type>Derde.Agenda.Eindgebruiker</Type>
 </Property>
 
 <Property name="KlantOmzet">
 <Type>%Integer</Type>
 </Property>
 
-<Property name="OngekendeArchitectNaam">
-<Type>%String</Type>
-</Property>
-
 <Property name="Catering">
 <Type>Derde.Agenda.Catering</Type>
 </Property>
@@ -46,10 +46,6 @@
 <Properties>Aanleiding</Properties>
 </Index>
 
-<Index name="IndexOnArchitect">
-<Properties>Architect</Properties>
-</Index>
-
 <Method name="%OnBeforeSave">
 <FormalSpec>insert:%Boolean</FormalSpec>
 <Private>1</Private>
@@ -85,18 +81,9 @@
 	
 	do ##super(pxToonzaalBezoek,ToonzaalBezoek)
 	
-	
-	if $length(pxToonzaalBezoek.Eindgebruiker) 
-	 { 	set scStoreEindgebruiker = ##class(Derde.Agenda.Eindgebruiker).StoreEindgebruiker(pxToonzaalBezoek.Eindgebruiker) 
-	    if scStoreEindgebruiker do ToonzaalBezoek.EindgebruikerSetObjectId(pxToonzaalBezoek.Eindgebruiker.ID) }
-	
 	set ToonzaalBezoek.AantalPersonenEindgebruiker = pxToonzaalBezoek.AantalPersonenEindgebruiker    
+	set ToonzaalBezoek.AantalPersonenArchitect = pxToonzaalBezoek.AantalPersonenArchitect
 	
-    do ToonzaalBezoek.ArchitectSetObjectId(pxToonzaalBezoek.Architect)
-    set ToonzaalBezoek.AantalPersonenArchitect = pxToonzaalBezoek.AantalPersonenArchitect 
-	set ToonzaalBezoek.OngekendeArchitectNaam = pxToonzaalBezoek.OngekendeArchitectNaam
-	
-	
 	do ToonzaalBezoek.CateringSetObjectId(pxToonzaalBezoek.Catering)
 	do ToonzaalBezoek.AanleidingSetObjectId(pxToonzaalBezoek.Aanleiding)
 	
@@ -113,16 +100,10 @@
 	
 	do ##super(ToonzaalBezoek,pxToonzaalBezoek)
 	
-	if $length(ToonzaalBezoek.EindgebruikerGetObjectId()) 
-	 { set pxEindgebruiker = ##class(BL.Derde.Agenda.pxEindgebruiker).%New()
-	   do ToonzaalBezoek.Eindgebruiker.Object2Proxy(ToonzaalBezoek.Eindgebruiker,pxEindgebruiker)
-	   set pxToonzaalBezoek.Eindgebruiker = pxEindgebruiker }
 	set pxToonzaalBezoek.AantalPersonenEindgebruiker = ToonzaalBezoek.AantalPersonenEindgebruiker
 	   
-	set pxToonzaalBezoek.Architect = ToonzaalBezoek.ArchitectGetObjectId()
 	set pxToonzaalBezoek.AantalPersonenArchitect = ToonzaalBezoek.AantalPersonenArchitect 
-	set pxToonzaalBezoek.OngekendeArchitectNaam = ToonzaalBezoek.OngekendeArchitectNaam
-
+	
 	set pxToonzaalBezoek.Catering = ToonzaalBezoek.CateringGetObjectId()
 	set pxToonzaalBezoek.Aanleiding = ToonzaalBezoek.AanleidingGetObjectId()
 	
@@ -153,16 +134,16 @@
 <Value>Doelen</Value>
 </Value>
 <Value name="6">
-<Value>Eindgebruiker</Value>
+<Value>EindgebruikerOld</Value>
 </Value>
 <Value name="7">
 <Value>KlantOmzet</Value>
 </Value>
 <Value name="8">
-<Value>OngekendeArchitectNaam</Value>
+<Value>OngekendeArchitectNaamOld</Value>
 </Value>
 <Value name="9">
-<Value>Architect</Value>
+<Value>ArchitectOld</Value>
 </Value>
 </Data>
 </Storage>
Index: BL/Derde/Agenda/pxArchitect.cls.xml
===================================================================
diff -u
--- BL/Derde/Agenda/pxArchitect.cls.xml	(revision 0)
+++ BL/Derde/Agenda/pxArchitect.cls.xml	(revision 2154)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="BL.Derde.Agenda.pxArchitect">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="ID">
+<Type>%String</Type>
+</Property>
+
+<Property name="EmailAdres">
+<Type>%String</Type>
+</Property>
+
+<Property name="TelefoonNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="Aanspreking">
+<Type>%Library.String</Type>
+</Property>
+
+<Property name="Land">
+<Type>%Library.String</Type>
+</Property>
+
+<Property name="Naam">
+<Type>%Library.String</Type>
+</Property>
+
+<Property name="PostCode">
+<Type>%Library.String</Type>
+</Property>
+
+<Property name="StraatNrBus">
+<Type>%Library.String</Type>
+</Property>
+
+<Property name="ToeNaam">
+<Type>%Library.String</Type>
+</Property>
+
+<Property name="WoonPlaats">
+<Type>%Library.String</Type>
+</Property>
+</Class>
+</Export>
Index: Derde/Agenda/Agenda.cls.xml
===================================================================
diff -u -r1384 -r2154
--- Derde/Agenda/Agenda.cls.xml	(.../Agenda.cls.xml)	(revision 1384)
+++ Derde/Agenda/Agenda.cls.xml	(.../Agenda.cls.xml)	(revision 2154)
@@ -8,6 +8,18 @@
 <Super>%Persistent</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Property name="Architect">
+<Type>Derde.Klant.Klant</Type>
+</Property>
+
+<Property name="Eindgebruiker">
+<Type>Derde.Agenda.Eindgebruiker</Type>
+</Property>
+
+<Property name="OngekendeArchitectNaam">
+<Type>%String</Type>
+</Property>
+
 <Property name="Gebruiker">
 <Type>Res.InternePersoon</Type>
 </Property>
@@ -198,6 +210,10 @@
 <Properties>Klant</Properties>
 </Index>
 
+<Index name="ArchitectIndex">
+<Properties>Architect</Properties>
+</Index>
+
 <Index name="PrimaryKey">
 <Description>
 De basissleutel is Gebruiker, Datum en GeoStamp</Description>
@@ -417,6 +433,24 @@
 	if pxAgenda.DerdeType="K" do
 	. set dtoRegistraties = ##class(APPS.CRM.Interacties.BehandeldOnderwerp).GetRegistraties(pxAgenda.DerdeRef)
 	. set pxAgenda.Interacties = dtoRegistraties.BehandeldeOnderwerpen
+	
+    if $length(Agenda.EindgebruikerGetObjectId()) {
+	 	set pxEindgebruiker = ##class(BL.Derde.Agenda.pxEindgebruiker).%New()
+	   	do Agenda.Eindgebruiker.Object2Proxy(Agenda.Eindgebruiker,pxEindgebruiker)
+	    set pxAgenda.Eindgebruiker = pxEindgebruiker 
+	}
+	
+	if $length(Agenda.ArchitectGetObjectId()) {
+		set pxAgenda.Architect = ##class(BL.Derde.Agenda.pxArchitect).%New()
+		Set pxAgenda.Architect.ID=Agenda.Architect.%Id()
+		Set pxAgenda.Architect.Naam=Agenda.Architect.Naam
+		set pxAgenda.Architect.StraatNrBus = Agenda.Architect.StraatNrBus
+		set pxAgenda.Architect.PostCode = Agenda.Architect.Postnummer
+		set pxAgenda.Architect.WoonPlaats = Agenda.Architect.Woonplaats
+		set pxAgenda.Architect.Land = Agenda.Architect.LandCode
+	}
+	
+	set pxAgenda.OngekendeArchitectNaam = Agenda.OngekendeArchitectNaam
 ]]></Implementation>
 </Method>
 
@@ -485,7 +519,20 @@
 	. Set ParticipantID = $piece(pxAgenda.Participanten,"",Counter)
 	. Do:$length(ParticipantID) Agenda.Participanten.SetObjectIdAt(ParticipantID,ParticipantID)
 	
+    if $length(pxAgenda.Eindgebruiker) {
+	 	set scStoreEindgebruiker = ##class(Derde.Agenda.Eindgebruiker).StoreEindgebruiker(pxAgenda.Eindgebruiker) 
+	    if scStoreEindgebruiker do Agenda.EindgebruikerSetObjectId(pxAgenda.Eindgebruiker.ID) 
+	}
 	
+	if $length(pxAgenda.Architect) {
+		do Agenda.ArchitectSetObjectId(pxAgenda.Architect.ID)
+	}
+	else {
+		do Agenda.ArchitectSetObjectId("")
+	}
+
+    set Agenda.OngekendeArchitectNaam = pxAgenda.OngekendeArchitectNaam
+	
 StripEnd(String)
 	For  Quit:$E(String,$L(String))'?1(1"~",1" ")  Set $E(String,$L(String))=""
 	Quit String
@@ -599,6 +646,15 @@
 <Value name="33">
 <Value>KlantBijgeleerd</Value>
 </Value>
+<Value name="34">
+<Value>Architect</Value>
+</Value>
+<Value name="35">
+<Value>Eindgebruiker</Value>
+</Value>
+<Value name="36">
+<Value>OngekendeArchitectNaam</Value>
+</Value>
 </Data>
 <Data name="Participanten">
 <Attribute>Participanten</Attribute>
Index: BL/Derde/Agenda/pxToonzaalBezoek.cls.xml
===================================================================
diff -u -r1133 -r2154
--- BL/Derde/Agenda/pxToonzaalBezoek.cls.xml	(.../pxToonzaalBezoek.cls.xml)	(revision 1133)
+++ BL/Derde/Agenda/pxToonzaalBezoek.cls.xml	(.../pxToonzaalBezoek.cls.xml)	(revision 2154)
@@ -9,14 +9,6 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="Architect">
-<Type>%Integer</Type>
-</Property>
-
-<Property name="OngekendeArchitectNaam">
-<Type>%String</Type>
-</Property>
-
 <Property name="AantalPersonenArchitect">
 <Type>%Integer</Type>
 </Property>
@@ -25,10 +17,6 @@
 <Type>%Integer</Type>
 </Property>
 
-<Property name="Eindgebruiker">
-<Type>pxEindgebruiker</Type>
-</Property>
-
 <Property name="Catering">
 <Type>%String</Type>
 </Property>
Index: Derde/Agenda/Eindgebruiker.cls.xml
===================================================================
diff -u -r1074 -r2154
--- Derde/Agenda/Eindgebruiker.cls.xml	(.../Eindgebruiker.cls.xml)	(revision 1074)
+++ Derde/Agenda/Eindgebruiker.cls.xml	(.../Eindgebruiker.cls.xml)	(revision 2154)
@@ -25,16 +25,24 @@
 <FormalSpec>pxEindgebruiker:BL.Derde.Agenda.pxEindgebruiker,ID:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	 
 	 set Eindgebruiker = ""
-	 if $length(pxEindgebruiker.ID) 
-	 { quit:($$$Not(..%ExistsId(pxEindgebruiker.ID))) $$$ERROR($$$GeneralError,"ID not Existing")
-	    set Eindgebruiker = ..%OpenId(pxEindgebruiker.ID) }
-	 else { if '$isObject(Eindgebruiker) set Eindgebruiker = ..%New() }
-	 
+	 if $length(pxEindgebruiker.ID) && (pxEindgebruiker.ID?1.10N) { 
+	 	if $$$Not(..%ExistsId(pxEindgebruiker.ID)) {
+		 	set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"Eindgebruiker ID "_pxEindgebruiker.ID_" bestaat niet")
+		  	do ##class(TECH.ExceptionHandler).Throw(Exception)
+	 	}
+	 	set Eindgebruiker = ..%OpenId(pxEindgebruiker.ID)
+	 }
+	  
+	 if '$isObject(Eindgebruiker) set Eindgebruiker = ..%New()
+	  
 	 do Eindgebruiker.Proxy2Object(Eindgebruiker,pxEindgebruiker)
 	 
 	 Set scSaved = Eindgebruiker.%Save()
+	 if 'scSaved {
+		 set Exception = ##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).SaveFailed(),"Eindgebruiker "_pxEindgebruiker.Naam_" kan niet worden bewaard",scSaved) 
+		 do ##class(TECH.ExceptionHandler).Throw(Exception)
+	 }
 	 
 	 Set pxEindgebruiker.ID = Eindgebruiker.%Id()
 	 Quit scSaved