Index: AXimpl/Dynamics/SalesPriceOut/SalesPriceService.cls.xml
===================================================================
diff -u -r49181 -r50299
--- AXimpl/Dynamics/SalesPriceOut/SalesPriceService.cls.xml	(.../SalesPriceService.cls.xml)	(revision 49181)
+++ AXimpl/Dynamics/SalesPriceOut/SalesPriceService.cls.xml	(.../SalesPriceService.cls.xml)	(revision 50299)
@@ -1,13 +1,80 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="AXimpl.Dynamics.SalesPriceOut.SalesPriceService">
-<Abstract>1</Abstract>
-<Super>TECH.Interface</Super>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SOAP.WebClient</Super>
 
+<Parameter name="NAMESPACE">
+<Description>
+This is the namespace used by the Service</Description>
+<Default>http://tempuri.org/</Default>
+</Parameter>
+
+<Parameter name="OUTPUTTYPEATTRIBUTE">
+<Description>
+Use xsi:type attribute for literal types.</Description>
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="SERVICENAME">
+<Default>RoutingService</Default>
+</Parameter>
+
+<Parameter name="SOAPVERSION">
+<Description>
+This is the name of the Service
+This is the SOAP version supported by the service.</Description>
+<Default>1.1</Default>
+</Parameter>
+
+<Parameter name="TYPENAMESPACE">
+<Description>
+This is the namespace used for types by the Service</Description>
+<Default>http://tempuri.org</Default>
+</Parameter>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Location = ##class(TECH.Config.ConfigMgr).Instance().GetString("VHIP907SalesPriceServiceUrl")
+	Set ..Timeout = 20	
+	Set ..HttpUsername = "VHEPN\AIF_User"
+	Set ..HttpPassword = "Cr&at!on_ofB4tch3s"
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="getPrice">
-<Abstract>1</Abstract>
-<FormalSpec>SalesPriceInput:AXif.Dynamics.SalesPriceOut.MessageParts.ADUSalesPriceHeaderInputDC</FormalSpec>
+<Final>1</Final>
+<FormalSpec>SalesPriceInput:AXif.Dynamics.SalesPriceOut.MessageParts.ADUSalesPriceHeaderInputDC(XMLNAME="_salesPriceInput")</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
 <ReturnType>AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceHeaderOutputDC</ReturnType>
+<WebMethod>1</WebMethod>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+	#dim StartTijdSeconden As %Integer = ##class(TECH.DateTime).CurrentTime()
+	#dim Resultaat As AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceHeaderOutputDC = ..WebMethod("getPrice","ADUSalesPriceServiceGetPriceRequest").Invoke($this,"http://tempuri.org/ADUSalesPriceService/getPrice",.SalesPriceInput)
+	#dim HuidigeTijdSeconden As %Integer = ##class(TECH.DateTime).CurrentTime()
+	If ((HuidigeTijdSeconden-StartTijdSeconden) > 1) 
+	{
+		Try {
+			#dim SalesPriceInputLijn As AXif.Dynamics.SalesPriceOut.MessageParts.ADUSalesPriceLineInputDC = SalesPriceInput.Lines.GetAt(1)
+			Do ##class(vhLib.Logger).%New("SalesPriceService").Debug("getPrice traag",
+				"CustAccount='"_SalesPriceInput.CustAccount
+				_"'; Snelheid=" _ (HuidigeTijdSeconden-StartTijdSeconden) 
+				_ "sec; ItemId='" _ SalesPriceInputLijn.ItemId _ "'; MessageId='" _ SalesPriceInput.MessageId _ "'")
+			
+		} Catch {
+			Do ##class(vhLib.Logger).%New().LogExceptie(##class(TECH.ExceptionHandler).Catch())
+		}
+	}
+	Quit Resultaat
+]]></Implementation>
 </Method>
 </Class>