Index: BL/Flow/Offerte/ScanEDIMail.cls.xml
===================================================================
diff -u -r2588 -r3972
--- BL/Flow/Offerte/ScanEDIMail.cls.xml	(.../ScanEDIMail.cls.xml)	(revision 2588)
+++ BL/Flow/Offerte/ScanEDIMail.cls.xml	(.../ScanEDIMail.cls.xml)	(revision 3972)
@@ -39,6 +39,25 @@
 <Type>BL.Flow.Offerte.Parser.AbstractParser</Type>
 </Property>
 
+<Property name="BasePathMSMGATEWAY">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefPathMSMGATEWAY">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set PathMSMGATEWAY=""
+	If (##class(TECH.Config.ConfigMgr).Instance().GetString("BL.Flow.Offerte.ScanEDIMail_OpslaanInTestFolder"))	{
+	    Set PathMSMGATEWAY=##class(TECH.Config.ConfigMgr).Instance().GetString("BL.Flow.Offerte.ScanEDIMail_TestFolderLocatie")
+	}
+	Else {
+		Set PathMSMGATEWAY=##Class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
+	}
+	Quit PathMSMGATEWAY
+]]></Implementation>
+</Method>
+
 <Method name="Scan">
 <Description>
 Scans the incoming EDI mail watchfolder and processes every found file
@@ -49,95 +68,206 @@
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	Set blScan=..%New()
+	Do blScan.ScanFilesAndSubDirs()
+	Set blScan=""
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..BasePathMSMGATEWAY=##class(TECH.Files).AppendFile(..GeefPathMSMGATEWAY(),..#SubPath)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ScanFilesAndSubDirs">
+<Implementation><![CDATA[
 	Set %ClientIP="192.168.1.97"
-	Lock +FlowXML2Offerte:1 Else  Quit ; exclusief gebruik
+	Lock +FlowXML2Offerte:1 Else  Quit   ; exclusief gebruik 
 	
-	If (##class(TECH.Config.ConfigMgr).Instance().GetString("BL.Flow.Offerte.ScanEDIMail_OpslaanInTestFolder"))	{
-	    Set PathMSMGATEWAY=##class(TECH.Config.ConfigMgr).Instance().GetString("BL.Flow.Offerte.ScanEDIMail_TestFolderLocatie")
+	Do ..ScanSubDirs()
+	Do ..ScanFiles()
+	
+	Do ..ArchiveDirOpkuisen()
+	
+	Lock -FlowXML2Offerte
+]]></Implementation>
+</Method>
+
+<Method name="ScanSubDirs">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set DirRead=..BasePathMSMGATEWAY
+    Set DirArchive=##class(TECH.Files).AppendFile(..BasePathMSMGATEWAY,..#ArchiveSubPath)
+    Set DirTemp=##class(TECH.Files).AppendFile(..BasePathMSMGATEWAY,..#TempSubPath)
+	
+	Set LijstSubDirs=..GeefLijstTeVerwerkenSubDirs(DirRead)
+
+	Set LijstSubDirsIt=##class(TECH.ListIterator).%New(LijstSubDirs)
+	While (LijstSubDirsIt.HasNext()) {
+		Set SubDirNaam=LijstSubDirsIt.Next()
+		Do ..ProcessFileOfSubDir(DirRead,SubDirNaam,DirTemp,DirArchive)
 	}
-	Else {
-		Set PathMSMGATEWAY=##Class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
+	
+	//  Controle 
+	Set LijstSubDirs=..GeefLijstTeVerwerkenSubDirs(DirRead)
+	If LijstSubDirs.Count()>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)
 	}
