Index: AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml =================================================================== diff -u -r49701 -r49704 --- AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml (.../LeverAdresUtils.cls.xml) (revision 49701) +++ AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml (.../LeverAdresUtils.cls.xml) (revision 49704) @@ -79,8 +79,8 @@ #dim BestaandLeverAdres As DOM.VKP.LeverAdres = ..LeveradresRepository.GeefViaAXLeverAdresId(Address.LocationId) #dim Adres As DOM.VKP.LeverAdres = ..LeverAdresFactory.MaakLeverAdres() Set InsertOfUpdate = "Update" - Do Adres.ZetNaam($$$If($$$HasLength(Address.Description),$Piece(Address.Description," ",1),BestaandLeverAdres.GeefNaam())) - Do Adres.ZetAanspreking($$$If($$$HasLength(Address.Description),$Piece(Address.Description," ",2),BestaandLeverAdres.GeefAanspreking())) + Do Adres.ZetNaam($$$If($$$HasLength(Address.Description),Address.Description,BestaandLeverAdres.GeefNaam())) + Do Adres.ZetAanspreking("") Do Adres.ZetStraat($$$If($$$HasLength(Address.Street),Address.Street,BestaandLeverAdres.GeefStraat())) Do Adres.ZetPostcode($$$If($$$HasLength(Address.ZipCode),Address.ZipCode,BestaandLeverAdres.GeefPostcode())) Do Adres.ZetGemeente($$$If($$$HasLength(Address.City),Address.City,BestaandLeverAdres.GeefGemeente())) @@ -93,7 +93,7 @@ Do Adres.ZetOpmerking2($$$If($$$HasLength(Address.Nota2External),Address.Nota2External,BestaandLeverAdres.GeefOpmerking2())) Do Adres.ZetType($$$If($$$HasLength(Address.Role),..AxToAdminUtils.ConvertLeverAdresType(Address.Role),BestaandLeverAdres.GeefType())) Do Adres.ZetAxLeveradresId($$$If($$$HasLength(Address.LocationId),Address.LocationId,BestaandLeverAdres.GeefAxLeveradresId())) - Do Adres.ZetVolmacht($$$If($$$HasLength(Address.TransporterAuth),$Piece(Address.TransporterAuth,"$$##",1),BestaandLeverAdres.GeefVolmacht())) + Do Adres.ZetVolmacht($$$If($$$HasLength(Address.TransporterAuth),Address.TransporterAuth,BestaandLeverAdres.GeefVolmacht())) Do ..LeveradresRepository.Bewaar(Klant, Adres) Do ##class(TECH.ListUtils).RemoveItemFromList(Address.LocationId,LijstVanAxLocationIds) } @@ -132,7 +132,7 @@ Do Adres.ZetOpmerking2(Address.Nota2External) Do Adres.ZetType(..AxToAdminUtils.ConvertLeverAdresType(Address.Role)) Do Adres.ZetAxLeveradresId(Address.LocationId) - Do Adres.ZetVolmacht($Piece(Address.TransporterAuth,"$$##",1)) + Do Adres.ZetVolmacht(Address.TransporterAuth) Quit Adres ]]> @@ -142,8 +142,8 @@ 1 DOM.VKP.LeverAdres +