Index: APPS/TRANSP/UPS/impl/TimeInTransit/ResponseConverteerder.cls.xml
===================================================================
diff -u -r32684 -r32701
--- APPS/TRANSP/UPS/impl/TimeInTransit/ResponseConverteerder.cls.xml	(.../ResponseConverteerder.cls.xml)	(revision 32684)
+++ APPS/TRANSP/UPS/impl/TimeInTransit/ResponseConverteerder.cls.xml	(.../ResponseConverteerder.cls.xml)	(revision 32701)
@@ -20,7 +20,7 @@
 		Set OfferteItem.Kostprijs = 0
 		Set OfferteItem.Optie = ""
 		
-		Do OfferteData.Items.SetAt(OfferteItem,Item)
+		Do OfferteData.Items.Insert(OfferteItem)
 	}
 
 	quit OfferteData
Index: vhTest/Fake/APPS/TRANSP/UPS/impl/Rate/OfferteBerekenaar.cls.xml
===================================================================
diff -u -r32689 -r32701
--- vhTest/Fake/APPS/TRANSP/UPS/impl/Rate/OfferteBerekenaar.cls.xml	(.../OfferteBerekenaar.cls.xml)	(revision 32689)
+++ vhTest/Fake/APPS/TRANSP/UPS/impl/Rate/OfferteBerekenaar.cls.xml	(.../OfferteBerekenaar.cls.xml)	(revision 32701)
@@ -20,7 +20,7 @@
 		Set OfferteItem.OphaalDatum = ""
 		Set OfferteItem.Optie = ""
 
-		Do OfferteData.Items.SetAt(OfferteItem,Item)
+		Do OfferteData.Items.Insert(OfferteItem)
 	}
 	quit OfferteData
 ]]></Implementation>
Index: vhTest/Fake/APPS/TRANSP/UPS/impl/TimeInTransit/OfferteBerekenaar.cls.xml
===================================================================
diff -u -r32689 -r32701
--- vhTest/Fake/APPS/TRANSP/UPS/impl/TimeInTransit/OfferteBerekenaar.cls.xml	(.../OfferteBerekenaar.cls.xml)	(revision 32689)
+++ vhTest/Fake/APPS/TRANSP/UPS/impl/TimeInTransit/OfferteBerekenaar.cls.xml	(.../OfferteBerekenaar.cls.xml)	(revision 32701)
@@ -20,7 +20,7 @@
 		Set OfferteItem.OphaalDatum = ##class(TECH.DateTime).TextToDate("10/03/2016")
 		Set OfferteItem.Optie = ""
 
-		Do OfferteData.Items.SetAt(OfferteItem,Item)
+		Do OfferteData.Items.Insert(OfferteItem)
 	}
 	quit OfferteData
 ]]></Implementation>
Index: vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/ResponseValidator/Test.cls.xml
===================================================================
diff -u -r32696 -r32701
--- vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/ResponseValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 32696)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/ResponseValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 32701)
@@ -64,7 +64,7 @@
 		Set SummaryType.EstimatedArrival.Pickup.Date = ##class(TECH.DateTime).TextToDate("10/03/2016")
 		Set SummaryType.EstimatedArrival.TotalTransitDays = Item
 			
-		Do Response.TransitResponse.ServiceSummary.SetAt(SummaryType,Item)
+		Do Response.TransitResponse.ServiceSummary.Insert(SummaryType)
 	}
 	Quit Response
 ]]></Implementation>
@@ -107,7 +107,7 @@
 	Set Candidate.Address.PostcodePrimaryHigh = "9170"
 	Set Candidate.Address.PostcodePrimaryLow = "9170"
 	
-	Do Response.CandidateResponse.ShipToList.SetAt(Candidate,1)
+	Do Response.CandidateResponse.ShipToList.Insert(Candidate)
 
 	Quit Response
 ]]></Implementation>
Index: vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/ResponseConverteerder/Test.cls.xml
===================================================================
diff -u -r32696 -r32701
--- vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/ResponseConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 32696)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/ResponseConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 32701)
@@ -54,7 +54,7 @@
 		Set SummaryType.EstimatedArrival.Pickup.Date = ##class(TECH.DateTime).TextToDate("10/03/2016")
 		Set SummaryType.EstimatedArrival.TotalTransitDays = Item
 			
