Set BL=##class(BL.Derde.Lev.Main).%New() s Q=BL.Zoek("BRUYNZ") d Q.Next(.Ok) m Data=Q.Data zw Data BL.Derde.Derde 1 %RegisteredObject 0 Criteria : BeginLetters of DerdeNr of Postkode ZoekType : Leeg = DerdeNaam of DerdeNr : "W" = Woonplaats : "P" = Postkode : "S" = Straat 1 Criteria:%String,ZoekType:%String,InclNonAktief:%Boolean %XML.DataSet 1 Status,Object