Index: Derde/Agenda/Agenda.cls.xml
===================================================================
diff -u -r2263 -r2265
--- Derde/Agenda/Agenda.cls.xml	(.../Agenda.cls.xml)	(revision 2263)
+++ Derde/Agenda/Agenda.cls.xml	(.../Agenda.cls.xml)	(revision 2265)
@@ -223,6 +223,44 @@
 <Unique>1</Unique>
 </Index>
 
+<Property name="Aanleiding">
+<Type>Derde.Agenda.Aanleiding</Type>
+</Property>
+
+<Property name="AantalPersonenArchitect">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="AantalPersonenEindgebruiker">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="KlantOmzet">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Catering">
+<Type>Derde.Agenda.Catering</Type>
+</Property>
+
+<Index name="IndexOnCatering">
+<Properties>Catering</Properties>
+</Index>
+
+<Index name="IndexOnAanleiding">
+<Properties>Aanleiding</Properties>
+</Index>
+
+<Method name="%OnBeforeSave">
+<FormalSpec>insert:%Boolean</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	If '$length(..%Oid()) && $length(..Klant) Do ..BepaalKlantOmzet()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Create">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Gebruiker,Datum,TijdVan,TijdTot,Type,KlantTekst,InternTekst,Straat,Gemeente,PostCode,Land,Latitude,Longitude</FormalSpec>
@@ -451,6 +489,13 @@
 	}
 	
 	set pxAgenda.OngekendeArchitectNaam = Agenda.OngekendeArchitectNaam
+	
+	if Agenda.Type = "TZ" {
+		set pxAgenda.AantalPersonenEindgebruiker = Agenda.AantalPersonenEindgebruiker
+	   	set pxAgenda.AantalPersonenArchitect = Agenda.AantalPersonenArchitect 
+		set pxAgenda.Catering = Agenda.CateringGetObjectId()
+		set pxAgenda.Aanleiding = Agenda.AanleidingGetObjectId()
+	}
 ]]></Implementation>
 </Method>
 
@@ -530,13 +575,39 @@
 	}
 	
     set Agenda.OngekendeArchitectNaam = pxAgenda.OngekendeArchitectNaam
+    
+    if pxAgenda.Type = "TZ" {
+		set Agenda.AantalPersonenEindgebruiker = pxAgenda.AantalPersonenEindgebruiker    
+		set Agenda.AantalPersonenArchitect = pxAgenda.AantalPersonenArchitect
 	
+		do Agenda.CateringSetObjectId(pxAgenda.Catering)
+		do Agenda.AanleidingSetObjectId(pxAgenda.Aanleiding)
+    }
+	
 StripEnd(String)
 	For  Quit:$E(String,$L(String))'?1(1"~",1" ")  Set $E(String,$L(String))=""
 	Quit String
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalKlantOmzet">
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	#Define VeldOmzetWaarde 	1
+	#Define AantalJaar			1
+	
+	New D Set D = "\"
+	New BeginPeriode,EindPeriode 
+
+	Set BeginPeriode = $translate($$Format^vhLib("jjjj/mm",$horolog),"/",".")
+	Set EindPeriode = $piece(BeginPeriode,".",1) - $$$AantalJaar _ "." _ $piece(BeginPeriode,".",2)
+	Set ..KlantOmzet = $$KLANT^STAT(..Klant.Nummer,,BeginPeriode,EindPeriode,$$$VeldOmzetWaarde)
+	
+	Quit
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^Derde.Agenda.AgendaD</DataLocation>
@@ -653,6 +724,21 @@
 <Value name="36">
 <Value>OngekendeArchitectNaam</Value>
 </Value>
+<Value name="37">
+<Value>Aanleiding</Value>
+</Value>
+<Value name="38">
+<Value>AantalPersonenArchitect</Value>
+</Value>
+<Value name="39">
+<Value>AantalPersonenEindgebruiker</Value>
+</Value>
+<Value name="41">
+<Value>Catering</Value>
+</Value>
+<Value name="43">
+<Value>KlantOmzet</Value>
+</Value>
 </Data>
 <Data name="Participanten">
 <Attribute>Participanten</Attribute>
