vhLib.Macro %RegisteredObject,%XML.Adaptor 0 %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String 1 Klant:Derde.Klant.Klant,Array,SkipMainAddress Code,KodeLeveringsadres,Telefoon, Telefoon2, AlternatieveNaam, Opmerking1,Opmerking2,TypeAdres INTO Aanspreking, Naam, PostCode, StraatNrBus, ToeNaam, WoonPlaats, LandCode,KodeLeveringsadres,Telefoon1, Telefoon2, AlternatieveNaam, Opmerking1,Opmerking2,TypeAdres FROM Derde_Klant.LevAdres WHERE Klant = :KLNr ORDER BY TypeAdres ) &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,,,,"Link",,TypeAdres) . Else Do . . Do pxAdres.Fill(Aanspreking, Naam, ToeNaam, StraatNrBus, PostCode, WoonPlaats, LandCode,Telefoon1,Telefoon2,AlternatieveNaam,Opmerking1,Opmerking2,TypeAdres) . Do Array.SetAt(pxAdres,$I(VolgNr)) &sql(CLOSE FAP) ]]> Aanspreking:%String,Naam:%String,Toenaam:%String,StraatNrBus:%String,PostCode:%String,WoonPlaats:%String,LandCode:%String,Telefoon1:%String="",Telefoon2:%String="",AlternatieveNaam:%String="",Opmerking1:%String="",Opmerking2:%String="",TypeAdres:%String="" 1 KlantID:%String BL.EC.pxKlantInfoAdres