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,72 @@
+// last execution: Tue Jun 09 2020 13:51:49 GMT+0200 (Midden-Europese zomertijd)
+
+$par_import=0;
+
+logAdd(log);
+
+IfThenElse($par_import,
+    $records = record\fetchMany('Account', 'id, name, lidnummers', 'name', 'asc', 'lidnummers!=', '');
+
+    $i = 0;
+    $n = array\length($records);
+    logAdd(log, 'Nabewerken: ', $n, ' praktijken');
+    
+    while($i < $n,
+          $row = array\at($records, $i);
+          $account_id = array\at($row, 0);
+          $account_name = array\at($row, 1);
+          $lidnummers = array\at($row, 2);
+          logAdd(log, $account_id, ' - ', $lidnummers);
+          $i = $i + 1;
+          
+          $lid_nummers = string\matchAll($lidnummers, '/[0-9]+/');
+          
+          $j = 0;
+          $m = array\length($lid_nummers);
+
+          while($j < $m,
+                $lidnummer = array\at($lid_nummers, $j);
+                $contact_id = record\findOne('Contact', 'createdAt', 'asc', 'lidnummer=', $lidnummer);
+                ifThenElse($contact_id, 
+                           $success = record\relate('Account', $account_id, 'contacts', $contact_id);
+                           ifThenElse($success,
+                                  logAdd(log, 'relateren contact_id = ', $contact_id, ' voor ', $lidnummer, ' gelukt');
+                                  ,
+                                  logAdd(log, 'error', 'relateren contact_id = ', $contact_id, ' voor ', $lidnummer, ' niet gelukt');
+                            );
+                           ,
+                           logAdd(log, 'error', 'lidnummer "', $lidnummer, '" niet gevonden');
+                );
+                $j = $j + 1;
+          );
+          
+    );
+
+/*
+    $lid_nummers = 
+
+    logAdd(log, 'lid_nummers = ', $lid_nummers);
+    logAdd(log, 'length = ', array\length($lid_nummers));
+
+    $i = 0;
+    $n = array\length($lid_nummers);
+    log('error', 'Praktijk:', 'n=', $n);
+    
+    while(
+        $i < $n,
+        $lidnummer = array\at($lid_nummers, $i);
+        $lidnummer = $lidnummer + 0;
+        $contact_id = record\findOne('Contact', 'createdAt', 'asc', 'lidnummer=', $lidnummer);
+        ifThenElse($contact_id, 
+                   logAdd(log, 'Contact: linking contact_id = ', $contact_id);
+                   record\relate('Account', $accountId, 'contacts', $contact_id),
+                   logAdd(log, 'lidnummer ', $lidnummer, ' niet gevonden');
+           );
+        $i = $i + 1;
+    );
+*/    
+    ,
+    
+    logAdd(log, 'par_import = 0, de import nabewerking wordt niet uitgevoerd nu.');
+
+);