Index: EWTOE.mac.rou
===================================================================
diff -u -r36900 -r37042
--- EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 36900)
+++ EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 37042)
@@ -313,12 +313,12 @@
  New R,LEVNr,ABNr,ABLNr
  Set LEVNr=$P($G(^KTO1(TOENr)),D) Quit:'LEVNr
  Set R=^KTO(LEVNr,TOENr,TLNr),ABLNr=$P(R,D,13,14)
- Do ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New().UpdateVerwerkVlag(TOENr,$Piece(R,D,15),$Piece(R,D,3),RCPODate) 
+ Do ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService).%New().UpdateVerwerkVlag(TOENr,$Piece(R,D,15),$Piece(R,D,3),RCPODate) 
  Kill ^KTOK(LEVNr,TOENr,TLNr),^KTO3(TOENr,ABLNr_D_TLNr),^KTO(LEVNr,TOENr,TLNr)
  If $N(^KTO(LEVNr,TOENr,100))=-1 Do
  .Set R=^KTO(LEVNr,TOENr,1),ABNr=$P(R,D,10)
  .Do KILLAB^FLOWTOE3(LEVNr,TOENr,ABNr)
- .Do ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New().VerwijderToelevering(TOENr)
+ .Do ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService).%New().VerwijderToelevering(TOENr)
  .Kill ^KTO1(TOENr),^KTO2(LEVNr,TOENr),^KTOB(TOENr),^KTO(LEVNr,TOENr),^BLBeri("Z",TOENr)
  Quit
  ;
@@ -693,3 +693,5 @@
 
 
 
+
+
Index: BLVWIMP.mac.rou
===================================================================
diff -u -r36830 -r37042
--- BLVWIMP.mac.rou	(.../BLVWIMP.mac.rou)	(revision 36830)
+++ BLVWIMP.mac.rou	(.../BLVWIMP.mac.rou)	(revision 37042)
@@ -156,8 +156,8 @@
  ;
 BEGIN
  N NewProd,ModProd
- Do ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger).%New().Ontvang()
- Do ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New().KopieerNaarBLimp()
+ Do ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Ontvanger).%New().Ontvang()
+ Do ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService).%New().KopieerNaarBLimp()
  Do ##class(APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvanger).%New().Ontvang()
  D IN,SA1,REN
  ;
@@ -220,3 +220,5 @@
 
 
 
+
+
Index: BLIMP.mac.rou
===================================================================
diff -u -r36809 -r37042
--- BLIMP.mac.rou	(.../BLIMP.mac.rou)	(revision 36809)
+++ BLIMP.mac.rou	(.../BLIMP.mac.rou)	(revision 37042)
@@ -19,9 +19,9 @@
  Quit
  
 SCANONLINE ; verwerken van alle EDI bestanden opgeroepen van BLVWIMP
- Set XMLBestandenList = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger).%New().Ontvang()
+ Set XMLBestandenList = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Ontvanger).%New().Ontvang()
  Set DespXMLBestandenList = ##class(APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvanger).%New().Ontvang()
- Do ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New().KopieerNaarBLimp()
+ Do ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService).%New().KopieerNaarBLimp()
  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()))
@@ -30,7 +30,7 @@
  Quit
  
 SCAN ; Achtergrond job dat alle EDI-bestanden verwerkt 
- Do ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger).%New().Ontvang()
+ Do ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Ontvanger).%New().Ontvang()
  Do ##class(APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvanger).%New().Ontvang()
 
  New Dir,File,MSMGATEWAY
@@ -149,3 +149,6 @@
 
 
 
+
+
+