Index: vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder/Converteer/Test.cls.xml
===================================================================
diff -u -r35167 -r35190
--- vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 35167)
+++ vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 35190)
@@ -6,8 +6,8 @@
 <Method name="Test : Converteer BLUM aankooporder COMSO naar ORDERS05">
 <Implementation><![CDATA[
 	#dim Converteerder As APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder = ##class(APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder).%New()
-	#dim COMSODouble As vhTest.Utils.APPS.EDIExport.AankoopOrder.BLUM.dto.COMSO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrder.BLUM.dto.COMSO).%New()
-	#dim ORDERS05List As %ListOfObjects = Converteerder.Converteer(COMSODouble.GeefCOMSO())
+	#dim COMSODouble As APPS.EDIExport.AankoopOrder.BLUM.dto.COMSO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrder.BLUM.dto.COMSO).%New().GeefCOMSO()
+	#dim ORDERS05List As %ListOfObjects = Converteerder.Converteer(COMSODouble)
 	
 	///#dim TestORDERS05 As APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05 = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05).GeefORDERS05()
 	///Do $$$AssertEquals(ORDERS05Result, TestORDERS05)
@@ -99,6 +99,60 @@
 	Do $$$AssertEquals(ORDERS05Result.IDOC.E1EDP01.GetAt(1).E1EDP19.GetAt(3).QUALF,"003")
 ]]></Implementation>
 </Method>
+
+<Method name="Test : Converteer BLUM eenheid COMSO (waarde 0) naar ORDERS05 (waarde 1)">
+<Implementation><![CDATA[
+	#dim Converteerder As APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder = ##class(APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder).%New()
+	#dim COMSODouble As APPS.EDIExport.AankoopOrder.BLUM.dto.COMSO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrder.BLUM.dto.COMSO).%New().GeefCOMSO()
+	Set COMSODouble.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).PriceDimension = 0
+	#dim ORDERS05List As %ListOfObjects = Converteerder.Converteer(COMSODouble)
+	
+	Do $$$AssertIsObject(ORDERS05List)
+	Do $$$AssertEquals(ORDERS05List.Count(),1)
+	
+	#dim ORDERS05Result As APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05 = ORDERS05List.GetAt(1)
+	Do $$$AssertEquals(ORDERS05Result.IDOC.E1EDP01.GetAt(1).MENGE, 1000)
+	Do $$$AssertEquals(ORDERS05Result.IDOC.E1EDP01.GetAt(1).NETWR, 6.96)
+	Do $$$AssertEquals(ORDERS05Result.IDOC.E1EDP01.GetAt(1).PEINH, 1)
+	Do $$$AssertEquals(ORDERS05Result.IDOC.E1EDP01.GetAt(1).VPREI, ((1000 * 6.96) / 1) )
+]]></Implementation>
+</Method>
+
+<Method name="Test : Converteer BLUM eenheid COMSO (waarde 1) naar ORDERS05 (waarde 100)">
+<Implementation><![CDATA[
+	#dim Converteerder As APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder = ##class(APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder).%New()
+	#dim COMSODouble As APPS.EDIExport.AankoopOrder.BLUM.dto.COMSO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrder.BLUM.dto.COMSO).%New().GeefCOMSO()
+	Set COMSODouble.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).PriceDimension = 1
+	#dim ORDERS05List As %ListOfObjects = Converteerder.Converteer(COMSODouble)
+	
+	Do $$$AssertIsObject(ORDERS05List)
+	Do $$$AssertEquals(ORDERS05List.Count(),1)
+	
+	#dim ORDERS05Result As APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05 = ORDERS05List.GetAt(1)
+	Do $$$AssertEquals(ORDERS05Result.IDOC.E1EDP01.GetAt(1).MENGE, 1000)
+	Do $$$AssertEquals(ORDERS05Result.IDOC.E1EDP01.GetAt(1).NETWR, 6.96)
+	Do $$$AssertEquals(ORDERS05Result.IDOC.E1EDP01.GetAt(1).PEINH, 100)
+	Do $$$AssertEquals(ORDERS05Result.IDOC.E1EDP01.GetAt(1).VPREI, ((1000 * 6.96) / 100) )
+]]></Implementation>
+</Method>
+
+<Method name="Test : Converteer BLUM eenheid COMSO (waarde 3) naar ORDERS05 (waarde 1000)">
+<Implementation><![CDATA[
+	#dim Converteerder As APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder = ##class(APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder).%New()
+	#dim COMSODouble As APPS.EDIExport.AankoopOrder.BLUM.dto.COMSO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrder.BLUM.dto.COMSO).%New().GeefCOMSO()
+	Set COMSODouble.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).PriceDimension = 3
+	#dim ORDERS05List As %ListOfObjects = Converteerder.Converteer(COMSODouble)
+	
+	Do $$$AssertIsObject(ORDERS05List)
+	Do $$$AssertEquals(ORDERS05List.Count(),1)
+	
+	#dim ORDERS05Result As APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05 = ORDERS05List.GetAt(1)
+	Do $$$AssertEquals(ORDERS05Result.IDOC.E1EDP01.GetAt(1).MENGE, 1000)
+	Do $$$AssertEquals(ORDERS05Result.IDOC.E1EDP01.GetAt(1).NETWR, 6.96)
+	Do $$$AssertEquals(ORDERS05Result.IDOC.E1EDP01.GetAt(1).PEINH, 1000)
+	Do $$$AssertEquals(ORDERS05Result.IDOC.E1EDP01.GetAt(1).VPREI, ((1000 * 6.96) / 1000) )
+]]></Implementation>
+</Method>
 </Class>