Index: AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml
===================================================================
diff -u -r42033 -r42040
--- AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml	(.../AankoopOrderRegelDixfConverter.cls.xml)	(revision 42033)
+++ AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml	(.../AankoopOrderRegelDixfConverter.cls.xml)	(revision 42040)
@@ -67,7 +67,7 @@
 	Set ..AxRegel.LineNumber = ..BepaalLineNumber(ToeleveringLijn)
 	Set ..AxRegel.LinePercent = ""
 	Set ..AxRegel.OverDeliveryPct = ""
-	Set ..AxRegel.PriceUnit = ""
+	Set ..AxRegel.PriceUnit = ..BepaalPriceUnit(ToeleveringLijn)
 	Set ..AxRegel.PurchId = ..BepaalPurchId(ToeleveringLijn)
 	Set ..AxRegel.PurchPrice = ..BepaalPurchPrice(ToeleveringLijn)
 	Set ..AxRegel.PurchQty = ..BepaalPurchQty(ToeleveringLijn)
@@ -147,6 +147,36 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalPriceUnit">
+<FormalSpec>ToeleveringLijn:%RegisteredObject</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim PriceUnit As %String = ""
+	
+	If ToeleveringLijn.%Extends("DOM.AKP.ProductToeleveringLijn")
+	{
+		#dim GrootteOrde = ToeleveringLijn.GeefGrootteOrde()
+		If (GrootteOrde = "E"){
+			Set PriceUnit = "1"
+		}ElseIf (GrootteOrde = "H"){
+			Set PriceUnit = "100"
+		}ElseIf (GrootteOrde = "M"){
+			Set PriceUnit = "1000"
+		}ElseIf (GrootteOrde = ""){
+			Set PriceUnit = ""
+		}Else{
+			Set Exceptie = ##class(TECH.Exceptions.IllegalArgumentException).%New("Waarde in GrootteOrde is niet voorzien (E/H/M wèl)")
+			Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}} ElseIf ToeleveringLijn.%Extends("APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BlOrdRsp")
+	{
+		Set PriceUnit = ""
+	}
+	
+	Quit PriceUnit
+]]></Implementation>
+</Method>
+
 <Method name="BepaalPurchId">
 <FormalSpec>ToeleveringLijn:%RegisteredObject</FormalSpec>
 <Private>1</Private>