TECH.RegisteredObject %String 1 AdresRec:%String 1 %String hoofdadres { Set AdresRec=$G(^KKL(^KK1(..KlantID),"L"_$J($P(AdresRec,"\"),3))) Set:AdresRec="" AdresRec=^KKL(^KK1(..KlantID),0) } Quit AdresRec ]]> DocumentHoofding:WS.Vhisie4.KlantDocument.dto.DocumentHoofding,lbHoofding:%List