Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml
===================================================================
diff -u -r35381 -r35383
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35381)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35383)
@@ -66,6 +66,9 @@
 		#Dim ToeleveringDetail As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail).%New()
 
 		Set ToeleveringDetail.OrderQuantity = E1EDP01.MENGE
+		Set ToeleveringDetail.ReasonCode = "V"
+		Set ToeleveringDetail.PriceDimension = ..BepaalPriceDimension(E1EDP01.E1EDP05)
+		Set ToeleveringDetail.NetPrice = E1EDP01.E1EDP05.PREIS
 		Do ..VoegToeOrderLineIdentificationCustomer(ToeleveringDetail,E1EDP01)
 		Do ..VoegToeOrderLineIdentNumberSupplierBAU(ToeleveringDetail,E1EDP01)
 		
@@ -100,6 +103,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalPriceDimension">
+<FormalSpec>E1EDP05:APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP05</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Quit:('$IsObject(E1EDP05)) "2"
+	Quit:(E1EDP05.UPRBS="1000") "3"
+	Quit:(E1EDP05.UPRBS="1") "0"
+	Quit "2"
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 /*Method VoegToeOrderQuantityEnDeliveryDateAxBUA(ToeleveringDetail As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail, E1EDP01 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP01) [ Private ]
Index: vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/XML/ORDERS05.cls.xml
===================================================================
diff -u -r35381 -r35383
--- vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/XML/ORDERS05.cls.xml	(.../ORDERS05.cls.xml)	(revision 35381)
+++ vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/XML/ORDERS05.cls.xml	(.../ORDERS05.cls.xml)	(revision 35383)
@@ -98,6 +98,10 @@
 	Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP19.GetAt(1).QUALF = "002"
 	Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP19.GetAt(1).IDTNR = "03695500"
 
+	Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP05.UPRBS = "1000"
+	Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP05.PREIS  = "0000082.36"
+	Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP05.MEAUN  = "PCE"
+	
 	Quit ORDERS05
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder/Converteer/Test.cls.xml
===================================================================
diff -u -r35381 -r35383
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 35381)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 35383)
@@ -23,7 +23,13 @@
 	
 	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.Count(),2)
 	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).OrderQuantity,"500")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).ReasonCode,"V")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).PriceDimension,"2")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).NetPrice,"")
 	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).OrderLineIdentificationCustomer,"277788.01  ")
+	
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(2).PriceDimension,"3")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(2).NetPrice,"0000082.36")
 ]]></Implementation>
 </Method>
 </Class>