Index: BLIMP.mac.rou =================================================================== diff -u -r36805 -r36809 --- BLIMP.mac.rou (.../BLIMP.mac.rou) (revision 36805) +++ BLIMP.mac.rou (.../BLIMP.mac.rou) (revision 36809) @@ -21,7 +21,7 @@ SCANONLINE ; verwerken van alle EDI bestanden opgeroepen van BLVWIMP Set XMLBestandenList = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger).%New().Ontvang() Set DespXMLBestandenList = ##class(APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvanger).%New().Ontvang() - Do ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New().KopieerNaarBLimp() + Do ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%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())) @@ -147,3 +147,5 @@ + +