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