Index: BLIMP.mac.rou
===================================================================
diff -u -r36654 -r36674
--- BLIMP.mac.rou	(.../BLIMP.mac.rou)	(revision 36654)
+++ BLIMP.mac.rou	(.../BLIMP.mac.rou)	(revision 36674)
@@ -21,6 +21,7 @@
 SCANONLINE ; verwerken van alle EDI bestanden opgeroepen van BLVWIMP
  Set XMLBestandenList = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger).%New().Ontvang()
  Set DespXMLBestandenList = ##class(APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvanger).%New().Ontvang()
+ Do ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Kopieerder).%New().Kopieer()
  Set MSMGATEWAY=##class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
  Set Dir=##class(TECH.Files).AppendSubPath(MSMGATEWAY,"\EDI_IN\")
  Set File=$$DISPDIR^vhDEV(Dir,"*.*",,,(XMLBestandenList.Count() + DespXMLBestandenList.Count()))
@@ -145,3 +146,4 @@
  Set Tptr=$N(^(Tptr)) Goto TLoop
 
 
+
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/Bewaar/Test.cls.xml
===================================================================
diff -u -r35425 -r36674
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 35425)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 36674)
@@ -6,73 +6,73 @@
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
 	Do ##super()
-	Lock +^BLImp
+	Lock +^BLOrdRsp
 ]]></Implementation>
 </Method>
 
 <Method name="OnAfterAllTests">
 <Implementation><![CDATA[
-	Lock -^BLImp
+	Lock -^BLOrdRsp
 	Do ##super()
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Bewaar COASO header in BLImp">
+<Method name="Test : Bewaar COASO header in BLOrdRsp">
 <Implementation><![CDATA[
 	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASO()
 	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
 	
 	Do Bewaarder.Bewaar(COASODouble)
 	
-	Do $$$AssertTrue($DATA(^BLImp(Bewaarder.MsgNr)))
-	Do $$$AssertEquals(^BLImp(Bewaarder.MsgNr),"BAU16558\5005\COA\SO\C\17-06-16\2200\3\BRANDL A.\ROOS\1\1")
+	Do $$$AssertTrue($DATA(^BLOrdRsp(0)))
+	Do $$$AssertEquals(^BLOrdRsp(0),"BAU16558\5005\COA\SO\C\17-06-16\2200\0\BRANDL A.\ROOS\1\1")
 
-	Kill ^BLImp(Bewaarder.MsgNr)
+	Kill ^BLOrdRsp(0)
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Bewaar COASO Toeleveringheader in BLImp">
+<Method name="Test : Bewaar COASO Toeleveringheader in BLOrdRsp">
 <Implementation><![CDATA[
 	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASO()
 	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
 	
 	Do Bewaarder.Bewaar(COASODouble)
 	
-	Do $$$AssertTrue($DATA(^BLImp(Bewaarder.MsgNr,1)))
-	Do $$$AssertEquals(^BLImp(Bewaarder.MsgNr,1),"""112122500121225001277788      000745532      W30G L 151221                     """)
+	Do $$$AssertTrue($DATA(^BLOrdRsp(Bewaarder.MsgNr,1)))
+	Do $$$AssertEquals(^BLOrdRsp(Bewaarder.MsgNr,1),"""112122500121225001277788      000745532      W30G L 151221                     """)
 
-	Kill ^BLImp(Bewaarder.MsgNr)
+	Kill ^BLOrdRsp(Bewaarder.MsgNr)
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Bewaar COASO Toeleveringdetail in BLImp">
+<Method name="Test : Bewaar COASO Toeleveringdetail in BLOrdRsp">
 <Implementation><![CDATA[
 	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASO()
 	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
 	
 	Do Bewaarder.Bewaar(COASODouble)
 	
-	Do $$$AssertTrue($DATA(^BLImp(Bewaarder.MsgNr,2)))
-	Do $$$AssertEquals(^BLImp(Bewaarder.MsgNr,2),"""22277788.01       0900225300005000000016.0121601062 V      0000000.00          """)
+	Do $$$AssertTrue($DATA(^BLOrdRsp(Bewaarder.MsgNr,2)))
+	Do $$$AssertEquals(^BLOrdRsp(Bewaarder.MsgNr,2),"""22277788.01       0900225300005000000016.0121601062 V      0000000.00          """)
 
-	Kill ^BLImp(Bewaarder.MsgNr)
+	Kill ^BLOrdRsp(Bewaarder.MsgNr)
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Bewaar COASO met meerdere detaillijnen in BLImp">
+<Method name="Test : Bewaar COASO met meerdere detaillijnen in BLOrdRsp">
 <Implementation><![CDATA[
 	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASO()
 	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
 	
 	Do Bewaarder.Bewaar(COASODouble)
 	
-	Do $$$AssertTrue($DATA(^BLImp(Bewaarder.MsgNr,2)))
-	Do $$$AssertEquals(^BLImp(Bewaarder.MsgNr,2),"""22277788.01       0900225300005000000016.0121601062 V      0000000.00          """)
+	Do $$$AssertTrue($DATA(^BLOrdRsp(Bewaarder.MsgNr,2)))
+	Do $$$AssertEquals(^BLOrdRsp(Bewaarder.MsgNr,2),"""22277788.01       0900225300005000000016.0121601062 V      0000000.00          """)
 
-	Do $$$AssertTrue($DATA(^BLImp(Bewaarder.MsgNr,3)))
-	Do $$$AssertEquals(^BLImp(Bewaarder.MsgNr,3),"""22277799.01       0900225300010000000216.0121601082 V      0000236.01          """)
+	Do $$$AssertTrue($DATA(^BLOrdRsp(Bewaarder.MsgNr,3)))
+	Do $$$AssertEquals(^BLOrdRsp(Bewaarder.MsgNr,3),"""22277799.01       0900225300010000000216.0121601082 V      0000236.01          """)
 
-	Kill ^BLImp(Bewaarder.MsgNr)
+	Kill ^BLOrdRsp(Bewaarder.MsgNr)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Kopieerder.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Kopieerder.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Kopieerder.cls.xml	(revision 36674)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Kopieerder">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Kopieerder</Super>
+
+<Method name="Kopieer">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Kopieerder.cls.xml
===================================================================
diff -u
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Kopieerder.cls.xml	(revision 0)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Kopieerder.cls.xml	(revision 36674)
@@ -0,0 +1,98 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Kopieerder">
+<Super>TECH.Mockable</Super>
+
+<Parameter name="HeaderKey">
+<Type>%String</Type>
+<Default>0</Default>
+</Parameter>
+
+<Parameter name="IsProcessed">
+<Type>%String</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="MsgNr">
+<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>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Kopieer">
+<Implementation><![CDATA[
+	if $Piece(^BLOrdRsp(..#HeaderKey),"\",12) '= ..#IsProcessed
+	{
+		Set ..RecNr = 0
+		Set ..MsgNr = 99999999
+		Do ..ZetMsgNr()
+
+		#Dim RecordCount As %Integer = 0
+		#Dim Toelevering As %String = ..#HeaderKey
+		Set Toelevering=$Q(^BLOrdRsp(Toelevering))
+		While Toelevering'=""{
+			Do ..SchrijfRecord(@Toelevering)
+			Set RecordCount = RecordCount + 1
+			Set Toelevering=$Q(@Toelevering)
+		}
+		Do ..SchrijfBLImpHeader(RecordCount)
+		Do ..UpdateBLOrdRspHeader()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ZetMsgNr">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..MsgNr = +$O(^BLImp(..MsgNr),-1) + 1
+ 	Kill ^BLImp(..MsgNr)
+ 	Do ..SchrijfBLImpHeader("")
+]]></Implementation>
+</Method>
+
+<Method name="SchrijfRecord">
+<FormalSpec>Record:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	set ..RecNr = ..RecNr + 1
+ 	Set ^BLImp(..MsgNr,..RecNr)=Record
+]]></Implementation>
+</Method>
+
+<Method name="SchrijfBLImpHeader">
+<FormalSpec>RecordCount:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim COASOHeader As %String = $Get(^BLOrdRsp(..#HeaderKey))
+	Set $Piece(COASOHeader,"\",8) = RecordCount
+ 	Set ^BLImp(..MsgNr)=COASOHeader
+]]></Implementation>
+</Method>
+
+<Method name="UpdateBLOrdRspHeader">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim COASOHeader As %String = $Get(^BLOrdRsp(..#HeaderKey))
+	Set $Piece(COASOHeader,"\",12) = ..#IsProcessed
+ 	Set ^BLOrdRsp(..#HeaderKey)=COASOHeader
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml
===================================================================
diff -u -r36665 -r36674
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(.../Bewaarder.cls.xml)	(revision 36665)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(.../Bewaarder.cls.xml)	(revision 36674)
@@ -27,36 +27,33 @@
 <Method name="Bewaar">
 <FormalSpec>COASO:APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO</FormalSpec>
 <Implementation><![CDATA[
-	Set ..RecNr = 0
-	Set ..MsgNr = 99999999
-	Do ..ZetMsgNr()
+ 	Do ..SchrijfHeader("")
 	#dim ToeleveringIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(COASO.ToeleveringList)
-	#dim RecordCount As %Integer = 0
 	while ToeleveringIterator.HasNext()
 	{
 		#dim Toelevering As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering = ToeleveringIterator.Next()
+		Do ..ZetMsgNr(Toelevering.ToeleveringHeader.CustomerOrderReference)
 		Do ..SchrijfRecord(Toelevering.ToeleveringHeader.ToString())
-		Set RecordCount = RecordCount + 1
 
 		#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())
-			Set RecordCount = RecordCount + 1
 		}
 	}
-	Set COASO.COASOHeader.MICOUN = RecordCount
+	Set COASO.COASOHeader.MICOUN = 0
 	Do ..SchrijfHeader(COASO.COASOHeader.ToString())
 ]]></Implementation>
 </Method>
 
 <Method name="ZetMsgNr">
+<FormalSpec>CustomerOrderReference:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set ..MsgNr = +$O(^BLImp(..MsgNr),-1) + 1
- 	Kill ^BLImp(..MsgNr)
- 	Do ..SchrijfHeader("")
+	Set ..RecNr = 0
+	Set ..MsgNr = CustomerOrderReference
+ 	Kill ^BLOrdRsp(..MsgNr)
 ]]></Implementation>
 </Method>
 
@@ -65,14 +62,14 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	set ..RecNr = ..RecNr + 1
- 	Set ^BLImp(..MsgNr,..RecNr)=Record
+ 	Set ^BLOrdRsp(..MsgNr,..RecNr)=Record
 ]]></Implementation>
 </Method>
 
 <Method name="SchrijfHeader">
 <FormalSpec>Record:%String</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[ 	Set ^BLImp(..MsgNr)=Record
+<Implementation><![CDATA[ 	Set ^BLOrdRsp(0)=Record
 ]]></Implementation>
 </Method>
 </Class>
Index: BLVWIMP.mac.rou
===================================================================
diff -u -r29059 -r36674
--- BLVWIMP.mac.rou	(.../BLVWIMP.mac.rou)	(revision 29059)
+++ BLVWIMP.mac.rou	(.../BLVWIMP.mac.rou)	(revision 36674)
@@ -156,6 +156,8 @@
  ;
 BEGIN
  N NewProd,ModProd
+ Do ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger).%New().Ontvang()
+ Do ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Kopieerder).%New().Kopieer()
  D IN,SA1,REN
  ;
 DISPL S DL(1)="Lijst" Do REFRESH I '$D(^HULP($J)) D O1,IK^PROC1 G END
@@ -213,3 +215,4 @@
  Quit
  ;
 
+
Index: vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Kopieerder.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Kopieerder.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Kopieerder.cls.xml	(revision 36674)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Kopieerder">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Kopieerder,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="Kopieer">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Kopieer")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>