Index: BL/Flow/Offerte/Parser/beNEWSOBELWOOD.cls.xml
===================================================================
diff -u
--- BL/Flow/Offerte/Parser/beNEWSOBELWOOD.cls.xml	(revision 0)
+++ BL/Flow/Offerte/Parser/beNEWSOBELWOOD.cls.xml	(revision 3972)
@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="BL.Flow.Offerte.Parser.beNEWSOBELWOOD">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>BL.Flow.Offerte.Parser.AbstractParserTXT</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="pxOfferte">
+<Type>BL.Flow.Offerte.pxHoofding</Type>
+</Property>
+
+<Method name="parse">
+<FormalSpec><![CDATA[&offertes]]></FormalSpec>
+<ReturnType>ParseStatus</ReturnType>
+<Implementation><![CDATA[	Quit ..Import(.offertes)
+]]></Implementation>
+</Method>
+
+<Method name="Import">
+<FormalSpec><![CDATA[&arOffertes]]></FormalSpec>
+<ReturnType>ParseStatus</ReturnType>
+<Implementation><![CDATA[
+	Set Status=""
+
+	Set SubDir=..FileName   ; property FileName bevat de naam van de SubDir 
+	Set SubDirFullPath=##class(TECH.Files).AppendFile(..DirRead,SubDir)
+	
+	Do ..ImportFilesVanSubDir(SubDirFullPath)   ; Vult ..pxOfferte in 
+
+	If ($IsObject(..pxOfferte))&&(..pxOfferte.Lijnen.Count()>0) {
+		Set arOffertes($Increment(arOffertes))=..pxOfferte
+		Set Status=##class(ParseStatus).OKStatus()
+	}
+	Else {
+		// Indien geen lijnen toegevoegd, dan de hoofding terug wissen 
+		Set ..pxOfferte=""
+		Set Status=##class(ParseStatus).%New(100,"Geen offertes in de bestanden van subdir "_SubDir)
+	}
+	
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="ImportFilesVanSubDir">
+<FormalSpec>SubDirFullPath:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set KlantNewSobelwood=""   ; ##class(DOM.DomeinContext).Instance().GeefKlantAPI().GeefKlantNewSobelwood()
+	Do ..InitOfferteHoofding(KlantNewSobelwood)
+	
+	Set LijstFileInfos=##class(TECH.Files).%New().GetFileList(SubDirFullPath,"*.*",0,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()
+		Do ..ImportFile(FileInfo.Name)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ImportFile">
+<FormalSpec>FileName:%String</FormalSpec>
+<Implementation><![CDATA[
+	write "ImportOneFile "_FileName,!
+	Set Projectdto=..GeefProjectdtoFromFile(FileName)
+	
+	If $IsObject(Projectdto) {
+		Set pxLijn=..MaakOfferteLijn(Projectdto)
+		If $IsObject(pxLijn) {
+			Do ..pxOfferte.Lijnen.SetAt(pxLijn,..pxOfferte.Lijnen.Count()+1)
+		}
+	
+		// De hoofding-gegevens worden telkens opnieuw ingevuld, voor iedere lijn 
+		Do ..VulOfferteHoofding(Projectdto)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefProjectdtoFromFile">
+<FormalSpec>FileName:%String</FormalSpec>
+<ReturnType>%RegisteredObject</ReturnType>
+<Implementation><![CDATA[
+	Set Projectdto=##class(BL.Flow.Offerte.pxLijn).%New()   ; FileName 
+	Quit Projectdto
+]]></Implementation>
+</Method>
+
+<Method name="InitOfferteHoofding">
+<FormalSpec>Klant</FormalSpec>
+<Implementation><![CDATA[
+	Set ..pxOfferte = ##class(BL.Flow.Offerte.pxHoofding).%New()
+	Set ..pxOfferte.KlantID = 9365   ; Klant.GeefNummer()
+	;Set ..pxOfferte.OrderRef = aOrders(idxRef)        
+	;Set ..pxOfferte.OrderCommRef = $ZSTRIP(idxRef,"<>"," ")   
+	Set ..pxOfferte.OrderDatum = $TR($ZD($H,1),"/",".")
+	Set ..pxOfferte.DocDate = $TR($ZD($H,1),"/",".")
+]]></Implementation>
+</Method>
+
+<Method name="VulOfferteHoofding">
+<FormalSpec>Projectdto:%RegisteredObject</FormalSpec>
+<Implementation><![CDATA[
+	Set ..pxOfferte.OrderRef = "OrderRef X"           ; Projectdto.GeefOrderRef()
+	Set ..pxOfferte.OrderCommRef = "OrderCommRef X"   ; Projectdto.GeefOrderCommRef()
+]]></Implementation>
+</Method>
+
+<Method name="MaakOfferteLijn">
+<FormalSpec>Projectdto:%RegisteredObject</FormalSpec>
+<ReturnType>BL.Flow.Offerte.pxLijn</ReturnType>
+<Implementation><![CDATA[
+	Set pxLijn=##class(BL.Flow.Offerte.pxLijn).%New()
+	Set pxLijn.KlantProdRef="KlantProdRef X"   ; Projectdto.GeefKlantProdRef()
+	Quit pxLijn
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: WV GAProduct Flow.prj.xml
===================================================================
diff -u -r2400 -r3972
--- WV GAProduct Flow.prj.xml	(.../WV GAProduct Flow.prj.xml)	(revision 2400)
+++ WV GAProduct Flow.prj.xml	(.../WV GAProduct Flow.prj.xml)	(revision 3972)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="WV GAProduct Flow" LastModified="2011-07-15 16:15:56">
+<Project name="WV GAProduct Flow" LastModified="2011-12-22 18:59:58">
   <Items>
     <ProjectItem name="BL.EC.Common.INC" type="MAC"/>
     <ProjectItem name="BL.EC.EDI" type="CLS"/>
@@ -20,6 +20,7 @@
     <ProjectItem name="BL.Flow.Offerte.Parser.beDEDECKER" type="CLS"/>
     <ProjectItem name="BL.Flow.Offerte.Parser.beFRANSSEN" type="CLS"/>
     <ProjectItem name="BL.Flow.Offerte.Parser.beHAFELE" type="CLS"/>
+    <ProjectItem name="BL.Flow.Offerte.Parser.beNEWSOBELWOOD" type="CLS"/>
     <ProjectItem name="BL.Flow.Offerte.Parser.bizSFSSERVICES" type="CLS"/>
     <ProjectItem name="BL.Flow.Offerte.Product" type="CLS"/>
     <ProjectItem name="BL.Flow.Offerte.ProductGAData" type="CLS"/>
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>