Index: AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml
===================================================================
diff -u -r38021 -r38062
--- AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml (.../CustomerConverter.cls.xml) (revision 38021)
+++ AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml (.../CustomerConverter.cls.xml) (revision 38062)
@@ -207,24 +207,6 @@
Set ..Customer.HoofdadresPlaats = ..Klant.GeefAdres().GeefGemeente()
Set ..Customer.HoofdadresStraat = ..Klant.GeefAdres().GeefStraat()
Set ..Customer.HoofdadresVerzendwijze = ..Klant.GeefVerzendWijze()
-
- #dim LeverAdresIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..Klant.GeefLeverAdressen())
- While LeverAdresIterator.HasNext() {
- #dim Adres As DOM.VKP.LeverAdres = LeverAdresIterator.Next()
- Set CRMAdres = ##class(AXBizTalk.Crm.Address.Upsert.Address).%New()
- Set CRMAdres.Klantnummer = ##class(AX.common.impl.ConvertAdminToAX).ConvertCustomerID(..Klant.GeefID())
- Set CRMAdres.Straat1 = Adres.GeefStraat()
- Set CRMAdres.Postcode = Adres.GeefPostcode()
- Set CRMAdres.Plaats = Adres.GeefGemeente()
- Set CRMAdres.LandCodeISO3 = Adres.GeefLand().GeefIso3()
- Set CRMAdres.Telefoon = Adres.GeefTelefoon()
- Set CRMAdres.Verzendwijze = Adres.GeefVerzendingWijze()
- Set CRMAdres.LeveringAdres = $$$True
- Set CRMAdres.BezoekAdres = $$$False
- Set CRMAdres.ToonzaalAdres = $$$False
- Set CRMAdres.FacturatieAdres = $$$False
- Do ..Customer.Leveradressen.Insert(CRMAdres)
- }
If $IsObject(..Klant.GeefBezoekAdres()){
If ..Klant.GeefBezoekAdres().GeefLandNr() = "" {
Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml
===================================================================
diff -u -r37965 -r38062
--- vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 37965)
+++ vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 38062)
@@ -337,71 +337,6 @@
]]>
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
%String
-
-AXBizTalk.Crm.Address.Upsert.Address
-list
-
-
%String