Index: WS/Transsmart/tns/GetStatusHistoryResponseColloStatus.cls.xml
===================================================================
diff -u -r59489 -r72387
--- WS/Transsmart/tns/GetStatusHistoryResponseColloStatus.cls.xml	(.../GetStatusHistoryResponseColloStatus.cls.xml)	(revision 59489)
+++ WS/Transsmart/tns/GetStatusHistoryResponseColloStatus.cls.xml	(.../GetStatusHistoryResponseColloStatus.cls.xml)	(revision 72387)
@@ -22,7 +22,7 @@
 </Parameter>
 
 <Parameter name="XMLSEQUENCE">
-<Default>1</Default>
+<Default>0</Default>
 </Parameter>
 
 <Property name="lineNo">
@@ -103,6 +103,11 @@
 <Parameter name="XMLNAME" value="statusCode"/>
 </Property>
 
+<Property name="VHshipmentSubStatus">
+<Type>WS.Transsmart.tns.VHsubStatus</Type>
+<Parameter name="XMLNAME" value="subStatus"/>
+</Property>
+
 <Property name="carrierStatusCode">
 <Type>%String</Type>
 <Parameter name="MAXLEN"/>
@@ -203,6 +208,9 @@
 <Value name="19">
 <Value>documents</Value>
 </Value>
+<Value name="20">
+<Value>VHshipmentSubStatus</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: vhCARETAKER.mac.rou
===================================================================
diff -u -r71905 -r72387
--- vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 71905)
+++ vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 72387)
@@ -671,6 +671,16 @@
 	}
 	Quit
 
+StartCacheBackupCopy ; Cach� backup copy naar externe drive
+	try { 
+ 		Do InitRuntimeContext
+		do $zf(-2,"c:\backup_copy_external.bat")
+	}
+	Catch (Exceptie) {
+		Do OnError
+	}
+	Quit
+	
 StartCache05 ; Cach�5 starten na backup voor een 2de maal
 	try { 
  		Do InitRuntimeContext
@@ -1291,7 +1301,16 @@
 		Do OnError
 	}
 	Quit
+	
+TranssmartTransportStatusOphaler ; 
+	Try {
+		Do InitRuntimeContext
+		Do ##class(APPS.TRANSP.Transsmart.impl.CommunicatieService).%New().QueryCarrierHistory()
 
+	} Catch {
+		Do OnError
+	}
+	Quit
 		
 OnError 
 	set $ztrap="EndErrorTrapping"
