Index: APPS/TRANSP/UPS/impl/Rate/ResponseConverteerder.cls.xml
===================================================================
diff -u -r33038 -r33163
--- APPS/TRANSP/UPS/impl/Rate/ResponseConverteerder.cls.xml	(.../ResponseConverteerder.cls.xml)	(revision 33038)
+++ APPS/TRANSP/UPS/impl/Rate/ResponseConverteerder.cls.xml	(.../ResponseConverteerder.cls.xml)	(revision 33163)
@@ -21,6 +21,7 @@
 		Set OfferteItem.OphaalDatum = ""
 		Set OfferteItem.Duurtijd = ""
 		Set OfferteItem.Kostprijs = RatedShipment.TotalCharges.MonetaryValue
+		Set OfferteItem.CarbonNeutralPrijs = RatedShipment.ServiceOptionsCharges.MonetaryValue
 		Set OfferteItem.Optie = ""
 		
 		Do OfferteData.Items.Insert(OfferteItem)
Index: vhUnitTest/APPS/TRANSP/UPS/impl/Rate/ResponseConverteerder/Test.cls.xml
===================================================================
diff -u -r32701 -r33163
--- vhUnitTest/APPS/TRANSP/UPS/impl/Rate/ResponseConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 32701)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/Rate/ResponseConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 33163)
@@ -41,6 +41,8 @@
 		Set RatedShipment.BillingWeight.Weight = Item * 5 
 		Set RatedShipment.TotalCharges.CurrencyCode = "EUR"
 		Set RatedShipment.TotalCharges.MonetaryValue  = Item * 10
+		Set RatedShipment.ServiceOptionsCharges.CurrencyCode = "EUR"
+		Set RatedShipment.ServiceOptionsCharges.MonetaryValue = Item
 		
 		Do Response.RatedShipment.Insert(RatedShipment)	
 	}
@@ -63,6 +65,7 @@
 		Set OfferteItem.Gegarandeerd = ""
 		Set OfferteItem.Duurtijd = ""
 		Set OfferteItem.Kostprijs = Item * 10
+		Set OfferteItem.CarbonNeutralPrijs = Item
 		Set OfferteItem.OphaalDatum = ""
 		Set OfferteItem.Optie = ""
 		Do OfferteData.Items.Insert(OfferteItem)