Index: AXimpl/Admin/VKP/SalesPriceService.cls.xml
===================================================================
diff -u
--- AXimpl/Admin/VKP/SalesPriceService.cls.xml	(revision 0)
+++ AXimpl/Admin/VKP/SalesPriceService.cls.xml	(revision 46497)
@@ -0,0 +1,72 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Admin.VKP.SalesPriceService">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="MessageManager">
+<Type>AXimpl.MessageManager</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SalesPriceService">
+<Type>AXimpl.Dynamics.SalesPriceOut.SalesPriceService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>SalesPriceService:AXimpl.Dynamics.SalesPriceOut.SalesPriceService="",MessageManager:AXimpl.MessageManager="",ProductApi:DOM.PM.ProductAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..SalesPriceService = $$$Inject(SalesPriceService, ##class(AXimpl.Dynamics.SalesPriceOut.SalesPriceService).%New())
+	Set ..MessageManager = $$$Inject(MessageManager, ##class(AXimpl.MessageManager).%New())
+	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefPrijs">
+<FormalSpec>KlantNummer:%String,ProductNummer:%String,CifPPL:%String</FormalSpec>
+<ReturnType>AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceHeaderOutputDC</ReturnType>
+<Implementation><![CDATA[
+	#dim MessageId As %String = ..MessageManager.GenerateID()
+	#dim Product As DOM.PM.Product = ..ProductApi.GeefProduct(ProductNummer)
+	#dim Input As AXif.Dynamics.SalesPriceOut.MessageParts.ADUSalesPriceHeaderInputDC = ##class(AXif.Dynamics.SalesPriceOut.MessageParts.ADUSalesPriceHeaderInputDC).%New()
+	
+	Set Input.CustAccount = KlantNummer
+	Set Input.CalcPrice = $$$True
+	Set Input.CalcStock = $$$False
+	Set Input.MessageId = MessageId
+	
+	Do Input.Lines.Insert(..GeefInputLine(MessageId, "DBL PB 012", CifPPL)) //Product.GeefIdentNr()))
+
+	Quit ..SalesPriceService.getPrice(Input)
+]]></Implementation>
+</Method>
+
+<Method name="GeefInputLine">
+<FormalSpec>MessageId:%String,ProductNummer:%String,CifPPL:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXif.Dynamics.SalesPriceOut.MessageParts.ADUSalesPriceLineInputDC</ReturnType>
+<Implementation><![CDATA[
+	#dim InputLine As AXif.Dynamics.SalesPriceOut.MessageParts.ADUSalesPriceLineInputDC = ##class(AXif.Dynamics.SalesPriceOut.MessageParts.ADUSalesPriceLineInputDC).%New()
+	
+	Set InputLine.MessageId = MessageId
+	Set InputLine.ItemId = ProductNummer
+	Set InputLine.CostPrice = CifPPL
+	
+	Quit InputLine
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/Dynamics/SalesPriceOut/SalesPriceService.cls.xml
===================================================================
diff -u -r45822 -r46497
--- AXimpl/Dynamics/SalesPriceOut/SalesPriceService.cls.xml	(.../SalesPriceService.cls.xml)	(revision 45822)
+++ AXimpl/Dynamics/SalesPriceOut/SalesPriceService.cls.xml	(.../SalesPriceService.cls.xml)	(revision 46497)
@@ -4,12 +4,6 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%SOAP.WebClient</Super>
 
-<Parameter name="LOCATION">
-<Description>
-This is the URL used to access the web service.</Description>
-<Default>http://ax-aos-dev.vanhoecke.be:81/MicrosoftDynamicsAXAif60_DEV/ADUSalesPriceSoapUI/xppservice.svc</Default>
-</Parameter>
-
 <Parameter name="NAMESPACE">
 <Description>
 This is the namespace used by the Service</Description>
@@ -23,13 +17,12 @@
 </Parameter>
 
 <Parameter name="SERVICENAME">
-<Description>
-This is the name of the Service</Description>
 <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>
@@ -40,6 +33,20 @@
 <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 ..HttpUsername = "VHEPN\AIF_User"
+	Set ..HttpPassword = "Cr&at!on_ofB4tch3s"
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="getPrice">
 <Final>1</Final>
 <FormalSpec>SalesPriceInput:AXif.Dynamics.SalesPriceOut.MessageParts.ADUSalesPriceHeaderInputDC(XMLNAME="_salesPriceInput")</FormalSpec>
@@ -48,7 +55,7 @@
 <WebMethod>1</WebMethod>
 <SoapBindingStyle>document</SoapBindingStyle>
 <SoapBodyUse>literal</SoapBodyUse>
-<Implementation><![CDATA[ Quit ..WebMethod("getPrice","ADUSalesPriceServiceGetPriceRequest").Invoke($this,"http://tempuri.org/ADUSalesPriceService/getPrice",.SalesPriceInput)
+<Implementation><![CDATA[	Quit ..WebMethod("getPrice","ADUSalesPriceServiceGetPriceRequest").Invoke($this,"http://tempuri.org/ADUSalesPriceService/getPrice",.SalesPriceInput)
 ]]></Implementation>
 </Method>
 </Class>
Index: AXif/Dynamics/SalesPriceIn/MessageParts/ADUSalesPriceLineOutputDC.cls.xml
===================================================================
diff -u -r45515 -r46497
--- AXif/Dynamics/SalesPriceIn/MessageParts/ADUSalesPriceLineOutputDC.cls.xml	(.../ADUSalesPriceLineOutputDC.cls.xml)	(revision 45515)
+++ AXif/Dynamics/SalesPriceIn/MessageParts/ADUSalesPriceLineOutputDC.cls.xml	(.../ADUSalesPriceLineOutputDC.cls.xml)	(revision 46497)
@@ -93,6 +93,13 @@
 <Parameter name="MAXLEN"/>
 <Parameter name="XMLNAME" value="StyleId"/>
 </Property>
+
+<Parameter name="XMLIGNORENULL">
+<Type>STRING</Type>
+<Constraint>,0,1,inputonly,runtime</Constraint>
+<Default>1</Default>
+<Flags>ENUM</Flags>
+</Parameter>
 </Class>