Index: vhUnitTest/AXimpl/Crm/CustomerOut/Converter/CustomerConverter/Convert/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Crm/CustomerOut/Converter/CustomerConverter/Convert/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Crm/CustomerOut/Converter/CustomerConverter/Convert/Test.cls.xml	(revision 42255)
@@ -0,0 +1,544 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Crm.CustomerOut.Converter.CustomerConverter.Convert.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Partij">
+<Type>vhTest.Mock.DOM.PARTIJ.Partij</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Klant">
+<Type>vhTest.Mock.DOM.VKP.VanHoeckeKlant</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PartijAPI">
+<Type>vhTest.Mock.DOM.PARTIJ.PartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerkoopAPI">
+<Type>vhTest.Mock.DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LeverAdresLijst">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..Partij = ##class(vhTest.Utils.DOM.PARTIJ.Partij).StandaardPartij()
+	Set ..Klant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+	
+	Set ..PartijAPI = ##class(vhTest.Mock.DOM.PARTIJ.PartijAPI).%New()
+	Do ..PartijAPI.IndienMethodCall("GeefPartij",$$$ElkeWaarde).DanReturn(..Partij)
+	
+	Set ..VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Do ..VerkoopAPI.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(..Klant)
+	
+	Set ..LeverAdresLijst = ##class(%ListOfDataTypes).%New()
+	Set FakeBIDIMedewerker = ##class(vhTest.Fake.DOM.common.VanHoeckeGebruiker).%New()
+	Set FakeBUDIMedewerker = ##class(vhTest.Fake.DOM.common.VanHoeckeGebruiker).%New()
+	Do FakeBUDIMedewerker.ZetCode("edcba")
+	
+	Do ..Klant.IndienMethodCall("GeefInterneVerantwoordelijke").DanReturn(FakeBIDIMedewerker)
+	Do ..Klant.IndienMethodCall("GeefExterneVerantwoordelijke").DanReturn(FakeBUDIMedewerker)
+	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("")
+	Do ..Klant.IndienMethodCall("GeefKwantitatief").DanReturn("")
+	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("")
+	Do ..Klant.IndienMethodCall("GeefPrijsCodexStandaard").DanReturn("L")
+	Do ..Klant.IndienMethodCall("GeefPrijsCodexOrgalux").DanReturn("L")
+	Do ..Klant.IndienMethodCall("GeefPrijsCodexTAOR").DanReturn("L")
+	Do ..Klant.IndienMethodCall("GeefLeveringVoorwaarde").DanReturn("30")
+	Do ..Klant.IndienMethodCall("GeefKredietlimiet").DanReturn("2000")
+	Do ..Klant.IndienMethodCall("GeefFacturatieFrequentie").DanReturn("D2")
+	Do ..Klant.IndienMethodCall("GeefLeverAdressen").DanReturn(..LeverAdresLijst)
+	Do ..Klant.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Fake.DOM.common.impl.VH.Adres).%New())
+	Do ..Klant.IndienMethodCall("GeefBezoekAdres").DanReturn("")
+	Do ..Klant.IndienMethodCall("GeefVerzendWijze").DanReturn("")
+	Do ..Klant.IndienMethodCall("GeefBTWNr").DanReturn("BE9600001234")	
+	Do ..Klant.IndienMethodCall("GeefOpmerking6").DanReturn("Opmerking6")
+	Do ..Klant.IndienMethodCall("GeefOpmerking7").DanReturn("Opmerking7")
+	Do ..Klant.IndienMethodCall("GeefOpmerking8").DanReturn("Opmerking8")
+	Do ..Klant.IndienMethodCall("GeefOpmerking9").DanReturn("Opmerking9")
+	Do ..Klant.IndienMethodCall("HeeftFactuurVerzendingViaMail").DanReturn($$$False)
+	#dim EmailAdressenLijst = ##class(%ListOfDataTypes).%New()
+	Do EmailAdressenLijst.Insert("email@example.com")
+	Do ..Klant.IndienMethodCall("GeefFacturatieEmailAdressen").DanReturn(EmailAdressenLijst)
+	
+	Do ..Partij.IndienMethodCall("GeefActiefStatus").DanReturn("")
+]]></Implementation>
+</Method>
+
+<Method name="Test: toenaam max 50 lang">
+<Implementation><![CDATA[
+	Do ..Partij.IndienMethodCall("GeefToenaam").DanReturn("Een toenaam die zeker meer dan 50 karakters lang zou moeten zijn")
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Toenaam,"Een toenaam die zeker meer dan 50 karakters lang z")
+]]></Implementation>
+</Method>
+
+<Method name="Test: properties die 1 op 1 worden overgenomen">
+<Implementation><![CDATA[
+	Do ..Partij.IndienMethodCall("GeefVerkortNummer").DanReturn("7001")
+	Do ..Partij.IndienMethodCall("GeefEmail").DanReturn("info@example.com")
+	Do ..Partij.IndienMethodCall("GeefWebstek").DanReturn("http://www.example.com")
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Klantnummer,"01234")
+	Do $$$AssertEquals(GeconverteerdeKlant.Naam,"DE NAAM")
+	Do $$$AssertEquals(GeconverteerdeKlant.Toenaam,"Toenaam")
+	Do $$$AssertEquals(GeconverteerdeKlant.VerkortNummer,"7001")
+	Do $$$AssertEquals(GeconverteerdeKlant.Email,"info@example.com")
+	Do $$$AssertEquals(GeconverteerdeKlant.Taal,"nl-be")	
+	Do $$$AssertEquals(GeconverteerdeKlant.BTWnummer,"9600.001.234")
+	Do $$$AssertEquals(GeconverteerdeKlant.Website,"http://www.example.com")
+	Do $$$AssertEquals(GeconverteerdeKlant.KVKnummer,"")
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Opmerking6,"Opmerking6")
+	Do $$$AssertEquals(GeconverteerdeKlant.Opmerking7,"Opmerking7")
+	Do $$$AssertEquals(GeconverteerdeKlant.Opmerking8,"Opmerking8")
+	Do $$$AssertEquals(GeconverteerdeKlant.Opmerking9,"Opmerking9")
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.FacturatieNaar,"email@example.com")
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.BIDIMedewerker,"abcde")	
+	Do $$$AssertEquals(GeconverteerdeKlant.BUDIMedewerker,"edcba")
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Regio,"R09")
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.PrijsCodexBeslag,"L")
+	Do $$$AssertEquals(GeconverteerdeKlant.PrijsCodexOrgalux,"L")
+	Do $$$AssertEquals(GeconverteerdeKlant.PrijsCodexTaor,"L")
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Betalingstermijn,"NET30")
+	Do $$$AssertEquals(GeconverteerdeKlant.Leveringsvoorwaarde,"30")
+	Do $$$AssertEquals(GeconverteerdeKlant.Kredietlimiet,"2000")
+	Do $$$AssertEquals(GeconverteerdeKlant.FacturatieFrequentie,"D2")
+	Do $$$AssertEquals(GeconverteerdeKlant.KortingContant,"10D3%")
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.HoofdadresLandcode,"BEL")
+	Do $$$AssertEquals(GeconverteerdeKlant.HoofdadresPostcode,"1234")
+	Do $$$AssertEquals(GeconverteerdeKlant.HoofdadresPlaats,"Fakegem")
+	Do $$$AssertEquals(GeconverteerdeKlant.HoofdadresStraat,"Fakestraat")
+	Do $$$AssertEquals(GeconverteerdeKlant.HoofdadresVerzendwijze,"")
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.BezoekadresLandcode,"")
+	Do $$$AssertEquals(GeconverteerdeKlant.BezoekadresPostcode,"")
+	Do $$$AssertEquals(GeconverteerdeKlant.BezoekadresPlaats,"")
+	Do $$$AssertEquals(GeconverteerdeKlant.BezoekadresStraat,"")
+	Do $$$AssertEquals(GeconverteerdeKlant.BezoekadresVerzendwijze,"")
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitKeuken,"")
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitHandel,"")
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitMeubelhandel,"")
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitScholen,"")
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitOpenbareBesturen,"")
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitConsument,"")
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitLeverancier,"")
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitSoftware,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: enkel eerste telefoonnummer meenemen als die ingevuld is">
+<Implementation><![CDATA[
+	Do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("03/1234899")
+	Do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn("03/1234567")
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Telefoon,"03 1234899")
+]]></Implementation>
+</Method>
+
+<Method name="Test: als eerste telefoonnummer leeg is, dan tweede overnemen">
+<Implementation><![CDATA[
+	Do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("")
+	Do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn("03/987654")
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Telefoon,"03 987654")
+]]></Implementation>
+</Method>
+
+<Method name="Test: iedereen altijd als klant">
+<Implementation><![CDATA[
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.RelatieType,"3")
+]]></Implementation>
+</Method>
+
+<Method name="Test: actief status leeg -&gt; result = 1">
+<Implementation><![CDATA[
+	Do ..Partij.IndienMethodCall("GeefActiefStatus").DanReturn("")
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Status,"1")
+]]></Implementation>
+</Method>
+
+<Method name="Test: actief status &apos;1&apos; -&gt; result = 0">
+<Implementation><![CDATA[
+	Do ..Partij.IndienMethodCall("GeefActiefStatus").DanReturn("1")
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Status,"0")
+]]></Implementation>
+</Method>
+
+<Method name="Test: actief status &apos;2&apos; -&gt; result = 0">
+<Implementation><![CDATA[
+	Do ..Partij.IndienMethodCall("GeefActiefStatus").DanReturn("1")
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Status,"0")
+]]></Implementation>
+</Method>
+
+<Method name="Test: gekende activiteit omzetten naar specifieke Value">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Architect")
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Activiteit,"969950000")
+]]></Implementation>
+</Method>
+
+<Method name="Test: onbekende activiteit omzetten naar &apos;Leeg&apos; (969950022)">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn($$$DummyString)
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Activiteit,"969950022")
+]]></Implementation>
+</Method>
+
+<Method name="Test: geen activiteit omzetten naar &apos;Leeg&apos; (969950022)">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("")
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Activiteit,"969950022")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kwantitatief: indien niet gevonden, defaulten naar 969950015">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefKwantitatief").DanReturn("")
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Kwantitatief,"969950015")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kwantitatief: indien onbekend, defaulten naar 969950015">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefKwantitatief").DanReturn($$$DummyString)
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Kwantitatief,"969950015")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kwantitatief: indien bekend, omzetten">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefKwantitatief").DanReturn("AR/BP A")
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Kwantitatief,"969950008")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kwaliteit bekend voor &apos;Handel&apos;">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
+	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Handel")
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitHandel,"969950001")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kwaliteit bekend voor &apos;Meubelhandel&apos;">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
+	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Meubelhandel")
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitMeubelhandel,"969950001")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kwaliteit bekend voor &apos;Keuken&apos;">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
+	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Keuken")
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitKeuken,"969950001")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kwaliteit bekend voor &apos;Scholen&apos;">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
+	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Scholen")
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitScholen,"969950001")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kwaliteit bekend voor &apos;Consument&apos;">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
+	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Consument")
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitConsument,"969950001")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kwaliteit bekend voor &apos;Openbare Besturen&apos;">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
+	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Openbare besturen")
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitOpenbareBesturen,"969950001")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kwaliteit bekend voor &apos;Leverancier&apos;">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
+	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Leverancier")
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitLeverancier,"969950001")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kwaliteit bekend voor &apos;Software&apos;">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
+	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Software")
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitSoftware,"969950001")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 1 bezoekadres aanwezig, met lege landcode -&gt; landcode overnemen van hoofdadres">
+<Implementation><![CDATA[
+	Set FakeBezoekadres = ##class(vhTest.Fake.DOM.common.impl.VH.Adres).%New()
+	Do FakeBezoekadres.ZetLandNr("")
+	Do ..Klant.IndienMethodCall("GeefBezoekAdres").DanReturn(FakeBezoekadres)
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.BezoekadresLandcode,"BEL")
+]]></Implementation>
+</Method>
+
+<Method name="Test: in sommige velden moeten de ;&apos;s vervangen worden door -&apos;s (punt voor website)">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefFacturatieFrequentie").DanReturn("M1;16")
+	Do ..Klant.IndienMethodCall("GeefOpmerking6").DanReturn("een opmerking met ;")
+	Do ..Klant.IndienMethodCall("GeefOpmerking7").DanReturn("een opmerking met ;")
+	Do ..Klant.IndienMethodCall("GeefOpmerking8").DanReturn("een opmerking met ;")
+	Do ..Klant.IndienMethodCall("GeefOpmerking9").DanReturn("een opmerking met ;")
+	Do ..Partij.IndienMethodCall("GeefWebstek").DanReturn("www;example.com")
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.FacturatieFrequentie,"M1-16")
+	Do $$$AssertEquals(GeconverteerdeKlant.Opmerking6,"een opmerking met -")
+	Do $$$AssertEquals(GeconverteerdeKlant.Opmerking7,"een opmerking met -")
+	Do $$$AssertEquals(GeconverteerdeKlant.Opmerking8,"een opmerking met -")
+	Do $$$AssertEquals(GeconverteerdeKlant.Opmerking9,"een opmerking met -")
+	Do $$$AssertEquals(GeconverteerdeKlant.Website,"www.example.com")
+]]></Implementation>
+</Method>
+
+<Method name="Test: als facturatiefrequentie leeg is, defaulten naar &apos;D&apos;">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefFacturatieFrequentie").DanReturn("")
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.FacturatieFrequentie,"D")
+]]></Implementation>
+</Method>
+
+<Method name="Test: als korting contant leeg is, defaulten naar &apos;0&apos;">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefKortingContantPercentage").DanReturn("")
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.KortingContant,"0")
+]]></Implementation>
+</Method>
+
+<Method name="Test: FacturatieVerzendenPer wordt &apos;E&apos; indien HeeftFactuurVerzendingViaMail true is">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("HeeftFactuurVerzendingViaMail").DanReturn($$$True)
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.FactuurVerzendingVia,"E")
+]]></Implementation>
+</Method>
+
+<Method name="Test: FacturatieVerzendenPer wordt &apos;P&apos; indien HeeftFactuurVerzendingViaMail false is">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("HeeftFactuurVerzendingViaMail").DanReturn($$$False)
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.FactuurVerzendingVia,"P")
+]]></Implementation>
+</Method>
+
+<Method name="Test: / punt en - in telefoon/faxnr vervangen door spatie">
+<Implementation><![CDATA[
+	Do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("0032-3/123.45.67")
+	Do ..Partij.IndienMethodCall("GeefTelefax").DanReturn("+32-3/123.45.67")
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Telefoon,"0032 3 123 45 67")
+	Do $$$AssertEquals(GeconverteerdeKlant.Fax,"+32 3 123 45 67")
+]]></Implementation>
+</Method>
+
+<Method name="Test: KVK nummer ingevuld indien  Nederlander">
+<Implementation><![CDATA[
+	#dim NLDAdres = ##class(vhTest.Fake.DOM.common.impl.VH.Adres).%New()
+	Do NLDAdres.ZetLandNr(##class(DOM.common.enu.Land).Nederland())
+	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(NLDAdres)
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.KVKnummer,"12345678")
+]]></Implementation>
+</Method>
+
+<Method name="Test: emailadres met # $ of ~ -&gt; eerste karakter verwijderen">
+<Implementation><![CDATA[
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer
+	
+	Do ..Partij.IndienMethodCall("GeefEmail").DanReturn("#info@example.com")
+	Set GeconverteerdeKlant = ..GeefCustomer(..Klant.GeefID())
+	Do $$$AssertEquals(GeconverteerdeKlant.Email,"info@example.com")
+	
+	Do ..Partij.IndienMethodCall("GeefEmail").DanReturn("$info@example.com")
+	Set GeconverteerdeKlant = ..GeefCustomer(..Klant.GeefID())
+	Do $$$AssertEquals(GeconverteerdeKlant.Email,"info@example.com")
+	
+	Do ..Partij.IndienMethodCall("GeefEmail").DanReturn("~info@example.com")
+	Set GeconverteerdeKlant = ..GeefCustomer(..Klant.GeefID())
+	Do $$$AssertEquals(GeconverteerdeKlant.Email,"info@example.com")
+]]></Implementation>
+</Method>
+
+<Method name="Test: kredietlimiet leegmaken indien 0">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefKredietlimiet").DanReturn("0")
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Kredietlimiet,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: kredietlimiet 1 niet met 1000 vermenigvuldigen">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefKredietlimiet").DanReturn("1000")
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Kredietlimiet,"1")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 1 facturatieadres -&gt; invullen">
+<Implementation><![CDATA[
+	#dim EmailAdressenLijst = ##class(%ListOfDataTypes).%New()
+	Do EmailAdressenLijst.Insert("email@example.com")
+	Do ..Klant.IndienMethodCall("GeefFacturatieEmailAdressen").DanReturn(EmailAdressenLijst)
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.FacturatieNaar,"email@example.com")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 2 facturatieadressen -&gt; leegmaken">
+<Implementation><![CDATA[
+	#dim EmailAdressenLijst = ##class(%ListOfDataTypes).%New()
+	Do EmailAdressenLijst.Insert("email@example.com")
+	Do EmailAdressenLijst.Insert("email2@example.com")
+	Do ..Klant.IndienMethodCall("GeefFacturatieEmailAdressen").DanReturn(EmailAdressenLijst)
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.FacturatieNaar,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen facturatieadressen -&gt; leegmaken">
+<Implementation><![CDATA[
+	#dim EmailAdressenLijst = ##class(%ListOfDataTypes).%New()
+	Do ..Klant.IndienMethodCall("GeefFacturatieEmailAdressen").DanReturn(EmailAdressenLijst)
+	
+	#dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.FacturatieNaar,"")
+]]></Implementation>
+</Method>
+
+<Method name="GeefCustomer">
+<FormalSpec>KlantId:%String</FormalSpec>
+<ReturnType>AXif.Crm.CustomerOut.MessageParts.Customer</ReturnType>
+<Implementation><![CDATA[
+	Set Converter = ##class(AXimpl.Crm.CustomerOut.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	Set Request = ##class(AXif.Crm.CustomerOut.Request).%New("Crm/Customer",KlantId)
+
+	Quit Converter.Convert(Request).Customer
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 42255 refers to a dead (removed) revision in file `vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?