FishEye: Tag 37065 refers to a dead (removed) revision in file `vhUnitTest/APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLOrdRspService/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 37065 refers to a dead (removed) revision in file `vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLOrdRspService.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLImpService.cls.xml
===================================================================
diff -u -r36942 -r37065
--- APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLImpService.cls.xml	(.../BLImpService.cls.xml)	(revision 36942)
+++ APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLImpService.cls.xml	(.../BLImpService.cls.xml)	(revision 37065)
@@ -49,6 +49,29 @@
 	quit lijnen
 ]]></Implementation>
 </Method>
+
+<Method name="ZetBerichtHeader">
+<FormalSpec>BerichtIndex:%Integer,Bericht:%String</FormalSpec>
+<Implementation><![CDATA[	Set @..#Global(BerichtIndex) = Bericht
+]]></Implementation>
+</Method>
+
+<Method name="ZetBerichtLijn">
+<FormalSpec>BerichtIndex:%Integer,LijnIndex:%Integer,Lijn:%String</FormalSpec>
+<Implementation><![CDATA[	Set @..#Global(BerichtIndex,LijnIndex) = Lijn
+]]></Implementation>
+</Method>
+
+<Method name="GeefVolgendBerichtNummer">
+<Implementation><![CDATA[	quit +$O(@..#Global(9999999),-1) + 1
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderBericht">
+<FormalSpec>BerichtIndex:%Integer</FormalSpec>
+<Implementation><![CDATA[	Kill @..#Global(BerichtIndex)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/AKP/AankoopControle/BLUM/impl/Bewaarder.cls.xml
===================================================================
diff -u -r36900 -r37065
--- APPS/AKP/AankoopControle/BLUM/impl/Bewaarder.cls.xml	(.../Bewaarder.cls.xml)	(revision 36900)
+++ APPS/AKP/AankoopControle/BLUM/impl/Bewaarder.cls.xml	(.../Bewaarder.cls.xml)	(revision 37065)
@@ -1,8 +1,13 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.AKP.AankoopControle.BLUM.impl.Bewaarder">
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.RegisteredObject,APPS.AKP.AankoopControle.BLUM.Bewaarder</Super>
 
+<Parameter name="Global">
+<Type>%String</Type>
+<Default>^BLImp</Default>
+</Parameter>
+
 <Property name="MsgNr">
 <Type>%Integer</Type>
 <InitialExpression>99999999</InitialExpression>
@@ -21,7 +26,7 @@
 <Implementation><![CDATA[
 
 	Do ..ZetMsgNr()
-	Kill ^BLImp(..MsgNr)
+	Kill @..#Global(..MsgNr)
  	Do ..SchrijfHeader("")
 	#dim RecordCount As %Integer = 0
 	#dim CSBSO11Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(CSBSO.CSBSO11List)
@@ -69,7 +74,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	
-	Set ..MsgNr = +$O(^BLImp(99999999),-1) + 1
+	Set ..MsgNr = +$O(@..#Global(99999999),-1) + 1
 	Set ..RecNr = 0
 ]]></Implementation>
 </Method>
@@ -79,14 +84,14 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	set ..RecNr = ..RecNr + 1
- 	Set ^BLImp(..MsgNr,..RecNr)=Record
+ 	Set @..#Global(..MsgNr,..RecNr)=Record
 ]]></Implementation>
 </Method>
 
 <Method name="SchrijfHeader">
 <FormalSpec>Record:%String</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[ 	Set ^BLImp(..MsgNr)=Record
+<Implementation><![CDATA[ 	Set @..#Global(..MsgNr)=Record
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLImpService.cls.xml
===================================================================
diff -u -r36942 -r37065
--- vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLImpService.cls.xml	(.../BLImpService.cls.xml)	(revision 36942)
+++ vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLImpService.cls.xml	(.../BLImpService.cls.xml)	(revision 37065)
@@ -21,6 +21,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetTestData">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Data:%String</FormalSpec>
+<Implementation><![CDATA[	set Data(0) = ""
+]]></Implementation>
+</Method>
+
 <Method name="ZetBLImpData">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Data:%String</FormalSpec>
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/Bewaar/Test.cls.xml
===================================================================
diff -u -r37038 -r37065
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 37038)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 37065)
@@ -7,8 +7,10 @@
 <Type>vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService</Type>
 </Property>
 
-<Method name="OnBeforeAllTests">
+<Method name="OnBeforeOneTest">
+<FormalSpec>TestName:%String</FormalSpec>
 <Implementation><![CDATA[
+	Do ##super(TestName)
 	
 	Do ##super()
 	Set ..BLOrdRspService = ##class(vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService).%New()
@@ -18,11 +20,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="OnAfterAllTests">
-<Implementation><![CDATA[	Do ##super()
-]]></Implementation>
-</Method>
-
 <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()
Index: vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/Migratie/BLImpService.cls.xml
===================================================================
diff -u -r36942 -r37065
--- vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/Migratie/BLImpService.cls.xml	(.../BLImpService.cls.xml)	(revision 36942)
+++ vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/Migratie/BLImpService.cls.xml	(.../BLImpService.cls.xml)	(revision 37065)
@@ -28,6 +28,29 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefRecentsteVerwerktCOABerichtIndex")
 ]]></Implementation>
 </Method>
+
+<Method name="GeefVolgendBerichtNummer">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("GeefVolgendBerichtNummer")
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderBericht">
+<FormalSpec>BerichtIndex:%Integer</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderBericht",BerichtIndex)
+]]></Implementation>
+</Method>
+
+<Method name="ZetBerichtHeader">
+<FormalSpec>BerichtIndex:%Integer,Bericht:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetBerichtHeader",BerichtIndex,Bericht)
+]]></Implementation>
+</Method>
+
+<Method name="ZetBerichtLijn">
+<FormalSpec>BerichtIndex:%Integer,LijnIndex:%Integer,Lijn:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetBerichtLijn",BerichtIndex,LijnIndex,Lijn)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/Bewaarder/Bewaar/Test.cls.xml
===================================================================
diff -u -r36343 -r37065
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/Bewaarder/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 36343)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/Bewaarder/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 37065)
@@ -8,98 +8,85 @@
 <InitialExpression>99999999</InitialExpression>
 </Property>
 