Index: WS/Transsmart/tns/VHsubStatus.cls.xml
===================================================================
diff -u
--- WS/Transsmart/tns/VHsubStatus.cls.xml	(revision 0)
+++ WS/Transsmart/tns/VHsubStatus.cls.xml	(revision 72387)
@@ -0,0 +1,72 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Transsmart.tns.VHsubStatus">
+<ClassType>serial</ClassType>
+<CompileAfter/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject,%XML.Adaptor</Super>
+<Inheritance>right</Inheritance>
+
+<Parameter name="ELEMENTQUALIFIED">
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://connect1.transwise.eu/TboxService/</Default>
+</Parameter>
+
+<Parameter name="XMLNAME">
+<Default>subStatus</Default>
+</Parameter>
+
+<Parameter name="XMLSEQUENCE">
+<Default>0</Default>
+</Parameter>
+
+<Property name="VHsubStatusType">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="type"/>
+</Property>
+
+<Property name="VHsubStatusDetail">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="detail"/>
+</Property>
+
+<Property name="VHsubStatusDescription">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="description"/>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>VHsubStatusState</State>
+<StreamLocation>^WS.Transsmart.tns.VHsubStatusS</StreamLocation>
+<Data name="VHsubStatusState">
+<Value name="1">
+<Value>subStatusType</Value>
+</Value>
+<Value name="2">
+<Value>subStatusDetail</Value>
+</Value>
+<Value name="3">
+<Value>subStatusDescription</Value>
+</Value>
+<Value name="4">
+<Value>VHsubStatusType</Value>
+</Value>
+<Value name="5">
+<Value>VHsubStatusDetail</Value>
+</Value>
+<Value name="6">
+<Value>VHsubStatusDescription</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Transsmart/impl/FeedbackVerzamelaar.cls.xml
===================================================================
diff -u -r72373 -r72387
--- APPS/TRANSP/Transsmart/impl/FeedbackVerzamelaar.cls.xml	(.../FeedbackVerzamelaar.cls.xml)	(revision 72373)
+++ APPS/TRANSP/Transsmart/impl/FeedbackVerzamelaar.cls.xml	(.../FeedbackVerzamelaar.cls.xml)	(revision 72387)
@@ -32,11 +32,7 @@
 			Set StatusIterator = ##class(TECH.ListIterator).%New(ShipmentInfo.shipmentStatuses)
 			While (StatusIterator.HasNext()){
 				#dim ShipmentStatus as WS.Transsmart.tns.GetStatusHistoryResponseShipmentStatus = StatusIterator.Next()
-				;<eventDate>20230821</eventDate>
-                ;<eventTime>114311</eventTime
-				#dim EventDate as %Date = $ZDATEH(ShipmentStatus.eventDate,8)
-				#dim EventTime as %Time = $ZTIMEH($Extract(ShipmentStatus.eventTime,1,2)_":"_$Extract(ShipmentStatus.eventTime,3,4)_":" _ $Extract(ShipmentStatus.eventTime,5,6),1)
-				#dim EventTimestamp = ##class(TECH.DateTime).DateTimeToTimeStamp(EventDate,EventTime)
+				#dim EventTimestamp = ..BepaalEventTimeStamp(ShipmentStatus)
 				
 				If ($$$Not(Verzenddata.TranssmartLastStatus = ShipmentStatus.shipmentStatusCode)){
 					If ((Verzenddata.TranssmartLastStatusTimestamp = "") || (##class(TECH.DateTime).TimeStampVerschil("ss", Verzenddata.TranssmartLastStatusTimestamp,EventTimestamp) > 0 )){
@@ -53,6 +49,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalEventTimeStamp">
+<FormalSpec>ShipmentStatus:WS.Transsmart.tns.GetStatusHistoryResponseShipmentStatus</FormalSpec>
+<ReturnType>%TimeStamp</ReturnType>
+<Implementation><![CDATA[
+	#dim ReturnTS as %TimeStamp = ""
+	#dim EventDate as %Date = ""
+	#dim EventTime as %Time = ""
+	If ($$$HasLength(ShipmentStatus.eventDate) && $$$HasLength(ShipmentStatus.eventTime)){
+		Set EventDate = $ZDATEH(ShipmentStatus.eventDate,8)
+		Set EventTime = $ZTIMEH($Extract(ShipmentStatus.eventTime,1,2)_":"_$Extract(ShipmentStatus.eventTime,3,4)_":" _ $Extract(ShipmentStatus.eventTime,5,6),1)
+	} else {
+		If (##class(TECH.StringUtils).Equals(ShipmentStatus.shipmentStatusCode,"DONE","APOD")) {
+			Set:($$$HasLength(ShipmentStatus.deliveryDate)) EventDate = $ZDATEH(ShipmentStatus.deliveryDate,8)
+			Set:($$$HasLength(ShipmentStatus.deliveryTime)) EventTime = $ZTIMEH($Extract(ShipmentStatus.deliveryTime,1,2)_":"_$Extract(ShipmentStatus.deliveryTime,3,4)_":" _ $Extract(ShipmentStatus.deliveryTime,5,6),1)			
+		}
+	}
+	Set ReturnTS = ##class(TECH.DateTime).DateTimeToTimeStamp(EventDate,EventTime)
+	Quit ReturnTS
+]]></Implementation>
+</Method>
+
 <Method name="FormatDate">
 <FormalSpec>DateString:%String,TimeString:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: WS/Transsmart/tns/GetStatusHistoryResponseShipmentStatus.cls.xml
===================================================================
diff -u -r59489 -r72387
--- WS/Transsmart/tns/GetStatusHistoryResponseShipmentStatus.cls.xml	(.../GetStatusHistoryResponseShipmentStatus.cls.xml)	(revision 59489)
+++ WS/Transsmart/tns/GetStatusHistoryResponseShipmentStatus.cls.xml	(.../GetStatusHistoryResponseShipmentStatus.cls.xml)	(revision 72387)
@@ -22,7 +22,7 @@
 </Parameter>
 
 <Parameter name="XMLSEQUENCE">
-<Default>1</Default>
+<Default>0</Default>
 </Parameter>
 
 <Property name="awb">
@@ -151,6 +151,11 @@
 <Parameter name="XMLNAME" value="pickupDate"/>
 </Property>
 
+<Property name="VHshipmentSubStatusCode">
+<Type>WS.Transsmart.tns.VHsubStatus</Type>
+<Parameter name="XMLNAME" value="subStatus"/>
+</Property>
+
 <Property name="shipmentStatusCode">
 <Type>%String</Type>
 <Parameter name="MAXLEN"/>
@@ -284,6 +289,9 @@
 <Value name="28">
 <Value>documents</Value>
 </Value>
+<Value name="29">
+<Value>VHshipmentSubStatusCode</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: WS/Transsmart/tns/GetStatusHistoryResponseShipmentInfo.cls.xml
===================================================================
diff -u -r59489 -r72387
--- WS/Transsmart/tns/GetStatusHistoryResponseShipmentInfo.cls.xml	(.../GetStatusHistoryResponseShipmentInfo.cls.xml)	(revision 59489)
+++ WS/Transsmart/tns/GetStatusHistoryResponseShipmentInfo.cls.xml	(.../GetStatusHistoryResponseShipmentInfo.cls.xml)	(revision 72387)
@@ -22,7 +22,7 @@
 </Parameter>
 
 <Parameter name="XMLSEQUENCE">
-<Default>1</Default>
+<Default>0</Default>
 </Parameter>
 
 <Property name="awb">