Compare commits

7 Commits

Author SHA1 Message Date
hans a993085b49 Documentatie bijgwerkt. En structuur aangepast. 2026-08-28 13:13:37 +02:00
hans 84cac92b1f Herstructurering en archivering van niet actuele zaken. 2026-08-28 13:04:25 +02:00
hans b69d1538b8 Documentatie van de berekening bijgewerkt. 2026-08-28 13:02:59 +02:00
hans b8761740d7 werkgroep verslagen op 0 zetten voor leden met regiocode 8.
Dit is wel een probleempje. Aangezien een lid voor een gegeven jaar van regiocode X -> 8 zou kunnen veranderen.
Hier nog overleg over plegen met Annemieke & Monique.
2026-08-28 12:42:56 +02:00
hans c30efbc8d9 scripts added 2026-08-28 12:28:39 +02:00
hans 45e62fda5f no 2026-08-28 12:27:35 +02:00
hans bfeff94be7 gets current scripts 2026-08-28 12:23:22 +02:00
99 changed files with 84 additions and 17 deletions

Before

Width:  |  Height:  |  Size: 46 KiB

After

Width:  |  Height:  |  Size: 46 KiB

Binary file not shown.
@@ -0,0 +1 @@
2020-12-04 - script-bereken-nascholingstotaal-voor-jaar
@@ -190,6 +190,10 @@ ifThen(!$no_db_update,
$na_totaal_werkgroep = number\floor($na_werkgroep_verslagen / $na_werkgroep_div); $na_totaal_werkgroep = number\floor($na_werkgroep_verslagen / $na_werkgroep_div);
ifThen($na_totaal_werkgroep > $na_werkgroep_max, $na_totaal_werkgroep = $na_werkgroep_max); ifThen($na_totaal_werkgroep > $na_werkgroep_max, $na_totaal_werkgroep = $na_werkgroep_max);
ifThen($na_regiocode == 8,
$na_totaal_werkgroep = 0;
logAdd(log, 'info', 'regiocode = 8, werkgroepdagen tellen niet mee');
);
); );
); );
, ,
@@ -0,0 +1 @@
script-bereken-nascholingstotaal-voor-jaar
@@ -0,0 +1 @@
script-bereken-nascholingstotalen
@@ -0,0 +1 @@
script-lees-nascholingsnorm-hash
@@ -0,0 +1 @@
script-nascholing-recalc-for-contact
@@ -0,0 +1 @@
script-nascholings-totaal-jaar-admin
@@ -0,0 +1 @@
script-praktijken-koppelen-aan-portal-user
@@ -0,0 +1 @@
script-to-firstname-lastname
@@ -0,0 +1 @@
script-visitatie-stuur-certificaat
@@ -0,0 +1 @@
script-visitatie-stuur-formulier
+2
View File
@@ -0,0 +1,2 @@
#!/bin/bash
racket -e "(require \"get-current-scripts.rkt\") (read-all)"
+13 -11
View File
@@ -4,6 +4,8 @@
racket/string racket/string
) )
(provide read-all)
(define crm-cfg-file (build-path (find-system-path 'home-dir) "crm" "data" "config-internal.php")) (define crm-cfg-file (build-path (find-system-path 'home-dir) "crm" "data" "config-internal.php"))
(define (read-db-config) (define (read-db-config)
@@ -59,15 +61,19 @@
(define (handle-rows dir rows) (define (handle-rows dir rows)
(for-each (for-each
(lambda (row) (lambda (row)
(let ((id (vector-ref row 0)) (let* ((id (vector-ref row 0))
(name (vector-ref row 1)) (name (vector-ref row 1))
(description (vector-ref row 2)) (description (vector-ref row 2))
(value_script (vector-ref row 3)) (value_script (vector-ref row 3))
(re #px"[/><]")
(mk-name (lambda (name ext) (build-path dir (mk-name (lambda (name ext) (build-path dir
(string-append (string-replace name "/" "-") "." ext)))) (string-append
(regexp-replace* re name "_") "." ext))))
) )
(displayln (format "making ~a / ~a" dir name))
(to-file (mk-name name "id") id) (to-file (mk-name name "id") id)
(to-file (mk-name name "name") name)
(to-file (mk-name name "js") value_script) (to-file (mk-name name "js") value_script)
(to-file (mk-name name "descr") description) (to-file (mk-name name "descr") description)
)) ))
@@ -81,13 +87,9 @@
(let ((rows (query-rows dbh "select id, name, description, formule from script where deleted = 0"))) (let ((rows (query-rows dbh "select id, name, description, formule from script where deleted = 0")))
(handle-rows "scripts" rows))) (handle-rows "scripts" rows)))
(define (read-all)
(let ((dbh (apply connect-db (read-db-config))))
(read-script-configs dbh)
(read-scripts dbh))
)
;(displayln (read-db-config))
@@ -0,0 +1 @@
000 Upgrade Test
+1 -1
View File
@@ -1,4 +1,4 @@
// last execution: 2026-08-28 10:17:02 // last execution: 2026-08-28 10:28:02
$cfg = ConfigGet('job-test'); $cfg = ConfigGet('job-test');
log('warning', 'JobTest: Current value for config job-test:', $cfg); log('warning', 'JobTest: Current value for config job-test:', $cfg);
$cfg = datetime\now(); $cfg = datetime\now();
+1
View File
@@ -0,0 +1 @@
000 job test
@@ -0,0 +1 @@
Alle nascholingstotalen herberekenen
@@ -0,0 +1 @@
Bereken totaal voor één lid
@@ -0,0 +1 @@
CZ Export Lijst
@@ -0,0 +1 @@
Controle Praktijk-AGB
@@ -0,0 +1 @@
Dagen Medisch <=2018 op 0
@@ -0,0 +1 @@
Herberekenen individuele nascholingstotaal-records
@@ -0,0 +1 @@
Herberekenen nascholingen
@@ -0,0 +1 @@
Homeopaten Doellijst Bijwerken
@@ -0,0 +1 @@
Import Nabewerking - Nascholingstotalen koppelen
@@ -0,0 +1 @@
Import Nabewerking - Visitaties
@@ -0,0 +1 @@
Import Nabewerking - leden aan praktijken koppelen
@@ -0,0 +1 @@
Inlezen consultgegevens
@@ -0,0 +1 @@
Leden met dubbel geregistreerde nascholingen
@@ -0,0 +1 @@
Leden met hun praktijken - eenvoudige lijst
@@ -0,0 +1 @@
Leden met hun praktijken
@@ -0,0 +1 @@
Leden met nascholingstotalen voor hun registratiejaar
@@ -0,0 +1 @@
Leden met onvoldoende nascholing
@@ -0,0 +1 @@
Ledeninformatie publiceren
@@ -0,0 +1 @@
Mail Laatste Jobs
@@ -0,0 +1 @@
Nascholingen nog niet ingevuld distributielijst maken
@@ -0,0 +1 @@
Nascholingen verplaatsen naar handmatig
@@ -0,0 +1 @@
Nascholingsdata aanmaken
@@ -0,0 +1 @@
Nascholingsnorm aanmaken
@@ -0,0 +1 @@
Nascholingstotalen Jaar Record
@@ -0,0 +1 @@
Nascholingstotalen berekenen voor specifiek contact
@@ -0,0 +1 @@
Nascholingstotalen relateren
@@ -0,0 +1 @@
Opschonen updates door leden
@@ -0,0 +1 @@
Praktijken koppelen aan Portaal Accounts
@@ -0,0 +1 @@
Presentielijst aanmaken
@@ -0,0 +1 @@
Presentielijst inlezen
@@ -0,0 +1 @@
Relaties nascholingstotalen omzetten
@@ -0,0 +1 @@
Studentleden doellijst bijwerken
@@ -0,0 +1 @@
Sympathisanten Doellijst Bijwerken
@@ -0,0 +1 @@
Updates Door Leden
@@ -0,0 +1 @@
VOG Leden waarvan de VOG moet worden vernieuwd
@@ -0,0 +1 @@
Visitatie - Bewaken voortgang proces
@@ -0,0 +1 @@
Visitatie - Doellijst 'te visiteren leden' vullen
@@ -0,0 +1 @@
Visitatie - Herinneringen sturen 4 weken van te voren
@@ -0,0 +1 @@
Visitatie - Maak campagne voor aankondigingsmail klaar
@@ -0,0 +1 @@
Visitatie - Rapporteer te visiteren leden / maak records aan
@@ -0,0 +1 @@
Visitatie relaties omzetten
@@ -0,0 +1 @@
Visitatieformulier voor Her-visitatie
@@ -0,0 +1 @@
nascholingstotalen overig => homeopathie
@@ -0,0 +1 @@
praktijken leden naar json
@@ -0,0 +1 @@
startSurplus voor 2013
@@ -0,0 +1 @@
test_nascholingen
@@ -0,0 +1 @@
vsitatietijdstip vullen uit visitatiedatum