-<Method name="OnBeforeAllTests">
-<Implementation><![CDATA[
-	Do ##super()
-	Lock +^BLImp
-]]></Implementation>
-</Method>
+<Property name="Bewaarder">
+<Type>APPS.AKP.AankoopControle.BLUM.Bewaarder</Type>
+</Property>
 
-<Method name="OnAfterOneTest">
+<Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
-	Kill ^BLImp(..MsgNr)	
-	set ..MsgNr = 99999999
 	do ##super(aTestName)
+	Set ..Bewaarder = ##class(vhTest.Fake.APPS.AKP.AankoopControle.BLUM.impl.Bewaarder).%New()	
+	#dim BLImpData As TECH.MultiDim
+ 	Do ##class(vhTest.Fake.APPS.AKP.AankoopControle.BLUM.impl.Bewaarder).ZetTestData(.BLImpData)
+	Do ..Bewaarder.Setup(.BLImpData)
+	set ..MsgNr = 99999999
 ]]></Implementation>
 </Method>
 
-<Method name="OnAfterAllTests">
-<Implementation><![CDATA[
-	Lock -^BLImp
-	Do ##super()
-]]></Implementation>
-</Method>
-
 <Method name="Test : Bewaar CSBSO header in BLImp">
 <Implementation><![CDATA[
 	#Dim CSBSODouble As APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO = ##class(vhTest.Utils.APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFactuur.CSBSO).GeefCSBSO()
-	#Dim Bewaarder As APPS.AKP.AankoopControle.BLUM.impl.Bewaarder = ##class(APPS.AKP.AankoopControle.BLUM.impl.Bewaarder).%New()
 	
-	set ..MsgNr = Bewaarder.Bewaar(CSBSODouble)
+	set ..MsgNr = ..Bewaarder.Bewaar(CSBSODouble)
 
-	Do $$$AssertTrue($DATA(^BLImp(..MsgNr)))
-	Do $$$AssertEquals(^BLImp(..MsgNr),"BAU300332\5005\CSB\SO\C\21-06-16\1200\5\\\1\")
+	Do $$$AssertTrue($DATA(..Bewaarder.MultiDim(..MsgNr)))
+	Do $$$AssertEquals(..Bewaarder.MultiDim(..MsgNr),"BAU300332\5005\CSB\SO\C\21-06-16\1200\5\\\1\")
 ]]></Implementation>
 </Method>
 
 <Method name="Test : Bewaar CSBSO11 in BLImp">
 <Implementation><![CDATA[
 	#Dim CSBSODouble As APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO = ##class(vhTest.Utils.APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFactuur.CSBSO).GeefCSBSO()
-	#Dim Bewaarder As APPS.AKP.AankoopControle.BLUM.impl.Bewaarder = ##class(APPS.AKP.AankoopControle.BLUM.impl.Bewaarder).%New()
 	
-	set ..MsgNr = Bewaarder.Bewaar(CSBSODouble)
+	set ..MsgNr = ..Bewaarder.Bewaar(CSBSODouble)
 		
-	Do $$$AssertTrue($DATA(^BLImp(..MsgNr,1)))
-	Do $$$AssertEquals(^BLImp(..MsgNr,1),"""11300332Van Hoecke -XL      L                                """)
+	Do $$$AssertTrue($DATA(..Bewaarder.MultiDim(..MsgNr,1)))
+	Do $$$AssertEquals(..Bewaarder.MultiDim(..MsgNr,1),"""11300332Van Hoecke -XL      L                                """)
 ]]></Implementation>
 </Method>
 
 <Method name="Test : Bewaar CSBSO21 in BLImp">
 <Implementation><![CDATA[
 	#Dim CSBSODouble As APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO = ##class(vhTest.Utils.APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFactuur.CSBSO).GeefCSBSO()
-	#Dim Bewaarder As APPS.AKP.AankoopControle.BLUM.impl.Bewaarder = ##class(APPS.AKP.AankoopControle.BLUM.impl.Bewaarder).%New()
 	
-	set ..MsgNr = Bewaarder.Bewaar(CSBSODouble)
+	set ..MsgNr = ..Bewaarder.Bewaar(CSBSODouble)
 		
-	Do $$$AssertTrue($DATA(^BLImp(..MsgNr,2)))
-	Do $$$AssertEquals(^BLImp(..MsgNr,2),"""21300332160621EP   000660000100000000000000020758.2000000.000000000.00212250""")
+	Do $$$AssertTrue($DATA(..Bewaarder.MultiDim(..MsgNr,2)))
+	Do $$$AssertEquals(..Bewaarder.MultiDim(..MsgNr,2),"""21300332160621EP   000660000100000000000000020758.2000000.000000000.00212250""")
 ]]></Implementation>
 </Method>
 
 <Method name="Test : Bewaar CSBSO31 in BLImp">
 <Implementation><![CDATA[
 	#Dim CSBSODouble As APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO = ##class(vhTest.Utils.APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFactuur.CSBSO).GeefCSBSO()
-	#Dim Bewaarder As APPS.AKP.AankoopControle.BLUM.impl.Bewaarder = ##class(APPS.AKP.AankoopControle.BLUM.impl.Bewaarder).%New()
 
-	set ..MsgNr = Bewaarder.Bewaar(CSBSODouble)
+	set ..MsgNr = ..Bewaarder.Bewaar(CSBSODouble)
 		
-	Do $$$AssertTrue($DATA(^BLImp(..MsgNr,3)))
-	Do $$$AssertEquals(^BLImp(..MsgNr,3),"""3199999999160621160621W30000000496.700000000.00212250212250""")
+	Do $$$AssertTrue($DATA(..Bewaarder.MultiDim(..MsgNr,3)))
+	Do $$$AssertEquals(..Bewaarder.MultiDim(..MsgNr,3),"""3199999999160621160621W30000000496.700000000.00212250212250""")
 ]]></Implementation>
 </Method>
 
 <Method name="Test : Bewaar CSBSO41 in BLImp">
 <Implementation><![CDATA[
 	#Dim CSBSODouble As APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO = ##class(vhTest.Utils.APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFactuur.CSBSO).GeefCSBSO()
-	#Dim Bewaarder As APPS.AKP.AankoopControle.BLUM.impl.Bewaarder = ##class(APPS.AKP.AankoopControle.BLUM.impl.Bewaarder).%New()
 
-	set ..MsgNr = Bewaarder.Bewaar(CSBSODouble)
+	set ..MsgNr = ..Bewaarder.Bewaar(CSBSODouble)
 		
-	Do $$$AssertTrue($DATA(^BLImp(..MsgNr,4)))
-	Do $$$AssertEquals(^BLImp(..MsgNr,4),"""4177946501000CE205834.01  0438123400010000001000000000496.7000000.001070692            830242STAT""")
+	Do $$$AssertTrue($DATA(..Bewaarder.MultiDim(..MsgNr,4)))
+	Do $$$AssertEquals(..Bewaarder.MultiDim(..MsgNr,4),"""4177946501000CE205834.01  0438123400010000001000000000496.7000000.001070692            830242STAT""")
 ]]></Implementation>
 </Method>
 
 <Method name="Test : Bewaar CSBSO44 in BLImp">
 <Implementation><![CDATA[
 	#Dim CSBSODouble As APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO = ##class(vhTest.Utils.APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFactuur.CSBSO).GeefCSBSO()
-	#Dim Bewaarder As APPS.AKP.AankoopControle.BLUM.impl.Bewaarder = ##class(APPS.AKP.AankoopControle.BLUM.impl.Bewaarder).%New()
 
-	set ..MsgNr = Bewaarder.Bewaar(CSBSODouble)
+	set ..MsgNr = ..Bewaarder.Bewaar(CSBSODouble)
 	
-	Do $$$AssertTrue($DATA(^BLImp(..MsgNr,5)))
-	Do $$$AssertEquals(^BLImp(..MsgNr,5),"""44    0.51.249000010001000            000000000000            000000000000            000000000000            000000000000""")
+	Do $$$AssertTrue($DATA(..Bewaarder.MultiDim(..MsgNr,5)))
+	Do $$$AssertEquals(..Bewaarder.MultiDim(..MsgNr,5),"""44    0.51.249000010001000            000000000000            000000000000            000000000000            000000000000""")
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Kopieerder.cls.xml
===================================================================
diff -u -r37031 -r37065
--- APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Kopieerder.cls.xml	(.../Kopieerder.cls.xml)	(revision 37031)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Kopieerder.cls.xml	(.../Kopieerder.cls.xml)	(revision 37065)
@@ -1,8 +1,13 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Kopieerder">
-<Super>TECH.Mockable</Super>
+<Super>TECH.RegisteredObject,APPS.EDIExport.AankoopOrderResponse.BLUM.Kopieerder</Super>
 
+<Parameter name="Global">
+<Type>%String</Type>
+<Default>^BLOrdRsp</Default>
+</Parameter>
+
 <Parameter name="HeaderKey">
 <Type>%String</Type>
 <Default>0</Default>
@@ -29,27 +34,33 @@
 <Private>1</Private>
 </Property>
 
+<Property name="BLImpService">
+<Type>APPS.EDIExport.AankoopOrderResponse.Migratie.BLImpService</Type>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>initvalue:%CacheString</FormalSpec>
+<FormalSpec>BLImpService:APPS.EDIExport.AankoopOrderResponse.Migratie.BLImpService</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[	Quit $$$OK
+<Implementation><![CDATA[
+	Set ..BLImpService = $$$Inject(BLImpService,##class(APPS.EDIExport.AankoopOrderResponse.Migratie.impl.BLImpService).%New())
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="Kopieer">
 <Implementation><![CDATA[
-	if $Data(^BLOrdRsp(..#HeaderKey)) && ($Piece(^BLOrdRsp(..#HeaderKey),"\",12) '= ..#IsProcessed)
+	if $Data(@..#Global(..#HeaderKey)) && ($Piece(@..#Global(..#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))
+		Set Toelevering=$Q(@..#Global(Toelevering))
 		While Toelevering'=""{
 			If (..IsTeVerwerken(@Toelevering)){
 				Do ..SchrijfRecord(@Toelevering)
@@ -66,8 +77,8 @@
 <Method name="ZetMsgNr">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set ..MsgNr = +$O(^BLImp(..MsgNr),-1) + 1
- 	Kill ^BLImp(..MsgNr)
+	Set ..MsgNr = ..BLImpService.GeefVolgendBerichtNummer()
+ 	Do ..BLImpService.VerwijderBericht(..MsgNr)
  	Do ..SchrijfBLImpHeader("")
 ]]></Implementation>
 </Method>
@@ -85,26 +96,28 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	set ..RecNr = ..RecNr + 1
- 	Set ^BLImp(..MsgNr,..RecNr)=$Piece(Record,"\",1)
+ 	;Set ..BLImpService.MultiDim(..MsgNr,..RecNr)=$Piece(Record,"\",1)
+ 	Do ..BLImpService.ZetBerichtLijn(..MsgNr,..RecNr,$Piece(Record,"\",1))
 ]]></Implementation>
 </Method>
 
 <Method name="SchrijfBLImpHeader">
 <FormalSpec>RecordCount:%Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#Dim COASOHeader As %String = $Get(^BLOrdRsp(..#HeaderKey))
+	#Dim COASOHeader As %String = $Get(@..#Global(..#HeaderKey))
 	Set $Piece(COASOHeader,"\",8) = RecordCount
- 	Set ^BLImp(..MsgNr)=COASOHeader
+ 	;Set ..BLImpService.MultiDim(..MsgNr)=COASOHeader
+ 	Do ..BLImpService.ZetBerichtHeader(..MsgNr,COASOHeader)
 ]]></Implementation>
 </Method>
 
 <Method name="UpdateBLOrdRspHeader">
 <Private>1</Private>
 <Implementation><![CDATA[
-	#Dim COASOHeader As %String = $Get(^BLOrdRsp(..#HeaderKey))
+	#Dim COASOHeader As %String = $Get(@..#Global(..#HeaderKey))
 	Set $Piece(COASOHeader,"\",12) = ..#IsProcessed
- 	Set ^BLOrdRsp(..#HeaderKey)=COASOHeader
+ 	Set @..#Global(..#HeaderKey)=COASOHeader
 ]]></Implementation>
 </Method>
 </Class>
FishEye: Tag 37065 refers to a dead (removed) revision in file `vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/Migratie/BLOrdRspService.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/EDIExport/AankoopOrderResponse/BLUM/Kopieerder.cls.xml
===================================================================
diff -u
--- APPS/EDIExport/AankoopOrderResponse/BLUM/Kopieerder.cls.xml	(revision 0)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/Kopieerder.cls.xml	(revision 37065)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDIExport.AankoopOrderResponse.BLUM.Kopieerder">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="Kopieer">
+<Abstract>1</Abstract>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDIExport/AankoopOrderResponse/Migratie/BLImpService.cls.xml
===================================================================
diff -u -r36942 -r37065
--- APPS/EDIExport/AankoopOrderResponse/Migratie/BLImpService.cls.xml	(.../BLImpService.cls.xml)	(revision 36942)
+++ APPS/EDIExport/AankoopOrderResponse/Migratie/BLImpService.cls.xml	(.../BLImpService.cls.xml)	(revision 37065)
@@ -20,6 +20,25 @@
 <FormalSpec>BerichtIndex:%Integer</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 </Method>
+
+<Method name="ZetBerichtHeader">
+<Abstract>1</Abstract>
+<FormalSpec>BerichtIndex:%Integer,Bericht:%String</FormalSpec>
+</Method>
+
+<Method name="ZetBerichtLijn">
+<Abstract>1</Abstract>
+<FormalSpec>BerichtIndex:%Integer,LijnIndex:%Integer,Lijn:%String</FormalSpec>
+</Method>
+
+<Method name="GeefVolgendBerichtNummer">
+<Abstract>1</Abstract>
+</Method>
+
+<Method name="VerwijderBericht">
+<Abstract>1</Abstract>
+<FormalSpec>BerichtIndex:%Integer</FormalSpec>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/BLUM/Kopieerder.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/BLUM/Kopieerder.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/BLUM/Kopieerder.cls.xml	(revision 37065)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.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.BLUM.Kopieerder,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="Kopieer">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Kopieer")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/AKP/AankoopControle/BLUM/Bewaarder.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/AKP/AankoopControle/BLUM/Bewaarder.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/AKP/AankoopControle/BLUM/Bewaarder.cls.xml	(revision 37065)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.AKP.AankoopControle.BLUM.Bewaarder">
+<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.AKP.AankoopControle.BLUM.Bewaarder,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="Bewaar">
+<FormalSpec>CSBSO:APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Bewaar",CSBSO)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Kopieerder/Kopieer/Test.cls.xml
===================================================================
diff -u -r37038 -r37065
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Kopieerder/Kopieer/Test.cls.xml	(.../Test.cls.xml)	(revision 37038)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Kopieerder/Kopieer/Test.cls.xml	(.../Test.cls.xml)	(revision 37065)
@@ -3,63 +3,66 @@
 <Class name="vhUnitTest.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Kopieerder.Kopieer.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="OnBeforeAllTests">
-<Implementation><![CDATA[
-	Do ##super()
-	Lock +^BLOrdRsp
-	Lock +^BLImp
-	Kill ^BLOrdRsp
-	Kill ^BLImp
-]]></Implementation>
-</Method>
+<Property name="Kopieerder">
+<Type>vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Kopieerder</Type>
+</Property>
 
-<Method name="OnAfterAllTests">
+<Property name="BLImpService">
+<Type>vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.Migratie.impl.BLImpService</Type>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
-	Kill ^BLOrdRsp
-	Kill ^BLImp
-	Lock -^BLImp
-	Lock -^BLOrdRsp
-	Do ##super()
+	do ##super(aTestName)
+
+	Set ..BLImpService = ##class(vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.Migratie.impl.BLImpService).%New()	
+	#dim BLImpData As TECH.MultiDim
+ 	Do ##class(vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.Migratie.impl.BLImpService).ZetTestData(.BLImpData)
+	Do ..BLImpService.Setup(.BLImpData)
+
+	Set ..Kopieerder = ##class(vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Kopieerder).%New(..BLImpService)	
+	#dim BLOrdRspData As TECH.MultiDim
+ 	Do ##class(vhTest.Fake.APPS.AKP.AankoopControle.BLUM.impl.Bewaarder).ZetTestData(.BLOrdRspData)
+	Do ..Kopieerder.Setup(.BLOrdRspData)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Kopieer 2 toeleveringen in BLOrdRsp naar 1 Message in BLImp ">
 <Implementation><![CDATA[
-	Set ^BLOrdRsp(0)="BAU804998\5005\COA\SO\C\20-09-16\1200\0\\\1\"
-	Set ^BLOrdRsp(222482)="""112712500127125001222482      000804998      W30G L 160920                     """
-	Set ^BLOrdRsp(222482,"01",1)="""22222482.01       0378220500001440000290.63216102623V      0000000.00          """
-	Set ^BLOrdRsp(222482,"02",2)="""22222482.02       0417985200000920000331.46216092923V      0000000.00          """
-	Set ^BLOrdRsp(222482,"02",3)="""22222482.02       0417985200001000000331.46216102823V      0000000.00          """
-	Set ^BLOrdRsp(222482,"03",4)="""22222482.03       0424438400000000000331.462      00V      0000000.00          """
-	Set ^BLOrdRsp(222482,"04",5)="""22222482.04       0251181000000000000295.842      00V      0000000.00          """
-	Set ^BLOrdRsp(222482,"05",6)="""22222482.05       0253367100000000000295.842      00V      0000000.00          """
-	Set ^BLOrdRsp(222483)="""112712500127125001222483      000804998      W30G L 160920                     """
-	Set ^BLOrdRsp(222483,"01",1)="""22222483.01       0378220500001500000290.63216102623V      0000000.00          """
-	Set ^BLOrdRsp(222483,"02",2)="""22222483.02       0417985200000920000331.46216092923V      0000000.00          """
-	Set ^BLOrdRsp(222483,"02",3)="""22222483.02       0417985200001000000331.46216092823V      0000000.00          """
-	Set ^BLOrdRsp(222483,"03",4)="""22222483.03       0424438400000000000331.462      00V      0000000.00          """
-	Set ^BLOrdRsp(222483,"04",5)="""22222483.04       0251181000000000000295.842      00V      0000000.00          """
-	Set ^BLOrdRsp(222483,"05",6)="""22222483.05       0253367100000000000295.842      00V      0000000.00          """
+	Set ..Kopieerder.MultiDim(0)="BAU804998\5005\COA\SO\C\20-09-16\1200\0\\\1\"
+	Set ..Kopieerder.MultiDim(222482)="""112712500127125001222482      000804998      W30G L 160920                     """
+	Set ..Kopieerder.MultiDim(222482,"01",1)="""22222482.01       0378220500001440000290.63216102623V      0000000.00          """
+	Set ..Kopieerder.MultiDim(222482,"02",2)="""22222482.02       0417985200000920000331.46216092923V      0000000.00          """
+	Set ..Kopieerder.MultiDim(222482,"02",3)="""22222482.02       0417985200001000000331.46216102823V      0000000.00          """
+	Set ..Kopieerder.MultiDim(222482,"03",4)="""22222482.03       0424438400000000000331.462      00V      0000000.00          """
+	Set ..Kopieerder.MultiDim(222482,"04",5)="""22222482.04       0251181000000000000295.842      00V      0000000.00          """
+	Set ..Kopieerder.MultiDim(222482,"05",6)="""22222482.05       0253367100000000000295.842      00V      0000000.00          """
+	Set ..Kopieerder.MultiDim(222483)="""112712500127125001222483      000804998      W30G L 160920                     """
+	Set ..Kopieerder.MultiDim(222483,"01",1)="""22222483.01       0378220500001500000290.63216102623V      0000000.00          """
+	Set ..Kopieerder.MultiDim(222483,"02",2)="""22222483.02       0417985200000920000331.46216092923V      0000000.00          """
+	Set ..Kopieerder.MultiDim(222483,"02",3)="""22222483.02       0417985200001000000331.46216092823V      0000000.00          """
+	Set ..Kopieerder.MultiDim(222483,"03",4)="""22222483.03       0424438400000000000331.462      00V      0000000.00          """
+	Set ..Kopieerder.MultiDim(222483,"04",5)="""22222483.04       0251181000000000000295.842      00V      0000000.00          """
+	Set ..Kopieerder.MultiDim(222483,"05",6)="""22222483.05       0253367100000000000295.842      00V      0000000.00          """
+
+	Do ..Kopieerder.Kopieer()
 	
-	#Dim Kopieerder As APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Kopieerder  = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Kopieerder).%New()
-	
-	Do Kopieerder.Kopieer()
-	
-	Do $$$AssertEquals(^BLImp(1),"BAU804998\5005\COA\SO\C\20-09-16\1200\14\\\1\")
-	Do $$$AssertEquals(^BLImp(1,1),"""112712500127125001222482      000804998      W30G L 160920                     """)
-	Do $$$AssertEquals(^BLImp(1,2),"""22222482.01       0378220500001440000290.63216102623V      0000000.00          """)
-	Do $$$AssertEquals(^BLImp(1,3),"""22222482.02       0417985200000920000331.46216092923V      0000000.00          """)
-	Do $$$AssertEquals(^BLImp(1,4),"""22222482.02       0417985200001000000331.46216102823V      0000000.00          """)
-	Do $$$AssertEquals(^BLImp(1,5),"""22222482.03       0424438400000000000331.462      00V      0000000.00          """)
-	Do $$$AssertEquals(^BLImp(1,6),"""22222482.04       0251181000000000000295.842      00V      0000000.00          """)
-	Do $$$AssertEquals(^BLImp(1,7),"""22222482.05       0253367100000000000295.842      00V      0000000.00          """)
-	Do $$$AssertEquals(^BLImp(1,8),"""112712500127125001222483      000804998      W30G L 160920                     """)
-	Do $$$AssertEquals(^BLImp(1,9),"""22222483.01       0378220500001500000290.63216102623V      0000000.00          """)
-	Do $$$AssertEquals(^BLImp(1,10),"""22222483.02       0417985200000920000331.46216092923V      0000000.00          """)
-	Do $$$AssertEquals(^BLImp(1,11),"""22222483.02       0417985200001000000331.46216092823V      0000000.00          """)
-	Do $$$AssertEquals(^BLImp(1,12),"""22222483.03       0424438400000000000331.462      00V      0000000.00          """)
-	Do $$$AssertEquals(^BLImp(1,13),"""22222483.04       0251181000000000000295.842      00V      0000000.00          """)
-	Do $$$AssertEquals(^BLImp(1,14),"""22222483.05       0253367100000000000295.842      00V      0000000.00          """)
+	Do $$$AssertEquals(..BLImpService.MultiDim(1),"BAU804998\5005\COA\SO\C\20-09-16\1200\14\\\1\")
+	Do $$$AssertEquals(..BLImpService.MultiDim(1,1),"""112712500127125001222482      000804998      W30G L 160920                     """)
+	Do $$$AssertEquals(..BLImpService.MultiDim(1,2),"""22222482.01       0378220500001440000290.63216102623V      0000000.00          """)
+	Do $$$AssertEquals(..BLImpService.MultiDim(1,3),"""22222482.02       0417985200000920000331.46216092923V      0000000.00          """)
+	Do $$$AssertEquals(..BLImpService.MultiDim(1,4),"""22222482.02       0417985200001000000331.46216102823V      0000000.00          """)
+	Do $$$AssertEquals(..BLImpService.MultiDim(1,5),"""22222482.03       0424438400000000000331.462      00V      0000000.00          """)
+	Do $$$AssertEquals(..BLImpService.MultiDim(1,6),"""22222482.04       0251181000000000000295.842      00V      0000000.00          """)
+	Do $$$AssertEquals(..BLImpService.MultiDim(1,7),"""22222482.05       0253367100000000000295.842      00V      0000000.00          """)
+	Do $$$AssertEquals(..BLImpService.MultiDim(1,8),"""112712500127125001222483      000804998      W30G L 160920                     """)
+	Do $$$AssertEquals(..BLImpService.MultiDim(1,9),"""22222483.01       0378220500001500000290.63216102623V      0000000.00          """)
+	Do $$$AssertEquals(..BLImpService.MultiDim(1,10),"""22222483.02       0417985200000920000331.46216092923V      0000000.00          """)
+	Do $$$AssertEquals(..BLImpService.MultiDim(1,11),"""22222483.02       0417985200001000000331.46216092823V      0000000.00          """)
+	Do $$$AssertEquals(..BLImpService.MultiDim(1,12),"""22222483.03       0424438400000000000331.462      00V      0000000.00          """)
+	Do $$$AssertEquals(..BLImpService.MultiDim(1,13),"""22222483.04       0251181000000000000295.842      00V      0000000.00          """)
+	Do $$$AssertEquals(..BLImpService.MultiDim(1,14),"""22222483.05       0253367100000000000295.842      00V      0000000.00          """)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/Bewaarder.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/Bewaarder.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/Bewaarder.cls.xml	(revision 37065)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.AKP.AankoopControle.BLUM.impl.Bewaarder">
+<Super>TECH.RegisteredObject,APPS.AKP.AankoopControle.BLUM.impl.Bewaarder</Super>
+
+<Parameter name="Global">
+<Type>%String</Type>
+<Default>..MultiDim</Default>
+</Parameter>
+
+<Property name="MultiDim">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
+<Method name="Setup">
+<FormalSpec>MultiDim:%String</FormalSpec>
+<Implementation><![CDATA[
+	Kill ..MultiDim
+	Merge ..MultiDim = MultiDim
+]]></Implementation>
+</Method>
+
+<Method name="ZetTestData">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Data:%String</FormalSpec>
+<Implementation><![CDATA[	set Data(0) = ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Kopieerder.cls.xml
===================================================================
diff -u -r37038 -r37065
--- vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Kopieerder.cls.xml	(.../Kopieerder.cls.xml)	(revision 37038)
+++ vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Kopieerder.cls.xml	(.../Kopieerder.cls.xml)	(revision 37065)
@@ -1,15 +1,32 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.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.BLUM.impl.Kopieerder</Super>
+<Super>TECH.RegisteredObject,APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Kopieerder</Super>
 
-<Method name="Kopieer">
-<Implementation><![CDATA[]]></Implementation>
+<Parameter name="Global">
+<Type>%String</Type>
+<Default>..MultiDim</Default>
+</Parameter>
+
+<Property name="MultiDim">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
+<Method name="Setup">
+<FormalSpec>MultiDim:%String</FormalSpec>
+<Implementation><![CDATA[
+	Kill ..MultiDim
+	Merge ..MultiDim = MultiDim
+]]></Implementation>
 </Method>
+
+<Method name="ZetTestData">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Data:%String</FormalSpec>
+<Implementation><![CDATA[	set Data(0) = ""
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/AKP/AankoopControle/BLUM/Bewaarder.cls.xml
===================================================================
diff -u
--- APPS/AKP/AankoopControle/BLUM/Bewaarder.cls.xml	(revision 0)
+++ APPS/AKP/AankoopControle/BLUM/Bewaarder.cls.xml	(revision 37065)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.AKP.AankoopControle.BLUM.Bewaarder">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="Bewaar">
+<Abstract>1</Abstract>
+<FormalSpec>CSBSO:APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 37065 refers to a dead (removed) revision in file `APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLOrdRspService.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 37065 refers to a dead (removed) revision in file `APPS/EDIExport/AankoopOrderResponse/Migratie/BLOrdRspService.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?