scripts added
This commit is contained in:
@@ -0,0 +1,180 @@
|
||||
// last execution: 2026-08-25 07:00:02
|
||||
logAdd(log);
|
||||
html = '';
|
||||
|
||||
$dagen_limiet = configGet('visitatie-dagen-voor-invullen-formulier');
|
||||
logAdd(log, 'info', "Dagen limiet voor invullen formulier: ", $dagen_limiet);
|
||||
|
||||
// Check de huidige gevisiteerden die nog geen formulier hebben teruggestuurd
|
||||
|
||||
$wacht_op_formulier = Entity\GetMany('Visitatie', 10000, 'lidnummer', 'asc',
|
||||
'resultaat=', 'VP'
|
||||
);
|
||||
|
||||
$i = 0;
|
||||
$n = array\length($wacht_op_formulier);
|
||||
|
||||
$n_wacht_op_formulier = $n;
|
||||
logAdd(log, 'info', $n_wacht_op_formulier, ' - visitaties uitstaan die op formulier wachten');
|
||||
|
||||
$formulier_te_laat = "";
|
||||
$f_count = 0;
|
||||
|
||||
while($i < $n,
|
||||
$v = array\at($wacht_op_formulier, $i);
|
||||
$datum = attr($v, 'visitatiedatum');
|
||||
$datum_limiet = datetime\addDays(datetime\now(), $dagen_limiet);
|
||||
ifThen($datum < $datum_limiet,
|
||||
$rec_id = attr($v, 'id');
|
||||
$contact_id = attr($v, 'contactId');
|
||||
$lidnr = attr($v, 'lidnummer');
|
||||
|
||||
ifThenElse($contact_id,
|
||||
logAdd(log, 'info', 'Visitatie record: ', $rec_id, ', voor lid: ', $lidnr);
|
||||
$lid = entity\get('Contact', $contact_id);
|
||||
$visiteur = entity\get('Contact', attr($v, 'visiteurId'));
|
||||
$lid_name = attr($lid, 'name');
|
||||
$lid_email = attr($lid, 'emailAddress');
|
||||
$lid_phone = attr($lid, 'phoneNumber');
|
||||
$v_name = attr($visiteur, 'name');
|
||||
$v_email = attr($visiteur, 'emailAddress');
|
||||
|
||||
$days = datetime\diff($datum_limiet, $datum, 'days');
|
||||
|
||||
$row = string\concatenate("<li>",
|
||||
'lid: <a href="mailto:', $lid_email, '" >', $lid_name, '</a>',
|
||||
', tel: ', $lid_phone,
|
||||
', dagen te laat: ', $days,
|
||||
', visiteur: <a href="mailto:', $v_email, '" >', $v_name, '</a>, ',
|
||||
', zie lid <a href="/#Contact/view/', $contact_id, '">', $lidnr, '</a> of ',
|
||||
', <a href="/#Visitatie/view/',$rec_id, '">visitatie record</a>',
|
||||
'</li>', "\n"
|
||||
);
|
||||
|
||||
strAdd($formulier_te_laat, $row);
|
||||
$f_count = $f_count + 1;
|
||||
,
|
||||
$row = string\concatenate("<li>",
|
||||
"<span style=\"color: red;\">Visitatie record heeft geen gekoppeld lid, corrigeer of verwijder dit ",
|
||||
"<b><a style=\"color: red;\"> href=\"/#Visitatie/view/", $rec_id, "\">visitatie record</a></b>.</span>",
|
||||
"</li>"
|
||||
);
|
||||
strAdd($formulier_te_laat, $row);
|
||||
logAdd(log, 'warning', 'Visitatie record: ', $rec_id, ', met lidnummer: ', $lidnr, ', er is geen gekoppeld lid gevonden');
|
||||
);
|
||||
);
|
||||
|
||||
$i = $i + 1;
|
||||
);
|
||||
|
||||
// Proces stokt
|
||||
|
||||
$limiet_visitatie = configGet('visitatie-dagen-voor-visitatieproces');
|
||||
logAdd(log, 'info', "Dagen limiet voor visitatieproces: ", $limiet_visitatie);
|
||||
|
||||
$proces_stokt = "";
|
||||
$p_count = 0;
|
||||
|
||||
$wacht_op_proces = Entity\GetMany('Visitatie', 10000, 'lidnummer', 'asc',
|
||||
'resultaat=', 'FRVG'
|
||||
);
|
||||
|
||||
$i = 0;
|
||||
$n = array\length($wacht_op_proces);
|
||||
|
||||
$n_wacht_op_proces = $n;
|
||||
logAdd(log, 'info', $n_wacht_op_proces, ' - visitaties uitstaan die op visitatieproces wachten');
|
||||
|
||||
while($i < $n,
|
||||
$v = array\at($wacht_op_proces, $i);
|
||||
$datum = attr($v, 'visitatiedatum');
|
||||
$datum_limiet = datetime\addDays(datetime\now(), -1 * $limiet_visitatie);
|
||||
ifThen($datum < $datum_limiet,
|
||||
$contact_id = attr($v, 'contactId');
|
||||
$rec_id = attr($v, 'id');
|
||||
$lidnr = attr($v, 'lidnummer');
|
||||
|
||||
ifThenElse($contact_id,
|
||||
logAdd(log, 'info', 'Visitatie record: ', $rec_id, ', voor lid: ', $lidnr);
|
||||
$lid = entity\get('Contact', $contact_id);
|
||||
$visiteur = entity\get('Contact', attr($v, 'visiteurId'));
|
||||
$lid_name = attr($lid, 'name');
|
||||
$lid_email = attr($lid, 'emailAddress');
|
||||
$lid_phone = attr($lid, 'phoneNumber');
|
||||
$v_name = attr($visiteur, 'name');
|
||||
$v_email = attr($visiteur, 'emailAddress');
|
||||
|
||||
$days = datetime\diff($datum_limiet, $datum, 'days');
|
||||
|
||||
$row = string\concatenate("<li>",
|
||||
'lid: <a href="mailto:', $lid_email, '" >', $lid_name, '</a>',
|
||||
', tel: ', $lid_phone,
|
||||
', dagen te laat: ', $days,
|
||||
', visiteur: <a href="mailto:', $v_email, '" >', $v_name, '</a>',
|
||||
', zie lid <a href="/#Contact/view/', $contact_id, '">', $lidnr, '</a> of ',
|
||||
', <a href="/#Visitatie/view/',$rec_id, '">visitatie record</a>',
|
||||
'</li>', "\n"
|
||||
);
|
||||
|
||||
strAdd($proces_stokt, $row);
|
||||
|
||||
$p_count = $p_count + 1;
|
||||
,
|
||||
$row = string\concatenate("<li>",
|
||||
"<span style=\"color: red;\">Visitatie record heeft geen gekoppeld lid, corrigeer of verwijder dit ",
|
||||
"<a href=\"/#Visitatie/view/", $rec_id, "\">visitatie record</a>.</span>",
|
||||
"</li>"
|
||||
);
|
||||
strAdd($proces_stokt, $row);
|
||||
logAdd(log, 'warning', 'Visitatie record: ', $rec_id, ', met lidnummer: ', $lidnr, ', er is geen gekoppeld lid gevonden');
|
||||
);
|
||||
);
|
||||
|
||||
$i = $i + 1;
|
||||
);
|
||||
|
||||
|
||||
// Verstuur de email
|
||||
|
||||
logAdd(log, 'info', 'Formulieren te laat: ', $f_count);
|
||||
logAdd(log, 'info', 'Proces stokt: ', $p_count);
|
||||
|
||||
$t_count = $p_count + $f_count;
|
||||
|
||||
ifThenElse($t_count > 0,
|
||||
$me = entity\this();
|
||||
$email = attr($me, 'emailTemplate');
|
||||
|
||||
ifThenElse($f_count ==0,
|
||||
$formulier_te_laat = '<ul><li>Geen.</li></ul>';
|
||||
,
|
||||
$formulier_te_laat = string\concatenate('<ul>', $formulier_te_laat, '</ul>');
|
||||
);
|
||||
$email = string\replace($email, '{{visitatieformulier-te-laat}}', $formulier_te_laat);
|
||||
|
||||
ifThenElse($p_count ==0,
|
||||
$proces_stokt = '<ul><li>Geen.</li></ul>';
|
||||
,
|
||||
$proces_stokt = string\concatenate('<ul>', $proces_stokt, '</ul>');
|
||||
);
|
||||
$email = string\replace($email, '{{visitatie-proces-stokt}}', $proces_stokt);
|
||||
|
||||
$userId = env\userAttribute('id');
|
||||
|
||||
$emailadres = configGet('secretariaat-email-address');
|
||||
|
||||
$emailId = record\create('Email',
|
||||
'subject', 'Rapportage Vertragingen Visitatieproces',
|
||||
'body', $email,
|
||||
'to', $emailadres,
|
||||
'assignedUser', $userId,
|
||||
'isUser', true,
|
||||
'parentType', 'User',
|
||||
'parentId', $userId
|
||||
);
|
||||
ext\email\send($emailId);
|
||||
|
||||
logAdd(log, 'info', 'eMail verstuurd naar ', $emailadres);
|
||||
,
|
||||
logAdd(log, 'info', 'Geen vertragingen in het visitatieproces');
|
||||
);
|
||||
Reference in New Issue
Block a user