-	Set BasePath=##class(TECH.Files).AppendFile(PathMSMGATEWAY,..#SubPath)
-	Set DirRead=BasePath
-    Set DirArchive=##class(TECH.Files).AppendFile(BasePath,..#ArchiveSubPath)
-    Set DirTemp=##class(TECH.Files).AppendFile(BasePath,..#TempSubPath)
+]]></Implementation>
+</Method>
+
+<Method name="ScanFiles">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set DirRead=..BasePathMSMGATEWAY
+    Set DirArchive=##class(TECH.Files).AppendFile(..BasePathMSMGATEWAY,..#ArchiveSubPath)
+    Set DirTemp=##class(TECH.Files).AppendFile(..BasePathMSMGATEWAY,..#TempSubPath)
 	    	
-	Do SCANDIR^vhDEV(DirRead,"*.*",$NA(Local),"") ; Opbouw van local met de bestandsnamen 
+	Do ..GeefLijstFilesViaLocal(DirRead, .Local)   ; Opbouw van local met de bestandsnamen 
 	Set FileName=""
 	
 	// Onderscheid maken via FileName 
 	For  Set FileName=$O(Local(FileName)) Quit:FileName=""  Do
-	. Do blScan.ProcessFile(DirRead,FileName,DirTemp,DirArchive)
-
+	. Do ..ProcessFileOfSubDir(DirRead,FileName,DirTemp,DirArchive)
+	
 	//  Controle 
+	Do ..GeefLijstFilesViaLocal(DirRead, .Local)
+	If $L($O(Local(""))) {
+		// Na het verwerken zijn er nog bestanden 
+		Set msg="Er zijn nog bestanden aanwezig na verwerking in dir : "_DirRead
+		Do ##class(vhLib.Logger).%New(..#EDILoggerGroep).Error("ImportEDI",msg)
+		Do AddErrorToLog^BL.EC.Common("EDI", "XML2Offerte","",msg)
+	}
+	
+	// Scan Files in folder
+	// Call ..ProcessFile per found file
+	// Report on remaining files, same as current code
+]]></Implementation>
+</Method>
+
+<Method name="ArchiveDirOpkuisen">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set DirArchive=##class(TECH.Files).AppendFile(..BasePathMSMGATEWAY,..#ArchiveSubPath)
+	Do ..SCANDIRvhDEV(DirArchive,"*.*",.Local,"X",300) ; Opkuis van oude gearchiveerde documenten, moet eigenlijk maar 1 maal per dag lopen
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijstFilesViaLocal">
+<Description>
+Oldschool manier via .local </Description>
+<FormalSpec><![CDATA[DirRead:%String,&Local:%String]]></FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
 	Kill Local
-	Do SCANDIR^vhDEV(DirRead,"*.*",$NA(Local))
-	If $L($O(Local(""))) Do  ; Na het verwerken zijn er nog bestanden 
-	. Do ##class(vhLib.Logger).%New(..#EDILoggerGroep).Error("ImportEDI","Er zijn nog bestanden aanwezig na verwerking in dir : "_DirRead)
-	. Do AddErrorToLog^BL.EC.Common("EDI", "XML2Offerte","","Er zijn nog bestanden aanwezig na verwerking in dir : "_DirRead)
-	. 
+	Do ..SCANDIRvhDEV(DirRead,"*.*",.Local,"") ; Opbouw van local met de bestandsnamen
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijstTeVerwerkenSubDirs">
+<Description>
+Geeft een lijst terug met namen van te verwerken subdirs (dus niet het full path van de dir) </Description>
+<FormalSpec>DirRead:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set LijstTeVerwerkenSubDirs=##class(%ListOfDataTypes).%New()
+	Set LijstFileInfos=##class(TECH.Files).%New().GetDirectoryList(DirRead,0)   ; Geeft lijst van FileInfo-objecten terug;  0 : Geen onderliggende subdirs aflopen 
+
+	Set LijstFileInfosIt=##class(TECH.ListIterator).%New(LijstFileInfos)
+	While (LijstFileInfosIt.HasNext()) {
+		Set FileInfo=LijstFileInfosIt.Next()
+		Set SubDirFullPath=FileInfo.Name
+		Set SubDirNaam=$TR($$$Replace(SubDirFullPath,DirRead,""),"\","")
+		Do ..VoegToeTeVerwerkenSubDir(SubDirNaam,LijstTeVerwerkenSubDirs)
+	}
 	
-	// opkuis archive 
-	Do SCANDIR^vhDEV(DirArchive,"*.*",$NA(Local),"X",300) ; Opkuis van oude gearchiveerde documenten, moet eigenlijk maar 1 maal per dag lopen 
-	
-	Lock -FlowXML2Offerte
-	Set blScan=""
-	
-		// Scan watch folder
-		// Call ..ProcessFile per found file
-		// Report on remaining files, same as current code
+	Quit LijstTeVerwerkenSubDirs
 ]]></Implementation>
 </Method>
 
