Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml	(revision 46907)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Dynamics.CustomerIn.Converter.CustomerInConverter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="VerkoopApi">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Test: Er wordt nagegaan of het een bestaande klant betreft">
+<Implementation><![CDATA[
+	Set VerkoopApiMock = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Do VerkoopApiMock.VerwachtMethodCall("BestaatKlant","K||1234").DanDoeNiks()
+	
+	Set ..VerkoopApi = VerkoopApiMock
+	
+	Do ..GeefConverter().Convert(..GeefBinnenkomendBericht())
+	
+	Do VerkoopApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als het een bestaande klant betreft wordt deze opgehaald">
+<Implementation><![CDATA[
+	Set VerkoopApiMock = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Do VerkoopApiMock.IndienMethodCall("BestaatKlant","K||1234").DanReturn($$$True)
+	Do VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1234").DanDoeNiks()
+	
+	Set ..VerkoopApi = VerkoopApiMock
+	
+	Do ..GeefConverter().Convert(..GeefBinnenkomendBericht())
+	
+	Do VerkoopApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefConverter">
+<Private>1</Private>
+<ReturnType>AXimpl.Dynamics.CustomerIn.Converter.CustomerInConverter</ReturnType>
+<Implementation><![CDATA[	Quit ##class(AXimpl.Dynamics.CustomerIn.Converter.CustomerInConverter).%New(..VerkoopApi)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBinnenkomendBericht">
+<Private>1</Private>
+<ReturnType>AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</ReturnType>
+<Implementation><![CDATA[
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+	
+	Set Bericht = ##class(AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust).%New()
+	Set Bericht.CustAccount = $Piece(Klant.GeefID(),"||",2)
+	
+	Quit Bericht
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml
===================================================================
diff -u
--- AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml	(revision 0)
+++ AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml	(revision 46907)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Dynamics.CustomerIn.Converter.CustomerInConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="VerkoopApi">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..VerkoopApi = $$$Inject(VerkoopApi,##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Convert">
+<FormalSpec>AxdEntityCust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</FormalSpec>
+<Implementation><![CDATA[
+	#dim KlantId As %String = "K||"_##class(TECH.StringUtils).LeftTrim(AxdEntityCust.CustAccount,"0")
+	
+	If (..VerkoopApi.BestaatKlant(KlantId)) {
+		Do ..UpdateKlant(AxdEntityCust, KlantId)
+	} Else {
+		Do ..CreëerKlant(AxdEntityCust)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="UpdateKlant">
+<FormalSpec>AxdEntityCust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust,KlantId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopApi.GeefKlant(KlantId)
+]]></Implementation>
+</Method>
+
+<Method name="CreëerKlant">
+<FormalSpec>AxdEntityCust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</FormalSpec>
+<Private>1</Private>
+</Method>
+</Class>
+
+
+</Export>