no

2026-08-28 12:27:35 +02:00
parent bfeff94be7
commit 45e62fda5f
178 changed files with 10 additions and 7257 deletions
@@ -1,125 +0,0 @@
-//  last execution: Tue Jul 14 2026 08:49:16 GMT+0200 (Midden-Europese zomertijd)
-
-$par_nascholingsjaar=2025;
-$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 en ex-leden: ', $n);
-$n_onvoldoende = 0;
-
-while($i < $n,
-    $lid = array\at($leden, $i);
-    $r_code = toInt(string\substring(hash\get($lid, 'regiocode'), 0, 2));
-
-    //ifThen($r_code < 30 && $r_code != 8,
-    ifThen($r_code < 30,
-        $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;