Compare commits
7 Commits
2f92328461
...
main
| Author | SHA1 | Date | |
|---|---|---|---|
| a993085b49 | |||
| 84cac92b1f | |||
| b69d1538b8 | |||
| b8761740d7 | |||
| c30efbc8d9 | |||
| 45e62fda5f | |||
| bfeff94be7 |
|
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
|
||||||
Executable
+2
@@ -0,0 +1,2 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
racket -e "(require \"get-current-scripts.rkt\") (read-all)"
|
||||||
Regular → Executable
+13
-11
@@ -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,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();
|
||||||
|
|||||||
@@ -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
|
||||||
Reference in New Issue
Block a user