Index: APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml
===================================================================
diff -u -r72255 -r72356
--- APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 72255)
+++ APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 72356)
@@ -152,7 +152,7 @@
 	
 	Set ShipmentInfo.reference = LeveringInfo.Referentie
 		
-	Set ShipmentInfo.serviceLevelTime = ..BepaalShipmentInfoServiceLevelTime(Rit)	
+	Set ShipmentInfo.serviceLevelTime = ..BepaalShipmentInfoServiceLevelTime(Rit,LeveringInfo)	
 	Set ShipmentInfo.serviceLevelOther = ..BepaalShipmentInfoServiceLevelOther(Rit,LeveringInfo)	
 	Set ShipmentInfo.inbound = 0
 	Set ShipmentInfo.loadmeter = 0
@@ -567,18 +567,31 @@
 </Method>
 
 <Method name="BepaalShipmentInfoServiceLevelTime">
-<FormalSpec>Rit:DOM.TRANSP.Rit</FormalSpec>
+<FormalSpec>Rit:DOM.TRANSP.Rit,LeveringInfo:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set Transporteur = ##class(DOM.TRANSP.enu.Transporteur.AutoComplete).%New()
 	#dim ServiceLevelTime as %String = ""
-	Set:(Rit.GeefTransporteur() = Transporteur.VRD) ServiceLevelTime = "STANDARD"
-	Set:(Rit.GeefTransporteur() = Transporteur.DHL) ServiceLevelTime = "EUROPLUS"
-	Set:(Rit.GeefTransporteur() = Transporteur.HamannHDE) ServiceLevelTime = "NOSTACK"
-	Set:(Rit.GeefTransporteur() = Transporteur.Dachser) ServiceLevelTime = "TARGOFLEX"
-	Set:(Rit.GeefTransporteur() = Transporteur.Weiss) ServiceLevelTime ="STANDARD"
-	Set:(Rit.GeefTransporteur() = Transporteur.Schenker) ServiceLevelTime ="PREMIUM"
+	if (Rit.GeefTransporteur() = Transporteur.VRD){
+		set ServiceLevelTime = "STANDARD"
+	} elseif (Rit.GeefTransporteur() = Transporteur.DHL){
+		Set ServiceLevelTime = "EUROPLUS"
+	} elseif (Rit.GeefTransporteur() = Transporteur.HamannHDE){
+		Set ServiceLevelTime = "NOSTACK"
+	} elseif (Rit.GeefTransporteur() = Transporteur.Dachser){
+		If (LeveringInfo.LeverAdres.LandCode = "IT") {
+			Set ServiceLevelTime = "TARGOSPEED"
+		} else {
+			Set ServiceLevelTime = "TARGOFLEX"
+		}
+	} elseif (Rit.GeefTransporteur() = Transporteur.Weiss) {
+		Set ServiceLevelTime ="STANDARD"
+	} elseif (Rit.GeefTransporteur() = Transporteur.Schenker) {
+		Set ServiceLevelTime ="PREMIUM"
+	} else {
+		Set ServiceLevelTime = ""
+	}
 	Quit ServiceLevelTime
 ]]></Implementation>
 </Method>
@@ -590,6 +603,23 @@
 <Implementation><![CDATA[	Quit $Extract(Waarde,1,Lengte)
 ]]></Implementation>
 </Method>
+
+<Method name="MaakgetStatusHistoryByQueryRequest">
+<FormalSpec>Carrier:%String,DateFrom:%String,DateTo:%String</FormalSpec>
+<ReturnType>WS.Transsmart.tns.getStatusHistoryByQuery</ReturnType>
+<Implementation><![CDATA[
+	#dim Request as WS.Transsmart.tns.getStatusHistoryByQuery = ##class(WS.Transsmart.tns.getStatusHistoryByQuery).%New()
+	Do Request.shipmentInfo.carrierCodes.Insert( "SNB")
+	//Do Request.shipmentInfo.carrierCodes.Insert( "VRD")
+	Set Request.shipmentInfo.dateTimeFrom = DateFrom
+	Set Request.shipmentInfo.dateTimeTo = DateTo
+	Set Request.shipmentInfo.incremental = "false"
+	//Set Request.shipmentInfo.
+	Set Request.actionInfo.action = "getStatusHistoryByQuery"
+	Set Request.actionInfo.version = "2.0"
+	Quit Request
+]]></Implementation>
+</Method>
 </Class>