Huidige scripts in de NVKH database en beschrijvingen.

2026-08-28 11:09:50 +02:00
parent 890fe546c8
commit 6326a0c8e1
39 changed files with 9686 additions and 0 deletions
@@ -0,0 +1,124 @@
+//  last execution: Mon Nov 06 2023 10:21:31 GMT+0100 (Midden-Europese standaardtijd)
+
+$par_nascholingsjaar=2021;
+$par_open_lid_in_nieuwe_tab=true;
+$par_aantal_rijen_op_een_pagina=21;
+
+$p_page_len = $par_aantal_rijen_op_een_pagina;
+
+logAdd(log);
+
+html = '';
+$h = '';
+
+logAdd(log, "Controle nascholingsvereisten voor jaar ", $par_nascholingsjaar);
+$leden = Record\FetchManyHash('Contact',
+                              'id, firstName, middleName, lastName, name, emailAddress, regiocode, dispensatie, lidnummer, datumRegistratie',
+                              'lastName', 'asc'
+                              );
+
+strAdd($h, '<div class="nvkhresult">');
+$table = table\new('Voornaam', 26,
+                   'Achternaam', 26, 'asc',
+                   'email', 26,
+                   'Lidnummer', 7, 'center',
+                   'Dispensatie', 7, 'center',
+                   'Regiocode', 8, 'center'
+                  );
+
+table\rowsPerPage($table, $p_page_len);
+table\filename($table, string\concatenate($par_nascholingsjaar, '  - leden met te weinig nascholing'));
+
+$i = 0;
+$n = array\length($leden);
+
+logAdd(log, 'leden:', $n);
+$n_onvoldoende = 0;
+
+while($i < $n,
+    $lid = array\at($leden, $i);
+    $r_code = string\substring(hash\get($lid, 'regiocode'), 0, 2) + 0;
+
+    ifThen($r_code < 30 && $r_code != 8,
+        $rapport = true;
+        $contact_id = hash\get($lid, 'id');
+        $email = hash\get($lid, 'emailAddress');
+        $dispensatie = hash\get($lid, 'dispensatie');
+        $lidnummer = hash\get($lid, 'lidnummer');
+        $naam = hash\get($lid, 'name');
+        $regdat = hash\get($lid, 'datumRegistratie');
+        $reg_jaar = datetime\year($regdat);
+
+        $contact = Entity\Get('Contact', $contact_id);
+        $nascholingstotalen = Entity\GetRelated($contact, 'nascholingstotalen', 1, 'jaar', 'asc', 'jaar=', $par_nascholingsjaar);
+        $m = array\length($nascholingstotalen);
+
+        ifThenElse($m == 0, $heeft_nt = 'nee', ifThenElse($m > 1, $heeft_nt = 'teveel', $heeft_nt = 'ja'));
+        ifThen($m > 0, $nascholingstotalen = array\at($nascholingstotalen, 0));
+        ifThen($m == 0 && $par_nascholingsjaar < $reg_jaar, $rapport = false; $reden = 'gevraagde jaar ligt voor registratie jaar');
+
+        ifThenElse($m == 0,
+            $hom_surplus = 'nvt';
+            $med_surplus = 'nvt';
+            $surplus = 'nvt';
+            $hom_lt = false;
+            $med_lt = false;
+            $lt = false;
+            $onvoldoende = true;
+            ifThen($rapport, $reden = 'voor het gevraagde jaar geen nascholingstotaal aanwezig!');
+        ,
+            $status = attr($nascholingstotalen, 'status');
+
+            ifThenElse($status == 'voldoet-niet' || $status == 'voldoet-niet-na-saldering', $onvoldoende = true, $onvoldoende = false);
+            ifThenElse($onvoldoende, $reden = 'onvoldoende nascholing', $reden = 'voldoende nascholing');
+        );
+
+        ifThenElse($rapport && $onvoldoende, $opnemen = 'opnemen in rapport', $opnemen = 'niet opnemen');
+
+        ifThenElse($rapport && $onvoldoende,
+            logAdd(log, 'warning', $opnemen, ' - lid: ', $naam, ' email: ', $email, ' registratiejaar: ', $reg_jaar, ' - ', $reden);
+        ,
+            logAdd(log, 'info', $opnemen, ' - lid: ', $naam, ' email: ', $email, ' registratiejaar: ', $reg_jaar, ' - ', $reden);
+        );
+
+        ifThen($rapport,
+            ifThen($onvoldoende,
+                $n_onvoldoende = $n_onvoldoende + 1;
+                $naam = hash\get($lid, 'name');
+                $lastname = hash\get($lid, 'lastName');
+                $middlename = hash\get($lid, 'middleName');
+                $firstname = hash\get($lid, 'firstName');
+                $lastname = string\concatenate($lastname, ', ', $middlename);
+                $regiocode = hash\get($lid, 'regiocode');
+                ifThenElse($dispensatie, $dispensatie = 'Ja', $dispensatie = '-');
+
+                strAdd($h, '<tr>');
+                $td = '<td>';
+                ifThenElse($par_open_lid_in_nieuwe_tab, $target = 'target="_blank"', $target = "");
+
+                table\add($table,
+                         table\link(string\concatenate('/#Contact/view/', $contact_id), $firstname),
+                         table\link(string\concatenate('/#Contact/view/', $contact_id), $lastname),
+                         table\link(string\concatenate('mailto:', $email), $email),
+                         string\concatenate(' ', $lidnummer),
+                         $dispensatie,
+                         string\concatenate(' ', $regiocode)
+                         );
+            ); // $onvoldoende
+        ); // $rapport
+    );
+    $i = $i + 1
+);
+
+$table_html = table\toHtml($table);
+$table_html = string\replace($table_html, 'title="%RED%', 'title="');
+$table_html = string\replace($table_html, '%END"', '"');
+$table_html = string\replace(string\replace($table_html, '%RED%', '<span style="color:red;">'), '%END%', '</span>');
+
+strAdd($h, '<h1>', 'Leden met <b>onvoldoende</b> nascholing voor jaar ', toString($par_nascholingsjaar), ': ', $n_onvoldoende, '</h1>');
+strAdd($h, $table_html);
+strAdd($h, '</div>');
+
+logAdd(log, 'info', 'leden met onvoldoende nascholing voor jaar ', $par_nascholingsjaar, ': ', $n_onvoldoende);
+
+html=$h;