-<Method name="ProcessFile">
-<FormalSpec>DirRead,FileName,DirTemp,DirArchive</FormalSpec>
+<Method name="VoegToeTeVerwerkenSubDir">
+<Description>
+SubDir is de naam ZONDER full path 
+Exclude fixed dirs </Description>
+<FormalSpec>SubDirNaam:%String,LijstSubDirs:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
+	Set SubDirToevoegen=($$$UCase(SubDirNaam)'?1(1"ARCHIVE",1"TEMP"))
+	If SubDirToevoegen {
+		Do LijstSubDirs.Insert(SubDirNaam)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ProcessFileOfSubDir">
+<Description>
+FileName kan verwijzen naar een file of een directory </Description>
+<FormalSpec>DirRead,FileOfSubDir,DirTemp,DirArchive</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
 	
-	Do ##class(vhLib.Logger).%New(..#EDILoggerGroep).Info("ImportEDI","De file "_FileName_" wordt verwerkt (dir="_DirRead_").")	
+	Do ##class(vhLib.Logger).%New(..#EDILoggerGroep).Info("ImportEDI","De file of subdir "_FileOfSubDir_" wordt verwerkt (dir="_DirRead_").")	
 	
 	// Create a parser
-	Set parser = ##class(BL.Flow.Offerte.Parser.AbstractParser).createParser(DirRead,FileName,DirTemp)
-	if $$$Not($IsObject(parser)) Do
-	. Do ##class(vhLib.Logger).%New(..#EDILoggerGroep).Error("ImportEDI","Er is geen parser voorzien voor het bestand "_FileName)
-	. Do AddErrorToLog^BL.EC.Common("EDI", "ScanEdiMail","","Er is geen parser voorzien voor het bestand "_FileName)
-	Else  Do  ; Call parser
-	. Do ##class(vhLib.Logger).%New(..#EDILoggerGroep).Info("ImportEDI","Parser voor het bestand : classname="_parser.%ClassName(1))
-	. Set ..Parser=parser
-	. Set result = parser.parse(.arOffertes)
-	. if result.HasError() Do
-	. . Do ##class(vhLib.Logger).%New(..#EDILoggerGroep).Error("ImportEDI","EDI-verwerking mislukt. Mail wordt verstuurd.")
-	. . Set From=$$$SystemMail("ScanEDIMail")
-	. . Set To=$LB(##class(TECH.Config.ConfigMgr).Instance().GetString("BL.Flow.Offerte.ScanEDIMail_MailErrorNaar"))
-	. . Set Subject=FileName_": EDI-verwerking mislukt"
-	. . Set Body=result.GetErrorMessage()
-	. . Set Body=Body_$$$CRLF_$$GetJobInfo^vhLib.System(1,"")
-	. . Set sc=$$SendMiniMailForced^vhLib.Mail(From,To,Subject,Body,0)
-	. Else  Do
-	. . Do ##class(vhLib.Logger).%New(..#EDILoggerGroep).Info("ImportEDI","Data wordt omgezet naar Flow.Offerte (ConvertProxy).")
-	. . Do ..ConvertProxy(.arOffertes,FileName)
-	. .	// Convert to order
+	Set parser = ##class(BL.Flow.Offerte.Parser.AbstractParser).createParser(DirRead,FileOfSubDir,DirTemp)
+
+	If $IsObject(parser) {
+
+		Set ..Parser=parser
+		Do ##class(vhLib.Logger).%New(..#EDILoggerGroep).Info("ImportEDI","Parser voor het bestand : classname="_parser.%ClassName(1))
+		
+		Set result = parser.parse(.arOffertes)
+		If 'result.HasError() {
+			Do ##class(vhLib.Logger).%New(..#EDILoggerGroep).Info("ImportEDI","Data wordt omgezet naar Flow.Offerte (ConvertProxy).")
+			Do ..ConvertProxy(.arOffertes,FileOfSubDir)   ; Convert to order 
+		}
+		Else {
+			Do ##class(vhLib.Logger).%New(..#EDILoggerGroep).Error("ImportEDI","EDI-verwerking mislukt. Mail wordt verstuurd.")
+			Set From=$$$SystemMail("ScanEDIMail")
+			Set To=$LB(##class(TECH.Config.ConfigMgr).Instance().GetString("BL.Flow.Offerte.ScanEDIMail_MailErrorNaar"))
+			Set Subject=FileOfSubDir_": EDI-verwerking mislukt"
+			Set Body=result.GetErrorMessage()
+			Set Body=Body_$$$CRLF_$$GetJobInfo^vhLib.System(1,"")
+			Set sc=$$SendMiniMailForced^vhLib.Mail(From,To,Subject,Body,0)
+		}
+	}
+	Else  {
+		Set msg="Er is geen parser voorzien voor het bestand (of subdir) "_FileOfSubDir
+		Do ##class(vhLib.Logger).%New(..#EDILoggerGroep).Error("ImportEDI",msg)
+		Do AddErrorToLog^BL.EC.Common("EDI", "ScanEdiMail","",msg)
+	}
 	
 	// Unswizzle parser-object 
 	Set parser=""
 	Set ..Parser=""
 	
 	// Altijd verplaatsen naar archive, ook bij foute verwerking 
-	Set Status=$$MOVEFILE^vhDEV(DirRead,FileName,DirArchive)
+	Set Status=$$MOVEFILE^vhDEV(DirRead,FileOfSubDir,DirArchive)
 	If Status=-1 {
-		Do ##class(vhLib.Logger).%New(..#EDILoggerGroep).Error("ImportEDI","De file "_FileName_" is kon NIET verplaatst worden naar Archive (dir="_DirArchive_") !!!")
+		Do ##class(vhLib.Logger).%New(..#EDILoggerGroep).Error("ImportEDI","De file of subdir "_FileOfSubDir_" kon NIET verplaatst worden naar Archive (dir="_DirArchive_") !!!")
 	}
 	Else {
-		Do ##class(vhLib.Logger).%New(..#EDILoggerGroep).Info("ImportEDI","De file "_FileName_" is verplaatst naar Archive (dir="_DirArchive_").")
+		Do ##class(vhLib.Logger).%New(..#EDILoggerGroep).Info("ImportEDI","De file of subdir "_FileOfSubDir_" is verplaatst naar Archive (dir="_DirArchive_").")
 	}
 
-	Do ##class(vhLib.Logger).%New(..#EDILoggerGroep).Info("ImportEDI","De file "_FileName_" is verwerkt.")	
-	Quit
+	Do ##class(vhLib.Logger).%New(..#EDILoggerGroep).Info("ImportEDI","De file of subdir "_FileOfSubDir_" is verwerkt.")
 ]]></Implementation>
 </Method>
 
 <Method name="ConvertProxy">
 <FormalSpec><![CDATA[&Offertes:%String,BestandNaam:%String]]></FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	#define TrimXML(%v)   $TR($$$Trim(%v),$C(0),"")
 	
@@ -197,6 +327,7 @@
 
 <Method name="ConvertProductLijn">
 <FormalSpec>oOfferte:Flow.Offerte.Hoofding,pxLijn:BL.Flow.Offerte.pxLijn</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	;Set blFlowOfferte=oOfferte.OfferteBL
 	Set oLijn=%blFlowOfferte.InsertLijnProduct(,,,..ConvertNumber(pxLijn.Aantal))
@@ -305,6 +436,7 @@
 
 <Method name="ConvertDate">
 <FormalSpec>Datum</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set:..pxOfferte.DocDate="DD.MM.YYYY" DateH=$ZDH($TR(Datum,".-","//"),4)
 	Set:..pxOfferte.DocDate="YYYY.MM.DD" DateH=$ZDH($TR(Datum,".-/",""),8)
@@ -315,52 +447,24 @@
 
 <Method name="ConvertNumber">
 <FormalSpec>Number</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set:..pxOfferte.DocDecPoint="," Number=$TR(Number,",.",".") ; ',' omwisselen met '.' en '.' verwijderen
 	Set:"."[..pxOfferte.DocDecPoint Number=$TR(Number,",","") ; ',' verwijderen
 	Quit $G(Number)
 ]]></Implementation>
 </Method>
 
