Index: WS/AX/CalculatedProduct/CalculatedProductService.cls.xml
===================================================================
diff -u
--- WS/AX/CalculatedProduct/CalculatedProductService.cls.xml	(revision 0)
+++ WS/AX/CalculatedProduct/CalculatedProductService.cls.xml	(revision 44115)
@@ -0,0 +1,86 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.AX.CalculatedProduct.CalculatedProductService">
+<Super>WS.OngeauthenticeerdeWebService</Super>
+
+<Parameter name="SERVICENAME">
+<Default>CalculatedProductService</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://www.vanhoecke.be/AX/CalculatedProduct/CalculatedProductService</Default>
+</Parameter>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Method GetBOM(CalculatedProductIn As AXif.Dynamics.CalculatedProductIn.Envelope) As AXif.Dynamics.CalculatedProductOut.Envelope [ WebMethod ]
+
+]]></Content>
+</UDLText>
+
+<Method name="GetBOM">
+<FormalSpec>AdminProductNummer:%String</FormalSpec>
+<ReturnType>AXif.Dynamics.CalculatedProductOut.Envelope</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	#dim Converter As WSimpl.AX.CalculatedProduct.Converter = ##class(WSimpl.AX.CalculatedProduct.Converter).%New()
+	#dim EnvelopeIn As AXif.Dynamics.CalculatedProductIn.Envelope = ..MaakEnvelopeIn(AdminProductNummer)
+	#dim EnvelopeOut As AXif.Dynamics.CalculatedProductOut.Envelope = Converter.Convert(EnvelopeIn, "DummyMessageId")
+	
+	Quit EnvelopeOut
+]]></Implementation>
+</Method>
+
+<Method name="MaakEnvelopeIn">
+<FormalSpec>AdminProductNummer:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXif.Dynamics.CalculatedProductIn.Envelope</ReturnType>
+<Implementation><![CDATA[
+	#dim EnvelopeIn As AXif.Dynamics.CalculatedProductIn.Envelope = ##class(AXif.Dynamics.CalculatedProductIn.Envelope).%New()
+	
+	Set EnvelopeIn.Body = ##class(AXif.Dynamics.CalculatedProductIn.Body).%New()	
+	
+	Do EnvelopeIn.Body.MessagePart.MessagePart.Request.Insert(..MaakRequest(AdminProductNummer))
+	
+	Quit EnvelopeIn
+]]></Implementation>
+</Method>
+
+<Method name="MaakRequest">
+<FormalSpec>AdminProductNummer:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest</ReturnType>
+<Implementation><![CDATA[
+	#dim Request As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest).%New()
+	#dim Attribute As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ..MaakAttribute("AdminProductNummer", AdminProductNummer)
+	
+	Do Request.Attribute.Insert(Attribute)
+	
+	Set Request.ConfigId = "DummyConfigId"
+	Set Request.CustAccount = "DummyCustAccount"
+	Set Request.InventTransId = "DummyInventTransId"
+	Set Request.ItemId = "DummyItemId"
+	Set Request.Qty = "DummyQty"
+	Set Request.SalesId = "DummySalesId"
+	
+	Quit Request
+]]></Implementation>
+</Method>
+
+<Method name="MaakAttribute">
+<FormalSpec>Name:%String,Value:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute</ReturnType>
+<Implementation><![CDATA[
+	#dim Attribute As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	
+	Set Attribute.Name = Name
+	Set Attribute.ValueTxt = Value
+	
+	Quit Attribute
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>