Index: AXimpl/BizTalkMessage/Converter/OrderConverter.cls.xml
===================================================================
diff -u -r41677 -r41690
--- AXimpl/BizTalkMessage/Converter/OrderConverter.cls.xml	(.../OrderConverter.cls.xml)	(revision 41677)
+++ AXimpl/BizTalkMessage/Converter/OrderConverter.cls.xml	(.../OrderConverter.cls.xml)	(revision 41690)
@@ -8,14 +8,20 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductTypeAPI">
+<Type>DOM.PM.ProductTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>OrderAPI:DOM.VKP.OrderAPI</FormalSpec>
+<FormalSpec>OrderAPI:DOM.VKP.OrderAPI,ProductAPI:DOM.PM.ProductTypeAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..OrderAPI = $$$Inject(OrderAPI,  ##class(DOM.DomeinContext).Instance().GeefOrderAPI())
+	Set ..ProductTypeAPI = $$$Inject(ProductAPI,  ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -25,15 +31,30 @@
 <ReturnType>AXBizTalk.AX.Order.Close.MessageParts</ReturnType>
 <Implementation><![CDATA[
 	#Dim Order as DOM.VKP.Order
+	Set MessageParts =##class(AXBizTalk.AX.Order.Close.MessageParts).%New()
+	Set MessageParts.Order =##class(AXBizTalk.AX.Order.Close.Order).%New()
+	Set MessageParts.Order.OrderLines = ##class(%ListOfObjects).%New()
+
 	Set Order = ..OrderAPI.GeefOrder(Request.SubjectId)
 	#Dim ProductLijnIterator as TECH.Iterator = Order.GeefProductOrderLijnIterator()
 	While ProductLijnIterator.HasNext() {
-		#Dim ProductOrderLijn as DOM.VKP.ProductOrderlijn
-		Set ProductOrderLijn = ProductLijnIterator.Next()
-		
+		#Dim ProductOrderlijn as DOM.VKP.ProductOrderlijn
+		Set ProductOrderlijn = ProductLijnIterator.Next()
+		if ..ProductTypeAPI.IsMaatwerkProduct(ProductOrderlijn.GeefProductID()){
+			Set OrderLine = ##class(AXBizTalk.AX.Order.Close.OrderLine).%New()
+			Set OrderLine.LineNumber = ProductOrderlijn.GeefLijnVolgNr() ; -> moet uniek lijn nr worden?
+			Set OrderLine.ProductNumber = ProductOrderlijn.GeefProductID()
+			Set OrderLine.Quantity = ProductOrderlijn.GeefAantal()			
+			Do MessageParts.Order.OrderLines.Insert(OrderLine)						
+		}
 	}
-	
-	Set MessageParts =##class(AXBizTalk.AX.Order.Close.MessageParts).%New()
+	If MessageParts.Order.OrderLines.Count() {
+		Set MessageParts.Order.OrderNumber = Order.GeefID()
+		Set MessageParts.Order.CustomerNumber = Order.GeefKlantID() ;nog omzetten naar klantnummer
+		
+	}else{
+		// wat met order zonder maatwerk.
+	}	
 	Quit MessageParts
 ]]></Implementation>
 </Method>