Index: BLVWIMP.mac.rou
===================================================================
diff -u -r38464 -r38657
--- BLVWIMP.mac.rou	(.../BLVWIMP.mac.rou)	(revision 38464)
+++ BLVWIMP.mac.rou	(.../BLVWIMP.mac.rou)	(revision 38657)
@@ -160,6 +160,7 @@
  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()
+ Do ##class(APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvangerV2).%New().Ontvang()
  D IN,SA1,REN
  ;
 DISPL S DL(1)="Lijst" Do REFRESH I '$D(^HULP($J)) D O1,IK^PROC1 G END
Index: BLIMP.mac.rou
===================================================================
diff -u -r37139 -r38657
--- BLIMP.mac.rou	(.../BLIMP.mac.rou)	(revision 37139)
+++ BLIMP.mac.rou	(.../BLIMP.mac.rou)	(revision 38657)
@@ -20,18 +20,21 @@
  
 SCANONLINE ; verwerken van alle EDI bestanden opgeroepen van BLVWIMP
  Set XMLBestandenList = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Ontvanger).%New().Ontvang()
- Set DespXMLBestandenList = ##class(APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvanger).%New().Ontvang()
+ ;��n van de 2 doet de effectieve verwerking op basis van configitem
+ Set DespXMLBestandenListcount = ##class(APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvanger).%New().Ontvang().Count()
+ Set DespXMLBestandenListcount =DespXMLBestandenListcount + ##class(APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvangerV2).%New().Ontvang()
  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()))
+ Set File=$$DISPDIR^vhDEV(Dir,"*.*",,,(XMLBestandenList.Count() + DespXMLBestandenListcount))
  Quit:File=""
  Do CONVERT(Dir,File)
  Quit
  
 SCAN ; Achtergrond job dat alle EDI-bestanden verwerkt 
  Do ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Ontvanger).%New().Ontvang()
  Do ##class(APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvanger).%New().Ontvang()
+ Do ##class(APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvangerV2).%New().Ontvang()
 
  New Dir,File,MSMGATEWAY
  S Q="K" D ^cA604
@@ -155,3 +158,4 @@
 
 
 
+