Index: BL/Flow/Offerte/ScanEDIMail.cls.xml
===================================================================
diff -u -r1683 -r1695
--- BL/Flow/Offerte/ScanEDIMail.cls.xml	(.../ScanEDIMail.cls.xml)	(revision 1683)
+++ BL/Flow/Offerte/ScanEDIMail.cls.xml	(.../ScanEDIMail.cls.xml)	(revision 1695)
@@ -39,7 +39,8 @@
 <Description>
 Scans the incoming EDI mail watchfolder and processes every found file
 This method is (to be) called periodically from the Cache scheduler
-d ##class(BL.Flow.Offerte.ScanEDIMail).Scan()</Description>
+Oproepen via : 
+  d ##class(BL.Flow.Offerte.ScanEDIMail).Scan()</Description>
 <ClassMethod>1</ClassMethod>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
@@ -142,6 +143,10 @@
 	. Set oOfferte.Afzender=..pxOfferte.DocVerwerker
 	. If $isObject(..pxOfferte.LevAdres),$L($$$TrimXML(..pxOfferte.LevAdres.Persoon)) Set oOfferte.Afzender=..pxOfferte.LevAdres.Persoon
 	. Do ..LevAdres(oOfferte,..pxOfferte.LevAdres)
+	. 
+	. ; Specifiek voor SFS, maar kan ook voor andere klanten gebruikt worden
+	. Set oOfferte.EtiketKlantNaam=..pxOfferte.EtiketKlantNaam
+	. Set oOfferte.EtiketWoonplaats=..pxOfferte.EtiketWoonplaats
 	.
 	. ; Product lijnen 
 	. Set Key=""
@@ -210,22 +215,28 @@
 	// LeveringsDatum 
 	Set oLijn.LeverDatum=..ConvertDate(pxLijn.LeverDatum)
 	Set oLijn.EDILijnRef=pxLijn.LijnRef
+	
+	// AantalEenheid (Specifiek voor SFS)
+	Set oLijn.AantalEenheid=pxLijn.AantalEenheid
+	Set oLijn.KlantOrderlijnNummer=pxLijn.LijnPos
 ]]></Implementation>
 </Method>
 
 <Method name="Mail2OrderVerwerking">
 <FormalSpec>listOfferteIDs:%ListOfDataTypes</FormalSpec>
 <Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
-	;$$$InitOldLocals
-	;New KLNr,Titel,Body,Link
+	$$$InitOldLocals
+	New Titel,Body,Link,KLNr,EMailGroep,MailId
 	Set Titel="Import EDI "_..KLNr
 	Set Body(1)="~Aantal orders: "_listOfferteIDs.Size
 	Set Link=1
 	Set Link(1)="KL\"_..KLNr_"\R"
 	if listOfferteIDs.Size = 1 Set Link(2)="FLOWOFF\"_listOfferteIDs.GetAt(1)_"\I"
 	Set EMailGroep=$$EMailGroep^KLOPV(..KLNr,"SCANEDIMAIL")
 	Set MailId=$$SYSTEM^vhMAIL("KL",..KLNr,Titel,EMailGroep,.Body,.Link,"U")
+	Quit
 ]]></Implementation>
 </Method>