-		Do Response.TransitResponse.ServiceSummary.SetAt(SummaryType,Item)
+		Do Response.TransitResponse.ServiceSummary.Insert(SummaryType)
 	}
 	Quit Response
 ]]></Implementation>
@@ -75,7 +75,7 @@
 		Set OfferteItem.Kostprijs = 0
 		Set OfferteItem.OphaalDatum = ##class(TECH.DateTime).TextToDate("10/03/2016")
 		Set OfferteItem.Optie = ""
-		Do OfferteData.Items.SetAt(OfferteItem,Item)
+		Do OfferteData.Items.Insert(OfferteItem)
 	}
 
 	Quit OfferteData
Index: vhTest/Fake/APPS/TRANSP/UPS/impl/Rate/Service/RatePort.cls.xml
===================================================================
diff -u -r32694 -r32701
--- vhTest/Fake/APPS/TRANSP/UPS/impl/Rate/Service/RatePort.cls.xml	(.../RatePort.cls.xml)	(revision 32694)
+++ vhTest/Fake/APPS/TRANSP/UPS/impl/Rate/Service/RatePort.cls.xml	(.../RatePort.cls.xml)	(revision 32701)
@@ -13,7 +13,7 @@
 	Set Response.Response.ResponseStatus.Code = "1"
 	Set Response.Response.ResponseStatus.Description = "Success"
 	
-	///RequestOption.SetAt("Shop",1)
+	///RequestOption.Insert("Shop")
 	
 	Set Response.Response.TransactionReference.CustomerContext = Body.Request.TransactionReference.CustomerContext
 	Set Response.Response.TransactionReference.TransactionIdentifier = Body.Request.TransactionReference.TransactionIdentifier
@@ -28,7 +28,7 @@
 		Set RatedShipment.TotalCharges.CurrencyCode = "EUR"
 		Set RatedShipment.TotalCharges.MonetaryValue  = Item * 10
 		
-		Do Response.RatedShipment.SetAt(RatedShipment,Item)	
+		Do Response.RatedShipment.Insert(RatedShipment)	
 	}
 
 	Quit Response
Index: vhUnitTest/APPS/TRANSP/UPS/impl/Rate/Service/RatePort/Test.cls.xml
===================================================================
diff -u -r32689 -r32701
--- vhUnitTest/APPS/TRANSP/UPS/impl/Rate/Service/RatePort/Test.cls.xml	(.../Test.cls.xml)	(revision 32689)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/Rate/Service/RatePort/Test.cls.xml	(.../Test.cls.xml)	(revision 32701)
@@ -94,7 +94,7 @@
 	Set Body.Request.TransactionReference.CustomerContext = "jskqlfsdf"
 	Set Body.Request.TransactionReference.TransactionIdentifier = "?"
 
-	Do Body.Request.RequestOption.SetAt("Shop",1)
+	Do Body.Request.RequestOption.Insert("Shop")
 	
 	Set Body.Shipment.Shipper.Name = "Van Hoecke"
 	Set Body.Shipment.Shipper.ShipperNumber = "A566R9"
@@ -118,7 +118,7 @@
 		Set Package.PackagingType.Code = "02"
 		Set Package.PackagingType.Description = "Package/customer supplied"
 		
-		Do Body.Shipment.Package.SetAt(Package,Item)
+		Do Body.Shipment.Package.Insert(Package)
 	}
 	
 	
Index: vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/BerekenInputValidator/Test.cls.xml
===================================================================
diff -u -r32696 -r32701
--- vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/BerekenInputValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 32696)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/BerekenInputValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 32701)
@@ -47,7 +47,7 @@
 		Set TeverzendItem.Aantal = 1
 		Set TeverzendItem.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(Item * 500, Item * 10, Item * 100 )
 		Set TeverzendItem.DatumBeschikbaar = ##class(TECH.DateTime).TextToDate(Item_"/03/2016")
-		Do BerekenInput.TeVerzendenItems.SetAt(TeverzendItem,Item)
+		Do BerekenInput.TeVerzendenItems.Insert(TeverzendItem)
 	}
 	
 	Quit BerekenInput
Index: vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/OfferteBerekenaar/Test.cls.xml
===================================================================
diff -u -r32696 -r32701
--- vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/OfferteBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 32696)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/OfferteBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 32701)
@@ -44,7 +44,7 @@
 		Set TeverzendItem.Aantal = 1
 		Set TeverzendItem.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(Item * 500, Item * 10, Item * 100 )
 		Set TeverzendItem.DatumBeschikbaar = ##class(TECH.DateTime).TextToDate(Item_"/03/2016")
