1 TECH.Iterator,%RegisteredObject 0 %Date 1 %Date 1 %Integer 1 %Date 1 %Integer 1 Klant:DOM.CRM.Klant,DatumVan:%Date,DatumTot:%Date 1 1 %Status %Boolean 1 -..DatumVan) ..Datum="",Final=2 Set:..Datum="" Final=1 } If ..Datum { Set ..FactProfNr=$O(^KFAP1("F",..KlantNr,..Datum,..FactProfNr)) Set:..FactProfNr'="" Final=3 } } While 'Final ]]> %CacheString