Index: DOM/VKP/impl/DataM/DataMOrder.cls.xml =================================================================== diff -u -r48523 -r48556 --- DOM/VKP/impl/DataM/DataMOrder.cls.xml (.../DataMOrder.cls.xml) (revision 48523) +++ DOM/VKP/impl/DataM/DataMOrder.cls.xml (.../DataMOrder.cls.xml) (revision 48556) @@ -331,28 +331,8 @@ Do ..AfleverAdresData.ZetPiece(25, Afleveradres.GeefOpmerking2()) Do ..AfleverAdresData.ZetPiece(26, Afleveradres.GeefVerzendingWijze()) Do ..AfleverAdresData.ZetPiece(23, Afleveradres.GeefVolmacht()) + Do ..AfleverAdresData.ZetPiece(29, Afleveradres.GeefAxLeveradresId()) - If ($$$HasLength(Afleveradres.GeefAxLeveradresId()) && (##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefAxLeverancierId())){ - Do ..AfleverAdresData.ZetPiece(29, Afleveradres.GeefAxLeveradresId()) - Do ..AfleverAdresData.ZetPiece(1, "") - #dim KlantLeveradres As DOM.VKP.LeverAdres - If ##class(DOM.VKP.impl.LeverAdresRepository).%New().BestaatViaAXLeverAdresId(Afleveradres.GeefAxLeveradresId()) { - Set KlantLeveradres = ##class(DOM.VKP.impl.LeverAdresRepository).%New().GeefViaAXLeverAdresId(Afleveradres.GeefAxLeveradresId()) - Do ..AfleverAdresData.ZetPiece(2, KlantLeveradres.GeefNaam()) - Do ..AfleverAdresData.ZetPiece(3, KlantLeveradres.GeefToenaam()) - Do ..AfleverAdresData.ZetPiece(4, KlantLeveradres.GeefAanspreking()) - Do ..AfleverAdresData.ZetPiece(5, KlantLeveradres.GeefStraat()) - Do ..AfleverAdresData.ZetPiece(6, KlantLeveradres.GeefPostcode()) - Do ..AfleverAdresData.ZetPiece(7, KlantLeveradres.GeefGemeente()) - Do ..AfleverAdresData.ZetPiece(8, KlantLeveradres.GeefLand().GeefID()) - Do ..AfleverAdresData.ZetPiece(9, KlantLeveradres.GeefTaal()) - Do ..AfleverAdresData.ZetPiece(24, KlantLeveradres.GeefOpmerking1()) - Do ..AfleverAdresData.ZetPiece(25, KlantLeveradres.GeefOpmerking2()) - Do ..AfleverAdresData.ZetPiece(26, KlantLeveradres.GeefVerzendingWijze()) - Do ..AfleverAdresData.ZetPiece(23, KlantLeveradres.GeefVolmacht()) - } - } - } Else { /// Leegmaken van pieces waarin adres is ingevuld. Eerste piece is de ID van het adres. #Dim Teller As %Integer