1 TECH.RegisteredObject,DOM.PARTIJ.PartijAPI right PartijID:DOM.common.PartijID DOM.PARTIJ.Partij PartijRol:DOM.PARTIJ.enu.PartijRol,PartijID:DOM.common.PartijID="" DOM.PARTIJ.Partij 1 %Integer NieuwKlantNummer:%Integer 1 99000) ; Dit zijn pseudo-testklanten, die niet aansluiten op de normale klantnummers. If ($G(^DIN("K","KL")) < NieuwKlantNummer) { Set ^DIN("K","KL") = NieuwKlantNummer } ]]> TECH.Iterator PersoonID:%String DOM.common.Persoon PersoonID:%String,Subnode:%String 1 %String KlantID:DOM.VKP.VanHoeckeKlantID,PersoonID:%String,Subnode:%String 1 %Integer