Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml
===================================================================
diff -u -r45180 -r45190
--- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 45180)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 45190)
@@ -158,8 +158,7 @@
 <Private>1</Private>
 <ReturnType>DOM.VKP.impl.DataM.DataMProductOrderlijn</ReturnType>
 <Implementation><![CDATA[
-	// List van attributen, maar attributen hebben properties ??? na te vragen. xsd. niet correct !
-	#dim ProductID As %String = ..ProductBepaler.GeefProductNummer(OrderLine.Attribute.GetAt(1).ValueTxt, Order.GeefKlantID())
+	#dim ProductID As %String = ..GeefAttributeValue(OrderLine.Attribute,"AdminProductNumber")
 	#dim MaatwerkLijn As DOM.VKP.PrijsOrderlijn = ..OrderLevenCyclusService.VoegToeProductVoorKlant(Order, Order.GeefKlantID(), ProductID, OrderLine.QtyOrdered)
 	
 	Quit MaatwerkLijn
@@ -236,6 +235,25 @@
 	Quit LeverAdres
 ]]></Implementation>
 </Method>
+
+<Method name="GeefAttributeValue">
+<FormalSpec>Attributes:%ListOfObjects,Key:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Value As %String = ""
+	#dim AttributesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Attributes)
+	
+	While (AttributesIterator.HasNext()) {
+		#dim Attribute As AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityAttribute = AttributesIterator.Next()
+		If (Attribute.Name = Key) {
+			Set Value = Attribute.ValueTxt	
+			Quit
+		}
+	}
+	Quit Value
+]]></Implementation>
+</Method>
 </Class>