scripts added
This commit is contained in:
@@ -0,0 +1,51 @@
|
||||
// last execution: Sat Jan 16 2021 17:25:13 GMT+0100 (Midden-Europese standaardtijd)
|
||||
|
||||
logAdd(log);
|
||||
|
||||
$nascholingen = record\fetchManyHash('Nascholing', 'id, name, dateStart, dateEnd', 'name', 'asc');
|
||||
|
||||
$i = 0;
|
||||
$n = array\length($nascholingen);
|
||||
logAdd(log, 'info', '#Nasscholingen: ', $n);
|
||||
//$n = 1;
|
||||
|
||||
$userid = env\userAttribute('id');
|
||||
|
||||
while($i < $n,
|
||||
$row = array\at($nascholingen, $i);
|
||||
$name = hash\Get($row, 'name');
|
||||
$id = hash\Get($row, 'id');
|
||||
|
||||
$dateStart = hash\Get($row, 'dateStart');
|
||||
$dateEnd = hash\Get($row, 'dateEnd');
|
||||
|
||||
$data = record\fetchRelatedManyHash('Nascholing', $id, 'nascholingsDatums', 'id', 'name', 'asc');
|
||||
$ndata = array\length($data);
|
||||
|
||||
$info = 'info';
|
||||
ifThen($ndata > 1, $info = 'warning');
|
||||
logAdd(log, $info, 'Nascholing: ', $name, ' - ', $ndata, ' datums geregistreerd');
|
||||
|
||||
ifThen($ndata == 0,
|
||||
$days = datetime\diff($dateEnd, $dateStart, 'days') + 1;
|
||||
$info = 'info';
|
||||
ifThen($days > 1, $info='warning');
|
||||
logAdd(log, $info, 'Aantal dagen: ', $days);
|
||||
|
||||
$endtime = datetime\format($dateEnd, 'UTC', 'HH:mm:ss');
|
||||
|
||||
logAdd(log, $info, 'einde dag:', $endtime);
|
||||
|
||||
$dt = $dateStart;
|
||||
$dte = string\concatenate(datetime\format($dt, 'europe/amsterdam', 'YYYY-MM-DD'), ' ', $endtime);
|
||||
|
||||
$id = record\create('NascholingsDatum',
|
||||
'dagStart', $dt, 'dagEinde', $dte,
|
||||
'nascholingId', $id,
|
||||
'assignedUserId', $userid
|
||||
);
|
||||
);
|
||||
|
||||
$i = $i + 1;
|
||||
);
|
||||
|
||||
Reference in New Issue
Block a user