Index: APPS/TRANSP/Transsmart/data/VerzendData.cls.xml
===================================================================
diff -u -r59727 -r60003
--- APPS/TRANSP/Transsmart/data/VerzendData.cls.xml	(.../VerzendData.cls.xml)	(revision 59727)
+++ APPS/TRANSP/Transsmart/data/VerzendData.cls.xml	(.../VerzendData.cls.xml)	(revision 60003)
@@ -51,11 +51,14 @@
 <Type>APPS.TRANSP.Transsmart.enu.VerzendStatus</Type>
 </Property>
 
-<Property name="Response">
-<Type>WS.Transsmart.tns.getStatusResponse</Type>
-<Parameter name="CLASSNAME" value="1"/>
+<Property name="RequestAsStream">
+<Type>%GlobalCharacterStream</Type>
 </Property>
 
+<Property name="ResponseAsStream">
+<Type>%GlobalCharacterStream</Type>
+</Property>
+
 <Property name="Referentie">
 <Type>%String</Type>
 </Property>
@@ -105,43 +108,47 @@
 <Type>%Library.CacheStorage</Type>
 <DefaultData>VerzendDataDefaultData</DefaultData>
 <Data name="VerzendDataDefaultData">
+<Structure>listnode</Structure>
 <Subscript>"VerzendData"</Subscript>
 <Value name="1">
-<Value>Reference</Value>
+<Value>ID</Value>
 </Value>
 <Value name="2">
-<Value>Carrier</Value>
+<Value>Reference</Value>
 </Value>
 <Value name="3">
-<Value>Status</Value>
+<Value>Carrier</Value>
 </Value>
 <Value name="4">
-<Value>Response</Value>
+<Value>UnitID</Value>
 </Value>
 <Value name="5">
-<Value>Referentie</Value>
+<Value>VerzendWijze</Value>
 </Value>
 <Value name="6">
-<Value>TijdstipLaatsteWijziging</Value>
+<Value>Status</Value>
 </Value>
 <Value name="7">
-<Value>TrackAndTraceUrl</Value>
+<Value>RequestAsStream</Value>
 </Value>
 <Value name="8">
-<Value>TrackAndTraceID</Value>
+<Value>ResponseAsStream</Value>
 </Value>
 <Value name="9">
-<Value>LaatsteRequestType</Value>
+<Value>Referentie</Value>
 </Value>
 <Value name="10">
-<Value>ID</Value>
+<Value>LaatsteRequestType</Value>
 </Value>
 <Value name="11">
-<Value>UnitID</Value>
+<Value>TijdstipLaatsteWijziging</Value>
 </Value>
 <Value name="12">
-<Value>VerzendWijze</Value>
+<Value>TrackAndTraceID</Value>
 </Value>
+<Value name="13">
+<Value>TrackAndTraceUrl</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/TRANSP/Transsmart/impl/CommunicatieService/RegistreerLevering.cls.xml
===================================================================
diff -u -r59990 -r60003
--- APPS/TRANSP/Transsmart/impl/CommunicatieService/RegistreerLevering.cls.xml	(.../RegistreerLevering.cls.xml)	(revision 59990)
+++ APPS/TRANSP/Transsmart/impl/CommunicatieService/RegistreerLevering.cls.xml	(.../RegistreerLevering.cls.xml)	(revision 60003)
@@ -33,6 +33,7 @@
 	
 	set VerzendData.LaatsteRequestType = ##class(APPS.TRANSP.Transsmart.enu.RequestType).Registratie()
 	set VerzendData.Status = ##class(APPS.TRANSP.Transsmart.enu.VerzendStatus).Started()
+	Do Request.XMLExportToStream(VerzendData.RequestAsStream)
 	do VerzendData.Save()
 		
 	if IsNieuweVerzendData Do ..VerwerkVerzendDataID(VerzendData.%Id())
@@ -50,7 +51,7 @@
 		do ..ThrowError(Error,VerzendData)
 	}
 
-	set VerzendData.Response = Response
+	Do Response.XMLExportToStream(VerzendData.ResponseAsStream)
 	
 	If ..ResponseControleur.ResponseBevatFout(Response) {
 		set VerzendData.Status = ##class(APPS.TRANSP.Transsmart.enu.VerzendStatus).Failed()
Index: APPS/TRANSP/Transsmart/impl/CommunicatieService/AnnuleerLevering.cls.xml
===================================================================
diff -u -r59871 -r60003
--- APPS/TRANSP/Transsmart/impl/CommunicatieService/AnnuleerLevering.cls.xml	(.../AnnuleerLevering.cls.xml)	(revision 59871)
+++ APPS/TRANSP/Transsmart/impl/CommunicatieService/AnnuleerLevering.cls.xml	(.../AnnuleerLevering.cls.xml)	(revision 60003)
@@ -27,6 +27,7 @@
 	#dim VerzendData As APPS.TRANSP.Transsmart.data.VerzendData = ..GeefVerzendData(Request.GeefVerzendDataID())
 	set VerzendData.LaatsteRequestType = ##class(APPS.TRANSP.Transsmart.enu.RequestType).Annulatie()
 	set VerzendData.Status = ##class(APPS.TRANSP.Transsmart.enu.VerzendStatus).Started()
+	Do Request.XMLExportToStream(VerzendData.RequestAsStream)
 	do VerzendData.Save()
 
 	Try {
@@ -43,8 +44,8 @@
 		do ..ThrowError(Error,VerzendData)
 	}
 
-	set VerzendData.Response = Response
-	
+	;set VerzendData.Response = Response
+	Do Response.XMLExportToStream(VerzendData.ResponseAsStream)
 	If ..ResponseControleur.ResponseBevatFout(Response) {
 		set VerzendData.Status = ##class(APPS.TRANSP.Transsmart.enu.VerzendStatus).Failed()
 		do VerzendData.Save()