Index: APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml
===================================================================
diff -u -r35428 -r35432
--- APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35428)
+++ APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35432)
@@ -131,9 +131,9 @@
 	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.VPREI = ToeleveringDetail.NetPrice
 	Set E1EDP01.PEINH = ..BepaalPUINH(ToeleveringDetail.PriceDimension)
-	Set E1EDP01.VPREI = ((E1EDP01.MENGE * E1EDP01.NETWR) / E1EDP01.PEINH ) 
+	Set E1EDP01.NETWR = ((E1EDP01.MENGE * E1EDP01.VPREI) / E1EDP01.PEINH ) 
 	Set E1EDP01.PREIS = ToeleveringDetail.ProductData.BrutoAankoopPrijs
 	
 	Set E1EDP01.E1EDP20.SEGMENT = "1"
Index: vhTestFiles/UnitTests/APPS.EDIExport.AankoopOrder.impl.BLUM.Verzender.Verzend/Test/TestVerzendschrijftBLUMaankooporderinxmlformaatnaarbestand/EDI_BLUM_XML_OUT/AankoopOrder/Data20121211000001.xml
===================================================================
diff -u -r35430 -r35432
--- vhTestFiles/UnitTests/APPS.EDIExport.AankoopOrder.impl.BLUM.Verzender.Verzend/Test/TestVerzendschrijftBLUMaankooporderinxmlformaatnaarbestand/EDI_BLUM_XML_OUT/AankoopOrder/Data20121211000001.xml	(.../Data20121211000001.xml)	(revision 35430)
+++ vhTestFiles/UnitTests/APPS.EDIExport.AankoopOrder.impl.BLUM.Verzender.Verzend/Test/TestVerzendschrijftBLUMaankooporderinxmlformaatnaarbestand/EDI_BLUM_XML_OUT/AankoopOrder/Data20121211000001.xml	(.../Data20121211000001.xml)	(revision 35432)
@@ -77,9 +77,9 @@
       <MENGE>500.</MENGE>
       <MENEE>PCE</MENEE>
       <PMENE>PCE</PMENE>
-      <VPREI>34.8</VPREI>
+      <VPREI>6.96</VPREI>
       <PEINH>100</PEINH>
-      <NETWR>6.96</NETWR>
+      <NETWR>34.8</NETWR>
       <PREIS>11.6</PREIS>
       <E1EDP20 SEGMENT="1">
         <WMENG>500.</WMENG>
@@ -112,9 +112,9 @@
       <MENGE>500.</MENGE>
       <MENEE>PCE</MENEE>
       <PMENE>PCE</PMENE>
-      <VPREI>34.8</VPREI>
+      <VPREI>6.96</VPREI>
       <PEINH>100</PEINH>
-      <NETWR>6.96</NETWR>
+      <NETWR>34.8</NETWR>
       <PREIS>11.6</PREIS>
       <E1EDP20 SEGMENT="1">
         <WMENG>500.</WMENG>
Index: vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender/Verzend/Test.cls.xml
===================================================================
diff -u -r35430 -r35432
--- vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender/Verzend/Test.cls.xml	(.../Test.cls.xml)	(revision 35430)
+++ vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender/Verzend/Test.cls.xml	(.../Test.cls.xml)	(revision 35432)
@@ -107,9 +107,9 @@
 	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<MENGE>500.</MENGE>"),"")
 	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<MENEE>PCE</MENEE>"),"")
 	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<PMENE>PCE</PMENE>"),"")
-	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<VPREI>34.8</VPREI>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<VPREI>6.96</VPREI>"),"")
 	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<PEINH>100</PEINH>"),"")
-	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<NETWR>6.96</NETWR>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<NETWR>34.8</NETWR>"),"")
 	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<PREIS>11.6</PREIS>"),"")
 	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<E1EDP20 SEGMENT=""1"">"),"")
 	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<AMENG>0.000</AMENG>"),"")
@@ -142,9 +142,9 @@
 	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<MENGE>500.</MENGE>"),"")
 	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<MENEE>PCE</MENEE>"),"")
 	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<PMENE>PCE</PMENE>"),"")
-	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<VPREI>34.8</VPREI>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<VPREI>6.96</VPREI>"),"")
 	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<PEINH>100</PEINH>"),"")
-	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<NETWR>6.96</NETWR>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<NETWR>34.8</NETWR>"),"")
 	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<PREIS>11.6</PREIS>"),"")
 	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<E1EDP20 SEGMENT=""1"">"),"")
 	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<AMENG>0.000</AMENG>"),"")
Index: vhTest/Utils/APPS/EDIExport/AankoopOrder/BLUM/XML/ORDERS05.cls.xml
===================================================================
diff -u -r35430 -r35432
--- vhTest/Utils/APPS/EDIExport/AankoopOrder/BLUM/XML/ORDERS05.cls.xml	(.../ORDERS05.cls.xml)	(revision 35430)
+++ vhTest/Utils/APPS/EDIExport/AankoopOrder/BLUM/XML/ORDERS05.cls.xml	(.../ORDERS05.cls.xml)	(revision 35432)
@@ -72,9 +72,9 @@
 	Set E1EDP01.MENGE = "500." ;##Quantity##
 	Set E1EDP01.MENEE = "PCE" ;##Unit of Measure##
 	Set E1EDP01.PMENE = "PCE" ;##Unit for Price##
-	Set E1EDP01.VPREI = 34.8 ;##Price net##
+	Set E1EDP01.VPREI = 6.96 ;##Price net##
 	Set E1EDP01.PEINH = 100 ;##Price Unit##
-	Set E1EDP01.NETWR = 6.96 ;##Position value##
+	Set E1EDP01.NETWR = 34.8 ;##Position value##
 	Set E1EDP01.PREIS = 11.6 ;##gross price##
 	
 	Set E1EDP01.E1EDP20.SEGMENT = "1"
@@ -97,9 +97,9 @@
 	Set E1EDP01.MENGE = "500." ;##Quantity##
 	Set E1EDP01.MENEE = "PCE" ;##Unit of Measure##
 	Set E1EDP01.PMENE = "PCE" ;##Unit for Price##
-	Set E1EDP01.VPREI = 34.8 ;##Price net##
+	Set E1EDP01.VPREI = 6.96 ;##Price net##
 	Set E1EDP01.PEINH = 100 ;##Price Unit##
-	Set E1EDP01.NETWR = 6.96 ;##Position value##
+	Set E1EDP01.NETWR = 34.8 ;##Position value##
 	Set E1EDP01.PREIS = 11.6 ;##gross price##
 	
 	Set E1EDP01.E1EDP20.SEGMENT = "1"