Index: vhDeploy/JCL/Deploy20111005x0744.cls.xml
===================================================================
diff -u
--- vhDeploy/JCL/Deploy20111005x0744.cls.xml	(revision 0)
+++ vhDeploy/JCL/Deploy20111005x0744.cls.xml	(revision 2265)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.JCL.Deploy20111005x0744">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Default>Agenda - Toonzaalbezoek naar agenda</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	do ##class(Derde.Agenda.Agenda).%PurgeIndices()
+	do ##class(Derde.Agenda.Agenda).%BuildIndices()
+	do ##class(Derde.Agenda.ToonzaalBezoek).%PurgeIndices()
+	do ##class(Derde.Agenda.ToonzaalBezoek).%BuildIndices()
+	
+	set rsToonzaalBezoek = ##class(%ResultSet).%New("Derde.Agenda.ToonzaalBezoek:Extent")
+	do rsToonzaalBezoek.Execute()
+	while rsToonzaalBezoek.Next() {
+		Set Saved = 0
+		set ToonzaalBezoekID = rsToonzaalBezoek.Get("ID")
+		set ToonzaalBezoek = ##class(Derde.Agenda.ToonzaalBezoek).%OpenId(ToonzaalBezoekID)	
+		set ToonzaalBezoek.Aanleiding = ToonzaalBezoek.tzAanleiding
+		set ToonzaalBezoek.AantalPersonenArchitect = ToonzaalBezoek.tzAantalPersonenArchitect
+		set ToonzaalBezoek.AantalPersonenEindgebruiker = ToonzaalBezoek.tzAantalPersonenEindgebruiker
+		set ToonzaalBezoek.KlantOmzet = ToonzaalBezoek.tzKlantOmzet
+		set ToonzaalBezoek.Catering = ToonzaalBezoek.tzCatering
+		Set Saved = ToonzaalBezoek.%Save()
+		if Saved {
+			set Subscript=##class(TECH.StringUtils).Replace(ToonzaalBezoekID,"||",",")
+			if $D(@("^Derde.Agenda.AgendaD("_Subscript_")")) {
+				set $li(@$zr,1)=""
+				kill @("^Derde.Agenda.AgendaD("_Subscript_",""ToonzaalBezoek"")")	
+			}
+		}
+		set ToonzaalBezoek=""
+		set ToonzaalBezoek=##class(Derde.Agenda.Agenda).%OpenId(ToonzaalBezoekID)	 		
+		if $isObject(ToonzaalBezoek) {
+			set Saved = ($lg(ToonzaalBezoek.%Oid(),2)="Derde.Agenda.Agenda")
+		} else { set Saved = 0 }
+		
+		if 'Saved  {
+			W !,"Het converteren van toonzaalBezoek "_ToonzaalBezoekID_" is gefaald"
+		}
+	}
+	
+	do ##class(Derde.Agenda.Agenda).%PurgeIndices()
+	do ##class(Derde.Agenda.Agenda).%BuildIndices()
+	do ##class(Derde.Agenda.ToonzaalBezoek).%PurgeIndices()
+	do ##class(Derde.Agenda.ToonzaalBezoek).%BuildIndices()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: Derde/Agenda/ToonzaalBezoek.cls.xml
===================================================================
diff -u -r2154 -r2265
--- Derde/Agenda/ToonzaalBezoek.cls.xml	(.../ToonzaalBezoek.cls.xml)	(revision 2154)
+++ Derde/Agenda/ToonzaalBezoek.cls.xml	(.../ToonzaalBezoek.cls.xml)	(revision 2265)
@@ -6,44 +6,44 @@
 <Super>Derde.Agenda.Agenda</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Property name="Aanleiding">
+<Property name="tzAanleiding">
 <Type>Derde.Agenda.Aanleiding</Type>
 </Property>
 
-<Property name="ArchitectOld">
+<Property name="tzArchitectOld">
 <Type>Derde.Klant.Klant</Type>
 </Property>
 
-<Property name="OngekendeArchitectNaamOld">
+<Property name="tzOngekendeArchitectNaamOld">
 <Type>%String</Type>
 </Property>
 
-<Property name="AantalPersonenArchitect">
+<Property name="tzAantalPersonenArchitect">
 <Type>%Integer</Type>
 </Property>
 
-<Property name="AantalPersonenEindgebruiker">
+<Property name="tzAantalPersonenEindgebruiker">
 <Type>%Integer</Type>
 </Property>
 
-<Property name="EindgebruikerOld">
+<Property name="tzEindgebruikerOld">
 <Type>Derde.Agenda.Eindgebruiker</Type>
 </Property>
 
-<Property name="KlantOmzet">
+<Property name="tzKlantOmzet">
 <Type>%Integer</Type>
 </Property>
 
