Index: BL/Flow/Offerte/ScanEDIMail.cls.xml
===================================================================
diff -u -r734 -r771
--- BL/Flow/Offerte/ScanEDIMail.cls.xml	(.../ScanEDIMail.cls.xml)	(revision 734)
+++ BL/Flow/Offerte/ScanEDIMail.cls.xml	(.../ScanEDIMail.cls.xml)	(revision 771)
@@ -1,10 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:00:52">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-02 15:53:02">
 <Class name="BL.Flow.Offerte.ScanEDIMail">
 <IncludeCode>BL.EC.Common,BL.Derde.KlantSpecifiek,%VHMacro,%occStatus</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62070,32238.17621</TimeChanged>
+<TimeChanged>62124,57225.379528</TimeChanged>
+<TimeCreated>61773,56551.521812</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="SubPath">
@@ -19,24 +20,10 @@
 <Default>TEMP\</Default>
 </Parameter>
 
-<UDLText name="T">
-<Content><![CDATA[
-// FMA pxOfferte hoort niet in ScanEDIMail als property (verhuizen naar lokale var indien nodig)
-
-]]></Content>
-</UDLText>
-
 <Property name="pxOfferte">
 <Type>BL.Flow.Offerte.pxHoofding</Type>
 </Property>
 
-<UDLText name="T">
-<Content><![CDATA[
-// FMA KLNr hoort niet in ScanEDIMail als property (verhuizen naar lokale var indien nodig)
-
-]]></Content>
-</UDLText>
-
 <Property name="KLNr">
 <Type>%Numeric</Type>
 </Property>
@@ -63,20 +50,16 @@
 	Set %ClientIP="192.168.1.15"
 	Lock +FlowXML2Offerte:1 Else  Quit ; exclusief gebruik
 	
-	If (##class(TECH.Config.ConfigMgr).Instance().GetString("BL.Flow.Offerte.ScanEDIMail_OpslaanInTestFolder"))
-	{
+	If (##class(TECH.Config.ConfigMgr).Instance().GetString("BL.Flow.Offerte.ScanEDIMail_OpslaanInTestFolder"))	{
 	    Set TestPath=##class(TECH.Config.ConfigMgr).Instance().GetString("BL.Flow.Offerte.ScanEDIMail_TestFolderLocatie")
     	Set DirRead=TestPath_..#SubPath
 	    Set DirArchive=TestPath_..#SubPath_..#ArchiveSubPath
-	    Set DirTemp=TestPath_..#SubPath_..#TempSubPath
-	}
-	Else
-	{
+	    Set DirTemp=TestPath_..#SubPath_..#TempSubPath }
+	Else {
 	    Set DirRead=^BLBeri("MSMGATEWAY")_..#SubPath
 	    Set DirArchive=^BLBeri("MSMGATEWAY")_..#SubPath_..#ArchiveSubPath
-	    Set DirTemp=^BLBeri("MSMGATEWAY")_..#SubPath_..#TempSubPath
-	}
-	
+	    Set DirTemp=^BLBeri("MSMGATEWAY")_..#SubPath_..#TempSubPath	}
+	    	
 	Do SCANDIR^vhDEV(DirRead,"*.*",$NA(Local),"") ; Opbouw van local met de bestandsnamen 
 	Set FileName=""
 	
@@ -137,19 +120,13 @@
     For  set vnr=$O(Offertes(vnr)) Quit:vnr=""  Do
     . Set OrderCnt=OrderCnt+1
     . Set ..pxOfferte=Offertes(vnr)
-    . // FMA Set blFlowOfferte = ##class(BL.Flow.Offerte.Build).%New() 
-	. $$$blFlowOfferte 
+	. $$$blFlowOfferte
 	. Set blFlowOfferte=%blFlowOfferte  ;Kill %blFlowOfferte
-	. // END FMA
-	. // FMA ..KLNr moet uit ScanEDIMail
 	. Set (..KLNr,KlantNr)=..pxOfferte.KlantID ; de XML kan rechtstreeks de klant nr definieren
 	. ;Set KlantNr=..DefineKlant()
-	. // FMA Error handling: als er geen klantnummer is, moet een foutcode teruggegeven worden + log/mail
 	. If 'KlantNr Do  Quit
-	. // FMA Set oOfferte = blFlowOfferte.Create(KlantNr,"EDI")
 	. Do blFlowOfferte.Create(KlantNr,"EDI")
 	. Set oOfferte=blFlowOfferte.oOfferte
-	. // END FMA
 
 	. ; Opvullen met andere gegevens 
 	. Set oOfferte.StatusTijdStip=$H
@@ -186,8 +163,6 @@
 <FormalSpec>oOfferte:Flow.Offerte.Hoofding,pxLijn:BL.Flow.Offerte.pxLijn</FormalSpec>
 <Implementation><![CDATA[
 	;Set blFlowOfferte=oOfferte.OfferteBL
-	// FMA pass in oLijn instead of oOfferte which is not used
-	// FMA do not use %blFlowOfferte
 	Set oLijn=%blFlowOfferte.InsertLijnProduct(,,,..ConvertNumber(pxLijn.Aantal))
 
 	// Prijs 
@@ -201,7 +176,6 @@
 	. Set oLijn.Referentie=pxLijn.KlantProdRef
 	. Set oLijn.SearchKeys=$LB($LB(pxLijn.KlantProdRef,"PAKKET"))_pxLijn.SearchKeys
 
-	// FMA Remove dead code
 	// Searchkeys 
 	//specifiek voor Haefele al oplossen in de parser
 	/*
@@ -274,8 +248,6 @@
 <Method name="ConvertDate">
 <FormalSpec>Datum</FormalSpec>
 <Implementation><![CDATA[
-	// FMA Utility method: move out of ScanEDIMail.  Pass in pxOfferte.DocDate
-	// FMA YYY???
 	Set:..pxOfferte.DocDate="DD.MM.YYY" DateH=$ZD($TR(Datum,".-","//"),4)
 	Set:..pxOfferte.DocDate="YYYY.MM.DD" DateH=$ZD($TR(Datum,".-/",""),8)
 	Quit $G(DateH)
@@ -285,7 +257,6 @@
 <Method name="ConvertNumber">
 <FormalSpec>Number</FormalSpec>
 <Implementation><![CDATA[
-	// FMA Utility method: move out of ScanEDIMail.  Pass in pxOfferte.DocDecPoint
 	Set:..pxOfferte.DocDecPoint="," Number=$TR(Number,",.",".") ; ',' omwisselen met '.' en '.' verwijderen
 	Set:"."[..pxOfferte.DocDecPoint Number=$TR(Number,",","") ; ',' verwijderen
 	Quit $G(Number)
@@ -294,13 +265,6 @@
 
 <UDLText name="T">
 <Content><![CDATA[
-// FMA delete old code
-
-]]></Content>
-</UDLText>
-
-<UDLText name="T">
-<Content><![CDATA[
 /*
 /// Method wordt niet gebruikt want KlantNr wordt ingesteld per parser
 Method DefineKlant()
@@ -340,5 +304,5 @@
 ]]></Content>
 </UDLText>
 </Class>
-<Checksum value="2993383714"/>
+<Checksum value="2446624165"/>
 </Export>