scripts added
This commit is contained in:
@@ -0,0 +1,220 @@
|
||||
// last execution: Mon Jun 07 2021 11:33:11 GMT+0200 (Midden-Europese zomertijd)
|
||||
|
||||
$par_uitvoeren=true;
|
||||
$par_test_run_geen_mail_versturen=false;
|
||||
|
||||
//$date_par_visitatie_datum='2021-12-02';
|
||||
//$par_visitatienummer='';
|
||||
//$par_praktijk_type=list('P1', 'P2', 'P3');
|
||||
//$par_lid_id='';
|
||||
//$par_visiteur_id='';
|
||||
|
||||
//////////////////////////////////////////////////////////////////////////////////////
|
||||
// init
|
||||
//////////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
$visitatienummer = $par_visitatie_nummer;
|
||||
$visitatie_datum = $par_visitatie_datum;
|
||||
$visiteur_id = $par_visiteur_id;
|
||||
$nvkh_afzender = configGet('nvkh-afzender');
|
||||
|
||||
$visiteur = entity\get('Contact', $visiteur_id);
|
||||
|
||||
$visitatie_formulier_id = configGet('visitatie-formulier');
|
||||
|
||||
$lid_id=$par_lid_id;
|
||||
$lid = entity\get('Contact', $lid_id);
|
||||
$emailadres = attr($lid, 'emailAddress');
|
||||
|
||||
$secretariaat_email = configGet('secretariaat-email-address');
|
||||
$retouradres = $secretariaat_email;
|
||||
|
||||
$visitatie_wacht_dagen = configGet('visitatie-dagen-voor-invullen-formulier');
|
||||
$two_weeks_before_visitatiedatum = datetime\addDays($visitatie_datum, -1 * $visitatie_wacht_dagen);
|
||||
$two_weeks_before_visitatiedatum = datetime\format(
|
||||
$two_weeks_before_visitatiedatum,
|
||||
'Europe/Amsterdam', 'DD/MM/YYYY');
|
||||
|
||||
$praktijk_type = $par_praktijk_type;
|
||||
$testrun = $par_test_run_geen_mail_versturen;
|
||||
|
||||
html = '';
|
||||
|
||||
$visiteur = entity\get('Contact', $visiteur_id);
|
||||
$visiteur_name = attr($visiteur, 'name');
|
||||
|
||||
log('warning', 'visiteur:', $visiteur_name);
|
||||
log('warning', 'visitatie datum:', $visitatie_datum);
|
||||
log('warning', 'two weeks notice:', $two_weeks_before_visitatiedatum);
|
||||
log('warning', 'visitatienummer: ', $visitatienummer);
|
||||
log('warning', 'retouradres:', $retouradres);
|
||||
log('warning', 'emailadres:', $emailadres);
|
||||
log('warning', 'nvkh afzender:', $nvkh_afzender);
|
||||
log('warning', 'visitatie-formulier-id:', $visitatie_formulier_id);
|
||||
log('warning', 'praktijk soort:', $praktijk_type);
|
||||
|
||||
html = '';
|
||||
|
||||
//////////////////////////////////////////////////////////////////////////////////////
|
||||
// Visitatie formulier invullen en opsturen
|
||||
//////////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
ifThenElse($par_uitvoeren,
|
||||
|
||||
$versie = $par_visitatie_formulier_versie;
|
||||
|
||||
$dt = datetime\now();
|
||||
$dt = datetime\format($dt, 'Europe/Amsterdam', 'YYYY-MM-DD');
|
||||
|
||||
$formulier = 'visitatie-formulier';
|
||||
$formulier_id = $visitatie_formulier_id;
|
||||
|
||||
log('warning', 'visitatie vragenformulier input document : ', $formulier, ' - id : ', $formulier_id);
|
||||
|
||||
$leden = list($lid);
|
||||
|
||||
$i = 0;
|
||||
$n = array\length($leden);
|
||||
log('warning', 'gerelateerde leden: ', $n);
|
||||
|
||||
while($i < $n,
|
||||
$lid = array\at($leden, $i);
|
||||
$lid_nr = attr($lid, 'lidnummer');
|
||||
$lid_id = attr($lid, 'id');
|
||||
$achternaam = attr($lid, 'lastName');
|
||||
$voorzetsel = string\trim(attr($lid, 'middleName'));
|
||||
ifThen($voorzetsel != "",
|
||||
$achternaam = string\concatenate($voorzetsel, '-', $achternaam);
|
||||
);
|
||||
|
||||
$achternaam = string\trim($achternaam);
|
||||
$achternaam = string\replace($achternaam, ' ', '-');
|
||||
|
||||
$form_out = string\concatenate('visitatie-vragenlijst-', $achternaam, '.pdf');
|
||||
log('warning', 'visitatie vragenformulier avar document : ', $form_out);
|
||||
|
||||
log('warning', 'lid id: ', $lid_id, ' naam: ', attr($lid, 'name'), ', lidnummer:', $lid_nr);
|
||||
|
||||
$email = attr($lid, 'emailAddress');
|
||||
|
||||
$primary_account_id = record\findRelatedOne('Contact', $lid_id, 'accounts', 'name', 'asc', 'type=', $praktijk_type);
|
||||
log('warning', 'praktijk[', $praktijk_type, ']: ', $primary_account_id);
|
||||
|
||||
ifThenElse(!$primary_account_id,
|
||||
$msg = string\concatenate(attr($lid, 'name'), ' (', $lid_nr, ') voert geen praktijk van soort ', $praktijk_type);
|
||||
log('warning', $msg);
|
||||
strAdd(html, '<p style="color:red">', $msg, '</p>');
|
||||
,
|
||||
$pr = entity\get('Account', $primary_account_id);
|
||||
|
||||
log('warning', 'praktijk: ', attr($pr, 'naam'));
|
||||
|
||||
$mbkdatum = attr($lid, 'mBKDatum');
|
||||
ifThen($mbkdatum,
|
||||
$mbkdatum = datetime\format($mbkdatum, 'Europe/Amsterdam', 'DD-MM-YYYY');
|
||||
);
|
||||
|
||||
$vogdatum = attr($lid, 'datumVOG');
|
||||
ifThen($vogdatum,
|
||||
$vogdatum = datetime\format($vogdatum, 'Europe/Amsterdam', 'DD-MM-YYYY');
|
||||
);
|
||||
|
||||
$diplomadatum = attr($lid, 'vakopleidingDatumDiploma');
|
||||
ifThen($diplomadatum,
|
||||
$diplomadatum = datetime\format($diplomadatum, 'Europe/Amsterdam', 'DD-MM-YYYY');
|
||||
);
|
||||
|
||||
$visitatiedatum = '';
|
||||
ifThen($visitatie_datum,
|
||||
$visitatiedatum = datetime\format($visitatie_datum, 'Europe/Amsterdam', 'DD-MM-YYYY');
|
||||
);
|
||||
|
||||
$visitatietijdstip = '';
|
||||
ifThen($visitatie_datum,
|
||||
$visitatietijdstip = datetime\format($visitatie_datum, 'Europe/Amsterdam', 'HH:mm');
|
||||
);
|
||||
|
||||
$attach_id = ext\pdf\fillin('Contact', $lid_id, $formulier_id, $form_out,
|
||||
'naam_homeopaat', attr($lid, 'name'),
|
||||
'naam_gevisiteerde', attr($lid, 'name'),
|
||||
'AVAR_Visitatienummer', $visitatie_nummer,
|
||||
'ondertekening_naam_gevisiteerde', attr($lid, 'name'),
|
||||
'email_homeopaat', $email,
|
||||
'naam_praktijk', attr($pr, 'naam'),
|
||||
'agb_praktijk', attr($pr, 'agbcode'),
|
||||
'rbcz_nummer', attr($lid, 'rbcznummer'),
|
||||
'nvkh_nummer', attr($lid, 'lidnummer'),
|
||||
'adres_praktijk_straat', attr($pr, 'shippingAddressStreet'),
|
||||
'adres_praktijk_postcode', attr($pr, 'shippingAddressPostalCode'),
|
||||
'adres_praktijk_plaats', attr($pr, 'shippingAddressCity'),
|
||||
'agb_persoonlijk', attr($lid, 'agbcode'),
|
||||
'datum_mbk_of_big', $mbkdatum,
|
||||
'datum_vog', $vogdatum,
|
||||
'email_retouradres', $retouradres,
|
||||
'tel_prive', attr($lid, 'phoneNumber'),
|
||||
'tel_praktijk', attr($pr, 'phoneNumber'),
|
||||
'websites', attr($pr, 'website'),
|
||||
'datum_diploma_vakopleiding', $diplomadatum,
|
||||
'bijscholingsdagen_laatste_jaren', $bijscholing,
|
||||
'datum_nascholing_big', 'Nvt',
|
||||
'datum_visitatie', $visitatiedatum,
|
||||
'tijdstip_visitatie', $visitatietijdstip,
|
||||
'AVAR_Visitatienummer', $visitatienummer
|
||||
);
|
||||
log('warning', 'attachment id :', $attach_id);
|
||||
|
||||
$body = configGet('visitatie-informatie-email');
|
||||
|
||||
$scr_fnln = configGet('script-to-firstname-lastname');
|
||||
|
||||
$param_name = attr($lid, 'name');
|
||||
exec($scr_fnln);
|
||||
$lid_name = $val_fn_ln;
|
||||
|
||||
$param_name = $visiteur_name;
|
||||
exec($scr_fnln);
|
||||
$visiteur_name = $val_fn_ln;
|
||||
|
||||
$visitatie_dt = datetime\format($visitatie_datum, 'Europe/Amsterdam', 'DD/MM/YYYY');
|
||||
$body = string\replace($body, '{{visitatie-datum}}', $visitatie_dt);
|
||||
$body = string\replace($body, '{{visitatie-tijdstip}}', $visitatietijdstip);
|
||||
$body = string\replace($body, '{{visitatie-nummer}}', $visitatienummer);
|
||||
$body = string\replace($body, '{{nvkh-afzender}}', $nvkh_afzender);
|
||||
$body = string\replace($body, '{{visiteur}}', $visiteur_name);
|
||||
$body = string\replace($body, '{{wacht-dagen}}', string\concatenate('', $visitatie_wacht_dagen));
|
||||
$body = string\replace($body, '{{retourdatum}}', $two_weeks_before_visitatiedatum);
|
||||
$body = string\replace($body, '{{secretariaat-adres}}', $secretariaat_email);
|
||||
$body = string\replace($body, '{{lid-naam}}', $lid_name);
|
||||
$body = ext\htmlize($body, 'Contact', attr($lid, 'id'));
|
||||
|
||||
$userId = env\userAttribute('id');
|
||||
|
||||
$subject = 'Visitatieformulier voor visitatie d.d. {{datum}}';
|
||||
$subject = string\replace($subject, '{{datum}}', $visitatie_dt);
|
||||
|
||||
|
||||
ifThenElse($testrun,
|
||||
log('warning', 'Dit is een testrun, er wordt geen email verstuurd');
|
||||
,
|
||||
$emailId = record\create('Email',
|
||||
'subject', $subject,
|
||||
'body', $body,
|
||||
'to', $emailadres,
|
||||
'attachmentsIds', list($attach_id),
|
||||
'assignedUser', $userId,
|
||||
'isUser', true,
|
||||
'parentType', 'Contact',
|
||||
'parentId', $lid_id
|
||||
);
|
||||
ext\email\send($emailId);
|
||||
);
|
||||
|
||||
);
|
||||
|
||||
$i = $i + 1;
|
||||
);
|
||||
|
||||
,
|
||||
log('warning', 'Vink uitvoeren aan om dit script uit te voeren');
|
||||
);
|
||||
|
||||
Reference in New Issue
Block a user