Index: vhDeploy/JCL/Deploy20111028x0925.cls.xml
===================================================================
diff -u
--- vhDeploy/JCL/Deploy20111028x0925.cls.xml	(revision 0)
+++ vhDeploy/JCL/Deploy20111028x0925.cls.xml	(revision 2546)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.JCL.Deploy20111028x0925">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Default><![CDATA[Wijzigen Agenda -> Architecten naar ArchitectVeld]]></Default>
+</Parameter>
+
+<Parameter name="DoetDataWijzigingen">
+<Type>%Boolean</Type>
+<Default>1</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+ 	set rsAgenda = $$ExecDynQuery^vhQUERYLIB("SELECT ID FROM Derde_Agenda.Agenda WHERE Type = ?",$listbuild("B"))
+	while rsAgenda.Next() {
+		set ID = rsAgenda.Get("ID")
+		set Agenda = ##class(Derde.Agenda.Agenda).%OpenId(ID)
+		if ($isObject(Agenda.Klant)) && ('$isObject(Agenda.Architect)) {
+			set Klant = ##class(DOM.DomeinContext).Instance().GeefKlantAPI().GeefKlant(Agenda.KlantGetObjectId())
+			set KlantNiveau = Klant.GeefKlantNiveau()
+			if KlantNiveau = ##class(DOM.CRM.enu.KlantNiveau).Architect() {
+				do Agenda.ArchitectSetObjectId(Agenda.KlantGetObjectId())
+				do Agenda.KlantSetObjectId("")
+				do Agenda.%Save()
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>