Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml
===================================================================
diff -u -r35391 -r35393
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35391)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35393)
@@ -63,6 +63,8 @@
 	While E1EDP01Iterator.HasNext()
 	{
 		#Dim E1EDP01 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP01 = E1EDP01Iterator.Next()
+		
+		Do ..VoegToeDefaultE1EDP20IndienABGRU10(E1EDP01.E1EDP20, E1EDP01.ABGRU)
 
 		#dim E1EDP20Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(E1EDP01.E1EDP20)
 		While E1EDP20Iterator.HasNext()
@@ -83,9 +85,21 @@
 			Do ..VoegToeOrderLineIdentNumberSupplierBAU(ToeleveringDetail,E1EDP01)
 			
 			Do Toelevering.ToeleveringDetail.Insert(ToeleveringDetail)
-
 		}
+	}
+]]></Implementation>
+</Method>
 
+<Method name="VoegToeDefaultE1EDP20IndienABGRU10">
+<FormalSpec>E1EDP20List:%ListOfObjects,ABGRU:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (E1EDP20List.Count()=0) && '..IsOrderAanvaard(ABGRU)
+	{
+		#dim E1EDP20 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP20 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP20).%New()
+		Set E1EDP20.EDATU = ""
+		Set E1EDP20.WMENG = ""
+		Do E1EDP20List.Insert(E1EDP20)
 	}
 ]]></Implementation>
 </Method>
@@ -131,15 +145,17 @@
 <Method name="VoegToeDelDateCode">
 <FormalSpec>ToeleveringDetail:APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail,ABGRU:%String</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Set ToeleveringDetail.DelDateCode = "2" // Confirmed
+<Implementation><![CDATA[
+	// Kan nog afhankelijk worden van ABGRU. (te bevestigen door BLUM)
+	Set ToeleveringDetail.DelDateCode = "2" // Confirmed
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToeReasonCode">
 <FormalSpec>ToeleveringDetail:APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail,ABGRU:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If (ABGRU="") || (ABGRU="90") 
+	If ..IsOrderAanvaard(ABGRU)
 	{
 		Set ToeleveringDetail.ReasonCode = "V" // General amendement
 	}
@@ -154,7 +170,7 @@
 <FormalSpec>ToeleveringDetail:APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail,ABGRU:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If (ABGRU="") || (ABGRU="90") 
+	If ..IsOrderAanvaard(ABGRU)
 	{
 		Set ToeleveringDetail.ShipmentStatus = "3" // planned for shipment
 	}
@@ -164,6 +180,14 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="IsOrderAanvaard">
+<FormalSpec>ABGRU:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (ABGRU="") || (ABGRU="90")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder/Converteer/Test.cls.xml
===================================================================
diff -u -r35391 -r35393
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 35391)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 35393)
@@ -186,6 +186,22 @@
 	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).DelDateCode,"2")
 ]]></Implementation>
 </Method>
+
+<Method name="Test : BLUM order niet aanvaard geeft een lijn zonder aantallen en status No shipment en Position cancelled">
+<Implementation><![CDATA[
+	#dim Converteerder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Converteerder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Converteerder).%New()
+	#dim ORDERS05Double As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05 = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05).%New().GeefORDERS05()
+	Do ORDERS05Double.IDOC.E1EDP01.GetAt(1).E1EDP20.Clear()
+	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).DeliveryDateAxBUA, "")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).DelDateCode,"2")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).ReasonCode,"C")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).ShipmentStatus,"0")
+]]></Implementation>
+</Method>
 </Class>