Index: APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml
===================================================================
diff -u -r35171 -r35184
--- APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35171)
+++ APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35184)
@@ -91,7 +91,7 @@
 <Implementation><![CDATA[
 	Set ORDERS05.IDOC.E1EDK02.SEGMENT = "1"
 	Set ORDERS05.IDOC.E1EDK02.DATUM = "20" _Toelevering.ToeleveringHeader.CustomerOrderEntryDate
-	Set ORDERS05.IDOC.E1EDK02.BELNR = Toelevering.ToeleveringHeader.CustomerOrderReference
+	Set ORDERS05.IDOC.E1EDK02.BELNR = $$$Trim(Toelevering.ToeleveringHeader.CustomerOrderReference)
 	Set ORDERS05.IDOC.E1EDK02.QUALF = "001" ; Customer Purchase order
 ]]></Implementation>
 </Method>
@@ -151,15 +151,15 @@
 <Implementation><![CDATA[
 	#dim E1EDP01 As APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDP01 = ##class(APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDP01).%New()
 	Set E1EDP01.SEGMENT = "1"
-	Set E1EDP01.POSEX = ToeleveringDetail.OrderLineIdentificationCustomer
+	Set E1EDP01.POSEX = $$$Trim(ToeleveringDetail.OrderLineIdentificationCustomer)
 	Set E1EDP01.ACTION = "001" ; item added
 	Set E1EDP01.MENGE = ToeleveringDetail.OrderQuantity
 	Set E1EDP01.MENEE = "PCE" ; Units of measure
 	Set E1EDP01.PMENE = "PCE" ; Units of Price
 	Set E1EDP01.NETWR = ToeleveringDetail.NetPrice
-	Set E1EDP01.PEINH = ToeleveringDetail.PriceDimension
-	Set E1EDP01.VPREI = ((ToeleveringDetail.OrderQuantity * ToeleveringDetail.NetPrice) / ToeleveringDetail.PriceDimension ) 
-	
+	Set E1EDP01.PEINH = ..BepaalPUINH(ToeleveringDetail.PriceDimension)
+	Set E1EDP01.VPREI = ((E1EDP01.MENGE * E1EDP01.NETWR) / E1EDP01.PEINH ) 
+
 	Set E1EDP01.E1EDP03.SEGMENT = "1"
 	Set E1EDP01.E1EDP03.IDDAT = "002" ; (expected delivery date)
 	Set E1EDP01.E1EDP03.DATUM = "20" _ToeleveringDetail.DeliveryDateAxBUA ; Delivery date
@@ -172,6 +172,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalPUINH">
+<FormalSpec>PriceDimension:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Quit:PriceDimension="3" 1000
+	Quit:PriceDimension="2" 100
+	Quit:PriceDimension="1" 100
+	Quit 1
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeE1EDP19">
 <Final>1</Final>
 <FormalSpec>E1EDP01:APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDP01,ToeleveringDetail:APPS.EDIExport.AankoopOrder.BLUM.dto.ToeleveringDetail</FormalSpec>