//  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;