Index: zTryout/TVE/Vanalles.cls.xml
===================================================================
diff -u -r67651 -r74154
--- zTryout/TVE/Vanalles.cls.xml	(.../Vanalles.cls.xml)	(revision 67651)
+++ zTryout/TVE/Vanalles.cls.xml	(.../Vanalles.cls.xml)	(revision 74154)
@@ -2,8 +2,16 @@
 <Export generator="Cache" version="24">
 <Class name="zTryout.TVE.Vanalles">
 <IncludeCode>Prod.Product</IncludeCode>
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.RegisteredObject,WS.OngeauthenticeerdeWebService</Super>
 
+<Parameter name="SERVICENAME">
+<Default>ZotteKarakterService</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://www.vanhoecke.be/AX/DocGen/ZotteKarakterService</Default>
+</Parameter>
+
 <Method name="LinesOfCode">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
@@ -88,6 +96,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="LijstProscanGebruikers">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim Tekst As %String = ""
+	For  { Set Tekst=$Order(^vhUSER("D",Tekst)) Quit:(Tekst="")
+		If $g(^vhUSER("D",Tekst,"R")) = "Productiemedewerker" {
+			w !,$P(^vhUSER("D",Tekst),"\",4) _ " " _ $P(^vhUSER("D",Tekst),"\",5) _ " " _ $P(^vhUSER("D",Tekst),"\",13)
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="UpdateAlleKlanten">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
@@ -421,6 +441,53 @@
 	w !,$ZTIMESTAMP
 ]]></Implementation>
 </Method>
+
+<Method name="SchrijfZotteKarakters">
+<FormalSpec>aInput</FormalSpec>
+<ReturnType>WS.Halux.AAP.GeneriekeResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	  // show the process default translation (RAW, no translation performed)
+  Set Tbl = ##class(%SYS.NLS.Table).%New("Process")
+  Write "Process default translation: ", Tbl.File, !
+  
+  // create and open a temporary file
+  // use XML for the translation
+  Set TempName = ##class(%Library.File).TempFilename("log")
+  Set TempFile = ##class(%Library.File).%New(TempName)
+  Do TempFile.Open("WSNK\XML\")
+  Write "Temp file: ", TempFile.CanonicalNameGet(), !
+  
+  // write a few characters to show the translation
+  // then close it
+  Do TempFile.WriteLine((aInput))
+  Do TempFile.Close()
+  
+  // now re-open it in raw mode and show content
+  Do TempFile.Open("RSK\RAW\")
+  Do TempFile.Rewind()
+  Set MaxChars = 50
+  Set Line = TempFile.Read(.MaxChars)
+  Write "Contents: """, Line, """", !
+  
+  // finish
+  //Do TempFile.Close()
+  //Do ##class(%Library.File).Delete(TempName)
+  //Set TempFile = "" 
+	
+	
+	
+	
+	Set ^TVE(1) = aInput
+	Set response = ##class(WS.Halux.AAP.GeneriekeResponse).%New()
+	Set response.Header.Omschrijving = TempName
+	
+	
+	Set ^TVE(1)=$CHAR(196,133)
+	
+	Quit response
+]]></Implementation>
+</Method>
 </Class>