Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoapResponse/SendStatus.cls.xml
===================================================================
diff -u -r41092 -r53504
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoapResponse/SendStatus.cls.xml	(.../SendStatus.cls.xml)	(revision 41092)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoapResponse/SendStatus.cls.xml	(.../SendStatus.cls.xml)	(revision 53504)
@@ -59,6 +59,18 @@
 <Type>%String</Type>
 <Parameter name="XMLNAME" value="EconStatus"/>
 </Property>
+
+<Method name="ToString">
+<Implementation><![CDATA[
+	#dim ToString As %String = ""
+	Set ToString = ToString _ $C(13,10) _ $$ObjToText^vhLib($this)
+	If $IsObject(..Foutmelding) {
+		Set ToString = ToString _ $C(13,10) _ "Foutmelding : " _ ..Foutmelding.Read(10000)
+	}
+	
+	Quit ToString
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoapResponse/SendResponse.cls.xml
===================================================================
diff -u -r41062 -r53504
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoapResponse/SendResponse.cls.xml	(.../SendResponse.cls.xml)	(revision 41062)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoapResponse/SendResponse.cls.xml	(.../SendResponse.cls.xml)	(revision 53504)
@@ -35,6 +35,30 @@
 <Parameter name="XMLNIL" value="1"/>
 <Parameter name="XMLPROJECTION" value="COLLECTION"/>
 </Property>
+
+<Method name="ToString">
+<Implementation><![CDATA[
+	#dim ToString As %String = ""
+	
+	Try {
+		Set ToString = ToString _ $C(13,10) _ $$ObjToText^vhLib($this)
+		If $IsObject(..Winkelkar) {
+			Set ToString = ToString _ $C(13,10) _ ..Winkelkar.ToString()
+		}
+		If $IsObject(..Lijnen)&&(..Lijnen.Count() > 0) {
+			Set LijnenIterator = ##class(TECH.ListIterator).%New(..Lijnen)
+			While (LijnenIterator.HasNext()) {
+				#dim Lijn As WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerderSoapResponse.SendStatus = LijnenIterator.Next()
+				Set ToString = ToString _ $C(13,10) _ Lijn.ToString()
+			}
+		}
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set ToString = "Er is een fout opgetreden tijdens ToString() :" _ Exception.GeefOmschrijving()
+	}
+	Quit ToString
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoapResponse/Winkelkar.cls.xml
===================================================================
diff -u -r41062 -r53504
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoapResponse/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 41062)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoapResponse/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 53504)
@@ -54,6 +54,18 @@
 <Type>%GlobalCharacterStream</Type>
 <Parameter name="XMLNAME" value="IntractoEconConfiguratie"/>
 </Property>
+
+<Method name="ToString">
+<Implementation><![CDATA[
+	#dim ToString As %String = ""
+	Set ToString = ToString _ $C(13,10) _ $$ObjToText^vhLib($this)
+	If $IsObject(..Foutmelding) {
+		Set ToString = ToString _ $C(13,10) _ "Foutmelding : " _ ..Foutmelding.Read(1000)
+	}
+	
+	Quit ToString
+]]></Implementation>
+</Method>
 </Class>