Index: BL/Flow/Offerte/Parser/AbstractParserXML.cls.xml
===================================================================
diff -u -r1404 -r1683
--- BL/Flow/Offerte/Parser/AbstractParserXML.cls.xml	(.../AbstractParserXML.cls.xml)	(revision 1404)
+++ BL/Flow/Offerte/Parser/AbstractParserXML.cls.xml	(.../AbstractParserXML.cls.xml)	(revision 1683)
@@ -71,27 +71,24 @@
 <Method name="ReadXML">
 <FormalSpec>Dir,FileName</FormalSpec>
 <Implementation><![CDATA[
+	set sc=$$$OK
+	
 	Set reader = ##class(%XML.Reader).%New()
-	  d WLIP^vhDBG(97,"Read xml")
 	
 	// Begin processing of the XML input 
 	Set FullFileName=##class(TECH.Files).AppendFile(Dir,FileName)
 	Set sc=reader.OpenFile(FullFileName)
-	If $$$ISERR(sc)	Do AddErrorToLog^BL.EC.Common("EDI", "XML2Offerte", sc,"Openfile: "_FullFileName) Quit ""
+	If $$$ISERR(sc)	Do AddErrorToLog^BL.EC.Common("EDI", "XML2Offerte", sc,"Openfile: "_FullFileName) Quit sc
 
 	Do reader.Correlate("ORDER","BL.Flow.Offerte.pxHoofding") ;Associate a class name with the XML element name
-	;If $$$ISERR(sc)	Do AddErrorToLog^BL.EC.Common("EDI", "XML2Offerte", sc,"Correlate: "_FullFileName) Quit ""
 
-	Set Count=0
 	For  Quit:'reader.Next(.pxOfferte,.sc)  Do  Quit:$$$ISERR(sc)
-	. If $$$ISERR(sc) Do AddErrorToLog^BL.EC.Common("EDI", "XML2Offerte", sc,"reader.Next: "_FullFileName) Quit
-	. Set Count=Count+1
+	. If $$$ISERR(sc) Set Info = "reader.Next: "_FullFileName Quit
 	. Set ..pxOfferte=pxOfferte
 	. Set sc=..PostprocessProxy()
-	. If $$$ISOK(sc) Set Offertes(Count)=..pxOfferte
-	. If $$$ISERR(sc) Do AddErrorToLog^BL.EC.Common("EDI", "XML2Offerte", sc,"PostprocessProxy: "_FullFileName) Quit
-	Quit:$$$ISERR(sc) sc
-	Quit $$$OK
+	. If $$$ISERR(sc) Set Info = "PostprocessProxy: "_FullFileName Quit
+	if $$$ISERR(sc) Do AddErrorToLog^BL.EC.Common("EDI", "XML2Offerte", sc,$get(Info))
+	Quit sc
 ]]></Implementation>
 </Method>