73 lines
2.5 KiB
JavaScript
73 lines
2.5 KiB
JavaScript
// 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.');
|
|
|
|
);
|