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,88 @@
+//  last execution: Fri Apr 25 2025 10:06:42 GMT+0200 (Midden-Europese zomertijd)
+
+$par_Regels_per_pagina=18;
+$par_Alleen_buitenlandse=false;
+$par_Excel_Bestandsnaam_voorzien_van_datum=true;
+$par_Excel_Bestandsnaam='CZ Kwartaallijst';
+
+$p_filename = $par_Excel_Bestandsnaam;
+ifThen($par_Excel_Bestandsnaam_voorzien_van_datum,
+    $now = datetime\today();
+    $fmt = datetime\format($now, 'Europe/Amsterdam', 'DD-MM-YYYY');
+    $p_filename = string\concatenate($p_filename, ' ', $fmt);
+);
+$p_page_len = $par_Regels_per_pagina;
+ifThen($p_page_len < 1, $p_page_len = 10;);
+
+$p_no_nl = $par_Alleen_buitenlandse;
+
+html = '';
+logAdd(log);
+
+$rows = record\fetchManyHash('Contact', 
+                         'id, agbcode, initialsName, middleName, lastName, addressStreet, addressPostalCode, addressCity, addressCountry, regiocode', 
+                         'lastName', 'asc');
+
+$n = array\length($rows);
+logAdd(log, 'Contacts read: ', $n);
+$h = '';
+
+strAdd($h, '<div class="nvkhresult">');
+
+$table = table\new('Persoonlijk AGB',
+                   'VolledigeNaam',
+                   'Adres',
+                   'Postcode',
+                   'Woonplaats', 'asc', 
+                   'Land'
+                  );
+table\rowsPerPage($table, $p_page_len);
+table\filename($table, $p_filename);
+
+logAdd(log, 'Rows Per Page: ', $p_page_len);
+logAdd(log, 'Filename: ', $p_filename);
+
+$i = 0;
+while($i < $n,
+      $e = array\at($rows, $i);
+      
+      $regiocode = hash\get($e, 'regiocode');
+      $agbcode = hash\get($e, 'agbcode');
+      ifThenElse($agbcode == null, $agbcode = '';, $agbcode = string\trim($agbcode););
+      $regiocode = $regiocode + 0;
+      $meenemen = $regiocode < 30 && $agbcode != '';
+
+      ifThen($meenemen,
+          $initials = hash\get($e, 'initialsName');
+          $voorvoegsel = hash\get($e, 'middleName');
+          $naam = hash\get($e, 'lastName');
+          $adres = hash\get($e, 'addressStreet');
+          $postcode = hash\get($e, 'addressPostalCode');
+          $plaats = hash\get($e, 'addressCity');
+          $country = hash\get($e, 'addressCountry');
+          
+          ifThen($country == null || $country == '', $country = 'Nederland');
+          
+          $report = true;
+          ifThen($country == 'Nederland' && $p_no_nl, $report = false;);
+
+          ifThen($voorvoegsel, $voorvoegsel = string\concatenate($voorvoegsel, ' '););
+          $fullname = string\concatenate($initials, ' ', $voorvoegsel, $naam);
+          
+          $agbcode = string\replace($agbcode, '/', '');
+          
+          ifThen($report, 
+              table\add($table, 
+                        $agbcode, $fullname, $adres, $postcode, $plaats, $country
+                        );
+          );
+      );
+
+      $i = $i + 1;
+);
+
+strAdd($h, table\toHtml($table));
+
+strAdd($h, '</div>');
+
+html=$h;