-<UDLText name="T">
-<Content><![CDATA[
-/*
-/// Method wordt niet gebruikt want KlantNr wordt ingesteld per parser
-Method DefineKlant()
-{
-	Set KlantNr=..pxOfferte.KlantID ; de XML kan rechtstreeks de klant nr definieren
-	
-	Set:$L(KlantNr)&&'$D(^KK1(KlantNr)) KlantNr=""  ; Ongeldig
-	
-	If KlantNr="" Do ; opzoeken in #KlantNamen
-	. ;Set KlantNamen=..#KlantNamen	
-	. Set KlantNaam=$zcvt(..pxOfferte.Klant.Naam,"U")
-	. For I=1:1:$L(KlantNamen,"\") Do  Quit:KlantNr  
-	. . Set ChkNm=$ZCVT($P($P(KlantNamen,"\",I),";"),"U")
-	. . Set:(ChkNm=KlantNaam)||(KlantNaam[ChkNm) KlantNr=$P($P(KlantNamen,"\",I),";",2)
-
-	Quit:KlantNr="" ""
-	Quit:'$D(^KK1(KlantNr)) ""
-	Quit KlantNr
-}
-
-/// Method wordt niet gebruikt want in parser van Hafele
-/// Aanvullen van identnr met eerste cijfer
-Method ConvertIdentNr(IDNr, StartList)
-{
-	Set StartList=$G(StartList,"09812345")
-	Set IDNr=$P(IDNr," ")
-	Set:$TR(IDNr,". ")?8N&&$D(^KPR2($TR(IDNr,". ")_" ")) Result=IDNr
-	
-	Quit:$TR(IDNr,". ")'?7N "" ; Verschillend van 7 cijfers
-
-	For FirstPos=1:1:$L(StartList) Quit:$L($G(Result))  Do  
-	. Set First=$E(StartList,FirstPos)
-	. Set:$D(^KPR2(First_$TR(IDNr,". ")_" ")) Result=First_$S(IDNr[".":".",1:"")_IDNr
-	Quit $G(Result)
-}
-*/
-]]></Content>
-</UDLText>
+<Method name="SCANDIRvhDEV">
+<Description>
+ReturnArray als .local doorgeven </Description>
+<FormalSpec><![CDATA[Dir,WildCard,&ReturnArray:%String,Optie,DelDat]]></FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	$$$InitOldLocals
+	Do SCANDIR^vhDEV(Dir, WildCard, $NA(ReturnArray), .Optie, .DelDat)
+]]></Implementation>
+</Method>
 </Class>
 </Export>