//  last execution: Mon Dec 19 2022 11:27:47 GMT+0100 (Midden-Europese standaardtijd)

// Init

logAdd(log);

// Itereer over alle visitatie records met status 'te visiteren'

logAdd(log, 'info', 'Verwijderen records uit doellijst "Te visiteren leden"');

$targetlist_id = record\findOne('TargetList', 'createdAt', 'desc', 'name=', 'Te visiteren leden');
ifThenElse($targetlist_id,
    $contact_ids = record\findRelatedMany('TargetList', $targetlist_id, 'contacts', 10000);
    $i = 0;
    $n = array\length($contact_ids);
    logAdd(log, 'info', 'Verwijderen leden uit de distributielijst: ', $n, ' leden');
    while($i < $n,
        $contact_id = array\at($contact_ids, $i);
        record\unrelate('TargetList', $targetlist_id, 'contacts', $contact_id);
        $i = $i + 1;
    );
    
    logAdd(log, 'info', 'Opvoeren leden in doellijst "Te visiteren leden"');
    
    $recs = Record\FetchManyHash('Visitatie', 'id, contactId, lidnummer', 'lidnummer', 'asc', 'resultaat', '-');
    $i = 0;
    $n = array\length($recs);

    logAdd(log, 'info', 'Visitatierecords met status "te visiteren": ', $n);

    while($i < $n,
       $item = array\at($recs, $i);
       $lidnummer = hash\get($item, 'lidnummer');
       $contactId = hash\get($item, 'contactId');
       logAdd(log, 'info', 'lidnummer: ', $lidnummer);
       record\relate('TargetList', $targetlist_id, 'contacts', $contactId);
       $i = $i + 1;
    );
,
   logAdd(log, 'error', 'Geen distributielijst gevonden met naam "Te visiteren leden"');
);