-		Do BerekenInput.TeVerzendenItems.SetAt(TeverzendItem,Item)
+		Do BerekenInput.TeVerzendenItems.Insert(TeverzendItem)
 	}
 	
 	Quit BerekenInput
@@ -66,7 +66,7 @@
 		Set OfferteItem.Kostprijs = 0
 		Set OfferteItem.OphaalDatum = ##class(TECH.DateTime).TextToDate("10/03/2016")
 		Set OfferteItem.Optie = ""
-		Do OfferteData.Items.SetAt(OfferteItem,Item)
+		Do OfferteData.Items.Insert(OfferteItem)
 	}
 
 	Quit OfferteData
Index: vhUnitTest/APPS/TRANSP/UPS/impl/Rate/OfferteBerekenaar/Test.cls.xml
===================================================================
diff -u -r32698 -r32701
--- vhUnitTest/APPS/TRANSP/UPS/impl/Rate/OfferteBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 32698)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/Rate/OfferteBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 32701)
@@ -44,7 +44,7 @@
 		Set TeverzendItem.Gewicht = Item * 120
 		Set TeverzendItem.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(Item * 500, Item * 10, Item * 100 ) 
 		Set TeverzendItem.DatumBeschikbaar = ##class(TECH.DateTime).TextToDate(Item_"/03/2016")
-		Do BerekenInput.TeVerzendenItems.SetAt(TeverzendItem,Item)
+		Do BerekenInput.TeVerzendenItems.Insert(TeverzendItem)
 	}
 	
 	Quit BerekenInput
@@ -66,7 +66,7 @@
 		Set OfferteItem.Kostprijs = Item * 10
 		Set OfferteItem.OphaalDatum = ""
 		Set OfferteItem.Optie = ""
-		Do OfferteData.Items.SetAt(OfferteItem,Item)
+		Do OfferteData.Items.Insert(OfferteItem)
 	}
 
 	Quit OfferteData
Index: vhUnitTest/APPS/TRANSP/UPS/impl/Rate/ResponseConverteerder/Test.cls.xml
===================================================================
diff -u -r32698 -r32701
--- vhUnitTest/APPS/TRANSP/UPS/impl/Rate/ResponseConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 32698)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/Rate/ResponseConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 32701)
@@ -42,7 +42,7 @@
 		Set RatedShipment.TotalCharges.CurrencyCode = "EUR"
 		Set RatedShipment.TotalCharges.MonetaryValue  = Item * 10
 		
-		Do Response.RatedShipment.SetAt(RatedShipment,Item)	
+		Do Response.RatedShipment.Insert(RatedShipment)	
 	}
 
 	
@@ -65,7 +65,7 @@
 		Set OfferteItem.Kostprijs = Item * 10
 		Set OfferteItem.OphaalDatum = ""
 		Set OfferteItem.Optie = ""
-		Do OfferteData.Items.SetAt(OfferteItem,Item)
+		Do OfferteData.Items.Insert(OfferteItem)
 	}
 
 	Quit OfferteData
Index: APPS/TRANSP/UPS/impl/Rate/ResponseConverteerder.cls.xml
===================================================================
diff -u -r32683 -r32701
--- APPS/TRANSP/UPS/impl/Rate/ResponseConverteerder.cls.xml	(.../ResponseConverteerder.cls.xml)	(revision 32683)
+++ APPS/TRANSP/UPS/impl/Rate/ResponseConverteerder.cls.xml	(.../ResponseConverteerder.cls.xml)	(revision 32701)
@@ -22,7 +22,7 @@
 		Set OfferteItem.Kostprijs = RatedShipment.TotalCharges.MonetaryValue
 		Set OfferteItem.Optie = ""
 		
-		Do OfferteData.Items.SetAt(OfferteItem,Item)
+		Do OfferteData.Items.Insert(OfferteItem)
 	}
 
 	quit OfferteData
Index: vhUnitTest/APPS/TRANSP/UPS/impl/Rate/BerekenInputConverteerder/Test.cls.xml
===================================================================
diff -u -r32698 -r32701
--- vhUnitTest/APPS/TRANSP/UPS/impl/Rate/BerekenInputConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 32698)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/Rate/BerekenInputConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 32701)
@@ -49,7 +49,7 @@
 		Set TeverzendItem.Gewicht = Item * 120
 		Set TeverzendItem.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(Item * 500, Item * 10, Item * 100 ) 
 		Set TeverzendItem.DatumBeschikbaar = ##class(TECH.DateTime).TextToDate(Item_"/03/2016")
