Index: APPS/TRANSP/Offerte/impl/UPS/Rate/BerekenInputConverteerder.cls.xml
===================================================================
diff -u -r34538 -r34554
--- APPS/TRANSP/Offerte/impl/UPS/Rate/BerekenInputConverteerder.cls.xml	(.../BerekenInputConverteerder.cls.xml)	(revision 34538)
+++ APPS/TRANSP/Offerte/impl/UPS/Rate/BerekenInputConverteerder.cls.xml	(.../BerekenInputConverteerder.cls.xml)	(revision 34554)
@@ -91,7 +91,7 @@
 		for i = 1 : 1 : TeverzendItem.Aantal { 
 			Set PackageItem = ##class(APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.PackageType).%New()
 			Set PackageItem.PackageWeight.UnitOfMeasurement.Code = "KGS"
-			Set PackageItem.PackageWeight.Weight = ..GewichtBerekenaar.Bereken(TeverzendItem.Afmeting,TeverzendItem.Gewicht)
+			Set PackageItem.PackageWeight.Weight = ..GewichtBerekenaar.BerekenInKg(TeverzendItem.Afmeting,TeverzendItem.Gewicht)
 			Set PackageItem.PackagingType.Code = "02"
 			Set PackageItem.PackagingType.Description = "Package/customer supplied"
 			Do ..RateRequest.Shipment.Package.Insert(PackageItem)
Index: APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/BerekenInputConverteerder.cls.xml
===================================================================
diff -u -r34016 -r34554
--- APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/BerekenInputConverteerder.cls.xml	(.../BerekenInputConverteerder.cls.xml)	(revision 34016)
+++ APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/BerekenInputConverteerder.cls.xml	(.../BerekenInputConverteerder.cls.xml)	(revision 34554)
@@ -69,7 +69,7 @@
 	while Iterator.HasNext() {
 		#dim TeverzendItem As APPS.TRANSP.OfferteService.dto.TeverzendenItem = Iterator.Next()
 		Set TotaalPrijs = TotaalPrijs + (TeverzendItem.WaardeGoederen * TeverzendItem.Aantal)
-		Set TotaalGewicht = TotaalGewicht + (..GewichtBerekenaar.Bereken(TeverzendItem.Afmeting, TeverzendItem.Gewicht) * TeverzendItem.Aantal)
+		Set TotaalGewicht = TotaalGewicht + (..GewichtBerekenaar.BerekenInKg(TeverzendItem.Afmeting, TeverzendItem.Gewicht) * TeverzendItem.Aantal)
 	}
 	
 	Set ..TimeInTransitRequest.ShipmentWeight.UnitOfMeasurement.Code = "KGS"
Index: APPS/TRANSP/Offerte/impl/UPS/OfferteBerekenaar/GewichtBerekenaar.cls.xml
===================================================================
diff -u -r34016 -r34554
--- APPS/TRANSP/Offerte/impl/UPS/OfferteBerekenaar/GewichtBerekenaar.cls.xml	(.../GewichtBerekenaar.cls.xml)	(revision 34016)
+++ APPS/TRANSP/Offerte/impl/UPS/OfferteBerekenaar/GewichtBerekenaar.cls.xml	(.../GewichtBerekenaar.cls.xml)	(revision 34554)
@@ -3,15 +3,16 @@
 <Class name="APPS.TRANSP.Offerte.impl.UPS.OfferteBerekenaar.GewichtBerekenaar">
 <Super>TECH.RegisteredObject</Super>
 
-<Method name="Bereken">
-<FormalSpec>Afmeting:APPS.TRANSP.OfferteService.dto.Afmeting,Gewicht:TECH.Decimal</FormalSpec>
+<Method name="BerekenInKg">
+<FormalSpec>Afmeting:APPS.TRANSP.OfferteService.dto.Afmeting,GewichtInGram:TECH.Decimal</FormalSpec>
 <ReturnType>TECH.Integer</ReturnType>
 <Implementation><![CDATA[
+	#dim GewichtInKg As %Integer = ##class(TECH.Math).Floor(GewichtInGram / 1000)
 	#dim BerekendGewicht As TECH.Decimal = ((Afmeting.Breedte/10) * (Afmeting.Hoogte/10) * (Afmeting.Lengte/10)) / 5000
-	If (BerekendGewicht > Gewicht)	{
+	If (BerekendGewicht > GewichtInKg)	{
 		Quit ##class(TECH.Math).Floor(BerekendGewicht)
 	} else {
-		Quit ##class(TECH.Math).Floor(Gewicht)
+		Quit GewichtInKg
 	}
 ]]></Implementation>
 </Method>