BL.EC.Common,BL.Derde.KlantSpecifiek,vhLib.Macro,%occStatus 1 %RegisteredObject 0 \EDICUST_IN\ ARCHIVE\ TEMP\ OV BL.Flow.Offerte.pxHoofding %Numeric %Boolean 0 BL.Flow.Offerte.Parser.AbstractParser %String 1 1 Scans the incoming EDI mail watchfolder and processes every found file This method is (to be) called periodically from the Cache scheduler Oproepen via : d ##class(BL.Flow.Offerte.ScanEDIMail).Scan() 1 0 initvalue:%CacheString 1 1 %Status 1 0 { // Na het verwerken zijn er nog subdirs aanwezig Set msg="Er zijn nog subdirs aanwezig na verwerking in dir : "_DirRead write !,"Logger : "_msg,! ; Do ##class(vhLib.Logger).%New(..#EDILoggerGroep).Error("ImportEDI",msg) ; Do AddErrorToLog^BL.EC.Common("EDI", "XML2Offerte","",msg) } ]]> 1 1 Oldschool manier via .local 1 %ListOfDataTypes Geeft een lijst terug met namen van te verwerken subdirs (dus niet het full path van de dir) DirRead:%String 1 %ListOfDataTypes SubDir is de naam ZONDER full path Exclude fixed dirs SubDirNaam:%String,LijstSubDirs:%ListOfDataTypes 1 FileName kan verwijzen naar een file of een directory DirRead,FileOfSubDir,DirTemp,DirArchive 1 1 oOfferte:Flow.Offerte.Hoofding,pxLijn:BL.Flow.Offerte.pxLijn 1 listOfferteIDs:%ListOfDataTypes 1 0 Strip LF en de bijhorende spaties Copieren van het leveringadres oOfferte:Flow.Offerte.Hoofding,pxAdres:BL.Flow.Offerte.pxAdres String Datum 1 Number 1 ReturnArray als .local doorgeven 1 0