Index: APPS/TRANSP/Offerte/impl/DHL/TariefBepaler.cls.xml
===================================================================
diff -u -r34538 -r34552
--- APPS/TRANSP/Offerte/impl/DHL/TariefBepaler.cls.xml	(.../TariefBepaler.cls.xml)	(revision 34538)
+++ APPS/TRANSP/Offerte/impl/DHL/TariefBepaler.cls.xml	(.../TariefBepaler.cls.xml)	(revision 34552)
@@ -24,32 +24,33 @@
 <FormalSpec>LandCode:%String,PostCode:%String,Dimensies:APPS.TRANSP.OfferteService.dto.Afmeting,Gewicht:%Decimal</FormalSpec>
 <ReturnType>TECH.Decimal</ReturnType>
 <Implementation><![CDATA[
-	Set Gewicht = ..BepaalFactureerbaarGewicht(Dimensies, Gewicht)
-	Do ..ControleerGewicht(Gewicht)
+	#Dim GewichtInKg As %Integer = ..BepaalFactureerbaarGewichtInKg(Dimensies, Gewicht)
+	Do ..ControleerGewichtInKg(GewichtInKg)
 	
 	#dim Tarief As APPS.TRANSP.Offerte.impl.DHL.Tarief =  ..TariefRepository.GeefViaLandEnPostCode(LandCode, PostCode)
-	#dim ItemIndex As %Integer = Tarief.TariefPerGewichtInKG.Next(Gewicht-0.01)
+	#dim ItemIndex As %Integer = Tarief.TariefPerGewichtInKG.Next(GewichtInKg-0.01)
 	Quit Tarief.TariefPerGewichtInKG.GetAt(ItemIndex)
 ]]></Implementation>
 </Method>
 
-<Method name="ControleerGewicht">
-<FormalSpec>Gewicht:%Integer</FormalSpec>
+<Method name="ControleerGewichtInKg">
+<FormalSpec>GewichtInKg:%Integer</FormalSpec>
 <Implementation><![CDATA[
-	Do:(Gewicht<=0) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Er is een ongeldig gewicht ingevoerd."))
-	Do:(Gewicht>2500) ##class(TECH.ExceptionHandler).Throw(##class(APPS.TRANSP.Offerte.exc.PrijsOpAanvraagExceptie).%New("Voor gewichten groter dan 2500 Kg zijn de tarieven op aanvraag."))
+	Do:(GewichtInKg<=0) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Er is een ongeldig gewicht ingevoerd."))
+	Do:(GewichtInKg>2500) ##class(TECH.ExceptionHandler).Throw(##class(APPS.TRANSP.Offerte.exc.PrijsOpAanvraagExceptie).%New("Voor gewichten groter dan 2500 Kg zijn de tarieven op aanvraag."))
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalFactureerbaarGewicht">
-<FormalSpec>Dimensies:APPS.TRANSP.OfferteService.dto.Afmeting,Gewicht:%Integer</FormalSpec>
+<Method name="BepaalFactureerbaarGewichtInKg">
+<FormalSpec>Dimensies:APPS.TRANSP.OfferteService.dto.Afmeting,GewichtInGram:%Integer</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
+	#dim GewichtInKg As %Integer = GewichtInGram / 1000
 	#dim VolumeGewicht As %Integer = (Dimensies.Breedte / 1000) * (Dimensies.Hoogte/1000) * (Dimensies.Lengte/1000) * 330
-	if VolumeGewicht > Gewicht {
+	if VolumeGewicht > GewichtInKg {
 		Quit VolumeGewicht
 	}
-	Quit Gewicht
+	Quit GewichtInKg
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/TariefBepaler/Test.cls.xml
===================================================================
diff -u -r34538 -r34552
--- vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/TariefBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 34538)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/TariefBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 34552)
@@ -24,7 +24,7 @@
 	
 	#dim Afmeting As APPS.TRANSP.OfferteService.dto.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(0,0,0)
 	
-	#dim Tarief As %Decimal = TariefBepaler.GeefTarief("DE","54122",Afmeting,90)
+	#dim Tarief As %Decimal = TariefBepaler.GeefTarief("DE","54122",Afmeting,90000)
 	Do $$$AssertEquals(Tarief, 35.25)
 ]]></Implementation>
 </Method>
@@ -36,7 +36,7 @@
 	
 	#dim Afmeting As APPS.TRANSP.OfferteService.dto.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(0,0,0)
 	
-	#dim Tarief As %Decimal = TariefBepaler.GeefTarief("DE","54122",Afmeting,99.99)
+	#dim Tarief As %Decimal = TariefBepaler.GeefTarief("DE","54122",Afmeting,99990)
 	Do $$$AssertEquals(Tarief, 35.25)
 ]]></Implementation>
 </Method>
@@ -48,7 +48,7 @@
 	
 	#dim Afmeting As APPS.TRANSP.OfferteService.dto.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(0,0,0)
 	
-	#dim Tarief As %Decimal = TariefBepaler.GeefTarief("DE","54122",Afmeting,100)
+	#dim Tarief As %Decimal = TariefBepaler.GeefTarief("DE","54122",Afmeting,100000)
 	Do $$$AssertEquals(Tarief, 35.25)
 ]]></Implementation>
 </Method>
