Index: APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Converteerder.cls.xml
===================================================================
diff -u -r37032 -r37140
--- APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 37032)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 37140)
@@ -111,8 +111,11 @@
 		{
 			#dim E1EDP20 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP20 = E1EDP20Iterator.Next()
 			#Dim ToeleveringDetail As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail).%New()
-
-			Set ToeleveringDetail.OrderQuantity = E1EDP20.WMENG
+			if E1EDP20.WMENG = "" { ;geen geplande hoeveelheid, dan de hoeveelheid van de lijn maar zonder datum
+				Set ToeleveringDetail.OrderQuantity = E1EDP01.MENGE
+			} else {
+				Set ToeleveringDetail.OrderQuantity = E1EDP20.WMENG
+			}
 			Set ToeleveringDetail.DeliveryDateAxBUA = $EXTRACT(E1EDP20.EDATU,3,*)
 			Set ToeleveringDetail.OrderLineNumberSupplierBAU = ""
 			Set ToeleveringDetail.PriceDimension = ..BepaalPriceDimension(E1EDP01.E1EDP05)
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Converteerder/Converteer/Test.cls.xml
===================================================================
diff -u -r37038 -r37140
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Converteerder/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 37038)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Converteerder/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 37140)
@@ -209,7 +209,7 @@
 	Set ORDERS05Double.IDOC.E1EDP01.GetAt(1).ABGRU ="10"
 	
 	#dim COASO As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = Converteerder.Converteer(ORDERS05Double)
-	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).OrderQuantity, "")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).OrderQuantity, ORDERS05Double.IDOC.E1EDP01.GetAt(1).MENGE )
 	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).DeliveryDateAxBUA, "")
 	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).DelDateCode,"0")
 	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).ReasonCode,"C")