Index: APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml
===================================================================
diff -u -r35208 -r35222
--- APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35208)
+++ APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35222)
@@ -181,7 +181,7 @@
 
 	Set E1EDP19 = ##class(APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDP19).%New()
 	Set E1EDP19.SEGMENT = "1"
-	Set E1EDP19.QUALF = "003" ; ###Material Number BLUM ###
+	Set E1EDP19.QUALF = "003" ; ###EAN-Number ###
 	Set E1EDP19.IDTNR = ToeleveringDetail.ProductData.EANCode
 	Do E1EDP01.E1EDP19.Insert(E1EDP19)
 	
Index: APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar.cls.xml
===================================================================
diff -u -r35208 -r35222
--- APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar.cls.xml	(.../DataVerzamelaar.cls.xml)	(revision 35208)
+++ APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar.cls.xml	(.../DataVerzamelaar.cls.xml)	(revision 35222)
@@ -124,12 +124,12 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim ToeleveringID As %String = $Piece(OrderLineIdentificationCustomer,".",1)
-	#dim ToeleveringLijnID As %String = "1" _$Piece(OrderLineIdentificationCustomer,".",2)
 	#dim LVHProductNummer As %String = $$$Trim($Extract(BLExportLijn,56,74))
 	
 	if (LVHProductNummer = "")
 	{
+		#dim ToeleveringID As %String = $Piece(OrderLineIdentificationCustomer,".",1)
+		#dim ToeleveringLijnID As %String = "1" _$Piece(OrderLineIdentificationCustomer,".",2)
 		#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringID)
 		#dim ToeleveringLijn As DOM.AKP.impl.DataM.DataMProductToeleveringLijn = Toelevering.GeefToeleveringLijnViaVolgNr(ToeleveringLijnID)
 		Quit:(ToeleveringLijn '= "") ToeleveringLijn.GeefProductID()
Index: APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender.cls.xml
===================================================================
diff -u -r35211 -r35222
--- APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender.cls.xml	(.../Verzender.cls.xml)	(revision 35211)
+++ APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender.cls.xml	(.../Verzender.cls.xml)	(revision 35222)
@@ -66,9 +66,6 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	/// Required fields aanpassen
-	///do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(ORDERS05.%ValidateObject())
-	
 	#dim BestandNaam As %String = "Data" _ORDERS05.IDOC.E1EDK03.DATUM _ORDERS05.IDOC.E1EDK02.BELNR _VolgNr _".xml"
 	
 	#dim BestandVolledigNaam As %String = ##class(TECH.Files).AppendFile(BestandLocatie,BestandNaam)