Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml
===================================================================
diff -u -r36674 -r36800
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(.../Bewaarder.cls.xml)	(revision 36674)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(.../Bewaarder.cls.xml)	(revision 36800)
@@ -3,24 +3,46 @@
 <Class name="APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder">
 <Super>TECH.RegisteredObject</Super>
 
-<Property name="MsgNr">
+<Parameter name="HeaderKey">
+<Type>%String</Type>
+<Default>0</Default>
+</Parameter>
+
+<Parameter name="IsReedsVerwerkt">
+<Type>%String</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="DateTimeAPI">
+<Type>TECH.DateTime.impl.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringNummer">
 <Type>%Integer</Type>
 <InitialExpression>99999999</InitialExpression>
 </Property>
 
+<Property name="ToeleveringLijnNummer">
+<Type>%Integer</Type>
+<InitialExpression>99999999</InitialExpression>
+</Property>
+
 <Property name="RecNr">
 <Type>%Integer</Type>
 <InitialExpression>0</InitialExpression>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>initvalue:%CacheString</FormalSpec>
+<FormalSpec>DateTimeAPI:TECH.DateTime.impl.DateTimeAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[	Quit $$$OK
+<Implementation><![CDATA[
+	Set ..DateTimeAPI = $$$Inject(DateTimeAPI,##class(TECH.DateTime.impl.DateTimeAPI).%New())
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -32,44 +54,156 @@
 	while ToeleveringIterator.HasNext()
 	{
 		#dim Toelevering As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering = ToeleveringIterator.Next()
-		Do ..ZetMsgNr(Toelevering.ToeleveringHeader.CustomerOrderReference)
-		Do ..SchrijfRecord(Toelevering.ToeleveringHeader.ToString())
+		Do ..ZetToeleveringNummer(Toelevering.ToeleveringHeader.CustomerOrderReference)
+		Do ..SchrijfToeleveringHeader(Toelevering.ToeleveringHeader.ToString())
 
 		#dim ToeleveringDetailIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Toelevering.ToeleveringDetail)
 		while ToeleveringDetailIterator.HasNext()
 		{
 			#dim ToeleveringDetail As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail = ToeleveringDetailIterator.Next()
-			Do ..SchrijfRecord(ToeleveringDetail.ToString())
+			Do ..ZetToeleveringLijnNummer(ToeleveringDetail.OrderLineIdentificationCustomer)
+			Do ..SchrijfToeleveringLijn(ToeleveringDetail.ToString())
 		}
 	}
 	Set COASO.COASOHeader.MICOUN = 0
 	Do ..SchrijfHeader(COASO.COASOHeader.ToString())
 ]]></Implementation>
 </Method>
 
-<Method name="ZetMsgNr">
+<Method name="UpdateVerwerkVlag">
+<FormalSpec>ToeleveringsNummer:%String,ToeleveringsLijnNummer:%String,Aantal:%String,LeverDatum:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Toelevering=$Q(^BLOrdRsp(ToeleveringsNummer,ToeleveringsLijnNummer))
+	
+	If ($Q(@Toelevering) = "") {
+		Do ..ZetRecordAlsVerwerkt(Toelevering)
+	} Else {
+		While Toelevering'=""{
+			If (..IsTeVerwerken(@Toelevering)) && (..IsMatch(@Toelevering, Aantal, LeverDatum)){
+				Do ..ZetRecordAlsVerwerkt(Toelevering)
+			}
+			Set Toelevering=$Q(@Toelevering)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ZetVervallenLijnenAlsVerwerkt">
+<Implementation><![CDATA[
+	#Dim Toelevering As %String = ..#HeaderKey
+	Set Toelevering=$O(^BLOrdRsp(Toelevering))
+	While Toelevering'=""{
+		
+		#Dim ToeleveringLijn As %String = ""
+		Set ToeleveringLijn=$O(^BLOrdRsp(Toelevering,ToeleveringLijn))
+		While ToeleveringLijn'=""{
+			#Dim Lijn As %String = ^BLOrdRsp(Toelevering,ToeleveringLijn)
+			If ..IsDetailLijn(Lijn)
+			{
+				if ..IsLijnVervallen(Lijn) {
+					Do ..ZetRecordAlsVerwerkt(Toelevering)	
+				}
+			}
+			Set ToeleveringLijn=$O(^BLOrdRsp(Toelevering,ToeleveringLijn))
+		}
+		Set Toelevering=$O(^BLOrdRsp(Toelevering))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderToelevering">
+<FormalSpec>ToeleveringsNummer:%String</FormalSpec>
+<Implementation><![CDATA[	Kill ^BLOrdRsp(ToeleveringsNummer)
+]]></Implementation>
+</Method>
+
+<Method name="IsDetailLijn">
+<FormalSpec>Lijn:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ($Extract(Lijn,2,3) = "22")
+]]></Implementation>
+</Method>
+
+<Method name="IsLijnVervallen">
+<FormalSpec>Lijn:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#Dim DatumOudFormaat As %String = $Extract(Lijn,46,51)
+	Quit (DatumOudFormaat '= "      ") && (..DateTimeAPI.TextToDate("20" _DatumOudFormaat) + 4 < ..DateTimeAPI.CurrentDate())
+]]></Implementation>
+</Method>
+
+<Method name="ZetRecordAlsVerwerkt">
+<FormalSpec>Toelevering:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Set $Piece(@Toelevering,"\",2) = ..#IsReedsVerwerkt
+]]></Implementation>
+</Method>
+
+<Method name="IsMatch">
+<FormalSpec>Record:%String,Aantal:%Integer,LeverDatum:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set ToeleveringAantal = $Extract($Piece(Record,"\",1),28,34)
+	Set ToeleveringLeverDatum = $Extract($Piece(Record,"\",1),46,51)
+	Quit (ToeleveringAantal = Aantal) && (ToeleveringLeverDatum = LeverDatum)
+]]></Implementation>
+</Method>
+
+<Method name="IsTeVerwerken">
+<FormalSpec>Record:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ($Piece(Record,"\",2) '= ..#IsReedsVerwerkt)
+]]></Implementation>
+</Method>
+
+<Method name="ZetToeleveringNummer">
 <FormalSpec>CustomerOrderReference:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set ..RecNr = 0
-	Set ..MsgNr = CustomerOrderReference
- 	Kill ^BLOrdRsp(..MsgNr)
+	Set ..ToeleveringNummer = CustomerOrderReference
 ]]></Implementation>
 </Method>
 
