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 @@
 
 
 
+
+
+