scripts added

2026-08-28 12:28:39 +02:00
parent 45e62fda5f
commit c30efbc8d9
237 changed files with 7310 additions and 1 deletions
@@ -0,0 +1,41 @@
+//  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"');
+);