Index: APPS/TRANSP/UPS/impl/Rate/BerekenInputConverteerder.cls.xml
===================================================================
diff -u -r32640 -r32662
--- APPS/TRANSP/UPS/impl/Rate/BerekenInputConverteerder.cls.xml	(.../BerekenInputConverteerder.cls.xml)	(revision 32640)
+++ APPS/TRANSP/UPS/impl/Rate/BerekenInputConverteerder.cls.xml	(.../BerekenInputConverteerder.cls.xml)	(revision 32662)
@@ -3,7 +3,7 @@
 <Class name="APPS.TRANSP.UPS.impl.Rate.BerekenInputConverteerder">
 <Super>APPS.TRANSP.UPS.BerekenInputConverteerder</Super>
 
-<Property name="Body">
+<Property name="RateRequest">
 <Type>APPS.TRANSP.UPS.impl.SoapClients.Rate.rate.RateRequest</Type>
 <Private>1</Private>
 </Property>
@@ -17,7 +17,7 @@
 <FormalSpec>BerekenInput:APPS.TRANSP.OfferteService.dto.BerekenInput</FormalSpec>
 <ReturnType>APPS.TRANSP.UPS.impl.SoapClients.Rate.rate.RateRequest</ReturnType>
 <Implementation><![CDATA[
-	Set ..Body = ##class(APPS.TRANSP.UPS.impl.SoapClients.Rate.rate.RateRequest).%New()
+	Set ..RateRequest = ##class(APPS.TRANSP.UPS.impl.SoapClients.Rate.rate.RateRequest).%New()
 	Set ..BerekenInput = BerekenInput
 	
 	Do ..ZetReferentie()
@@ -28,38 +28,38 @@
 
 	Do ..ZetVerzendDetails()
 	
-	Set ..Body.Shipment.ShipmentServiceOptions.UPScarbonneutralIndicator = ""
-	Set ..Body.Shipment.ShipmentRatingOptions.NegotiatedRatesIndicator = ""
+	Set ..RateRequest.Shipment.ShipmentServiceOptions.UPScarbonneutralIndicator = ""
+	Set ..RateRequest.Shipment.ShipmentRatingOptions.NegotiatedRatesIndicator = ""
 
-	quit ..Body
+	quit ..RateRequest
 ]]></Implementation>
 </Method>
 
 <Method name="ZetReferentie">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set ..Body.Request.TransactionReference.CustomerContext = ..BerekenInput.Referentie
-	Set ..Body.Request.TransactionReference.TransactionIdentifier = ..BerekenInput.Referentie
+	Set ..RateRequest.Request.TransactionReference.CustomerContext = ..BerekenInput.Referentie
+	Set ..RateRequest.Request.TransactionReference.TransactionIdentifier = ..BerekenInput.Referentie
 ]]></Implementation>
 </Method>
 
 <Method name="ZetLeverAdres">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set ..Body.Shipment.ShipTo.Address.StateProvinceCode = ..BerekenInput.LeverAdres.ProvincieCode
-	Set ..Body.Shipment.ShipTo.Address.City = ..BerekenInput.LeverAdres.Woonplaats
-	Set ..Body.Shipment.ShipTo.Address.CountryCode = ..BerekenInput.LeverAdres.LandCode
-	Set ..Body.Shipment.ShipTo.Address.PostalCode = ..BerekenInput.LeverAdres.Postcode
+	Set ..RateRequest.Shipment.ShipTo.Address.StateProvinceCode = ..BerekenInput.LeverAdres.ProvincieCode
+	Set ..RateRequest.Shipment.ShipTo.Address.City = ..BerekenInput.LeverAdres.Woonplaats
+	Set ..RateRequest.Shipment.ShipTo.Address.CountryCode = ..BerekenInput.LeverAdres.LandCode
+	Set ..RateRequest.Shipment.ShipTo.Address.PostalCode = ..BerekenInput.LeverAdres.Postcode
 ]]></Implementation>
 </Method>
 
 <Method name="ZetVerzendAdres">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set ..Body.Shipment.Shipper.Address.StateProvinceCode = ""
-	Set ..Body.Shipment.Shipper.Address.City = "Sint-Niklaas" 
-	Set ..Body.Shipment.Shipper.Address.CountryCode = "BE" 
-	Set ..Body.Shipment.Shipper.Address.PostalCode = "9100"
+	Set ..RateRequest.Shipment.Shipper.Address.StateProvinceCode = ""
+	Set ..RateRequest.Shipment.Shipper.Address.City = "Sint-Niklaas" 
+	Set ..RateRequest.Shipment.Shipper.Address.CountryCode = "BE" 
+	Set ..RateRequest.Shipment.Shipper.Address.PostalCode = "9100"
 ]]></Implementation>
 </Method>
 
@@ -76,7 +76,7 @@
 			Set PackageItem.PackageWeight.Weight = ..BerekenGewicht(TeverzendItem.Afmeting,TeverzendItem.Gewicht)
 			Set PackageItem.PackagingType.Code = "02"
 			Set PackageItem.PackagingType.Description = "Package/customer supplied"
-			Do ..Body.Shipment.Package.SetAt(PackageItem,Item)
+			Do ..RateRequest.Shipment.Package.SetAt(PackageItem,Item)
 		}
 	}
 ]]></Implementation>