hans/CRM_Scripts_NVKH
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

scripts in de database

Browse Source
This commit is contained in:
Hans Dijkema
2026-08-28 12:17:50 +02:00
parent 51187f8537
commit 2f92328461
179 changed files with 7344 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
code-current/configs/script-praktijken-koppelen-aan-portal-user.js
+45
View File
@@ -0,0 +1,45 @@
$pk_related_accounts = Hash\New();
$pk_related_to_portal_user = record\fetchRelatedManyHash('User', $user_id, 'accounts', 'id', 'id', 'asc');
$pk_m = array\length($pk_related_to_portal_user);
$pk_j = 0;
while($pk_j < $pk_m,
$pk_row = array\at($pk_related_to_portal_user, $pk_j);
$pk_account_id = hash\get($pk_row, 'id');
$pk_related_accounts = Hash\Set($pk_related_accounts, $pk_account_id, 'del');
$pk_j = $pk_j + 1;
);
$pk_related_to_contact = record\fetchRelatedManyHash('Contact', $contact_id, 'accounts', 'id', 'id', 'asc');
$pk_m = array\length($pk_related_to_contact);
$pk_j = 0;
while($pk_j < $pk_m,
$pk_row = array\at($pk_related_to_contact, $pk_j);
$pk_account_id = hash\get($pk_row, 'id');
ifThenElse(Hash\IsSet($pk_related_accounts, $pk_account_id),
$pk_related_accounts = Hash\Set($pk_related_accounts, $pk_account_id, 'exist');
,
$pk_related_accounts = Hash\Set($pk_related_accounts, $pk_account_id, 'new');
);
$pk_j = $pk_j + 1;
);
$pk_keys = Hash\Keys($pk_related_accounts);
$pk_m = array\length($pk_keys);
$pk_j = 0;
while($pk_j < $pk_m,
$pk_key = array\at($pk_keys, $pk_j);
$pk_val = Hash\Get($pk_related_accounts, $pk_key);
logAdd(log, 'info', $i, ': ', $pk_key, '=', Hash\Get($pk_related_accounts, $pk_key));
ifThenElse($pk_val == 'del',
record\unrelate('User', $user_id, 'accounts', $pk_key);
logAdd(log, 'info', 'Unrelated ', $pk_key, ' from ', $username);
,
ifThen($pk_val == 'new',
record\relate('User', $user_id, 'accounts', $pk_key);
logAdd(log, 'info', 'related ', $pk_key, ' to ', $username);
);
);
$pk_j = $pk_j + 1;
);