-		Do BerekenInput.TeVerzendenItems.SetAt(TeverzendItem,Item)
+		Do BerekenInput.TeVerzendenItems.Insert(TeverzendItem)
 	}
 	
 	Quit BerekenInput
@@ -62,7 +62,7 @@
 <Implementation><![CDATA[
 	Set Request = ##class(APPS.TRANSP.UPS.impl.Rate.Service.rate.RateRequest).%New()
 	
-	Do Request.Request.RequestOption.SetAt("Shop",1)
+	Do Request.Request.RequestOption.Insert("Shop")
 	Set Request.Request.TransactionReference.CustomerContext = "1"
 	Set Request.Request.TransactionReference.TransactionIdentifier = "1"
 
@@ -85,7 +85,7 @@
 	Set PackageItem1.PackageWeight.Weight = 120
 	Set PackageItem1.PackagingType.Code = "02"
 	Set PackageItem1.PackagingType.Description = "Package/customer supplied"
-	Do Request.Shipment.Package.SetAt(PackageItem1,1)
+	Do Request.Shipment.Package.Insert(PackageItem1)
 
 	Set PackageItem2 = ##class(APPS.TRANSP.UPS.impl.Rate.Service.rate.PackageType).%New()
 	Set PackageItem2.Dimensions.Height = 1000
@@ -95,7 +95,7 @@
 	Set PackageItem2.PackageWeight.Weight = 800
 	Set PackageItem2.PackagingType.Code = "02"
 	Set PackageItem2.PackagingType.Description = "Package/customer supplied"
-	Do Request.Shipment.Package.SetAt(PackageItem2,2)
+	Do Request.Shipment.Package.Insert(PackageItem2)
 	
 	Set PackageItem3 = ##class(APPS.TRANSP.UPS.impl.Rate.Service.rate.PackageType).%New()
 	Set PackageItem3.Dimensions.Height = 1500
@@ -105,7 +105,7 @@
 	Set PackageItem3.PackageWeight.Weight = 2700
 	Set PackageItem3.PackagingType.Code = "02"
 	Set PackageItem3.PackagingType.Description = "Package/customer supplied"
-	Do Request.Shipment.Package.SetAt(PackageItem3,3)
+	Do Request.Shipment.Package.Insert(PackageItem3)
 
 	Set PackageItem4 = ##class(APPS.TRANSP.UPS.impl.Rate.Service.rate.PackageType).%New()
 	Set PackageItem4.Dimensions.Height = 2000
@@ -115,7 +115,7 @@
 	Set PackageItem4.PackageWeight.Weight = 6400
 	Set PackageItem4.PackagingType.Code = "02"
 	Set PackageItem4.PackagingType.Description = "Package/customer supplied"
-	Do Request.Shipment.Package.SetAt(PackageItem4,4)
+	Do Request.Shipment.Package.Insert(PackageItem4)
 
 	Set PackageItem5 = ##class(APPS.TRANSP.UPS.impl.Rate.Service.rate.PackageType).%New()
 	Set PackageItem5.Dimensions.Height = 2500
@@ -125,7 +125,7 @@
 	Set PackageItem5.PackageWeight.Weight = 12500
 	Set PackageItem5.PackagingType.Code = "02"
 	Set PackageItem5.PackagingType.Description = "Package/customer supplied"
-	Do Request.Shipment.Package.SetAt(PackageItem5,5)
+	Do Request.Shipment.Package.Insert(PackageItem5)
 
 	Set Request.Shipment.ShipmentServiceOptions.UPScarbonneutralIndicator = ""
 	
Index: vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/BerekenInputConverteerder/Test.cls.xml
===================================================================
diff -u -r32696 -r32701
--- vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/BerekenInputConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 32696)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/BerekenInputConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 32701)
@@ -46,7 +46,7 @@
 		Set TeverzendItem.Aantal = 1
 		Set TeverzendItem.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(Item * 500, Item * 10, Item * 100 )
 		Set TeverzendItem.DatumBeschikbaar = ##class(TECH.DateTime).TextToDate(Item_"/03/2016")
