BL.EC.Common TECH.RegisteredObject EDI ARCHIVE\ ERROR\ TEMP\ %String 1 %String 1 %String 1 %String 1 APPS.common.EDI.EDIVerwerker 1 TECH.Process.ProcessAPI 1 Scans the incoming EDI mail watchfolder and processes every found file This method is (to be) called periodically from the Cache scheduler 1 Verwerker:APPS.common.EDI.EDIVerwerker="" 1 %Boolean 1 %String Verwerker:APPS.common.EDI.EDIVerwerker="" 1 1 %Status 1 DirRead:%String,FileOfSubDir:%String,DirTemp:%String,DirArchive:%String 1 1 1 %String 1 1 1 1 1 1 1 1 DirRead:%String 1 0 { #dim msg As %String = "Er zijn nog subdirs aanwezig na verwerking in dir : "_DirRead Do ##class(vhLib.Logger).%New(..#EDILoggerGroep).Error("ImportEDI",msg) } ]]> 1 1 Actie:%String,ErrorStatus:%Status="",Detail:%String 1 1 1 Oldschool manier via .local 1 1 %ListOfDataTypes Geeft een lijst terug met namen van te verwerken subdirs (dus niet het full path van de dir) 1 DirRead:%String 1 %ListOfDataTypes SubDir is de naam ZONDER full path Exclude fixed dirs 1 SubDirNaam:%String,LijstSubDirs:%ListOfDataTypes 1 ReturnArray als .local doorgeven 1 1 0 1 DirRead:%String,FileOfSubDir:%String 1 1 DirRead:%String,FileOfSubDir:%String,DirArchive:%String 1 1 BasePath:%String 1