FishEye: Tag 37031 refers to a dead (removed) revision in file `APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Service.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Kopieerder.cls.xml
===================================================================
diff -u -r36805 -r37031
--- APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Kopieerder.cls.xml	(.../impl/BLUM/Kopieerder.cls.xml)	(revision 36805)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Kopieerder.cls.xml	(.../BLUM/impl/Kopieerder.cls.xml)	(revision 37031)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Kopieerder">
+<Class name="APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Kopieerder">
 <Super>TECH.Mockable</Super>
 
 <Parameter name="HeaderKey">
Index: APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Ontvanger.cls.xml
===================================================================
diff -u -r36944 -r37031
--- APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Ontvanger.cls.xml	(.../impl/BLUM/Ontvanger.cls.xml)	(revision 36944)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Ontvanger.cls.xml	(.../BLUM/impl/Ontvanger.cls.xml)	(revision 37031)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger">
+<Class name="APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Ontvanger">
 <Super>TECH.RegisteredObject</Super>
 
 <Property name="XmlCorrelater">
@@ -19,17 +19,17 @@
 </Property>
 
 <Property name="Converteerder">
-<Type>APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Converteerder</Type>
+<Type>APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder</Type>
 <Private>1</Private>
 </Property>
 
 <Property name="Service">
-<Type>APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service</Type>
+<Type>APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>FileAPI:TECH.File.FileAPI="",FileUtils:TECH.File.FileUtils,XmlCorrelater:TECH.XMLCorrelater,Converteerder:APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Converteerder,Service:APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service</FormalSpec>
+<FormalSpec>FileAPI:TECH.File.FileAPI="",FileUtils:TECH.File.FileUtils,XmlCorrelater:TECH.XMLCorrelater,Converteerder:APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder,Service:APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -38,8 +38,8 @@
 	set ..FileAPI = $$$Inject(FileAPI,##class(TECH.Context).Instance().GeefFileAPI())
 	Set ..FileUtils = $$$Inject(FileUtils,##class(TECH.File.impl.FileUtils).%New())
 	set ..XmlCorrelater = $$$Inject(XmlCorrelater,##class(TECH.XMLCorrelater).%New())
-	set ..Converteerder = $$$Inject(Converteerder, ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Converteerder).%New())
-	set ..Service = $$$Inject(Service,##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New())
+	set ..Converteerder = $$$Inject(Converteerder, ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder).%New())
+	set ..Service = $$$Inject(Service,##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
FishEye: Tag 37031 refers to a dead (removed) revision in file `APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service.cls.xml
===================================================================
diff -u -r36940 -r37031
--- APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service.cls.xml	(.../impl/BLUM/Service.cls.xml)	(revision 36940)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service.cls.xml	(.../BLUM/impl/BLOrdRspService.cls.xml)	(revision 37031)
@@ -1,8 +1,13 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service">
-<Super>TECH.RegisteredObject</Super>
+<Class name="APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService">
+<Super>TECH.RegisteredObject,APPS.EDIExport.AankoopOrderResponse.BLUM.BLOrdRspService</Super>
 
+<Parameter name="Global">
+<Type>%String</Type>
+<Default>^BLOrdRsp</Default>
+</Parameter>
+
 <Parameter name="HeaderKey">
 <Type>%String</Type>
 <Default>0</Default>
@@ -19,56 +24,40 @@
 </Property>
 
 <Property name="Kopieerder">