-		Do BerekenInput.TeVerzendenItems.SetAt(TeverzendItem,Item)
+		Do BerekenInput.TeVerzendenItems.Insert(TeverzendItem)
 	}
 	
 	Quit BerekenInput
Index: vhUnitTest/APPS/TRANSP/UPS/impl/Rate/BerekenInputValidator/Test.cls.xml
===================================================================
diff -u -r32698 -r32701
--- vhUnitTest/APPS/TRANSP/UPS/impl/Rate/BerekenInputValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 32698)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/Rate/BerekenInputValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 32701)
@@ -47,7 +47,7 @@
 		Set TeverzendItem.Gewicht = Item * 120
 		Set TeverzendItem.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(Item * 500, Item * 10, Item * 100 ) 
 		Set TeverzendItem.DatumBeschikbaar = ##class(TECH.DateTime).TextToDate(Item_"/03/2016")
-		Do BerekenInput.TeVerzendenItems.SetAt(TeverzendItem,Item)
+		Do BerekenInput.TeVerzendenItems.Insert(TeverzendItem)
 	}
 	
 	Quit BerekenInput
Index: vhTest/Fake/APPS/TRANSP/UPS/impl/TimeInTransit/Service/TimeInTransitPort.cls.xml
===================================================================
diff -u -r32694 -r32701
--- vhTest/Fake/APPS/TRANSP/UPS/impl/TimeInTransit/Service/TimeInTransitPort.cls.xml	(.../TimeInTransitPort.cls.xml)	(revision 32694)
+++ vhTest/Fake/APPS/TRANSP/UPS/impl/TimeInTransit/Service/TimeInTransitPort.cls.xml	(.../TimeInTransitPort.cls.xml)	(revision 32701)
@@ -38,7 +38,7 @@
 		Set SummaryType.EstimatedArrival.Pickup.Date = Body.Pickup.Date
 		Set SummaryType.EstimatedArrival.TotalTransitDays = Item
 			
-		Do Response.TransitResponse.ServiceSummary.SetAt(SummaryType,Item)
+		Do Response.TransitResponse.ServiceSummary.Insert(SummaryType)
 	}
 	Quit Response
 ]]></Implementation>
Index: vhUnitTest/APPS/TRANSP/UPS/impl/OfferteBerekenaar/Test.cls.xml
===================================================================
diff -u -r32696 -r32701
--- vhUnitTest/APPS/TRANSP/UPS/impl/OfferteBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 32696)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/OfferteBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 32701)
@@ -44,7 +44,7 @@
 		Set TeverzendItem.Gewicht = Item * 5
 		Set TeverzendItem.Afmeting = Item * 500
 		Set TeverzendItem.DatumBeschikbaar = ##class(TECH.DateTime).TextToDate(Item_"/03/2016")
-		Do BerekenInput.TeVerzendenItems.SetAt(TeverzendItem,Item)
+		Do BerekenInput.TeVerzendenItems.Insert(TeverzendItem)
 	}
 	
 	Quit BerekenInput
@@ -65,7 +65,7 @@
 	Set OfferteItem1.Kostprijs = 70
 	Set OfferteItem1.OphaalDatum = ##class(TECH.DateTime).TextToDate("10/03/2016")
 	Set OfferteItem1.Optie = ""
-	Do OfferteData.Items.SetAt(OfferteItem1,1)
+	Do OfferteData.Items.Insert(OfferteItem1)
 
 	#dim OfferteItem2 As APPS.TRANSP.OfferteService.dto.OfferteItem = ##class(APPS.TRANSP.OfferteService.dto.OfferteItem).%New()
 	Set OfferteItem2.Code = 2
@@ -75,7 +75,7 @@
 	Set OfferteItem2.Kostprijs = 70
 	Set OfferteItem2.OphaalDatum = ##class(TECH.DateTime).TextToDate("10/03/2016")
 	Set OfferteItem2.Optie = ""
-	Do OfferteData.Items.SetAt(OfferteItem2,2)
+	Do OfferteData.Items.Insert(OfferteItem2)
 
 	#dim OfferteItem3 As APPS.TRANSP.OfferteService.dto.OfferteItem = ##class(APPS.TRANSP.OfferteService.dto.OfferteItem).%New()
 	Set OfferteItem3.Code = 4
@@ -85,7 +85,7 @@
 	Set OfferteItem3.Kostprijs = 110
 	Set OfferteItem3.OphaalDatum = ##class(TECH.DateTime).TextToDate("10/03/2016")
 	Set OfferteItem3.Optie = ""
