Index: BL/Flow/Offerte/ScanEDIMail.cls.xml
===================================================================
diff -u -r1476 -r1515
--- BL/Flow/Offerte/ScanEDIMail.cls.xml	(.../ScanEDIMail.cls.xml)	(revision 1476)
+++ BL/Flow/Offerte/ScanEDIMail.cls.xml	(.../ScanEDIMail.cls.xml)	(revision 1515)
@@ -79,8 +79,8 @@
 	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
@@ -112,8 +112,14 @@
 	. Else  Do
 	. . Do ..ConvertProxy(.arOffertes)
 	. .	// Convert to order
-	Set Status=$$MOVEFILE^vhDEV(DirRead,FileName,DirArchive) ; altijd verplaatsen naar archive, ook bij foute verwerking
 	
+	// Unswizzle parser-object 
+	Set parser=""
+	Set ..Parser=""
+	
+	// Altijd verplaatsen naar archive, ook bij foute verwerking 
+	Set Status=$$MOVEFILE^vhDEV(DirRead,FileName,DirArchive)
+	
 	Quit
 ]]></Implementation>
 </Method>
Index: BL/Flow/Offerte/Parser/bizSFSSERVICES.cls.xml
===================================================================
diff -u -r1442 -r1515
--- BL/Flow/Offerte/Parser/bizSFSSERVICES.cls.xml	(.../bizSFSSERVICES.cls.xml)	(revision 1442)
+++ BL/Flow/Offerte/Parser/bizSFSSERVICES.cls.xml	(.../bizSFSSERVICES.cls.xml)	(revision 1515)
@@ -21,18 +21,32 @@
 
 <Method name="PostprocessProxy">
 <Implementation><![CDATA[
+	#define TrimVoorloopnullen(%v)   $ZSTRIP(%v,"<W","0")
+	//  bijvoorbeeld:   $ZSTRIP("00000d56f0500","<W","0")  geeft "d56f0500"  
+ 	
  	If $IsObject(..pxOfferte) {
+
 	 	// indien orderdatum leeg, dan invullen met $H  (in het formaat van DocDate)
 	 	If ..pxOfferte.OrderDatum'>0 {
 		 	Set DatumFormaat=$S($L(..pxOfferte.DocDate):..pxOfferte.DocDate, 1:"YYYYMMDD")
 		 	Set ..pxOfferte.OrderDatum=$$FormatDateTime^vhLib(DatumFormaat,$H)
 	 	}
+
 	 	If $IsObject(..pxOfferte.LevAdres) {
 		 	Set LevAdres=..pxOfferte.LevAdres
 		 	If (LevAdres.Land="CH")&&(LevAdres.PostNummer?4.7N) {
 			 	Set LevAdres.PostNummer="CH-"_LevAdres.PostNummer
 		 	}
 	 	}
+
+	 	If ..pxOfferte.Lijnen.Count()>0 {
+		 	Set LijnenIterator=##class(TECH.ListIterator).%New(..pxOfferte.Lijnen)
+			While LijnenIterator.HasNext() {
+			 	Set pxLijn=LijnenIterator.Next()
+				Set pxLijn.KlantProdRef=$$$TrimVoorloopnullen(pxLijn.KlantProdRef)   ; de voorloopnullen uit de 'pakketref' weghalen 
+			}
+	 	}
+
 	}
  	Quit $$$OK
 ]]></Implementation>