// 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.');