Index: AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml =================================================================== diff -u -r34273 -r34277 --- AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml (.../AifConverter.cls.xml) (revision 34273) +++ AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml (.../AifConverter.cls.xml) (revision 34277) @@ -147,18 +147,19 @@ set PostalAddres.ZipCode = ##class(DOM.common.impl.AdresUtils).CorrigeerPostcode(Adres.GeefPostcode(),Adres.GeefLandNr()) set PostalAddres.LocationName = DirParty.Name - If ..VergelijkLandCodeMetBTWnummer(Partij) { + If ..IsLandCodeInAdresGelijkAanLandInBTWnummer(Partij) { Do DirParty.DirPartyPostalAddressView.Insert(PostalAddres) } Else { - #dim DummyPostalAddres As AXaif.Customer.AxdEntityDirPartyPostalAddressView + #dim FictiefPostalAddres As AXaif.Customer.AxdEntityDirPartyPostalAddressView - Set DummyPostalAddres = ##class(AXaif.Customer.AxdEntityDirPartyPostalAddressView).%New() - Set DummyPostalAddres.IsPrimary = ##class(AXaif.Shared.AxdExtTypeLogisticsIsPrimaryAddress).Yes() - Set DummyPostalAddres.CountryRegionId = Partij.GeefAdres().GeefLand().GeefIso3() - Set DummyPostalAddres.Roles = "Business" + Set FictiefPostalAddres = ##class(AXaif.Customer.AxdEntityDirPartyPostalAddressView).%New() + Set FictiefPostalAddres.IsPrimary = ##class(AXaif.Shared.AxdExtTypeLogisticsIsPrimaryAddress).Yes() + Set FictiefPostalAddres.CountryRegionId = Partij.GeefAdres().GeefLand().GeefIso3() + Set FictiefPostalAddres.Roles = "Business" + Set FictiefPostalAddres.LocationName = DirParty.Name Set PostalAddres.LocationName = DirParty.Name Set PostalAddres.IsPrimary = ##class(AXaif.Shared.AxdExtTypeLogisticsIsPrimaryAddress).No() - Do DirParty.DirPartyPostalAddressView.Insert(DummyPostalAddres) + Do DirParty.DirPartyPostalAddressView.Insert(FictiefPostalAddres) Do DirParty.DirPartyPostalAddressView.Insert(PostalAddres) } ]]> @@ -202,7 +203,7 @@ ]]> - + Partij:DOM.PARTIJ.Partij 1 @@ -905,8 +908,10 @@ #dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1) #dim Party As AXaif.Customer.AxdEntityDirPartyDirOrganization = CustTable.DirParty.GetAt(1) + #dim PostalAddres As AXaif.Customer.AxdEntityDirPartyPostalAddressView = Party.DirPartyPostalAddressView.GetAt(1) do $$$AssertEquals(Party.DirPartyPostalAddressView.Count(),1) + do $$$AssertEquals(PostalAddres.IsPrimary,"Yes") ]]>