vhLib.Macro %RegisteredObject,%XML.Adaptor 0 %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String 1 Klant:Derde.Klant.Klant,Array,SkipMainAddress Code,KodeLeveringsadres INTO Aanspreking, Naam, PostCode, StraatNrBus, ToeNaam, WoonPlaats, LandCode,KodeLeveringsadres FROM Derde_Klant.LevAdres WHERE Klant = :KLNr) &sql(OPEN FAP) For &sql(FETCH FAP) Quit:SQLCODE Do . Set pxAdres=..%New() . If KodeLeveringsadres?4.6N Do ; Het leveringsadres kan een link zijn naar het hoofdadres van een andere klant . . Set oAndereKlant=##class(Derde.Klant.Klant).%OpenId(KodeLeveringsadres) . . Quit:'$isObject(oAndereKlant) . . Do pxAdres.Fill(oAndereKlant.Aanspreking, oAndereKlant.Naam, oAndereKlant.Toenaam, oAndereKlant.StraatNrBus, oAndereKlant.Postnummer, oAndereKlant.Woonplaats, oAndereKlant.LandCode) . Else Do . . Do pxAdres.Fill(Aanspreking, Naam, ToeNaam, StraatNrBus, PostCode, WoonPlaats, LandCode) . Do Array.SetAt(pxAdres,$I(VolgNr)) &sql(CLOSE FAP) #endif ]]> Aanspreking,Naam,Toenaam,StraatNrBus,PostCode,WoonPlaats,LandCode