// last execution: Tue Jun 09 2020 13:51:55 GMT+0200 (Midden-Europese zomertijd)

$par_import=0;

logAdd(log);
ifThenElse($par_import == 1,
    logAdd(log, 'Bezig de visitaties te koppelen aan de leden');
    
    $records = record\fetchMany('Visitatie', 'id, lidnummer, name', 'lidnummer', 'asc');
    $n = array\length($records);
    logAdd(log, $n, ' visitaties ingelezen');
    
    $i = 0;
    while($i < $n,
       $row = array\at($records, $i);
       $lidnummer = array\at($row, 1);
       $visitatie_id = array\at($row, 0);
       $datum = array\at($row, 2);
       $contact_id = record\findOne('Contact', 'createdAt', 'asc', 'lidnummer=', $lidnummer);
       ifThenElse($contact_id, 
            $success = record\relate('Visitatie', $visitatie_id, 'lid', $contact_id);
            ifThenElse($success,
                       logAdd(log, 'relateren contact_id = ', $contact_id, ' voor ', $lidnummer, ' gelukt, met datum ', $datum);
                       ,
                       logAdd(log, 'error', 
                              'relateren contact_id = ', $contact_id, ' voor ', $lidnummer, ' met datum ', $datum, 'niet gelukt'
                              );
            );
            ,
            logAdd(log, 'error', 'lidnummer "', $lidnummer, '" niet gevonden');
       );
       $i = $i + 1;
    );
    ,
    logAdd(log, 'Zet import op 1 om de visitatie nabewerking uit te voeren');
);