Index: APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Converteerder.cls.xml
===================================================================
diff -u -r37140 -r38954
--- APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 37140)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 38954)
@@ -3,6 +3,22 @@
 <Class name="APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="ToeleveringAPI">
+<Type>DOM.AKP.ToeleveringAPI</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ToeleveringAPI:DOM.AKP.ToeleveringAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..ToeleveringAPI = $$$Inject(ToeleveringAPI,##class(DOM.DomeinContext).Instance().GeefToeleveringAPI())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Converteer">
 <FormalSpec>ORDERS05:APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05</FormalSpec>
 <ReturnType>APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO</ReturnType>
@@ -99,12 +115,13 @@
 <FormalSpec>Toelevering:APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering,ORDERS05:APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim E1EDP01Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(ORDERS05.IDOC.E1EDP01)
+	#Dim E1EDP01Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(ORDERS05.IDOC.E1EDP01)
+	#Dim GeenLeverSchema as %Integer = 0
 	While E1EDP01Iterator.HasNext()
 	{
 		#Dim E1EDP01 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP01 = E1EDP01Iterator.Next()
-		
-		Do ..VoegToeDefaultE1EDP20(E1EDP01.E1EDP20, E1EDP01.ABGRU)
+		;TODO hier bijhouden of het een default lijn is of niet
+		Set GeenLeverSchema = ..VoegToeDefaultE1EDP20(E1EDP01.E1EDP20, E1EDP01.ABGRU)
 
 		#dim E1EDP20Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(E1EDP01.E1EDP20)
 		While E1EDP20Iterator.HasNext()
@@ -126,24 +143,55 @@
 			Do ..VoegToeShipmentStatus(ToeleveringDetail, E1EDP01.ABGRU, E1EDP20.WMENG)
 			Do ..VoegToeOrderLineIdentificationCustomer(ToeleveringDetail,E1EDP01)
 			Do ..VoegToeOrderLineIdentNumberSupplierBAU(ToeleveringDetail,E1EDP01)
-			
+			;TODO
+			;Indien we hier een default lijn hebben, de verwachte lev datum van de toelevlijn gaan halen, en hier pas invullen zodat de status confirmed etc goed blijft in de KAL.
+			;Niet voor gecancelde lijn.
+			if GeenLeverSchema & (ToeleveringDetail.ReasonCode '= "C") { 
+				Set ToeleveringDetail.DeliveryDateAxBUA = ..GeefToeleveringLijnVerwachteDatum(Toelevering.ToeleveringHeader.CustomerOrderReference,$Piece(ToeleveringDetail.OrderLineIdentificationCustomer,".",2))
+			}
 			Do Toelevering.ToeleveringDetail.Insert(ToeleveringDetail)
 		}
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="GeefToeleveringLijnVerwachteDatum">
+<FormalSpec>ToeleveringNr:%String,ToeleveringLijnNummer:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim VerwachtDatum as %String = ""
+	if ..ToeleveringAPI.BestaatToelevering(ToeleveringNr){		
+		#Dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringNr)	
+		#Dim ToeleveringLijnID As %Integer = ToeleveringLijnNummer * 100
+		#Dim count as %Integer
+		;het kan een gesplitste lijn zijn
+		for count=0:1:9 {
+			set ToeleveringLijnID = ToeleveringLijnNummer * 100 + count
+			quit:Toelevering.BestaatToeleveringLijn(ToeleveringLijnID)
+		}		
+		if Toelevering.BestaatToeleveringLijn(ToeleveringLijnID){
+			#Dim ToeleveringLijn As DOM.AKP.impl.DataM.DataMProductToeleveringLijn = Toelevering.GeefToeleveringLijn(ToeleveringLijnID)				
+			set VerwachtDatum = $$EXTDATE^vhLib.DataTypes(ToeleveringLijn.GeefLeverdag() ,"DSN2")
+		}
+	}
+	quit VerwachtDatum
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeDefaultE1EDP20">
 <FormalSpec>E1EDP20List:%ListOfObjects,ABGRU:%String=""</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	#Dim DefaultToegevoegd as %Integer = 0
 	If (E1EDP20List.Count()=0)
 	{
 		#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)
+		Do E1EDP20List.Insert(E1EDP20)		
+		set DefaultToegevoegd = 1
 	}
+	quit DefaultToegevoegd
 ]]></Implementation>
 </Method>