Index: APPS/TRANSP/UPS/impl/TeverzendItemListConverteerder.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/UPS/impl/TeverzendItemListConverteerder.cls.xml	(revision 0)
+++ APPS/TRANSP/UPS/impl/TeverzendItemListConverteerder.cls.xml	(revision 32557)
@@ -0,0 +1,105 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.UPS.impl.TeverzendItemListConverteerder">
+<Super>APPS.TRANSP.UPS.TeverzendItemListConverteerder</Super>
+
+<Property name="Body">
+<Type>APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitRequest</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TeverzendenItemList">
+<Type>APPS.TRANSP.OfferteService.dto.TeverzendenItemList</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Converteer">
+<FormalSpec>TeverzendenItemList:APPS.TRANSP.OfferteService.dto.TeverzendenItemList</FormalSpec>
+<ReturnType>APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitRequest</ReturnType>
+<Implementation><![CDATA[
+	Set ..Body = ##class(APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitRequest).%New()
+	Set ..TeverzendenItemList = TeverzendenItemList
+	
+	Do ..ZetReferentie()
+
+	Do ..ZetVerzendAdres()	
+	
+	Do ..ZetLeverAdres()
+
+	Do ..ZetAfhaalDatumEnTijd()	
+	
+	Do ..ZetVerzendDetails()
+		
+	Set ..Body.MaximumListSize = "50"
+	
+	quit ..Body
+]]></Implementation>
+</Method>
+
+<Method name="ZetVerzendDetails">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim TotaalPrijs As TECH.Decimal = 0
+	#dim TotaalGewicht As TECH.Decimal = 0
+	
+	for Item=1:1:..TeverzendenItemList.TeverzendItems.Count() {
+		Set TotaalPrijs = TotaalPrijs + ..TeverzendenItemList.TeverzendItems.GetAt(Item).WaardeGoederen
+		Set TotaalGewicht = TotaalGewicht + ..TeverzendenItemList.TeverzendItems.GetAt(Item).Gewicht
+	}
+	
+	Set ..Body.ShipmentWeight.UnitOfMeasurement.Code = "KGS"
+	Set ..Body.ShipmentWeight.Weight = TotaalGewicht
+
+	Set ..Body.TotalPackagesInShipment = ..TeverzendenItemList.TeverzendItems.Count()
+
+	Set ..Body.InvoiceLineTotal.CurrencyCode = "EUR"
+	Set ..Body.InvoiceLineTotal.MonetaryValue = TotaalPrijs
+]]></Implementation>
+</Method>
+
+<Method name="ZetReferentie">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..Body.Request.TransactionReference.CustomerContext = ..TeverzendenItemList.Referentie
+	Set ..Body.Request.TransactionReference.TransactionIdentifier = ..TeverzendenItemList.Referentie
+]]></Implementation>
+</Method>
+
+<Method name="ZetLeverAdres">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..Body.ShipTo.Address.City = ..TeverzendenItemList.LeverAdres.Woonplaats
+	Set ..Body.ShipTo.Address.CountryCode = ..TeverzendenItemList.LeverAdres.LandCode
+	Set ..Body.ShipTo.Address.PostalCode = ..TeverzendenItemList.LeverAdres.Postcode
+]]></Implementation>
+</Method>
+
+<Method name="ZetVerzendAdres">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..Body.ShipFrom.Address.City = "Sint-Niklaas" 
+	Set ..Body.ShipFrom.Address.CountryCode = "BE" 
+	Set ..Body.ShipFrom.Address.PostalCode = "9100"
+]]></Implementation>
+</Method>
+
+<Method name="ZetAfhaalDatumEnTijd">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Context As TECH.Context = ##class(TECH.Context).Instance()
+	#dim AfhaalDatum As %Date = Context.GeefDateTimeAPI().CurrentDate()
+	
+	for Item=1:1:..TeverzendenItemList.TeverzendItems.Count() {
+			if (..TeverzendenItemList.TeverzendItems.GetAt(Item).DatumBeschikbaar > AfhaalDatum) {
+				Set AfhaalDatum = ..TeverzendenItemList.TeverzendItems.GetAt(Item).DatumBeschikbaar
+			}
+	}
+	
+	Set ..Body.Pickup.Date = AfhaalDatum 
+	Set ..Body.Pickup.Time = ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/UPS/TeverzendItemListConverteerder.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/UPS/TeverzendItemListConverteerder.cls.xml	(revision 0)
+++ APPS/TRANSP/UPS/TeverzendItemListConverteerder.cls.xml	(revision 32557)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.UPS.TeverzendItemListConverteerder">
+<Abstract>1</Abstract>
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Converteer">
+<Abstract>1</Abstract>
+<FormalSpec>Offerte:APPS.TRANSP.OfferteService.dto.TeverzendenItemList</FormalSpec>
+<ReturnType>APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitRequest</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/OfferteService/dto/OfferteItem.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/OfferteService/dto/OfferteItem.cls.xml	(revision 0)
+++ APPS/TRANSP/OfferteService/dto/OfferteItem.cls.xml	(revision 32557)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.OfferteService.dto.OfferteItem">
+<Super>TECH.DataTransferObject</Super>
+
+<Parameter name="XMLTYPE">
+<Default>APPS.TRANSP.OfferteService.dto.OfferteData</Default>
+</Parameter>
+
+<Property name="Code">
+<Type>TECH.Integer</Type>
+</Property>
+
+<Property name="Omschrijving">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Duurtijd">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Kostprijs">
+<Type>TECH.Decimal</Type>
+</Property>
+
+<Property name="OphaalDatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="Optie">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Gegarandeerd">
+<Type>%Boolean</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: vhTestFiles/UnitTests/APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.TimeInTransitPort/Test/TestUPSCommunicatie/Response.xml
===================================================================
diff -u -r32515 -r32557
--- vhTestFiles/UnitTests/APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.TimeInTransitPort/Test/TestUPSCommunicatie/Response.xml	(.../Response.xml)	(revision 32515)
+++ vhTestFiles/UnitTests/APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.TimeInTransitPort/Test/TestUPSCommunicatie/Response.xml	(.../Response.xml)	(revision 32557)
@@ -7,7 +7,7 @@
     </ResponseStatus>
     <TransactionReference>
       <CustomerContext>jskqlfsdf</CustomerContext>