-<Property name="Catering">
+<Property name="tzCatering">
 <Type>Derde.Agenda.Catering</Type>
 </Property>
 
-<Index name="IndexOnCatering">
-<Properties>Catering</Properties>
+<Index name="IndexOntzCatering">
+<Properties>tzCatering</Properties>
 </Index>
 
-<Index name="IndexOnAanleiding">
-<Properties>Aanleiding</Properties>
+<Index name="IndexOntzAanleiding">
+<Properties>tzAanleiding</Properties>
 </Index>
 
 <Method name="%OnBeforeSave">
@@ -56,94 +56,37 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalKlantOmzet">
-<Private>1</Private>
-<ProcedureBlock>0</ProcedureBlock>
-<Implementation><![CDATA[
-	#Define VeldOmzetWaarde 	1
-	#Define AantalJaar			1
-	
-	New D Set D = "\"
-	New BeginPeriode,EindPeriode 
-
-	Set BeginPeriode = $translate($$Format^vhLib("jjjj/mm",$horolog),"/",".")
-	Set EindPeriode = $piece(BeginPeriode,".",1) - $$$AantalJaar _ "." _ $piece(BeginPeriode,".",2)
-	Set ..KlantOmzet = $$KLANT^STAT(..Klant.Nummer,,BeginPeriode,EindPeriode,$$$VeldOmzetWaarde)
-	
-	Quit
-]]></Implementation>
-</Method>
-
-<Method name="Proxy2Object">
-<FormalSpec>pxToonzaalBezoek,ToonzaalBezoek</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	
-	do ##super(pxToonzaalBezoek,ToonzaalBezoek)
-	
-	set ToonzaalBezoek.AantalPersonenEindgebruiker = pxToonzaalBezoek.AantalPersonenEindgebruiker    
-	set ToonzaalBezoek.AantalPersonenArchitect = pxToonzaalBezoek.AantalPersonenArchitect
-	
-	do ToonzaalBezoek.CateringSetObjectId(pxToonzaalBezoek.Catering)
-	do ToonzaalBezoek.AanleidingSetObjectId(pxToonzaalBezoek.Aanleiding)
-	
-	Set ToonzaalBezoek.Type = "TZ"
-	
-	quit
-]]></Implementation>
-</Method>
-
-<Method name="Object2Proxy">
-<FormalSpec>ToonzaalBezoek,pxToonzaalBezoek</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	
-	do ##super(ToonzaalBezoek,pxToonzaalBezoek)
-	
-	set pxToonzaalBezoek.AantalPersonenEindgebruiker = ToonzaalBezoek.AantalPersonenEindgebruiker
-	   
-	set pxToonzaalBezoek.AantalPersonenArchitect = ToonzaalBezoek.AantalPersonenArchitect 
-	
-	set pxToonzaalBezoek.Catering = ToonzaalBezoek.CateringGetObjectId()
-	set pxToonzaalBezoek.Aanleiding = ToonzaalBezoek.AanleidingGetObjectId()
-	
-	set pxToonzaalBezoek.Type = "TZ"
-	
-	Quit
-]]></Implementation>
-</Method>
-
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>ToonzaalBezoekDefaultData</DefaultData>
 <Data name="ToonzaalBezoekDefaultData">
 <Subscript>"ToonzaalBezoek"</Subscript>
 <Value name="1">
-<Value>Aanleiding</Value>
+<Value>tzAanleiding</Value>
 </Value>
 <Value name="2">
-<Value>AantalPersonenArchitect</Value>
+<Value>tzAantalPersonenArchitect</Value>
 </Value>
 <Value name="3">
-<Value>AantalPersonenEindgebruiker</Value>
+<Value>tzAantalPersonenEindgebruiker</Value>
 </Value>
 <Value name="4">
-<Value>Catering</Value>
+<Value>tzCatering</Value>
 </Value>
 <Value name="5">
-<Value>Doelen</Value>
+<Value>tzDoelen</Value>
 </Value>
 <Value name="6">
-<Value>EindgebruikerOld</Value>
+<Value>tzEindgebruikerOld</Value>
 </Value>
 <Value name="7">
-<Value>KlantOmzet</Value>
+<Value>tzKlantOmzet</Value>
 </Value>
 <Value name="8">
-<Value>OngekendeArchitectNaamOld</Value>
+<Value>tzOngekendeArchitectNaamOld</Value>
 </Value>
 <Value name="9">
-<Value>ArchitectOld</Value>
+<Value>tzArchitectOld</Value>
 </Value>
 </Data>
 </Storage>