Index: AXimpl/Admin/VKP/SalesPriceService.cls.xml
===================================================================
diff -u -r50877 -r50886
--- AXimpl/Admin/VKP/SalesPriceService.cls.xml	(.../SalesPriceService.cls.xml)	(revision 50877)
+++ AXimpl/Admin/VKP/SalesPriceService.cls.xml	(.../SalesPriceService.cls.xml)	(revision 50886)
@@ -32,6 +32,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KlantIdConverter">
+<Type>AXimpl.Utils.KlantIdConverter</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="SoprConvertor">
 <Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
 <Private>1</Private>
@@ -54,7 +59,7 @@
 </Method>
 
 <Method name="%OnNew">
-<FormalSpec>SalesPriceService:AXimpl.Dynamics.SalesPriceOut.SalesPriceService="",MessageManager:AXimpl.MessageManager="",ProductApi:DOM.PM.ProductAPI</FormalSpec>
+<FormalSpec>SalesPriceService:AXimpl.Dynamics.SalesPriceOut.SalesPriceService="",MessageManager:AXimpl.MessageManager="",KlantIdConverter:AXimpl.Utils.KlantIdConverter=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -64,6 +69,7 @@
 	Set ..SalesPriceService.Timeout = 10
 	
 	Set ..MessageManager = $$$Inject(MessageManager, ##class(AXimpl.MessageManager).%New())
+	Set ..KlantIdConverter = $$$Inject(KlantIdConverter, ##class(AXimpl.Utils.KlantIdConverter).%New())
 	Set ..SoprConvertor = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
 	
 	Quit $$$OK
@@ -75,7 +81,7 @@
 <Implementation><![CDATA[
 	Set ..Request = ##class(AXif.Dynamics.SalesPriceOut.MessageParts.ADUSalesPriceHeaderInputDC).%New()
 	
-	Set ..Request.CustAccount = ..GeefAXCustomerID(KlantNummer)
+	Set ..Request.CustAccount = ..KlantIdConverter.ConvertToAx(KlantNummer, ##class(DOM.common.enu.Personality).VanHoecke())
 	Set ..Request.CalcPrice = $$$True
 	Set ..Request.CalcStock = $$$True ;$$$False
 	Set ..Request.MessageId = ..MessageManager.GenerateID()
@@ -169,14 +175,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefAXCustomerID">
-<FormalSpec>KLNr:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $SELECT($LENGTH(KLNr)<5:"0",1:"")_KLNr
-]]></Implementation>
-</Method>
-
 <Method name="PrijzenInclBTW">
 <Description><![CDATA[
 enkel gebruikt inb PVAX.mac --> wegwerken]]></Description>