//  last execution: Wed Sep 21 2022 11:13:38 GMT+0200 (Midden-Europese zomertijd)

$par_VOG_aantal_jaren_geldig=6;
$par_Alleen_ongeldige_VOGs_rapporteren=true;
$par_Leden_openen_in_tab=false;
$par_Aantal_regels_per_pagina=13;

html = '';
logAdd(log);

$p_page_len = $par_Aantal_regels_per_pagina;
$in_tab = $par_Leden_openen_in_tab;

$p_years= $par_VOG_aantal_jaren_geldig;
$c_year = datetime\year(datetime\today());
$limit_year = $c_year - $p_years;

$alleen_geldig = $par_Alleen_ongeldige_VOGs_rapporteren;

$entities = record\fetchManyHash('Contact', 
                                 'id, firstName, lastName, middleName, regiocode, datumVOG, emailAddress', 
                                 'lastName', 'asc'
                                );

$n = array\length($entities);
logAdd(log, 'Aantal te beoordelen (ex)leden: ', $n);

$aantal_met_lege_VOG = 0;
$aantal_met_verlopen_VOG = 0;
$aantal_met_geldige_VOG = 0;
$aantal_regio_ok = 0;

$h = '';

strAdd($h, '<div class="nvkhresult">');

$table = table\new('Voornaam', 10,
                   'Achternaam', 20, 'asc', 
                   'Regiocode', 5, 'center', 
                   'Laatste VOG Datum', 15, 'center', 
                   'Nieuwe VOG Nodig', 10, 'center', 
                   'eMail', 15, 'ellipsis'
                  );
table\rowsPerPage($table, $p_page_len);

$i = 0;
while($i < $n,
      $e = array\at($entities, $i);
 
      $regiocode = hash\get($e, 'regiocode');
      $id = hash\get($e, 'id');
      $regiocode_nr = string\substring($regiocode, 0, 2) + 0;
      $meenemen = $regiocode_nr < 30;
      
      $achternaam = hash\get($e, 'lastName');
      $voorvoegsel = hash\get($e, 'middleName');
      $voornaam = hash\get($e, 'firstName');

      ifThen($meenemen,
          $aantal_regio_ok = $aantal_regio_ok + 1;
          $vog_datum = hash\get($e, 'datumVOG');
          
          ifThenElse($vog_datum == null,
                  $vog_nodig = 'ja';
                  $aantal_met_lege_VOG = $aantal_met_lege_VOG + 1;
                  ,
                  $y = datetime\year($vog_datum);
                  ifThenElse($y < $limit_year,
                        $vog_nodig = 'ja';
                        $aantal_met_verlopen_VOG = $aantal_met_verlopen_VOG + 1;
                        ,
                        $vog_nodig = 'nee';
                        $aantal_met_geldige_VOG = $aantal_met_geldige_VOG + 1;
                  );
          );
          
          $td = '<td>';
          $report = true;
          
          ifThen($vog_nodig == 'nee', $report = !$alleen_geldig;);

          ifThen($report,
              $email = hash\get($e, 'emailAddress');
              
              strAdd($h, '<tr>');
              ifThenElse($in_tab,
                  $target = 'target="_blank"';
                  ,
                  $target = "";
              );
              
              ifThen($voorvoegsel,
                strAdd($achternaam, ', ', $voorvoegsel);
              );
              
              table\add($table, 
                        $voornaam, 
                        table\link(string\concatenate('/#Contact/view/', $id), $achternaam),
                        $regiocode,
                        $vog_datum,
                        $vog_nodig,
                        $email
                        );
          );
      );

      $i = $i + 1;
);

strAdd($h, table\toHtml($table));
strAdd($h, '</div>');

html=$h;

logAdd(log, 'info', 'Totaal aantal leden met regiocode < 30: ', $aantal_regio_ok);
logAdd(log, 'info', 'Aantal leden zonder VOG datum: ', $aantal_met_lege_VOG);
logAdd(log, 'info', 'Aantal leden met verlopen VOG ', $p_years, ' jaar geleden: ', $aantal_met_verlopen_VOG);
logAdd(log, 'info', 'Aantal leden met geldige VOG: ', $aantal_met_geldige_VOG);