Index: AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml =================================================================== diff -u -r39494 -r39533 --- AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml (.../CustomerConverter.cls.xml) (revision 39494) +++ AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml (.../CustomerConverter.cls.xml) (revision 39533) @@ -89,7 +89,7 @@ Set ..Customer.Opmerking9 = $$$Replace(..Klant.GeefOpmerking9(),";","-") Set ..Customer.Website = $$$Replace(..Partij.GeefWebstek(),";",".") set:(..Partij.GeefAdres().GeefLandNr()=##class(DOM.common.enu.Land).Nederland()) ..Customer.KVKnummer = ##class(TECH.StringUtils).AlignRight($Extract(##class(TECH.StringUtils).StripAllExceptNumeric(..Partij.GeefHandelRegisterNr()),1,8),"0",8) - Set ..Customer.FacturatieNaar = ..Klant.GeefFacturatieEmailAdressen() + Set:$$$Not(..Klant.GeefFacturatieEmailAdressen()[",") ..Customer.FacturatieNaar = ..Klant.GeefFacturatieEmailAdressen() ]]> Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml =================================================================== diff -u -r39494 -r39533 --- vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 39494) +++ vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 39533) @@ -68,7 +68,7 @@ Do ..Klant.IndienMethodCall("GeefOpmerking8").DanReturn("Opmerking8") Do ..Klant.IndienMethodCall("GeefOpmerking9").DanReturn("Opmerking9") Do ..Klant.IndienMethodCall("HeeftFactuurVerzendingViaMail").DanReturn($$$False) - Do ..Klant.IndienMethodCall("GeefFacturatieEmailAdressen").DanReturn("") + Do ..Klant.IndienMethodCall("GeefFacturatieEmailAdressen").DanReturn("email@example.com") Do ..Partij.IndienMethodCall("GeefActiefStatus").DanReturn("") ]]> @@ -107,6 +107,8 @@ 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") @@ -488,6 +490,16 @@ ]]> + + + + KlantId:%String AXBizTalk.Crm.Customer.Customer