Index: vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/ResponseValidator/Test.cls.xml
===================================================================
diff -u -r32879 -r32881
--- vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/ResponseValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 32879)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/ResponseValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 32881)
@@ -3,6 +3,32 @@
 <Class name="vhUnitTest.APPS.TRANSP.UPS.impl.TimeInTransit.ResponseValidator.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Method name="Test: UPS Response Valideerder - Response verkeerde status">
+<Implementation><![CDATA[
+	#dim ResponseValideerder As APPS.TRANSP.UPS.impl.TimeInTransit.ResponseValidator = ##class(APPS.TRANSP.UPS.impl.TimeInTransit.ResponseValidator).%New()
+	#dim Response As APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitResponse = ..GeefResponseMetVerkeerdeStatus()
+	#dim Request As APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitRequest = ..GeefRequest()
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("UPS response verwacht status 1 voor ref : 1")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidResponseException",Substrings))
+
+	Do ResponseValideerder.Valideer(Response, Request)
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS Response Valideerder - Response verkeerde referentie">
+<Implementation><![CDATA[
+	#dim ResponseValideerder As APPS.TRANSP.UPS.impl.TimeInTransit.ResponseValidator = ##class(APPS.TRANSP.UPS.impl.TimeInTransit.ResponseValidator).%New()
+	#dim Response As APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitResponse = ..GeefResponseMetVerkeerdeReferentie()
+	#dim Request As APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitRequest = ..GeefRequest()
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Verkeerde referentie ontvangen van UPS : 2")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidResponseException",Substrings))
+
+	Do ResponseValideerder.Valideer(Response, Request)
+]]></Implementation>
+</Method>
+
 <Method name="Test: UPS Response Valideerder - Response met alternatief adres">
 <Implementation><![CDATA[
 	#dim ResponseValideerder As APPS.TRANSP.UPS.impl.TimeInTransit.ResponseValidator = ##class(APPS.TRANSP.UPS.impl.TimeInTransit.ResponseValidator).%New()
@@ -70,6 +96,90 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefResponseMetVerkeerdeStatus">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitResponse</ReturnType>
+<Implementation><![CDATA[
+	Set Response = ##class(APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitResponse).%New()
+
+	Set Response.Response.ResponseStatus.Code = "2"
+	Set Response.Response.ResponseStatus.Description = "Failed"
+	
+	Set Response.Response.TransactionReference.CustomerContext = "1"
+	Set Response.Response.TransactionReference.TransactionIdentifier = "1"
+
+	Set Response.TransitResponse.ShipmentWeight.UnitOfMeasurement = "KGS" 
+	Set Response.TransitResponse.ShipmentWeight.Weight = "200"
+	
+	Set Response.TransitResponse.ShipFrom.Address.StateProvinceCode = ""
+	Set Response.TransitResponse.ShipFrom.Address.City = "Sint-Niklaas"  
+	Set Response.TransitResponse.ShipFrom.Address.CountryCode = "BE"
+	Set Response.TransitResponse.ShipFrom.Address.PostalCode = "9100"
+
+	Set Response.TransitResponse.ShipTo.Address.StateProvinceCode = ""
+	Set Response.TransitResponse.ShipTo.Address.City = "Sint-Niklaas"  
+	Set Response.TransitResponse.ShipTo.Address.CountryCode = "BE"
+	Set Response.TransitResponse.ShipTo.Address.PostalCode = "9100"
+	
+	Set Response.TransitResponse.PickupDate = ##class(TECH.DateTime).TextToDate("10/03/2016")
+	
+	for Item=1:1:5 {
+		Set SummaryType = ##class(APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.ServiceSummaryType).%New()
+		
+		Set SummaryType.Service.Code = Item
+		Set SummaryType.Service.Description = "Omschrijving"_Item
+		Set SummaryType.GuaranteedIndicator = "1"
+		Set SummaryType.EstimatedArrival.Pickup.Date = ##class(TECH.DateTime).TextToDate("10/03/2016")
+		Set SummaryType.EstimatedArrival.TotalTransitDays = Item
+			
+		Do Response.TransitResponse.ServiceSummary.Insert(SummaryType)
+	}
+	Quit Response
+]]></Implementation>
+</Method>
+
+<Method name="GeefResponseMetVerkeerdeReferentie">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitResponse</ReturnType>
+<Implementation><![CDATA[
+	Set Response = ##class(APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitResponse).%New()
+
+	Set Response.Response.ResponseStatus.Code = "1"
+	Set Response.Response.ResponseStatus.Description = "Success"
+	
+	Set Response.Response.TransactionReference.CustomerContext = "2"
+	Set Response.Response.TransactionReference.TransactionIdentifier = "2"
+
+	Set Response.TransitResponse.ShipmentWeight.UnitOfMeasurement = "KGS" 
+	Set Response.TransitResponse.ShipmentWeight.Weight = "200"
+	
+	Set Response.TransitResponse.ShipFrom.Address.StateProvinceCode = ""
+	Set Response.TransitResponse.ShipFrom.Address.City = "Sint-Niklaas"  
+	Set Response.TransitResponse.ShipFrom.Address.CountryCode = "BE"
+	Set Response.TransitResponse.ShipFrom.Address.PostalCode = "9100"
+
+	Set Response.TransitResponse.ShipTo.Address.StateProvinceCode = ""
+	Set Response.TransitResponse.ShipTo.Address.City = "Sint-Niklaas"  
+	Set Response.TransitResponse.ShipTo.Address.CountryCode = "BE"
+	Set Response.TransitResponse.ShipTo.Address.PostalCode = "9100"
+	
+	Set Response.TransitResponse.PickupDate = ##class(TECH.DateTime).TextToDate("10/03/2016")
+	
+	for Item=1:1:5 {
+		Set SummaryType = ##class(APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.ServiceSummaryType).%New()
+		
+		Set SummaryType.Service.Code = Item
+		Set SummaryType.Service.Description = "Omschrijving"_Item
+		Set SummaryType.GuaranteedIndicator = "1"
+		Set SummaryType.EstimatedArrival.Pickup.Date = ##class(TECH.DateTime).TextToDate("10/03/2016")
+		Set SummaryType.EstimatedArrival.TotalTransitDays = Item
+			
+		Do Response.TransitResponse.ServiceSummary.Insert(SummaryType)
+	}
+	Quit Response
+]]></Implementation>
+</Method>
+
 <Method name="GeefResponseMetAlternatiefAdres">
 <Private>1</Private>
 <ReturnType>APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitResponse</ReturnType>