-<Type>APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Kopieerder</Type>
+<Type>APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Kopieerder</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>DateTimeAPI:TECH.DateTime.impl.DateTimeAPI,Kopieerder:APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Kopieerder</FormalSpec>
+<FormalSpec>DateTimeAPI:TECH.DateTime.impl.DateTimeAPI,Kopieerder:APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Kopieerder</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..DateTimeAPI = $$$Inject(DateTimeAPI,##class(TECH.DateTime.impl.DateTimeAPI).%New())
-	Set ..Kopieerder = $$$Inject(Kopieerder,##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Kopieerder).%New())
+	Set ..Kopieerder = $$$Inject(Kopieerder,##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Kopieerder).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="Bewaar">
 <FormalSpec>COASO:APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO</FormalSpec>
 <Implementation><![CDATA[
+	#dim RecNr as %Integer = 0
  	Do ..SchrijfHeader("")
 	#dim ToeleveringIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(COASO.ToeleveringList)
 	while ToeleveringIterator.HasNext()
 	{
 		#dim Toelevering As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering = ToeleveringIterator.Next()
-		Do ..ZetToeleveringNummer(Toelevering.ToeleveringHeader.CustomerOrderReference)
-		Do ..SchrijfToeleveringHeader(Toelevering.ToeleveringHeader.ToString())
-
+		Do ..SchrijfToeleveringHeader(Toelevering.ToeleveringHeader.CustomerOrderReference,Toelevering.ToeleveringHeader.ToString())
+		set RecNr = 0
 		#dim ToeleveringDetailIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Toelevering.ToeleveringDetail)
 		while ToeleveringDetailIterator.HasNext()
 		{
+			Set RecNr = RecNr + 1
 			#dim ToeleveringDetail As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail = ToeleveringDetailIterator.Next()
-			Do ..ZetToeleveringLijnNummer(ToeleveringDetail.OrderLineIdentificationCustomer)
-			Do ..SchrijfToeleveringLijn(ToeleveringDetail.ToString())
+			Do ..SchrijfToeleveringLijn(Toelevering.ToeleveringHeader.CustomerOrderReference,+ $Piece(ToeleveringDetail.OrderLineIdentificationCustomer,".",2),RecNr,ToeleveringDetail.ToString())
 		}
 	}
 	Set COASO.COASOHeader.MICOUN = 0
@@ -84,13 +73,12 @@
 	#dim eersteindexvoortlnr = 0
 	#dim indexoudste as %integer = 0
 	#dim ToeleveringsLijnNummer as %String = ""
-	set ToeleveringsLijnNummer = "0" _ (ToeleveringsUniekLijnNummer\100)
-	set ToeleveringsLijnNummer = $Extract(ToeleveringsLijnNummer,$Length(ToeleveringsLijnNummer)-1,$Length(ToeleveringsLijnNummer))
+	set ToeleveringsLijnNummer = (ToeleveringsUniekLijnNummer\100)
+
+	quit:$$$Not($data(@..#Global(ToeleveringsNummer,ToeleveringsLijnNummer)))
 	
-	quit:$$$Not($data(^BLOrdRsp(ToeleveringsNummer,ToeleveringsLijnNummer)))
-	
-	set eersteindexvoortlnr = $Order(^BLOrdRsp(ToeleveringsNummer,ToeleveringsLijnNummer,0))
-	If $$$Not($Order(^BLOrdRsp(ToeleveringsNummer,ToeleveringsLijnNummer,eersteindexvoortlnr))){
+	set eersteindexvoortlnr = $Order(@..#Global(ToeleveringsNummer,ToeleveringsLijnNummer,0))
+	If $$$Not($Order(@..#Global(ToeleveringsNummer,ToeleveringsLijnNummer,eersteindexvoortlnr))){
 		Do ..ZetRecordAlsVerwerkt(ToeleveringsNummer,ToeleveringsLijnNummer,eersteindexvoortlnr)
 	} Else {
 		set index = eersteindexvoortlnr
@@ -100,7 +88,7 @@
 				set updated = 1
 				quit
 			}
-			set index = $Order(^BLOrdRsp(ToeleveringsNummer,ToeleveringsLijnNummer,index))			
+			set index = $Order(@..#Global(ToeleveringsNummer,ToeleveringsLijnNummer,index))			
 		}	
 
 		if $$$Not(updated){ ;geen exacte match op combinatie aantal en datum -> niet verwerkte lijn met oudste leverdatum YYMMDD aanpassen
@@ -110,7 +98,7 @@
 					set:(indexoudste=0) indexoudste = index ;eerste nog te verwerken
 					set:(..GeefLeverDatum(ToeleveringsNummer,ToeleveringsLijnNummer,index) < ..GeefLeverDatum(ToeleveringsNummer,ToeleveringsLijnNummer,indexoudste) ) indexoudste = index
 				}
-				set index = $Order(^BLOrdRsp(ToeleveringsNummer,ToeleveringsLijnNummer,index))			
+				set index = $Order(@..#Global(ToeleveringsNummer,ToeleveringsLijnNummer,index))			
 			}
 			if (indexoudste){
 				 Do ..ZetRecordAlsVerwerkt(ToeleveringsNummer,ToeleveringsLijnNummer,indexoudste)
@@ -124,7 +112,7 @@
 
 <Method name="VerwijderToelevering">
 <FormalSpec>ToeleveringsNummer:%String</FormalSpec>
-<Implementation><![CDATA[	Kill ^BLOrdRsp(ToeleveringsNummer)
+<Implementation><![CDATA[	Kill @..#Global(ToeleveringsNummer)
 ]]></Implementation>
 </Method>
 
@@ -138,7 +126,7 @@
 <Method name="ZetVervallenLijnenAlsVerwerkt">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set Toelevering=$Q(^BLOrdRsp(..#HeaderKey))
+	Set Toelevering=$Q(@..#Global(..#HeaderKey))
 	While Toelevering'=""{
 		If (..IsDetailLijn(@Toelevering)) && (..IsLijnVervallen(@Toelevering)){
 			set $Piece(@Toelevering,"\",2) = ..#IsReedsVerwerkt
@@ -169,7 +157,7 @@
 <Method name="ZetRecordAlsVerwerkt">
 <FormalSpec>ToeleveringNummer:%String,ToeleveringLijnNummer:%String,index:%Integer</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Set $Piece(^BLOrdRsp(ToeleveringNummer,ToeleveringLijnNummer,index),"\",2) = ..#IsReedsVerwerkt
+<Implementation><![CDATA[	Set $Piece(@..#Global(ToeleveringNummer,+ToeleveringLijnNummer,index),"\",2) = ..#IsReedsVerwerkt
 ]]></Implementation>
 </Method>
 
@@ -178,10 +166,10 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim Record as %String = ^BLOrdRsp(ToeleveringNummer,ToeleveringLijnNummer,index)
+	#dim Record as %String = @..#Global(ToeleveringNummer,+ToeleveringLijnNummer,index)
 	Set ToeleveringAantal = +$Extract($Piece(Record,"\",1),28,34)
 	Set ToeleveringLeverDatum = $Extract($Piece(Record,"\",1),46,51)
-	Quit (ToeleveringAantal = Aantal) && (ToeleveringLeverDatum = LeverDatum)
+	Quit (ToeleveringAantal = +Aantal) && (ToeleveringLeverDatum = LeverDatum)
 ]]></Implementation>
 </Method>
 
@@ -190,7 +178,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Record as %String 
-	set Record = ^BLOrdRsp(ToeleveringNummer,ToeleveringLijnNummer,index)
+	set Record = @..#Global(ToeleveringNummer,+ToeleveringLijnNummer,index)
 	Quit $Extract($Piece(Record,"\",1),46,51)
 ]]></Implementation>
 </Method>
@@ -199,53 +187,25 @@
 <FormalSpec>ToeleveringNummer:%String,ToeleveringLijnNummer:%String,index:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ($Piece(^BLOrdRsp(ToeleveringNummer,ToeleveringLijnNummer,index),"\",2) '= ..#IsReedsVerwerkt)
+<Implementation><![CDATA[	Quit ($Piece(@..#Global(ToeleveringNummer,+ToeleveringLijnNummer,index),"\",2) '= ..#IsReedsVerwerkt)
 ]]></Implementation>
 </Method>
 
-<Method name="ZetToeleveringNummer">
-<FormalSpec>CustomerOrderReference:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set ..RecNr = 0
-	Set ..ToeleveringNummer = CustomerOrderReference
-]]></Implementation>
-</Method>
-
-<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
-	if $Data(^BLOrdRsp(..ToeleveringNummer, ..ToeleveringLijnNummer,..RecNr)){
-		Set Record = Record _ "\"_ $Piece(^BLOrdRsp(..ToeleveringNummer, ..ToeleveringLijnNummer,..RecNr),"\",2)
-	}
- 	Set ^BLOrdRsp(..ToeleveringNummer,..ToeleveringLijnNummer,..RecNr)=Record
+<FormalSpec>ToeleveringNr:%String,ToeleveringLijnNr:%String,lijnnr:%Integer,Record:%String</FormalSpec>
+<Implementation><![CDATA[	Set $Piece(@..#Global(ToeleveringNr,+ToeleveringLijnNr,lijnnr),"\",1) = 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
+<FormalSpec>ToeleveringNr:%String,Record:%String</FormalSpec>
+<Implementation><![CDATA[	Set $Piece(@..#Global(ToeleveringNr),"\",1) = Record
 ]]></Implementation>
 </Method>
 
 <Method name="SchrijfHeader">
 <FormalSpec>Record:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[ 	Set ^BLOrdRsp(..#HeaderKey)=Record
+<Implementation><![CDATA[ 	Set @..#Global(..#HeaderKey)=Record
 ]]></Implementation>
 </Method>
 </Class>
FishEye: Tag 37031 refers to a dead (removed) revision in file `APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Kopieerder.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?