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

$par_import=0;

logAdd(log);

IfThenElse($par_import,
    $records = record\fetchMany('Account', 'id, name, lidnummers', 'name', 'asc', 'lidnummers!=', '');

    $i = 0;
    $n = array\length($records);
    logAdd(log, 'Nabewerken: ', $n, ' praktijken');
    
    while($i < $n,
          $row = array\at($records, $i);
          $account_id = array\at($row, 0);
          $account_name = array\at($row, 1);
          $lidnummers = array\at($row, 2);
          logAdd(log, $account_id, ' - ', $lidnummers);
          $i = $i + 1;
          
          $lid_nummers = string\matchAll($lidnummers, '/[0-9]+/');
          
          $j = 0;
          $m = array\length($lid_nummers);

          while($j < $m,
                $lidnummer = array\at($lid_nummers, $j);
                $contact_id = record\findOne('Contact', 'createdAt', 'asc', 'lidnummer=', $lidnummer);
                ifThenElse($contact_id, 
                           $success = record\relate('Account', $account_id, 'contacts', $contact_id);
                           ifThenElse($success,
                                  logAdd(log, 'relateren contact_id = ', $contact_id, ' voor ', $lidnummer, ' gelukt');
                                  ,
                                  logAdd(log, 'error', 'relateren contact_id = ', $contact_id, ' voor ', $lidnummer, ' niet gelukt');
                            );
                           ,
                           logAdd(log, 'error', 'lidnummer "', $lidnummer, '" niet gevonden');
                );
                $j = $j + 1;
          );
          
    );

/*
    $lid_nummers = 

    logAdd(log, 'lid_nummers = ', $lid_nummers);
    logAdd(log, 'length = ', array\length($lid_nummers));

    $i = 0;
    $n = array\length($lid_nummers);
    log('error', 'Praktijk:', 'n=', $n);
    
    while(
        $i < $n,
        $lidnummer = array\at($lid_nummers, $i);
        $lidnummer = $lidnummer + 0;
        $contact_id = record\findOne('Contact', 'createdAt', 'asc', 'lidnummer=', $lidnummer);
        ifThenElse($contact_id, 
                   logAdd(log, 'Contact: linking contact_id = ', $contact_id);
                   record\relate('Account', $accountId, 'contacts', $contact_id),
                   logAdd(log, 'lidnummer ', $lidnummer, ' niet gevonden');
           );
        $i = $i + 1;
    );
*/    
    ,
    
    logAdd(log, 'par_import = 0, de import nabewerking wordt niet uitgevoerd nu.');

);