41 lines
1.5 KiB
JavaScript
41 lines
1.5 KiB
JavaScript
// 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"');
|
|
); |