-      <TransactionIdentifier>000ciet11245hNbYq2DxLZ</TransactionIdentifier>
+      <TransactionIdentifier>00xwst282284GdkscMSrrv</TransactionIdentifier>
     </TransactionReference>
   </Response>
   <TransitResponse>
Index: APPS/TRANSP/OfferteService/dto/TeverzendenItemList.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/OfferteService/dto/TeverzendenItemList.cls.xml	(revision 0)
+++ APPS/TRANSP/OfferteService/dto/TeverzendenItemList.cls.xml	(revision 32557)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.OfferteService.dto.TeverzendenItemList">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="Referentie">
+<Type>%String</Type>
+</Property>
+
+<Property name="LeverAdres">
+<Type>APPS.common.dto.Adres</Type>
+</Property>
+
+<Property name="GewensteLeverDatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="TeverzendItems">
+<Type>APPS.TRANSP.OfferteService.dto.TeverzendenItem</Type>
+<Collection>list</Collection>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/UPS/TeverzendItemListValideerder.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/UPS/TeverzendItemListValideerder.cls.xml	(revision 0)
+++ APPS/TRANSP/UPS/TeverzendItemListValideerder.cls.xml	(revision 32557)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.UPS.TeverzendItemListValideerder">
+<Abstract>1</Abstract>
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Valideer">
+<Abstract>1</Abstract>
+<FormalSpec>Offerte:APPS.TRANSP.OfferteService.dto.TeverzendenItemList</FormalSpec>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/UPS/impl/ResponseConverteerder.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/UPS/impl/ResponseConverteerder.cls.xml	(revision 0)
+++ APPS/TRANSP/UPS/impl/ResponseConverteerder.cls.xml	(revision 32557)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.UPS.impl.ResponseConverteerder">
+<Super>APPS.TRANSP.UPS.ResponseConverteerder</Super>
+
+<Method name="Converteer">
+<FormalSpec>Response:APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitResponse</FormalSpec>
+<ReturnType>APPS.TRANSP.OfferteService.dto.OfferteData</ReturnType>
+<Implementation><![CDATA[
+	#dim OfferteData As APPS.TRANSP.OfferteService.dto.OfferteData = ##class(APPS.TRANSP.OfferteService.dto.OfferteData).%New()
+	For Item=1:1:Response.TransitResponse.ServiceSummary.Count() {
+		#dim ServiceSummary As APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.ServiceSummaryType = Response.TransitResponse.ServiceSummary.GetAt(Item)
+		#dim OfferteItem As APPS.TRANSP.OfferteService.dto.OfferteItem = ##class(APPS.TRANSP.OfferteService.dto.OfferteItem).%New()
+
+		Set OfferteItem.Gegarandeerd = ServiceSummary.GuaranteedIndicator 
+		Set OfferteItem.Code = ServiceSummary.Service.Code  
+		Set OfferteItem.Omschrijving = ServiceSummary.Service.Description
+		Set OfferteItem.OphaalDatum = ServiceSummary.EstimatedArrival.Pickup.Date
+		Set OfferteItem.Duurtijd = ServiceSummary.EstimatedArrival.TotalTransitDays 
+		Set OfferteItem.Kostprijs = 0
+		Set OfferteItem.Optie = ""
+		
+		Do OfferteData.OfferteItemList.SetAt(OfferteItem,Item)
+	}
+
+	quit OfferteData
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/UPS/impl/TeverzendItemListValideerder.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/UPS/impl/TeverzendItemListValideerder.cls.xml	(revision 0)
+++ APPS/TRANSP/UPS/impl/TeverzendItemListValideerder.cls.xml	(revision 32557)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.UPS.impl.TeverzendItemListValideerder">
+<Super>APPS.TRANSP.UPS.TeverzendItemListValideerder</Super>
+
+<Method name="Valideer">
+<FormalSpec>TeverzendenItemList:APPS.TRANSP.OfferteService.dto.TeverzendenItemList</FormalSpec>
+<Implementation><![CDATA[
+	If ($$$Not($IsObject(TeverzendenItemList.LeverAdres))) {
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Ongeldig leveradres in offerte : " _TeverzendenItemList.Referentie)
+	}
+	If ($$$Not($IsObject(TeverzendenItemList.TeverzendItems)) || (TeverzendenItemList.TeverzendItems.Count() = 0)) {
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Geen Detaillijnen in offerte : " _TeverzendenItemList.Referentie)
+	}
+	quit
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/TRANSP/UPS/OfferteBerekenaar/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/UPS/OfferteBerekenaar/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/UPS/OfferteBerekenaar/Test.cls.xml	(revision 32557)
@@ -0,0 +1,272 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.UPS.OfferteBerekenaar.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="aTest: Geef mogelijke leverdagen voor TeverzendItemList ">
+<Implementation><![CDATA[
+	#dim FakeWebClient As vhTest.Fake.APPS.TRANSP.UPS.SoapClients.TimeInTransit.TimeInTransitPort = ##class(vhTest.Fake.APPS.TRANSP.UPS.SoapClients.TimeInTransit.TimeInTransitPort).%New()
+	
+	#dim OfferteBerekenaar As APPS.TRANSP.UPS.OfferteBerekenaar = ##class(APPS.TRANSP.UPS.OfferteBerekenaar).%New(FakeWebClient)
+	
+	#dim TeverzendItemList As APPS.TRANSP.OfferteService.dto.TeverzendenItemList = ..GeefTeverzendItemList()
+	
+	#dim LeverDatums As APPS.TRANSP.OfferteService.dto.OfferteData = OfferteBerekenaar.Bereken(TeverzendItemList)
+	
+	Do $$$AssertEquals(LeverDatums, ..GeefLeverDatums())
+	Do $$$AssertTrue(0,"")
+]]></Implementation>
+</Method>
+
+<Method name="aTest: UPS Response converteerder">
+<Implementation><![CDATA[
+	#dim ResponseConverteerder As APPS.TRANSP.UPS.impl.ResponseConverteerder = ##class(APPS.TRANSP.UPS.impl.ResponseConverteerder).%New()
+	#dim Response As APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitResponse = ..GeefResponse()
+	#dim LeverDatums As APPS.TRANSP.OfferteService.dto.OfferteData = ResponseConverteerder.Converteer(Response)
+	#dim TestLeverDatums As APPS.TRANSP.OfferteService.dto.OfferteData = ..GeefLeverDatums()
+	
+	Do $$$AssertObject(LeverDatums, TestLeverDatums)
+	Do $$$AssertEqualsList(LeverDatums.OfferteItemList, TestLeverDatums.OfferteItemList)
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS Response Valideerder - Response met alternatief adres">
+<Implementation><![CDATA[
+	#dim ResponseValideerder As APPS.TRANSP.UPS.impl.ResponseValideerder = ##class(APPS.TRANSP.UPS.impl.ResponseValideerder).%New()
+	#dim Response As APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitResponse = ..GeefResponseMetAlternatiefAdres()
+	#dim Request As APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitRequest = ..GeefRequest()
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("UPS stelt alternative adressen voor ref : 1")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+
+	Do ResponseValideerder.Valideer(Response, Request)
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS Response Valideerder">
+<Implementation><![CDATA[
+	#dim ResponseValideerder As APPS.TRANSP.UPS.impl.ResponseValideerder = ##class(APPS.TRANSP.UPS.impl.ResponseValideerder).%New()
+	#dim Response As APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitResponse = ..GeefResponse()
+	#dim Request As APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitRequest = ..GeefRequest()
+	
+	Do ResponseValideerder.Valideer(Response, Request)
+	
+	Do $$$AssertTrue(1)
+]]></Implementation>
+</Method>
+
+<Method name="aTest: UPS TeverzendItemList converteerder">
+<Implementation><![CDATA[
+	#dim TeverzendItemListConverteerder As APPS.TRANSP.UPS.impl.TeverzendItemListConverteerder  = ##class(APPS.TRANSP.UPS.impl.TeverzendItemListConverteerder).%New()
+	#dim TeverzendenItemList As APPS.TRANSP.OfferteService.dto.TeverzendenItemList = ..GeefTeverzendItemList()
+	#dim Request As APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitRequest = TeverzendItemListConverteerder.Converteer(TeverzendenItemList)
+	Do $$$AssertEquals(Request,..GeefRequest())
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS TeverzendItemList Valideerder - TeverzendItemList zonder lijnen ">
+<Implementation><![CDATA[
+	#dim TeverzendItemListValideerder As APPS.TRANSP.UPS.impl.TeverzendItemListValideerder = ##class(APPS.TRANSP.UPS.impl.TeverzendItemListValideerder).%New()
+	#dim TeverzendenItemList As APPS.TRANSP.OfferteService.dto.TeverzendenItemList = ..GeefTeverzendItemListZonderLijnen()
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen Detaillijnen in offerte : 1")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+
+	Do TeverzendItemListValideerder.Valideer(TeverzendenItemList)
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS TeverzendItemList Valideerder">
+<Implementation><![CDATA[
+	#dim TeverzendItemListValideerder As APPS.TRANSP.UPS.impl.TeverzendItemListValideerder = ##class(APPS.TRANSP.UPS.impl.TeverzendItemListValideerder).%New()
+	#dim TeverzendenItemList As APPS.TRANSP.OfferteService.dto.TeverzendenItemList = ..GeefTeverzendItemList()
+	
+	Do TeverzendItemListValideerder.Valideer(TeverzendenItemList)
+	
+	Do $$$AssertTrue(1)
+]]></Implementation>
+</Method>
+
+<Method name="GeefResponse">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitResponse</ReturnType>
+<Implementation><![CDATA[
+	#dim Response As APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitResponse = ##class(APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitResponse).%New()
+
+	Set Response.Response.ResponseStatus.Code = "1"
+	Set Response.Response.ResponseStatus.Description = "Success"
+	
+	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.City = "Sint-Niklaas"  
+	Set Response.TransitResponse.ShipFrom.Address.CountryCode = "BE"
+	Set Response.TransitResponse.ShipFrom.Address.PostalCode = "9100"
+
+	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 {
+		#dim SummaryType As APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.ServiceSummaryType = ##class(APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.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.SetAt(SummaryType,Item)
+	}
+	Quit Response
+]]></Implementation>
+</Method>
+
+<Method name="GeefResponseMetAlternatiefAdres">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitResponse</ReturnType>
+<Implementation><![CDATA[
+	#dim Response As APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitResponse = ##class(APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitResponse).%New()
+
+	Set Response.Response.ResponseStatus.Code = "1"
+	Set Response.Response.ResponseStatus.Description = "Success"
+
+	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.City = "Sint-Niklaas"  
+	Set Response.TransitResponse.ShipFrom.Address.CountryCode = "BE"
+	Set Response.TransitResponse.ShipFrom.Address.PostalCode = "9100"
+
+	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")
+
+	Do Response.TransitResponse.ServiceSummary.Clear()
+	
+	#dim Candidate As APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.CandidateType = ##class(APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.CandidateType).%New()
+	
+	Set Candidate.Address.City = "Sint-Gillis-Waas"
+	Set Candidate.Address.CountryCode = "BE"
+	Set Candidate.Address.PostcodePrimaryHigh = "9170"
+	Set Candidate.Address.PostcodePrimaryLow = "9170"
+	
+	Do Response.CandidateResponse.ShipToList.SetAt(Candidate,1)
+
+	Quit Response
+]]></Implementation>
+</Method>
+
+<Method name="GeefTeverzendItemList">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.OfferteService.dto.TeverzendenItemList</ReturnType>
+<Implementation><![CDATA[
+	#dim TeverzendItemList As APPS.TRANSP.OfferteService.dto.TeverzendenItemList = ##class(APPS.TRANSP.OfferteService.dto.TeverzendenItemList).%New()
+	Set TeverzendItemList.Referentie = "1"
+	Set TeverzendItemList.GewensteLeverDatum = ##class(TECH.DateTime).TextToDate("11/03/2016")
+	Set TeverzendItemList.LeverAdres = ##class(APPS.common.dto.Adres).%New()
+	Set TeverzendItemList.LeverAdres.LandCode = "BE"
+	Set TeverzendItemList.LeverAdres.Postcode = "9100"
+	Set TeverzendItemList.LeverAdres.Woonplaats = "Sint-Niklaas"
+	
+	For Item=1:1:10 {
+		#dim TeverzendItem As APPS.TRANSP.OfferteService.dto.TeverzendenItem = ##class(APPS.TRANSP.OfferteService.dto.TeverzendenItem).%New()
+		Set TeverzendItem.ProductID = Item
+		Set TeverzendItem.WaardeGoederen = Item * 10
+		Set TeverzendItem.Gewicht = Item * 5
+		Set TeverzendItem.Afmeting = Item * 15
+		Set TeverzendItem.DatumBeschikbaar = ##class(TECH.DateTime).TextToDate(Item_"/02/2016")
+		Do TeverzendItemList.TeverzendItems.SetAt(TeverzendItem,Item)
+	}
+	
+	Quit TeverzendItemList
+]]></Implementation>
+</Method>
+
+<Method name="GeefTeverzendItemListZonderLijnen">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.OfferteService.dto.TeverzendenItemList</ReturnType>
+<Implementation><![CDATA[
+	#dim TeverzendItemList As APPS.TRANSP.OfferteService.dto.TeverzendenItemList = ##class(APPS.TRANSP.OfferteService.dto.TeverzendenItemList).%New()
+	Set TeverzendItemList.Referentie = "1"
+	Set TeverzendItemList.GewensteLeverDatum = ##class(TECH.DateTime).TextToDate("01/03/2016")
+	Set TeverzendItemList.LeverAdres = ##class(APPS.common.dto.Adres).%New()
+	Set TeverzendItemList.LeverAdres.LandCode = "BE"
+	Set TeverzendItemList.LeverAdres.Postcode = "9100"
+	Set TeverzendItemList.LeverAdres.Woonplaats = "Sint-Niklaas"
+	
+	Do TeverzendItemList.TeverzendItems.Clear()
+	
+	Quit TeverzendItemList
+]]></Implementation>
+</Method>
+
+<Method name="GeefRequest">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitRequest</ReturnType>
+<Implementation><![CDATA[
+	#dim Request As APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitRequest  = ##class(APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitRequest).%New()
+	
+	Set Request.Request.TransactionReference.CustomerContext = "1"
+	Set Request.Request.TransactionReference.TransactionIdentifier = "1"
+
+	Set Request.ShipFrom.Address.City = "Sint-Niklaas" 
+	Set Request.ShipFrom.Address.CountryCode = "BE" 
+	Set Request.ShipFrom.Address.PostalCode = "9100" 
+	
+	Set Request.ShipTo.Address.City = "Sint-Niklaas" 
+	Set Request.ShipTo.Address.CountryCode = "BE" 
+	Set Request.ShipTo.Address.PostalCode = "9100" 
+	
+	Set Request.Pickup.Date = ##class(TECH.DateTime).TextToDate("10/03/2016")
+	Set Request.Pickup.Time = ""
+	
+	Set Request.ShipmentWeight.UnitOfMeasurement.Code = "KGS"
+	Set Request.ShipmentWeight.Weight = "200"
+
+	Set Request.TotalPackagesInShipment = "2"
+
+	Set Request.InvoiceLineTotal.CurrencyCode = "EUR"
+	Set Request.InvoiceLineTotal.MonetaryValue = "200.00"
+	
+	Set Request.MaximumListSize = "50"
+
+	Quit Request
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeverDatums">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.OfferteService.dto.OfferteData</ReturnType>
+<Implementation><![CDATA[
+	#dim OfferteData As APPS.TRANSP.OfferteService.dto.OfferteData = ##class(APPS.TRANSP.OfferteService.dto.OfferteData).%New()
+	
+	For Item=1:1:5 {
+		#dim OfferteItem As APPS.TRANSP.OfferteService.dto.OfferteItem = ##class(APPS.TRANSP.OfferteService.dto.OfferteItem).%New()
+		Set OfferteItem.Code = Item
+		Set OfferteItem.Omschrijving = "Omschrijving"_Item
+		Set OfferteItem.Gegarandeerd = "1"
+		Set OfferteItem.Duurtijd = Item
+		Set OfferteItem.Kostprijs = 0
+		Set OfferteItem.OphaalDatum = ##class(TECH.DateTime).TextToDate("10/03/2016")
+		Set OfferteItem.Optie = ""
+		Do OfferteData.OfferteItemList.SetAt(OfferteItem,Item)
+	}
+
+	Quit OfferteData
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/TRANSP/UPS/impl/SoapClients/TimeInTransit/TimeInTransitPort/Test.cls.xml
===================================================================
diff -u -r32515 -r32557
--- vhUnitTest/APPS/TRANSP/UPS/impl/SoapClients/TimeInTransit/TimeInTransitPort/Test.cls.xml	(.../Test.cls.xml)	(revision 32515)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/SoapClients/TimeInTransit/TimeInTransitPort/Test.cls.xml	(.../Test.cls.xml)	(revision 32557)
@@ -21,9 +21,7 @@
 <Method name="No_Test: UPS Communicatie">
 <Implementation><![CDATA[
 	#dim Response As APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitResponse = ..CommuniceerMetUPS()
-
 	Do ..SchrijfXmlNaarBestand(Response, "Response.xml")
-	
 	do $$$AssertReferentieBestanden(..GeefBestandLocatie())
 ]]></Implementation>
 </Method>
@@ -35,17 +33,12 @@
 <Implementation><![CDATA[
 	#dim Connection As APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.TimeInTransitPort = ##class(APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.TimeInTransitPort).%New()
 	
-	#dim Header As APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.upss.UPSSecurity = ..GeefHeader()
-	#dim Body As APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitRequest = ..GeefBody()
-	
 	If ($IsObject(TransportSpy)) {
 		Set Connection.Transport = TransportSpy
 	}
-	Do Connection.HeadersOut.SetAt(Header,"v1")
-	Set Connection.SSLConfiguration = "UPS"
 
 	try {
-		#dim Response As APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitResponse = Connection.ProcessTimeInTransit(Body)
+		#dim Response As APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitResponse = Connection.ProcessTimeInTransit(..GeefBody())
 	} catch {
 		do ..Fail(##class(TECH.ExceptionHandler).Catch().GeefOmschrijving())
 		do ..Fail(%objlasterror)
@@ -92,19 +85,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefHeader">
-<Private>1</Private>
-<ReturnType>APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.upss.UPSSecurity</ReturnType>
-<Implementation><![CDATA[
-	#dim Header As APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.upss.UPSSecurity = ##class(APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.upss.UPSSecurity).%New()
-	Set Header.ServiceAccessToken.AccessLicenseNumber = "BD0247306226EBF8"
-	Set Header.UsernameToken.Username = "VanHoeckeAPI" 
-	Set Header.UsernameToken.Password = "123ABC@@@"
-	Set Header.mustUnderstand = 1
-	quit Header
-]]></Implementation>
-</Method>
-
 <Method name="GeefBody">
 <Private>1</Private>
 <ReturnType>APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitRequest</ReturnType>
Index: vhTest/Fake/APPS/TRANSP/UPS/SoapClients/TimeInTransit/TimeInTransitPort.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/TRANSP/UPS/SoapClients/TimeInTransit/TimeInTransitPort.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/TRANSP/UPS/SoapClients/TimeInTransit/TimeInTransitPort.cls.xml	(revision 32557)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.TRANSP.UPS.SoapClients.TimeInTransit.TimeInTransitPort">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.RegisteredObject,APPS.TRANSP.UPS.SoapClients.TimeInTransit.TimeInTransitPort</Super>
+
+<Method name="ProcessTimeInTransit">
+<FormalSpec>Body:APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitRequest</FormalSpec>
+<ReturnType>APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitResponse</ReturnType>
+<Implementation><![CDATA[ Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/UPS/OfferteBerekenaar.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/UPS/OfferteBerekenaar.cls.xml	(revision 0)
+++ APPS/TRANSP/UPS/OfferteBerekenaar.cls.xml	(revision 32557)
@@ -0,0 +1,109 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.UPS.OfferteBerekenaar">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="UPSConnection">
+<Type>%SOAP.WebClient</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResponseConverteerder">
+<Type>APPS.TRANSP.UPS.ResponseConverteerder</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TeverzendItemListConverteerder">
+<Type>APPS.TRANSP.UPS.TeverzendItemListConverteerder</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResponseValideerder">
+<Type>APPS.TRANSP.UPS.ResponseValideerder</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TeverzendItemListValideerder">
+<Type>APPS.TRANSP.UPS.TeverzendItemListValideerder</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>UPSConnection:APPS.TRANSP.UPS.SoapClients.TimeInTransit.TimeInTransitPort=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..UPSConnection = $$$Implementation(UPSConnection,##class(APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.TimeInTransitPort).%New())
+	
+	Set ..ResponseConverteerder = ##class(APPS.TRANSP.UPS.impl.ResponseConverteerder).%New()
+	Set ..TeverzendItemListConverteerder = ##class(APPS.TRANSP.UPS.impl.OfferteConverteerder).%New()
+	Set ..ResponseValideerder = ##class(APPS.TRANSP.UPS.ResponseValideerder).%New()
+	Set ..TeverzendItemListValideerder = ##class(APPS.TRANSP.UPS.OfferteValideerder).%New()
+	
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Bereken">
+<FormalSpec>TeverzendenItemList:APPS.TRANSP.OfferteService.dto.TeverzendenItemList</FormalSpec>
+<ReturnType>APPS.TRANSP.OfferteService.dto.OfferteData</ReturnType>
+<Implementation><![CDATA[
+	
+	Do ..ValideerOfferte(TeverzendenItemList)
+	
+	#dim Request As APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitRequest = ..GeefRequest(TeverzendenItemList) 
+	#dim Response As APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitResponse = ..GeefResponse(Request) 
+
+	Do ..ValideerResponse(Response, Request)
+
+	Quit ..GeefLeverDatums(Response)
+]]></Implementation>
+</Method>
+
+<Method name="ValideerResponse">
+<FormalSpec>Response:APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitResponse,Request:APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitRequest</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..ResponseValideerder.Valideer(Response, Request) 
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="ValideerOfferte">
+<FormalSpec>TeverzendenItemList:APPS.TRANSP.OfferteService.dto.TeverzendenItemList</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..TeverzendItemListValideerder.Valideer(TeverzendenItemList)
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeverDatums">
+<FormalSpec>Response:APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitResponse</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.OfferteService.dto.OfferteData</ReturnType>
+<Implementation><![CDATA[	quit ..ResponseConverteerder.Converteer(Response)
+]]></Implementation>
+</Method>
+
+<Method name="GeefRequest">
+<FormalSpec>TeverzendenItemList:APPS.TRANSP.OfferteService.dto.TeverzendenItemList</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitRequest</ReturnType>
+<Implementation><![CDATA[	quit ..TeverzendItemListConverteerder.Converteer(TeverzendenItemList)
+]]></Implementation>
+</Method>
+
+<Method name="GeefResponse">
+<FormalSpec>Request:APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitRequest</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitResponse</ReturnType>
+<Implementation><![CDATA[	Quit ..UPSConnection.ProcessTimeInTransit(Request)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/UPS/impl/ResponseValideerder.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/UPS/impl/ResponseValideerder.cls.xml	(revision 0)
+++ APPS/TRANSP/UPS/impl/ResponseValideerder.cls.xml	(revision 32557)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.UPS.impl.ResponseValideerder">
+<Super>APPS.TRANSP.UPS.ResponseValideerder</Super>
+
+<Method name="Valideer">
+<FormalSpec>Response:APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitResponse,Request:APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitRequest</FormalSpec>
+<Implementation><![CDATA[
+	
+	if (Response.Response.TransactionReference.CustomerContext '= Request.Request.TransactionReference.CustomerContext) {
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Verkeerde referentie : " _Response.Response.TransactionReference.CustomerContext)
+	}
+
+	if ((Response.Response.ResponseStatus.Code '= "1") || (Response.Response.ResponseStatus.Description '= "Success")) {
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("UPS Response geeft ongeldige status voor ref : " _Response.Response.TransactionReference.CustomerContext)
+	}
+	
+	if (Response.CandidateResponse.ShipToList.Count() > 0) {
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("UPS stelt alternative adressen voor ref : " _Response.Response.TransactionReference.CustomerContext)
+	}
+
+	Quit
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/UPS/impl/SoapClients/TimeInTransit/TimeInTransitPort.cls.xml
===================================================================
diff -u -r32497 -r32557
--- APPS/TRANSP/UPS/impl/SoapClients/TimeInTransit/TimeInTransitPort.cls.xml	(.../TimeInTransitPort.cls.xml)	(revision 32497)
+++ APPS/TRANSP/UPS/impl/SoapClients/TimeInTransit/TimeInTransitPort.cls.xml	(.../TimeInTransitPort.cls.xml)	(revision 32557)
@@ -1,22 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.TimeInTransitPort">
+<IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%SOAP.WebClient</Super>
+<Super>%SOAP.WebClient,APPS.TRANSP.UPS.SoapClients.TimeInTransit.TimeInTransitPort</Super>
 
-<Method name="ProcessTimeInTransit">
-<Final>1</Final>
-<FormalSpec>Body:APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitRequest(XMLNAME="TimeInTransitRequest")</FormalSpec>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitResponse</ReturnType>
-<WebMethod>1</WebMethod>
-<SoapBindingStyle>document</SoapBindingStyle>
-<SoapBodyUse>literal</SoapBodyUse>
-<ReturnTypeParams>XMLNAME="TimeInTransitResponse"</ReturnTypeParams>
-<Implementation><![CDATA[ Quit ..WebMethod("ProcessTimeInTransit").Invoke($this,"http://onlinetools.ups.com/webservices/TimeInTransitBinding/v1.0",.Body)
-]]></Implementation>
-</Method>
-
 <Parameter name="ARGUMENTSTYLE">
 <Description>
 Use unwrapped message style for document binding style.</Description>
@@ -26,7 +14,7 @@
 <Parameter name="LOCATION">
 <Description>
 This is the URL used to access the web service.</Description>
-<Default>https://wwwcie.ups.com/webservices/TimeInTransit</Default>
+<Default>https://onlinetools.ups.com/webservices/TimeInTransit</Default>
 </Parameter>
 
 <Parameter name="NAMESPACE">
@@ -58,6 +46,53 @@
 This is the namespace used for types by the Service</Description>
 <Default>http://www.ups.com/XMLSchema/XOLTWS/tnt/v1.0</Default>
 </Parameter>
+
+<Method name="ProcessTimeInTransit">
+<Final>1</Final>
+<FormalSpec>Body:APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitRequest(XMLNAME="TimeInTransitRequest")</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<ReturnTypeParams>XMLNAME="TimeInTransitResponse"</ReturnTypeParams>
+<Implementation><![CDATA[
+	Do ..HeadersOut.SetAt(..GeefHeader(),"v1")
+	Set ..SSLConfiguration = "UPS"
+
+	#dim Response As APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitResponse = ""
+	#dim Pogingen As %Integer = 0
+	For {
+		try {
+			Set Response = ..WebMethod("ProcessTimeInTransit").Invoke($this,"http://onlinetools.ups.com/webservices/TimeInTransitBinding/v1.0",.Body)
+		} catch {
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			Set Response = ""
+		}
+		Set Pogingen = Pogingen + 1
+		Quit:(Pogingen = 3 || $IsObject(Response))
+	}
+	
+	If ($$$Not($IsObject(Response))){
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Kon geen gegevens ophalen van UPS TransitTime : " _Exception.ToString())
+	}
+	
+	Quit Response
+]]></Implementation>
+</Method>
+
+<Method name="GeefHeader">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.upss.UPSSecurity</ReturnType>
+<Implementation><![CDATA[
+	#dim Header As APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.upss.UPSSecurity = ##class(APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.upss.UPSSecurity).%New()
+	Set Header.ServiceAccessToken.AccessLicenseNumber = "BD0247306226EBF8"
+	Set Header.UsernameToken.Username = "VanHoeckeAPI" 
+	Set Header.UsernameToken.Password = "123ABC@@@"
+	Set Header.mustUnderstand = 1
+	quit Header
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/TRANSP/UPS/ResponseConverteerder.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/UPS/ResponseConverteerder.cls.xml	(revision 0)
+++ APPS/TRANSP/UPS/ResponseConverteerder.cls.xml	(revision 32557)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.UPS.ResponseConverteerder">
+<Abstract>1</Abstract>
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Converteer">
+<Abstract>1</Abstract>
+<FormalSpec>Response:APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitResponse</FormalSpec>
+<ReturnType>APPS.TRANSP.OfferteService.dto.OfferteData</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/OfferteService/dto/OfferteData.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/OfferteService/dto/OfferteData.cls.xml	(revision 0)
+++ APPS/TRANSP/OfferteService/dto/OfferteData.cls.xml	(revision 32557)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.OfferteService.dto.OfferteData">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="OfferteItemList">
+<Type>APPS.TRANSP.OfferteService.dto.OfferteItem</Type>
+<Collection>list</Collection>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/UPS/SoapClients/TimeInTransit/TimeInTransitPort.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/UPS/SoapClients/TimeInTransit/TimeInTransitPort.cls.xml	(revision 0)
+++ APPS/TRANSP/UPS/SoapClients/TimeInTransit/TimeInTransitPort.cls.xml	(revision 32557)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.UPS.SoapClients.TimeInTransit.TimeInTransitPort">
+<Abstract>1</Abstract>
+
+<Method name="ProcessTimeInTransit">
+<Abstract>1</Abstract>
+<FormalSpec>Body:APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitRequest</FormalSpec>
+<ReturnType>APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitResponse</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/OfferteService/dto/TeverzendenItem.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/OfferteService/dto/TeverzendenItem.cls.xml	(revision 0)
+++ APPS/TRANSP/OfferteService/dto/TeverzendenItem.cls.xml	(revision 32557)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.OfferteService.dto.TeverzendenItem">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="ProductID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Afmeting">
+<Type>TECH.Decimal</Type>
+</Property>
+
+<Property name="Gewicht">
+<Type>TECH.Decimal</Type>
+</Property>
+
+<Property name="WaardeGoederen">
+<Type>TECH.Decimal</Type>
+</Property>
+
+<Property name="DatumBeschikbaar">
+<Type>%Date</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/UPS/ResponseValideerder.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/UPS/ResponseValideerder.cls.xml	(revision 0)
+++ APPS/TRANSP/UPS/ResponseValideerder.cls.xml	(revision 32557)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.UPS.ResponseValideerder">
+<Abstract>1</Abstract>
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Valideer">
+<Abstract>1</Abstract>
+<FormalSpec>Response:APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitResponse,Request:APPS.TRANSP.UPS.impl.SoapClients.TimeInTransit.tnt.TimeInTransitRequest</FormalSpec>
+</Method>
+</Class>
+
+
+</Export>