Index: PRA Ugly picking.prj.xml
===================================================================
diff -u
--- PRA Ugly picking.prj.xml	(revision 0)
+++ PRA Ugly picking.prj.xml	(revision 1736)
@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Project name="PRA Ugly picking" LastModified="2011-07-07 14:42:23">
+</Project>
+</Export>
Index: PRA Optibox.prj.xml
===================================================================
diff -u
--- PRA Optibox.prj.xml	(revision 0)
+++ PRA Optibox.prj.xml	(revision 1736)
@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Project name="PRA Optibox" LastModified="2011-06-23 17:13:17">
+</Project>
+</Export>
Index: zTryout/PRA/WSAuthenticatie.cls.xml
===================================================================
diff -u
--- zTryout/PRA/WSAuthenticatie.cls.xml	(revision 0)
+++ zTryout/PRA/WSAuthenticatie.cls.xml	(revision 1736)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="zTryout.PRA.WSAuthenticatie">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WS.WebService</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="SERVICENAME">
+<Default>WSAuthenticatie</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://www.vanhoecke.be/zTryout/PRA</Default>
+</Parameter>
+
+<Method name="GeefAuthNaam">
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	// #dim %request %CSP.Request
+
+	If %request.IsDefinedCgiEnv("REMOTE_USER") {
+		If (%request.IsDefinedCgiEnv("AUTH_TYPE") && ("Negotiate" =%request.CgiEnvs("AUTH_TYPE"))) {
+			Quit %request.CgiEnvs("REMOTE_USER")
+		} Else {
+			Quit "Anoniem." _ ..MaakCgiVarSamenvatting()
+		}
+	} Else {
+		Quit "De REMOTE_USER CGI environment variable is niet gedefinieerd." _ ..MaakCgiVarSamenvatting()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakCgiVarSamenvatting">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set CgiVarSamenvatting = ""
+	Set CgiVarNaam = %request.NextCgiEnv("")
+	While ("" '= CgiVarNaam) {
+		Set CgiVarWaarde = %request.CgiEnvs(CgiVarNaam)
+		Set CgiVarSamenvatting = CgiVarSamenvatting _ "[" _ CgiVarNaam _ "=" _ CgiVarWaarde _ "] "
+		Set CgiVarNaam = %request.NextCgiEnv(CgiVarNaam)
+		If ("" '= CgiVarNaam) {
+			Set CgiVarSamenvatting = CgiVarSamenvatting _ $Char(10) _ $Char(13)
+		}
+	}
+	
+	Quit CgiVarSamenvatting
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: zTryout/PRA/ProbeerKlantBeoordeling.cls.xml
===================================================================
diff -u -r1461 -r1736
--- zTryout/PRA/ProbeerKlantBeoordeling.cls.xml	(.../ProbeerKlantBeoordeling.cls.xml)	(revision 1461)
+++ zTryout/PRA/ProbeerKlantBeoordeling.cls.xml	(.../ProbeerKlantBeoordeling.cls.xml)	(revision 1736)
@@ -26,12 +26,12 @@
 	For I=1:1:ColumnCount Write I, " ", rs.GetColumnHeader(I),$S(I=ColumnCount:"",1:$C(9)), !
 	Write !
 
-	#define TotAankoopKolomIdx 19
+	#define TotAankoopKolomIdx 19 
 	#define TotVerkoopKolomIdx 20
 	#define KlantNrKolomIdx 1
 	#define KlantNr 1027
 
-	Set Gevonden = 0
+	Set Gevonden = 0 
 	While (('Gevonden) && rs.Next())
 		{
 			If ($$$KlantNr = rs.GetData($$$KlantNrKolomIdx)) 
Index: PRA Sessies.prj.xml
===================================================================
diff -u
--- PRA Sessies.prj.xml	(revision 0)
+++ PRA Sessies.prj.xml	(revision 1736)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Project name="PRA Sessies" LastModified="2011-07-07 14:39:14">
+  <Items>
+    <ProjectItem name="%SOAP.WebService" type="CLS"/>
+    <ProjectItem name="BL.EC.Login" type="CLS"/>
+    <ProjectItem name="BL.EC.Session" type="CLS"/>
+    <ProjectItem name="BL.Sys.Toegang" type="CLS"/>
+    <ProjectItem name="BL.Sys.Toegang.Session" type="CLS"/>
+    <ProjectItem name="WS.EC.ProductServer" type="CLS"/>
+    <ProjectItem name="WS.EC.UserServer" type="CLS"/>
+    <ProjectItem name="WS.SOAPClientExt" type="CLS"/>
+    <ProjectItem name="WS.Sys.GeneralServer" type="CLS"/>
+    <ProjectItem name="WS.Sys.SecurityServer" type="CLS"/>
+    <ProjectItem name="WS.Sys.Toegang.UserServer" type="CLS"/>
+    <ProjectItem name="WS.WSClientFault" type="CLS"/>
+    <ProjectItem name="WS.WSServerFault" type="CLS"/>
+    <ProjectItem name="WS.WebService" type="CLS"/>
+  </Items>
+</Project>
+</Export>