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