-	Do OfferteData.Items.SetAt(OfferteItem3,3)
+	Do OfferteData.Items.Insert(OfferteItem3)
 
 	Quit OfferteData
 ]]></Implementation>
Index: vhUnitTest/APPS/TRANSP/UPS/impl/Rate/ResponseValidator/Test.cls.xml
===================================================================
diff -u -r32698 -r32701
--- vhUnitTest/APPS/TRANSP/UPS/impl/Rate/ResponseValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 32698)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/Rate/ResponseValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 32701)
@@ -37,10 +37,8 @@
 		Set RatedShipment.TotalCharges.CurrencyCode = "EUR"
 		Set RatedShipment.TotalCharges.MonetaryValue  = Item * 10
 		
-		Do Response.RatedShipment.SetAt(RatedShipment,Item)	
+		Do Response.RatedShipment.Insert(RatedShipment)	
 	}
-
-	
 	Quit Response
 ]]></Implementation>
 </Method>
@@ -51,7 +49,7 @@
 <Implementation><![CDATA[
 	Set Request = ##class(APPS.TRANSP.UPS.impl.Rate.Service.rate.RateRequest).%New()
 	
-	Do Request.Request.RequestOption.SetAt("Shop",1)
+	Do Request.Request.RequestOption.Insert("Shop")
 	Set Request.Request.TransactionReference.CustomerContext = "1"
 	Set Request.Request.TransactionReference.TransactionIdentifier = "1"
 
@@ -74,7 +72,7 @@
 	Set PackageItem1.PackageWeight.Weight = 120
 	Set PackageItem1.PackagingType.Code = "02"
 	Set PackageItem1.PackagingType.Description = "Package/customer supplied"
-	Do Request.Shipment.Package.SetAt(PackageItem1,1)
+	Do Request.Shipment.Package.Insert(PackageItem1)
 
 	Set PackageItem2 = ##class(APPS.TRANSP.UPS.impl.Rate.Service.rate.PackageType).%New()
 	Set PackageItem2.Dimensions.Height = 1000
@@ -84,7 +82,7 @@
 	Set PackageItem2.PackageWeight.Weight = 800
 	Set PackageItem2.PackagingType.Code = "02"
 	Set PackageItem2.PackagingType.Description = "Package/customer supplied"
-	Do Request.Shipment.Package.SetAt(PackageItem2,2)
+	Do Request.Shipment.Package.Insert(PackageItem2)
 	
 	Set PackageItem3 = ##class(APPS.TRANSP.UPS.impl.Rate.Service.rate.PackageType).%New()
 	Set PackageItem3.Dimensions.Height = 1500
@@ -94,7 +92,7 @@
 	Set PackageItem3.PackageWeight.Weight = 2700
 	Set PackageItem3.PackagingType.Code = "02"
 	Set PackageItem3.PackagingType.Description = "Package/customer supplied"
-	Do Request.Shipment.Package.SetAt(PackageItem3,3)
+	Do Request.Shipment.Package.Insert(PackageItem3)
 
 	Set PackageItem4 = ##class(APPS.TRANSP.UPS.impl.Rate.Service.rate.PackageType).%New()
 	Set PackageItem4.Dimensions.Height = 2000
@@ -104,7 +102,7 @@
 	Set PackageItem4.PackageWeight.Weight = 6400
 	Set PackageItem4.PackagingType.Code = "02"
 	Set PackageItem4.PackagingType.Description = "Package/customer supplied"
-	Do Request.Shipment.Package.SetAt(PackageItem4,4)
+	Do Request.Shipment.Package.Insert(PackageItem4)
 
 	Set PackageItem5 = ##class(APPS.TRANSP.UPS.impl.Rate.Service.rate.PackageType).%New()
 	Set PackageItem5.Dimensions.Height = 2500
@@ -114,7 +112,7 @@
 	Set PackageItem5.PackageWeight.Weight = 12500
 	Set PackageItem5.PackagingType.Code = "02"
 	Set PackageItem5.PackagingType.Description = "Package/customer supplied"
-	Do Request.Shipment.Package.SetAt(PackageItem5,5)
+	Do Request.Shipment.Package.Insert(PackageItem5)
 
 	Set Request.Shipment.ShipmentServiceOptions.UPScarbonneutralIndicator = ""