scripts in de database

2026-08-28 12:17:50 +02:00
parent 51187f8537
commit 2f92328461
179 changed files with 7344 additions and 0 deletions
@@ -0,0 +1,66 @@
+// last execution: 2026-08-27 23:00:01
+/////////////////////////////////////////////////////////////////////////////////////////////
+// Script start
+/////////////////////////////////////////////////////////////////////////////////////////////
+
+log('warning', 'Executing ', name);
+logAdd(log);
+
+/////////////////////////////////////////////////////////////////////////////////////////////
+// Nascholingsnorm inlezen
+/////////////////////////////////////////////////////////////////////////////////////////////
+
+ifThen(!global\isset('nascholingsnorm-hash'),
+    $na_script = configGet('script-lees-nascholingsnorm-hash');
+    Exec($na_script);
+);
+$na_norm = global\get('nascholingsnorm-hash');
+
+/////////////////////////////////////////////////////////////////////////////////////////////
+// Bepalen jaar en nascholingsnorm en creeren records bij leden die dat nodig hebben
+/////////////////////////////////////////////////////////////////////////////////////////////
+
+$jaar = datetime\year(datetime\now());
+//$jaar=2018;
+
+ifThenElse(!hash\isSet($na_norm, $jaar),
+    logAdd(log, 'error', 'Er is geen normering vastgelegd voor jaar ', $jaar, '!');
+    ,
+    $norm_id = hash\get(hash\get($na_norm, $jaar), 'id');
+    
+    logAdd(log, 'info', 'Jaar: ', $jaar);
+    logAdd(log, 'info', 'Nascholingsnorm id:', $norm_id);
+    logAdd(log, 'info', 'Nascholingsnorm jaar: ', hash\get(hash\get($na_norm, $jaar), 'jaar'));
+    
+    $rows = record\FetchManyHash('Contact', 'id, name, regiocode', 'name', 'asc');
+    $n = array\length($rows);
+    $i = 0;
+    $aantal = 0;
+    $aantal_zonder = 0;
+    
+    while($i < $n,
+        $row = array\at($rows, $i);
+        $regiocode = hash\get($row, 'regiocode') + 0;
+        ifThen($regiocode < 30,
+            $aantal = $aantal + 1;
+            $contact_id = hash\get($row, 'id');
+            $cnt = record\count('Nascholingstotaal', 'jaar=', $jaar, 'contactId=', $contact_id);
+            ifThen($cnt == 0,
+                $name = hash\get($row, 'name');
+                //logAdd(log, 'info', 'Contact: ', $name, ' #Nascholingstotaaal voor ', $jaar, ': ', $cnt);
+                $aantal_zonder = $aantal_zonder + 1;
+                record\create('Nascholingstotaal', 'jaar', $jaar, 
+                              'contactId', $contact_id, 
+                              'nascholingsnormId', $norm_id,
+                              'handmatig', false
+                             );
+            );
+        );
+        $i = $i + 1;
+    );
+);
+
+logAdd(log, 'info', 'jaar: ', $jaar);
+logAdd(log, 'info', '#Aantal leden met regiocode < 30: ', $aantal);
+logAdd(log, 'info', '#Aantal leden met regiocode < 30 zonder nascholingstotaal voor gegeven jaar : ', $aantal_zonder);
+logAdd(log, 'info', $aantal_zonder, ' aangemaakte nascholingstotalen.');