-<Method name="SchrijfRecord">
+<Method name="ZetToeleveringLijnNummer">
+<FormalSpec>OrderLineIdentificationCustomer:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..ToeleveringLijnNummer = ##class(TECH.StringUtils).Trim($Piece(OrderLineIdentificationCustomer,".",2))
+]]></Implementation>
+</Method>
+
+<Method name="SchrijfToeleveringLijn">
 <FormalSpec>Record:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	set ..RecNr = ..RecNr + 1
- 	Set ^BLOrdRsp(..MsgNr,..RecNr)=Record
+	if $Data(^BLOrdRsp(..ToeleveringNummer, ..ToeleveringLijnNummer,..RecNr)){
+		Set Record = Record _ $Piece(^BLOrdRsp(..ToeleveringNummer, ..ToeleveringLijnNummer,..RecNr),"\",2)
+	}
+ 	Set ^BLOrdRsp(..ToeleveringNummer,..ToeleveringLijnNummer,..RecNr)=Record
 ]]></Implementation>
 </Method>
 
+<Method name="SchrijfToeleveringHeader">
+<FormalSpec>Record:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	if $Data(^BLOrdRsp(..ToeleveringNummer)){
+		Set Record = Record _ $Piece(^BLOrdRsp(..ToeleveringNummer),"\",2)
+	}
+ 	Set ^BLOrdRsp(..ToeleveringNummer)=Record
+]]></Implementation>
+</Method>
+
 <Method name="SchrijfHeader">
 <FormalSpec>Record:%String</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[ 	Set ^BLOrdRsp(0)=Record
+<Implementation><![CDATA[ 	Set ^BLOrdRsp(..#HeaderKey)=Record
 ]]></Implementation>
 </Method>
 </Class>