scripts added

2026-08-28 12:28:39 +02:00
parent 45e62fda5f
commit c30efbc8d9
237 changed files with 7310 additions and 1 deletions
@@ -0,0 +1,139 @@
+//  last execution: Thu Sep 21 2023 13:14:37 GMT+0200 (Midden-Europese zomertijd)
+
+$contact_ids = Record\FindMany('Contact', 'lidnummer', 'asc', 'lidnummer=', 1649);
+//$contact_ids = array\push($contact_ids, array\at($monique, 0));
+//$hans = Record\FindMany('Contact', 'lidnummer', 'asc', 'lidnummer=', 1935);
+//$contact_ids = array\push($contact_ids, array\at($hans, 0));
+
+$grens_jaar = configGet('berekening-methode-1-tot-en-met');
+
+$n = array\length($contact_ids);
+$i = 0;
+
+logAdd(log);
+logAdd(log, 'hi!');
+logAdd(log, 'info', 'Contacts found: ', $n);
+
+while($i < $n,
+  $contact_id = array\at($contact_ids, $i);
+  $contact = Entity\Get('Contact', $contact_id);
+  $i = $i + 1;
+
+  $in_calc_key = string\concatenate('nascholingstotalen-in-berekening-voor', $contact_id);
+  global\set('nascholingstotalen-niet-herberekenen', true);
+  global\set($in_calc_key, true);
+  
+  $totalen = Entity\GetRelated($contact, 'nascholingstotalen', 10000, 'jaar', 'desc');
+  $m = array\length($totalen);
+  $j = 0;
+  logAdd(log, 'info', 'Contact :', attr($contact, 'name'), ', nascholingstotalen: ', $m);
+  
+  $z = 2;
+  while($j < $m,
+     $bepaald = '<span class="nstd nstd-definitief">Definitief resultaat</span>';
+     ifThen($z > 0, 
+        $bepaald = '<span class="nstd nstd-voorlopig">Voorlopig resultaat</span>';
+     );
+     $z = $z - 1;
+     $totaal = array\at($totalen, $j);
+     $jaar = attr($totaal, 'jaar');
+     
+     $hom = attr($totaal, 'dagenHomeopathie');
+     $med = attr($totaal, 'dagenMedisch');
+     $dag = attr($totaal, 'dagen');
+     $homsaldo = attr($totaal, 'homeopathieSaldo');
+     $medsaldo = attr($totaal, 'medischSaldo');
+     $homsurpl = attr($totaal, 'surplusHomeopathie');
+     $medsurpl = attr($totaal, 'surplusMedisch');
+     $dagsaldo = attr($totaal, 'dagenSaldo');
+     $dagsurpl = attr($totaal, 'surplus');
+     
+     logAdd(log, 'info', 'jaar:', attr($totaal, 'jaar'), ': hom=', $hom, ', med=', $med, ', homsaldo=', $homsaldo, ', medsaldo=', $medsaldo, ', homsurplus=', $homsurpl, ', medsurplus=', $medsurpl);
+     
+    $homk = toInt($homsurpl * 1000);
+    $homi = toInt($homsurpl) * 1000;
+    ifThenElse($homk == $homi, $hompos = 0, $hompos = 1);
+    
+    $medk = toInt($medsurpl * 1000);
+    $medi = toInt($medsurpl) * 1000;
+    ifThenElse($medk == $medi, $medpos = 0, $medpos = 1);
+
+    $dagk = toInt($dagsurpl * 1000);
+    $dagi = toInt($dagsurpl) * 1000;
+    ifThenElse($dagk == $dagi, $dagpos = 0, $dagpos = 1);
+
+     ifThenElse($homsurpl >= 0,
+        ifThenElse($homsurpl == 0.0, 
+            $hom_dashb = "Homeopathie voldoende"
+        ,
+            ifThenElse($homsurpl == 1.0, $dg = "dag", $dg = "dagen");
+            $homsurpl = number\format($homsurpl, $hompos);
+            $hom_dashb = string\concatenate("Homeopathie surplus: ", $homsurpl, " ", $dg);
+        );
+        $hom_span = "goed";
+     ,
+        ifThenElse($homsurpl == -1.0, $dg = "dag", $dg = "dagen");
+        $homsurpl = number\format(-1 * $homsurpl, $hompos);
+        $hom_dashb = string\concatenate("Homeopathie tekort: ", $homsurpl, " ", $dg);
+        $hom_span = "tekort";
+     );
+     
+     ifThenElse($jaar > $grens_jaar,
+         ifThenElse($medsurpl >= 0,
+            ifThenElse($medsurpl == 0.0, 
+                $med_dashb = "Medisch voldoende"
+            ,
+                ifThenElse($medsurpl == 1.0, $dg = "dag"; $pos = 0, $dg = "dagen"; $pos = 1);
+                $medsurpl = number\format($medsurpl, $medpos);
+                $med_dashb = string\concatenate("Medisch surplus: ", $medsurpl, " ", $dg);
+            );
+            $med_span = "goed";
+         ,
+            ifThenElse($medsurpl == -1.0, $dg = "dag", $dg = "dagen");
+            $medsurpl = number\format(-1 * $medsurpl, $medpos);
+            $med_dashb = string\concatenate("Medisch tekort: ", $medsurpl, " ", $dg);
+            $med_span = "tekort";
+         );
+    ,
+        $med_dashb = "";
+        $med_span = "nvt";
+    );
+     
+     ifThenElse($dagsurpl >= 0,
+        $dag_dashb = "Totaal voldoende";
+        ifThenElse($dagsurpl == 0.0, 
+            $dag_dashb = "Totaal voldoende"
+        ,
+            ifThenElse($dagsurpl == 1.0, $dg = "dag", $dg = "dagen");
+            $dagsurpl = number\format($dagsurpl, $dagpos);
+            $dag_dashb = string\concatenate("Totaal surplus: ", $dagsurpl, " ", $dg);
+        );
+        $dag_span = "goed";
+     ,
+        ifThenElse($dagsurpl == -1.0, $dg = "dag", $dg = "dagen");
+        $dagsurpl = number\format(-1 * $dagsurpl, $dagpos);
+        $dag_dashb = string\concatenate("Totaal tekort: ", $dagsurpl, " ", $dg);
+        $dag_span = "tekort";
+     );
+
+     $hom_html = string\concatenate('<span class="nstd nstd-', $hom_span, '">', $hom_dashb, '</span>');
+     $med_html = string\concatenate('<span class="nstd nstd-', $med_span, '">', $med_dashb, '</span>');
+     $dag_html = string\concatenate('<span class="nstd nstd-', $dag_span, '">', $dag_dashb, '</span>');
+     
+     setAttr($totaal, 'dashboard', 
+             string\concatenate(
+                 $bepaald, 
+                 $hom_html,
+                 $med_html,
+                 $dag_html
+                 )
+            );
+     Entity\Save($totaal);
+     
+     $j = $j + 1;
+  );
+
+  global\unset('nascholingstotalen-niet-herberekenen');
+  global\unset($in_calc_key);
+
+);