@@ -60,7 +60,7 @@
 	
 	#dim Afmeting As APPS.TRANSP.OfferteService.dto.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(0,0,0)
 	
-	#dim Tarief As %Decimal = TariefBepaler.GeefTarief("DE","54122",Afmeting,100.01)
+	#dim Tarief As %Decimal = TariefBepaler.GeefTarief("DE","54122",Afmeting,100010)
 	Do $$$AssertEquals(Tarief, 43.32)
 ]]></Implementation>
 </Method>
@@ -72,7 +72,7 @@
 	
 	#dim Afmeting As APPS.TRANSP.OfferteService.dto.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(0,0,0)
 	
-	#dim Tarief As %Decimal = TariefBepaler.GeefTarief("DE","54122",Afmeting,190)
+	#dim Tarief As %Decimal = TariefBepaler.GeefTarief("DE","54122",Afmeting,190000)
 	Do $$$AssertEquals(Tarief, 43.32)
 ]]></Implementation>
 </Method>
@@ -84,7 +84,7 @@
 	
 	#dim Afmeting As APPS.TRANSP.OfferteService.dto.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(0,0,0)
 	
-	#dim Tarief As %Decimal = TariefBepaler.GeefTarief("DE","54122",Afmeting,999.9)
+	#dim Tarief As %Decimal = TariefBepaler.GeefTarief("DE","54122",Afmeting,999900)
 	Do $$$AssertEquals(Tarief, 101.83)
 ]]></Implementation>
 </Method>
@@ -96,7 +96,7 @@
 	
 	#dim Afmeting As APPS.TRANSP.OfferteService.dto.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(0,0,0)
 	
-	#dim Tarief As %Decimal = TariefBepaler.GeefTarief("DE","54122",Afmeting,1000.1)
+	#dim Tarief As %Decimal = TariefBepaler.GeefTarief("DE","54122",Afmeting,1000100)
 	Do $$$AssertEquals(Tarief, 124.29)
 ]]></Implementation>
 </Method>
@@ -108,7 +108,7 @@
 	
 	#dim Afmeting As APPS.TRANSP.OfferteService.dto.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(0,0,0)
 	
-	#dim Tarief As %Decimal = TariefBepaler.GeefTarief("DE","54122",Afmeting,2500)
+	#dim Tarief As %Decimal = TariefBepaler.GeefTarief("DE","54122",Afmeting,2500000)
 	Do $$$AssertEquals(Tarief, 197.20)
 ]]></Implementation>
 </Method>
@@ -123,7 +123,7 @@
 	
 	#dim Afmeting As APPS.TRANSP.OfferteService.dto.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(0,0,0)
 	
-	#dim Tarief As %Decimal = TariefBepaler.GeefTarief("DE","54122",Afmeting,3000)
+	#dim Tarief As %Decimal = TariefBepaler.GeefTarief("DE","54122",Afmeting,3000000)
 ]]></Implementation>
 </Method>
 
@@ -186,7 +186,7 @@
 	
 	#dim Afmeting As APPS.TRANSP.OfferteService.dto.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(500, 500, 500)
 	
-	#dim Tarief As %Decimal = TariefBepaler.GeefTarief("DE","54122",Afmeting,190)
+	#dim Tarief As %Decimal = TariefBepaler.GeefTarief("DE","54122",Afmeting,190000)
 	Do $$$AssertEquals(Tarief, 43.32)
 ]]></Implementation>
 </Method>
@@ -198,7 +198,7 @@
 	
 	#dim Afmeting As APPS.TRANSP.OfferteService.dto.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(1000, 1000, 1000)
 	
-	#dim Tarief As %Decimal = TariefBepaler.GeefTarief("DE","54122",Afmeting,100)
+	#dim Tarief As %Decimal = TariefBepaler.GeefTarief("DE","54122",Afmeting,100000)
 	Do $$$AssertEquals(Tarief, 58.88)
 ]]></Implementation>
 </Method>
Index: APPS/TRANSP/Offerte/impl/DHL/PallettenBepaler.cls.xml
===================================================================
diff -u -r34539 -r34552
--- APPS/TRANSP/Offerte/impl/DHL/PallettenBepaler.cls.xml	(.../PallettenBepaler.cls.xml)	(revision 34539)
+++ APPS/TRANSP/Offerte/impl/DHL/PallettenBepaler.cls.xml	(.../PallettenBepaler.cls.xml)	(revision 34552)
@@ -11,8 +11,11 @@
 	
 	#dim Pallet As APPS.TRANSP.OfferteService.dto.Pallet = ##class(APPS.TRANSP.OfferteService.dto.Pallet).%New()
 	Set Pallet.Gewicht = 100
-	/// KCA HIER OPGELET !!! AfMetingen Berekeninput zijn in millimeter !!!
+	/// KCA HIER OPGELET !!! 
+	/// AfMetingen Berekeninput zijn in millimeter !!!
 	/// pallet ook in millimeter doorgeven. de omrekening naar meter gebeurt enkel juist voor de gewichtberekening.
+	/// Gewichten in software in GRAM !!!
+	/// pallet ook in gram doorgeven. de omrekening naar KG gebeurt enkel juist voor de gewichtberekening.
 	Set Pallet.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(1,1,1)
 	Do Palletten.Insert(Pallet)