Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r57072 -r57858
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 57072)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 57858)
@@ -101,6 +101,7 @@
 	#dim DnaCode As DOM.Halux.AAP.DnaCode
 	Set Response = ##class(WS.Halux.AAP.ZoekViaToeleveringResponse).%New()
 	
+			Do ##class(Tools.Wlip).%New(127).ObjToXML(ZoekViaToeleveringRequest)
 	Try {
 		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaToeleveringId(ZoekViaToeleveringRequest.Toelevering)
 		
@@ -136,6 +137,7 @@
 <ReturnType>WS.Halux.AAP.DnaCodeAfmeldenResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
+	Do ##class(Tools.Wlip).%New(127).String("hier")
 	#dim ToeleveringId As %String = ""
 	#dim AantalReedsGescand As %Integer = 0
 	#dim AantalInToelevering As %Integer = 0
@@ -151,7 +153,7 @@
 			Set Response.Header.Omschrijving = "Geen DNACode-data gevonden voor DNACode '"_DnaCodeAfmeldenRequest.DnaCode_"'"
 		} Else {
 			Set DnaCode = DnaCodeIterator.Next()
-			
+			Do ##class(Tools.Wlip).%New(127).ObjToXML(DnaCodeAfmeldenRequest)
 			If ..IsValid(DnaCodeAfmeldenRequest, .Response, DnaCode) {
 				If DnaCodeAfmeldenRequest.Aantal = -1 {
 					Set DnaCode.InitialenScanner = ""
@@ -206,6 +208,7 @@
 <Implementation><![CDATA[
 	#dim DnaCode As DOM.Halux.AAP.DnaCode
 	
+			Do ##class(Tools.Wlip).%New(127).ObjToXML(ToeleveringBijwerkenRequest)
 	Set Response = ##class(WS.Halux.AAP.ToeleveringBijwerkenResponse).%New()
 	Try {
 		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaToeleveringId(ToeleveringBijwerkenRequest.Toelevering)