Index: BL/Flow/Offerte/ScanEDIMail.cls.xml
===================================================================
diff -u -r1442 -r1453
--- BL/Flow/Offerte/ScanEDIMail.cls.xml	(.../ScanEDIMail.cls.xml)	(revision 1442)
+++ BL/Flow/Offerte/ScanEDIMail.cls.xml	(.../ScanEDIMail.cls.xml)	(revision 1453)
@@ -86,47 +86,52 @@
 <Method name="ProcessFile">
 <FormalSpec>DirRead,FileName,DirTemp,DirArchive</FormalSpec>
 <Implementation><![CDATA[
-		// Create a parser
-		Set ..MailEachOrder = 0
-		Set parser = ##class(BL.Flow.Offerte.Parser.AbstractParser).createParser(DirRead,FileName,DirTemp)
-		if parser="" Do
-		. Do AddErrorToLog^BL.EC.Common("EDI", "ScanEdiMail","","Er is geen parser voorzien voor het bestand "_FileName)
-		. Set From=$ZU(110)_"@VanHoecke.be"
-		. Set To=$LB("ICT_ImportEDIerrors@vanhoecke.be")
-		. Set Subject=FileName_": EDI-verwerking mislukt"
-		. Set Body="Er is geen parser voorzien voor het bestand """_FileName_"""."
-		. Set sc=$$SendMiniMail^vhLib(From,To,Subject,Body,0)
-		Else  Do  ; Call parser
-		. Set result = parser.parse(.arOffertes)
-		. if result.HasError() Do
-		. . Set From=$ZU(110)_"@VanHoecke.be"
-		. . Set To=$LB("ICT_ImportEDIerrors@vanhoecke.be")
-		. . Set Subject=FileName_": EDI-verwerking mislukt"
-		. . Set Body=result.GetErrorMessage()
-		. . Set sc=$$SendMiniMail^vhLib(From,To,Subject,Body,0)
-		. Else  Do
-		. . Do ..ConvertProxy(.arOffertes)
-		. .	// Convert to order
-		Set Status=$$MOVEFILE^vhDEV(DirRead,FileName,DirArchive) ; altijd verplaatsen naar archive, ook bij foute verwerking
+	// Create a parser
+	Set ..MailEachOrder = 0
+	Set parser = ##class(BL.Flow.Offerte.Parser.AbstractParser).createParser(DirRead,FileName,DirTemp)
+	if parser="" Do
+	. Do AddErrorToLog^BL.EC.Common("EDI", "ScanEdiMail","","Er is geen parser voorzien voor het bestand "_FileName)
+	. Set From=$ZU(110)_"@VanHoecke.be"
+	. Set To=$LB("ICT_ImportEDIerrors@vanhoecke.be")
+	. Set Subject=FileName_": EDI-verwerking mislukt"
+	. Set Body="Er is geen parser voorzien voor het bestand """_FileName_"""."
+	. Set sc=$$SendMiniMail^vhLib(From,To,Subject,Body,0)
+	Else  Do  ; Call parser
+	. Set result = parser.parse(.arOffertes)
+	. if result.HasError() Do
+	. . Set From=$ZU(110)_"@VanHoecke.be"
+	. . Set To=$LB("ICT_ImportEDIerrors@vanhoecke.be")
+	. . Set Subject=FileName_": EDI-verwerking mislukt"
+	. . Set Body=result.GetErrorMessage()
+	. . Set sc=$$SendMiniMail^vhLib(From,To,Subject,Body,0)
+	. Else  Do
+	. . Do ..ConvertProxy(.arOffertes)
+	. .	// Convert to order
+	Set Status=$$MOVEFILE^vhDEV(DirRead,FileName,DirArchive) ; altijd verplaatsen naar archive, ook bij foute verwerking
+	
+	Quit
 ]]></Implementation>
 </Method>
 
 <Method name="ConvertProxy">
 <FormalSpec>Offertes</FormalSpec>
 <Implementation><![CDATA[
-	  ;d WL^vhDBG("Conversie van proxyclass gestart")
-    Set vnr="",OrderCnt=0
-    For  set vnr=$O(Offertes(vnr)) Quit:vnr=""  Do
-    . Set OrderCnt=OrderCnt+1
-    . Set ..pxOfferte=Offertes(vnr)
+	#define TrimXML(%v)   $TR($$$Trim(%v),$C(0),"")
+	
+	 ;d WL^vhDBG("Conversie van proxyclass gestart")
+	Set vnr="",OrderCnt=0
+	For  set vnr=$O(Offertes(vnr)) Quit:vnr=""  Do
+	. Set OrderCnt=OrderCnt+1
+	. Set ..pxOfferte=Offertes(vnr)
 	. $$$blFlowOfferte
 	. Set blFlowOfferte=%blFlowOfferte  ;Kill %blFlowOfferte
 	. Set (..KLNr,KlantNr)=..pxOfferte.KlantID ; de XML kan rechtstreeks de klant nr definieren
 	. ;Set KlantNr=..DefineKlant()
 	. If 'KlantNr Do  Quit
 	. Do blFlowOfferte.Create(KlantNr,"EDI")
 	. Set oOfferte=blFlowOfferte.oOfferte
-
+	. 
+	.  ;d WLIP^vhDBG(97,$$ObjToText^vhLib(..pxOfferte))
 	. ; Opvullen met andere gegevens 
 	. Set oOfferte.StatusTijdStip=$H
 	. Set oOfferte.Creator=..pxOfferte.DocVerwerker
@@ -135,7 +140,7 @@
 	. Set oOfferte.CommReferentie=..pxOfferte.OrderCommRef
 	. Set oOfferte.Datum=..ConvertDate(..pxOfferte.OrderDatum)
 	. Set oOfferte.Afzender=..pxOfferte.DocVerwerker
-	. If $isObject(..pxOfferte.LevAdres),$L(..pxOfferte.LevAdres.Persoon) Set oOfferte.Afzender=..pxOfferte.LevAdres.Persoon
+	. If $isObject(..pxOfferte.LevAdres),$L($$$TrimXML(..pxOfferte.LevAdres.Persoon)) Set oOfferte.Afzender=..pxOfferte.LevAdres.Persoon
 	. Do ..LevAdres(oOfferte,..pxOfferte.LevAdres)
 	.
 	. ; Product lijnen