0 BL.Derde.Agenda.pxAdres,%RegisteredObject,%XML.Adaptor right %Library.String %Library.String %Library.String 1 Klant:Derde.Klant.Klant,Array Code INTO Aanspreking, Naam, PostCode, StraatNrBus, ToeNaam, WoonPlaats, LandCode FROM Derde_Klant.LevAdres WHERE Klant = :KLNr) &sql(OPEN FAP) Set VolgNr=0 For &sql(FETCH FAP) Quit:SQLCODE Do . Set pxAdres=..%New() . Do pxAdres.Fill(Aanspreking, Naam, ToeNaam, StraatNrBus, PostCode, WoonPlaats, LandCode) . Do Array.SetAt(pxAdres,$I(VolgNr)) &sql(CLOSE FAP) ]]> Aanspreking,Naam,ToeNaam,StraatNrBus,PostCode,WoonPlaats,LandCode