Index: zTryout/WV/PM/Test.cls.xml
===================================================================
diff -u -r66836 -r67930
--- zTryout/WV/PM/Test.cls.xml	(.../Test.cls.xml)	(revision 66836)
+++ zTryout/WV/PM/Test.cls.xml	(.../Test.cls.xml)	(revision 67930)
@@ -4,6 +4,38 @@
 <IncludeCode>vhLib.Macro,Prod.Product</IncludeCode>
 <Super>TECH.RegisteredObject</Super>
 
+<Method name="MaakXmlFileVoorHttpPost">
+<Description>
+d ##class(zTryout.WV.PM.Test).%New().MaakXmlFileVoorHttpPost(id)</Description>
+<FormalSpec>OfferteId:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim Offerte As APPS.VKP.impl.Offerte = ##class(APPS.VKP.impl.Offerte).OpenId(OfferteId)
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(Offerte.GeefPersonalityID())
+	 
+	Set OfferteGenerator = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator).%New()
+	#dim OffDto As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.Offerte = OfferteGenerator.GeefOfferteDto(Offerte)
+	
+	#dim BestandNaam As %String = "HttpPost_"_ Offerte.GeefPersonality().GeefPrefix() _"_Edi_" _ Offerte.ExterneId _ ".xml"
+	Do ..ExporteerDataTransferObject(OffDto,BestandNaam)
+]]></Implementation>
+</Method>
+
+<Method name="ExporteerDataTransferObject">
+<FormalSpec>OffDto:TECH.DataTransferObject,BestandNaam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set FileWriter = ##class(TECH.File.impl.FileWriter).%New()
+	
+	#dim SubFolder As %String = "HttpPostXml"
+	#dim BestandLocatie As %String = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("DefaultExportDirectory"),SubFolder)
+	#dim BestandVolledigeNaam As %String = ##class(TECH.Files).AppendFile(BestandLocatie,BestandNaam)
+
+	Do FileWriter.Open(BestandVolledigeNaam)
+	do FileWriter.WriteXML(OffDto)
+	do FileWriter.Close()
+]]></Implementation>
+</Method>
+
 <Method name="HermaakTbxProducten">
 <Description>
 Do ##class(zTryout.WV.PM.Test).%New().HermaakTbxProducten()</Description>
@@ -954,6 +986,51 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="KillThemAll">
+<Description>
+Do ##class(zTryout.KCA.KillMailForUser).KillThemAll("1296")
+Do ##class(zTryout.KCA.KillMailForUser).KillThemAll("1073")
+Oproepen via : 
+   Do ##class(zTryout.WV.PM.Test).%New().KillThemAll(id) </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>User:%String="1296"</FormalSpec>
+<Implementation><![CDATA[
+	Set Key = $O(^vhMAIL("D",2123300))
+	while Key '= "" {
+		If $D(^vhMAIL("D",Key,"N",User)) && $D(^vhMAIL("D",Key,"R",1) ) && (^vhMAIL("D",Key,"R",1) [ "FAX") {
+			Write !,Key
+			Write !,^vhMAIL("D",Key,"R",1)
+			
+			Write !, "Kill ^vhMAIL(""D"","_Key _")"
+			Kill ^vhMAIL("D",Key)
+		}
+		
+		Set Key = $O(^vhMAIL("D",Key) 	)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ZoekClassDefinitionsZonderCompiledClass">
+<Description>
+Do ##class(zTryout.PRA.Scrapbook).%New().ZoekClassDefinitionsZonderCompiledClass()
+Oproepen via : 
+   Do ##class(zTryout.WV.PM.Test).%New().ZoekClassDefinitionsZonderCompiledClass() </Description>
+<Implementation><![CDATA[
+		#Dim ClassDefinitions As %ResultSet = ##class(%ResultSet).%New()
+		Set ClassDefinitions.ClassName = "%Library.ClassDefinition"
+		Set ClassDefinitions.QueryName = "ClassInfo"
+		Do ClassDefinitions.Execute()
+		While ClassDefinitions.Next()
+		{
+			#Dim ClassName As %String = ClassDefinitions.Get( "Name" )
+			If '$IsObject( ##class(%Library.CompiledClass).%OpenId(ClassName) ) {
+				Write ClassName, !
+			}
+		}
+		Do ClassDefinitions.Close()
+]]></Implementation>
+</Method>
 </Class>