Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml
===================================================================
diff -u -r49983 -r50030
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 49983)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 50030)
@@ -41,7 +41,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test Standaard gedrag Bij update van bestaande klant">
+<Method name="Test: Standaard gedrag Bij update van bestaande klant">
 <Implementation><![CDATA[
 	Do ..VerkoopApiMock.VerwachtMethodCall("BestaatKlant","K||1111").DanReturn($$$True)
 	#Dim PartijMock as vhTest.Mock.DOM.PARTIJ.Partij = ..GeefPartij()
@@ -50,17 +50,17 @@
 	#Dim KlantMock as vhTest.Mock.DOM.VKP.VanHoeckeKlant = ..GeefKlant()
 	DO ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock)
 
-	Do ..VerwachtZetNawGegevens(PartijMock, ..GeefAddress())
+	Do ..VerwachtZetNawGegevens(PartijMock, ..GeefAdres())
 
 	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
 	
-	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",KlantMock).DanReturn(..GeefAddress())
+	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",KlantMock,$$$True).DanReturn(..GeefAdres())
 	
 	#dim LandMock As vhTest.Mock.DOM.common.Land = ##class(vhTest.Mock.DOM.common.Land).%New()
 	Do LandMock.IndienMethodCall("GeefCode").DanReturn("BE")
 	Do ..LandRepositoryMock.IndienMethodCall("GeefViaLandCodeIso3","BEL").DanReturn(LandMock)
 	
-	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",$$$ElkeWaarde).DanReturn(..GeefAddress())
+	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",$$$ElkeWaarde,$$$True).DanReturn(..GeefAdres())
 	Do ..LeverAdresUtilsMock.IndienMethodCall("ZetLeverAdressen",KlantMock,$$$ElkeWaarde).DanDoeNiks()
 	
 	Do ..GeefConverter().Convert(..GeefCust("01111","Klant1 BV BVBA"))
@@ -72,23 +72,53 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test Geen update van verzendwijze bij update klant, indien ongekende verzendwijze">
+<Method name="Test: Geen update van hoofdadres bij update klant, indien hoofdadres niet is meegegeven">
 <Implementation><![CDATA[
 	Do ..VerkoopApiMock.VerwachtMethodCall("BestaatKlant","K||1111").DanReturn($$$True)
 	#Dim PartijMock as vhTest.Mock.DOM.PARTIJ.Partij = ..GeefPartij()
 	Do ..PartijApiMock.VerwachtMethodCall("GeefPartij","K||1111").DanReturn(PartijMock)
 	
 	#Dim KlantMock as vhTest.Mock.DOM.VKP.VanHoeckeKlant = ..GeefKlant()
+	DO ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock)
+
+	Do ..VerwachtZetNawGegevensIndienGeenHoofdadres(PartijMock, ..GeefLeegAdres())
+
+	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
+	
+	#dim LandMock As vhTest.Mock.DOM.common.Land = ##class(vhTest.Mock.DOM.common.Land).%New()
+	Do LandMock.IndienMethodCall("GeefCode").DanReturn("BE")
+	Do ..LandRepositoryMock.IndienMethodCall("GeefViaLandCodeIso3","BEL").DanReturn(LandMock)
+	
+	Set ..LeverAdresUtilsMock = ##class(vhUnitTest.AXimpl.Dynamics.CustomerIn.Converter.CustomerInConverter.LeverAdresUtilsMock).%New()
+	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",$$$ElkeWaarde,$$$False).DanReturn(..GeefLeegAdres())
+	Do ..LeverAdresUtilsMock.IndienMethodCall("ZetLeverAdressen",KlantMock,$$$ElkeWaarde).DanDoeNiks()
+	
+	Do ..GeefConverter().Convert(..GeefCustZonderHoofdadres("01111","Klant1 BV BVBA"))
+
+	Do ..PartijApiMock.Verifieer()
+	Do ..VerkoopApiMock.Verifieer()
+	Do PartijMock.Verifieer()
+	Do KlantMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen update van verzendwijze bij update klant, indien ongekende verzendwijze">
+<Implementation><![CDATA[
+	Do ..VerkoopApiMock.VerwachtMethodCall("BestaatKlant","K||1111").DanReturn($$$True)
+	#Dim PartijMock as vhTest.Mock.DOM.PARTIJ.Partij = ..GeefPartij()
+	Do ..PartijApiMock.VerwachtMethodCall("GeefPartij","K||1111").DanReturn(PartijMock)
+	
+	#Dim KlantMock as vhTest.Mock.DOM.VKP.VanHoeckeKlant = ..GeefKlant()
 	Do ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock)
 	
-	#dim Adres As DOM.VKP.LeverAdres = ..GeefAddress()
+	#dim Adres As DOM.VKP.LeverAdres = ..GeefAdres()
 	Do Adres.ZetVerzendingWijze("")
 
 	Do ..VerwachtZetNawGegevens(PartijMock, Adres)
 
 	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
 	
-	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",KlantMock).DanReturn(..GeefAddress())
+	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",KlantMock,$$$True).DanReturn(..GeefAdres())
 	
 	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefCust("01111","Klant1 BV BVBA")
 	Set Cust.PostalAddress.GetAt(1).DlvModeId = "UnitTestOngekendeDlvMode"
@@ -97,7 +127,7 @@
 	Do LandMock.IndienMethodCall("GeefCode").DanReturn("BE")
 	Do ..LandRepositoryMock.IndienMethodCall("GeefViaLandCodeIso3","BEL").DanReturn(LandMock)
 	
-	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",Cust).DanReturn(Adres)
+	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",Cust,$$$True).DanReturn(Adres)
 	Do ..LeverAdresUtilsMock.IndienMethodCall("ZetLeverAdressen",KlantMock,Cust).DanDoeNiks()
 	
 	Do ..GeefConverter().Convert(Cust)
@@ -109,7 +139,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test Standaard gedrag bij creatie nieuwe klant">
+<Method name="Test: Standaard gedrag bij creatie nieuwe klant">
 <Implementation><![CDATA[
 	#Dim KlantMock as vhTest.Mock.DOM.VKP.VanHoeckeKlant = ..GeefKlant()
 	Do ..VerwachtMaakKlant(KlantMock)
@@ -118,7 +148,7 @@
 	Do LandMock.IndienMethodCall("GeefCode").DanReturn("BE")
 	Do ..LandRepositoryMock.IndienMethodCall("GeefViaLandCodeIso3","BEL").DanReturn(LandMock)
 	
-	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",$$$ElkeWaarde).DanReturn(..GeefAddress())
+	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",$$$ElkeWaarde,$$$True).DanReturn(..GeefAdres())
 	Do ..LeverAdresUtilsMock.IndienMethodCall("ZetLeverAdressen",KlantMock,$$$ElkeWaarde).DanDoeNiks()
 	
 	Do ..GeefConverter().Convert(..GeefCust("01111","Klant1 BV BVBA"))
@@ -160,6 +190,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwachtZetNawGegevensIndienGeenHoofdadres">
+<FormalSpec>PartijMock:vhTest.Mock.DOM.PARTIJ.Partij,Adres:DOM.VKP.LeverAdres</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do PartijMock.VerwachtMethodCall("ZetBTWNr",$$$ElkeWaarde).DanDoeNiks()
+	Do PartijMock.VerwachtMethodCall("ZetTaal","N").DanDoeNiks()
+	Do PartijMock.VerwachtMethodCall("ZetAanspreking","BV BVBA").DanDoeNiks()
+	Do PartijMock.VerwachtMethodCall("ZetNaam","Klant1").DanDoeNiks()
+	Do PartijMock.VerwachtMethodCall("ZetToenaam","").DanDoeNiks()
+	Do PartijMock.VerwachtMethodCall("ZetTelefoon1","03-464 00 91").DanDoeNiks()
+	Do PartijMock.VerwachtMethodCall("Save").DanDoeNiks()
+	Do PartijMock.VerwachtMethodCall("ZetAdres",$$$ElkeWaarde).ExactAantalKeer(0)
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlant">
 <Private>1</Private>
 <ReturnType>DOM.VKP.VanHoeckeKlant</ReturnType>
@@ -179,7 +224,7 @@
 	Set Matcher1 = ##class(vhUnitTest.AXimpl.Dynamics.CustomerIn.Converter.CustomerInConverter.PartijMatcher).%New(VerwachteKlantDto)
 	Do ..KlantLevenCyclusServiceMock.VerwachtMethodCall("MaakKlant",Matcher1,"ONDERNEMING").DanReturn("K||1111")
 	
-	#dim LeverAdres As DOM.VKP.LeverAdres = ..GeefAddress()
+	#dim LeverAdres As DOM.VKP.LeverAdres = ..GeefAdres()
 	
 	DO ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock)
 	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
@@ -207,13 +252,13 @@
     Set KlantDto.Telefoon1 = "03-464 00 91"
     
 
-	Set KlantDto.Adres = ..GeefAddress()
+	Set KlantDto.Adres = ..GeefAdres()
  
 	Quit KlantDto
 ]]></Implementation>
 </Method>
 
-<Method name="GeefAddress">
+<Method name="GeefAdres">
 <Private>1</Private>
 <ReturnType>DOM.VKP.LeverAdres</ReturnType>
 <Implementation><![CDATA[
@@ -231,6 +276,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLeegAdres">
+<Private>1</Private>
+<ReturnType>DOM.VKP.LeverAdres</ReturnType>
+<Implementation><![CDATA[
+	#dim Adres As DOM.VKP.LeverAdres =  ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	Quit Adres
+]]></Implementation>
+</Method>
+
 <Method name="GeefCust">
 <FormalSpec>CustAccount:%String,Name:%String</FormalSpec>
 <Private>1</Private>
@@ -252,6 +306,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefCustZonderHoofdadres">
+<FormalSpec>CustAccount:%String,Name:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</ReturnType>
+<Implementation><![CDATA[
+	Set Cust = ##class(AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust).%New()
+	Set Cust.CustAccount = CustAccount
+	Set Cust.LanguageId = "nl-be"	
+	Set Cust.Name = Name
+	Set Cust.LastName = ""
+	Set Cust.PartyNumber = "000000922"
+    Set Cust.PriceException = "No"
+	Set Cust.VATNum = "0430.459.769"
+	Do Cust.ElectronicAddress.Insert(..GeefTelefoon1())	
+	Do Cust.ElectronicAddress.Insert(..GeefFax())	
+	Do Cust.ElectronicAddress.Insert(..GeefEmail())	
+	Quit Cust
+]]></Implementation>
+</Method>
+
 <Method name="GeefPrimaryAddress">
 <Private>1</Private>
 <ReturnType>AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress</ReturnType>