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

Huidige scripts in de NVKH database en beschrijvingen.

Browse Source
This commit is contained in:
Hans Dijkema
2026-08-28 11:09:50 +02:00
parent 890fe546c8
commit 6326a0c8e1
39 changed files with 9686 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
code current/script-bereken-nascholingstotalen 2024-03-07 v2.js
+948
View File
@@ -0,0 +1,948 @@
//exec last execution: Fri Jan 20 2023 15:56:21 GMT+0100 (Midden-Europese standaardtijd)
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Initialisatie
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
log('warning', 'Doorrekenen voor contact ', $contact_id);
$na_reg_dt = record\attribute('Contact', $contact_id, 'datumRegistratie');
$na_reg_jr = datetime\year($na_reg_dt);
$na_methode_1_max_jaar = configGet('berekening-methode-1-tot-en-met');
$na_methode_1_max_surplus = configGet('berekening-methode-1-max-surplus');
$na_style_rubric = configGet('nascholingstotaal-rapport-jaar-rubric-style');
$na_style_dagen = configGet('nascholingstotaal-rapport-jaar-dagen-style');
$na_style_dagen_inspr = configGet('nascholingstotaal-rapport-jaar-dagen-style-inspr');
$na_style_dagen_inspr2 = configGet('nascholingstotaal-rapport-jaar-dagen-style-inspr2');
$na_style_nstd_goed = configGet('nascholingstotaal-rapport-jaar-nstd-goed-style');
$na_style_nstd_goed_report = configGet('nascholingstotaal-rapport-jaar-nstd-goed-report-style');
$na_style_nstd_tekort = configGet('nascholingstotaal-rapport-jaar-nstd-tekort-style');
$na_style_nstd_tekort_report = configGet('nascholingstotaal-rapport-jaar-nstd-tekort-report-style');
$na_style_nstd_nvt = configGet('nascholingstotaal-rapport-jaar-nstd-nvt-style');
$na_style_bepaald = configGet('nascholingstotaal-rapport-jaar-nstd-bepaald-style');
$na_style_bepaald_report = configGet('nascholingstotaal-rapport-jaar-nstd-bepaald-report-style');
$na_style_onbepaald = configGet('nascholingstotaal-rapport-jaar-nstd-onbepaald-style');
$na_style_onbepaald_report = configGet('nascholingstotaal-rapport-jaar-nstd-onbepaald-report-style');
$na_style_kop = configGet('nascholingstotaal-rapport-jaar-kop-style');
$na_style_probleem = configGet('nascholingstotaal-rapport-probleem-style');
$na_style_waarschuwing = configGet('nascholingstotaal-rapport-waarschuwing-style');
$na_style_sub_rubric = configGet('nascholingstotaal-rapport-sub-rubriek-style');
$na_style_sub2_rubric = configGet('nascholingstotaal-rapport-sub2-rubriek-style');
$na_nascholing_onvoldoende = false;
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Haal eerst alle nascholingstotalen voor een contact op, in volgorde van jaar.
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
$na_geen_status_vanaf_jaar = datetime\year(datetime\now()) - 1;
$na_in_calc_key = string\concatenate('nascholingstotalen-in-berekening-voor', $contact_id);
global\set($na_in_calc_key, true);
$na_rows = record\fetchManyHash('Nascholingstotaal',
'id, jaar, dagen, dagenMedisch, dagenHomeopathie, dagenTotaal, medischSaldo, homeopathieSaldo, dagenSaldo, saldoNaCorrectie, dagenWerkgroep, dagenVrijstelling, status, berekeningsUitleg, startSurplus, dagenFormeleNorm, homeopathieFormeleNorm, medischFormeleNorm, maxMeenemen, examenjaar, handmatig, surplus, surplusHomeopathie, surplusMedisch',
'jaar', 'asc',
'contactId=', $contact_id,
);
$na_n = array\length($na_rows);
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Initialiseer om te beginnen alle surplussen op de saldo's van een jaar.
// Daarna gaan we de zaak verdelen.
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
$na_i = 0;
while($na_i < $na_n,
$na_row = array\at($na_rows, $na_i);
$na_jaar = hash\get($na_row, 'jaar');
$na_calc_tot = hash\get($na_row, 'dagenSaldo');
$na_calc_med = hash\get($na_row, 'medischSaldo');
$na_calc_hom = hash\get($na_row, 'homeopathieSaldo');
$na_row = hash\set($na_row, 'surplus', $na_calc_tot);
$na_row = hash\set($na_row, 'surplusMedisch', $na_calc_med);
$na_row = hash\set($na_row, 'surplusHomeopathie', $na_calc_hom);
$na_row = hash\set($na_row, 'meegenomen', 0);
$na_row = hash\set($na_row, 'meegenomen_hom', 0);
$na_row = hash\set($na_row, 'meegenomen_med', 0);
$na_row = hash\set($na_row, 'correctie_uit_opvolgend_jaar', 0);
$na_row = hash\set($na_row, 'correctie_uit_opvolgend_jaar_hom', 0);
$na_row = hash\set($na_row, 'correctie_uit_opvolgend_jaar_med', 0);
$na_row = hash\set($na_row, 'tekort', $na_calc_tot);
$na_row = hash\set($na_row, 'tekort_hom', $na_calc_hom);
$na_row = hash\set($na_row, 'tekort_med', $na_calc_med);
$na_row = hash\set($na_row, 'tekort_aangevuld_vanuit', '');
$na_row = hash\set($na_row, 'tekort_aangevuld_naar', '');
$na_row = hash\set($na_row, 'correctie_aangevuld_vanuit', 0);
$na_row = hash\set($na_row, 'correctie_aangevuld_naar', 0);
$na_uitleg = '';
$na_uitleg_hom = '';
$na_uitleg_med = '';
$na_dagen_hom = hash\get($na_row, 'dagenHomeopathie');
$na_dagen_med = hash\get($na_row, 'dagenMedisch');
$na_dagen = hash\get($na_row, 'dagenTotaal');
$na_vrijstelling = hash\get($na_row, 'dagenVrijstelling');
$na_werkgroep = hash\get($na_row, 'dagenWerkgroep');
$na_overig = hash\get($na_row, 'dagen');
$na_start_surplus = hash\get($na_row, 'startSurplus');
strAdd($na_uitleg_hom, '[IDagen gevolgd :I][NI', number\format($na_dagen_hom, 2), ']%%');
ifThen($na_jaar == $na_methode_1_max_jaar,
strAdd($na_uitleg_med, '[IDagen gevolgd :I][NI', number\format($na_dagen_med, 2), ']%%');
);
ifThenElse($na_jaar > $na_methode_1_max_jaar,
strAdd($na_uitleg_med, '[IDagen gevolgd :I][NI', number\format($na_dagen_med, 2), ']%%');
ifThen($na_start_surplus > 0,
strAdd($na_uitleg, '[IDagen Start Surplus :I][NI', number\format($na_start_surplus, 2), ']%%');
strAdd($na_uitleg_hom, '[IDagen Start Surplus :I][NI', number\format($na_start_surplus, 2), ']%%');
);
strAdd($na_uitleg, '[IDagen Klassieke Homeopathie gevolgd :I][NI', number\format($na_dagen_hom, 2), ']%%');
strAdd($na_uitleg, '[IDagen Medisch gevolgd :I][NI', number\format($na_dagen_med, 2), ']%%');
strAdd($na_uitleg, '[IDagen Overig gevolgd :I][NI', number\format($na_overig, 2), ']%%');
strAdd($na_uitleg, '[IDagen Werkgroep :I][NI', number\format($na_werkgroep, 2), ']%%');
ifThen($na_vrijstelling > 0,
strAdd($na_uitleg, '[IDagen Vrijstelling :I][NI', number\format($na_vrijstelling, 2), ']%%');
);
strAdd($na_uitleg, '[TNascholingsdagen :I][N', number\format($na_dagen, 2), ']%%');
,
strAdd($na_uitleg, '[IDagen Klassieke Homeopathie gevolgd :I][NI', number\format($na_dagen_hom, 2), ']%%');
ifThen($na_start_surplus > 0,
strAdd($na_uitleg, '[IDagen Start Surplus :I][NI', number\format($na_start_surplus, 2), ']%%');
strAdd($na_uitleg_hom, '[IDagen Start Surplus :I][NI', number\format($na_start_surplus, 2), ']%%');
);
ifThen($na_jaar == $na_methode_1_max_jaar,
strAdd($na_uitleg, '[IDagen Medisch gevolgd :I][NI', number\format($na_dagen_med, 2), ']%%');
);
ifThen($na_vrijstelling > 0,
strAdd($na_uitleg, '[IDagen Vrijstelling :I][NI', number\format($na_vrijstelling, 2), ']%%');
strAdd($na_uitleg_hom, '[IDagen Vrijstelling :I][NI', number\format($na_vrijstelling, 2), ']%%');
);
);
$na_norm_hom = hash\get($na_row, 'homeopathieFormeleNorm');
$na_norm_med = hash\get($na_row, 'medischFormeleNorm');
$na_norm = hash\get($na_row, 'dagenFormeleNorm');
strAdd($na_uitleg_hom, '[INorm Homeopathie :I][NI', number\format($na_norm_hom, 2), ']%%');
ifThenElse($na_jaar > $na_methode_1_max_jaar,
strAdd($na_uitleg_med, '[INorm Medisch :I][NI', number\format($na_norm_med, 2), ']%%');
strAdd($na_uitleg, '[INorm Nascholingsdagen :I][NI', number\format($na_norm, 2), ']%%');
,
strAdd($na_uitleg, '[INorm Nascholingsdagen :I][NI', number\format($na_norm, 2), ']%%');
);
strAdd($na_uitleg_hom, '[TSaldo :I][N', number\format($na_calc_hom, 2), ']%%');
ifThenElse($na_jaar >= $na_methode_1_max_jaar,
strAdd($na_uitleg_med, '[TSaldo :I][N', number\format($na_calc_med, 2), ']%%');
strAdd($na_uitleg, '[TSaldo :I][N', number\format($na_calc_tot, 2), ']%%');
,
strAdd($na_uitleg, '[TSaldo :I][N', number\format($na_calc_tot, 2), ']%%');
);
$na_row = hash\set($na_row, 'uitleg', $na_uitleg);
$na_row = hash\set($na_row, 'uitleg_hom', $na_uitleg_hom);
$na_row = hash\set($na_row, 'uitleg_med', $na_uitleg_med);
$na_rows = array\set($na_rows, $na_i, $na_row);
$na_i = $na_i + 1;
);
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Pas de doorschuif berekening toe.
// Behalve dan dat we maximaal de norm aan dagen meenemen naar het volgende jaar.
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
$na_j_first_hom = 0;
$na_j_first_med = 0;
$na_j_first_tot = 0;
$na_i = 0;
while($na_i < $na_n,
$na_row = array\at($na_rows, $na_i);
$na_id = hash\get($na_row, 'id');
$na_jaar = hash\get($na_row, 'jaar');
log('warning', 'na_i=', $na_i, ', id=', $na_id, ', jaar=', $na_jaar);
$na_norm_hom = hash\get($na_row, 'homeopathieFormeleNorm');
$na_norm_med = hash\get($na_row, 'medischFormeleNorm');
$na_norm = hash\get($na_row, 'dagenFormeleNorm');
$na_calc_tot = hash\get($na_row, 'surplus');
$na_calc_med = hash\get($na_row, 'surplusMedisch');
$na_calc_hom = hash\get($na_row, 'surplusHomeopathie');
$na_uitleg = hash\get($na_row, 'uitleg');
$na_uitleg_hom = hash\get($na_row, 'uitleg_hom');
$na_uitleg_med = hash\get($na_row, 'uitleg_med');
$na_tekort_aangevuld_naar = hash\get($na_row, 'tekort_aangevuld_naar');
$na_correctie_aangevuld_naar = hash\get($na_row, 'correctie_aangevuld_naar');
$na_tekort = hash\get($na_row, 'tekort');
$na_tekort_hom = hash\get($na_row, 'tekort_hom');
$na_tekort_med = hash\get($na_row, 'tekort_med');
$na_correctie_uit_opvolgend_jaar = hash\get($na_row, 'correctie_uit_opvolgend_jaar');
$na_correctie_uit_opvolgend_jaar_hom = hash\get($na_row, 'correctie_uit_opvolgend_jaar_hom');
$na_correctie_uit_opvolgend_jaar_med = hash\get($na_row, 'correctie_uit_opvolgend_jaar_med');
$na_jaar = hash\get($na_row, 'jaar');
$na_max_meenemen = hash\get($na_row, 'maxMeenemen');
log('warning', 'na_max_meenemen=', $na_max_meenemen);
$do_adding = true;
ifThenElse($na_i == 0,
log('warning', '1e jaar');
log('warning', 'jaar=', $na_jaar, ', calc_hom=', $na_calc_hom, ', calc_med=', $na_calc_med, ', calc_tot=', $na_calc_tot);
$na_j_first_hom = 0;
$na_j_first_med = 0;
$na_j_first_tot = 0;
,
// Check of het saldo van dagen > 0 voor homeopathie, medisch en totaal.
// Zorg dat dat eerst verdeeld wordt naar de voorgaande saldi van jaren.
log('warning', 'jaar=', $na_jaar, ', calc_hom=', $na_calc_hom, ', calc_med=', $na_calc_med, ', calc_tot=', $na_calc_tot);
$na_lowest_j = $na_i;
log('warning', 'jaar=', $na_jaar, ', calc_hom=', $na_calc_hom, ', calc_med=', $na_calc_med, ', calc_tot=', $na_calc_tot);
// Medisch negatieve correcties
// Alleen als er voldoende surplus is om te compenseren.
// We kijken dan niet naar het totaal, want daar ontstaat dan
// vanzelf een verder tekort als dat aan de orde is.
ifThen(($na_calc_med + $na_norm_med) > 0,
$na_j = $na_j_first_med;
$na_row_j = array\at($na_rows, $na_j);
$na_calc_med_j = hash\get($na_row_j, 'surplusMedisch');
$na_uitleg_med_j = hash\get($na_row_j, 'uitleg_med');
$na_uitleg_j = hash\get($na_row_j, 'uitleg');
$na_tekort_aangevuld_vanuit_j = hash\get($na_row_j, 'tekort_aangevuld_vanuit');
$na_correctie_aangevuld_vanuit_j = hash\get($na_row_j, 'correctie_aangevuld_vanuit');
$na_jaar_j = hash\get($na_row_j, 'jaar');
$na_correctie_uit_opvolgend_jaar_med_j = hash\get($na_row_j, 'correctie_uit_opvolgend_jaar_med');
$na_correctie_uit_opvolgend_jaar_j = hash\get($na_row_j, 'correctie_uit_opvolgend_jaar');
while($na_j < $na_i && ($na_calc_med + $na_norm_med) > 0,
while($na_j < $na_i && $na_calc_med_j >= 0,
$na_j = $na_j + 1;
$na_row_j = array\at($na_rows, $na_j);
$na_calc_med_j = hash\get($na_row_j, 'surplusMedisch');
$na_uitleg_med_j = hash\get($na_row_j, 'uitleg_med');
$na_uitleg_j = hash\get($na_row_j, 'uitleg');
$na_tekort_aangevuld_vanuit_j = hash\get($na_row_j, 'tekort_aangevuld_vanuit');
$na_correctie_aangevuld_vanuit_j = hash\get($na_row_j, 'correctie_aangevuld_vanuit');
$na_jaar_j = hash\get($na_row_j, 'jaar');
$na_correctie_uit_opvolgend_jaar_med_j = hash\get($na_row_j, 'correctie_uit_opvolgend_jaar_med');
$na_correctie_uit_opvolgend_jaar_j = hash\get($na_row_j, 'correctie_uit_opvolgend_jaar');
);
$na_j_first_med = $na_j;
//logAdd(log, 'jaar:', $na_jaar_j, ', tekort_aangevuld_vanuit: ', $na_tekort_aangevuld_vanuit_j);
ifThen($na_j < $na_i,
ifThen($na_lowest_j > $na_j, $na_lowest_j = $na_j);
$na_correctie = -1 * $na_calc_med_j;
// Zorg dat niet meer dan het saldo kan worden verrekend
ifThen($na_correctie > ($na_calc_med + $na_norm_med), $na_correctie = ($na_calc_med + $na_norm_med));
strAdd($na_uitleg_med_j, "[IDagen tekort medisch aangevuld vanuit jaar ", $na_jaar, ":I][NI", number\format($na_correctie, 2), "]%%");
strAdd($na_tekort_aangevuld_vanuit_j, "[IIWaarvan dagen medisch vanuit jaar ", $na_jaar, ":I][NII", number\format($na_correctie, 2), "]%%");
strAdd($na_uitleg_med, "[IDagen tekort medisch aangevuld naar jaar ", $na_jaar_j, ":I][NI", number\format(-1 * $na_correctie, 2), "]%%");
strAdd($na_tekort_aangevuld_naar, "[IIWaarvan dagen medisch naar jaar ", $na_jaar_j, ":I][NII", number\format($na_correctie, 2), "]%%");
$na_correctie_aangevuld_vanuit_j = $na_correctie_aangevuld_vanuit_j + $na_correctie;
$na_correctie_aangevuld_naar = $na_correctie_aangevuld_naar + $na_correctie;
$na_correctie_uit_opvolgend_jaar_med_j = $na_correctie_uit_opvolgend_jaar_med_j + 1;
$na_correctie_uit_opvolgend_jaar_j = $na_correctie_uit_opvolgend_jaar_j + 1;
$na_calc_med = $na_calc_med - $na_correctie;
$na_tekort_med = $na_tekort_med - $na_correctie;
$na_calc_tot = $na_calc_tot - $na_correctie;
$na_tekort = $na_tekort - $na_correctie;
$na_calc_j = hash\get($na_row_j, 'surplus');
$na_calc_j = $na_calc_j + $na_correctie;
$na_calc_med_j = $na_calc_med_j + $na_correctie;
$na_row_j = hash\set($na_row_j, 'surplusMedisch', $na_calc_med_j);
$na_row_j = hash\set($na_row_j, 'surplus', $na_calc_j);
$na_row_j = hash\set($na_row_j, 'uitleg_med', $na_uitleg_med_j);
$na_row_j = hash\set($na_row_j, 'uitleg', $na_uitleg_j);
$na_row_j = hash\set($na_row_j, 'tekort_aangevuld_vanuit', $na_tekort_aangevuld_vanuit_j);
$na_row_j = hash\set($na_row_j, 'correctie_aangevuld_vanuit', $na_correctie_aangevuld_vanuit_j);
$na_row_j = hash\set($na_row_j, 'correctie_uit_opvolgend_jaar_med', $na_correctie_uit_opvolgend_jaar_med_j);
$na_row_j = hash\set($na_row_j, 'correctie_uit_opvolgend_jaar', $na_correctie_uit_opvolgend_jaar_j);
$na_rows = array\set($na_rows, $na_j, $na_row_j);
//logAdd(log, 'jaar:', $na_jaar_j, ', tekort_aangevuld_vanuit: ', $na_tekort_aangevuld_vanuit_j);
);
);
);
// Klassieke Homeopathie negatieve correcties
// Alleen als er voldoende surplus is om te compenseren.
// We kijken dan niet naar het totaal, want daar ontstaat dan
// vanzelf een verder tekort als dat aan de orde is.
ifThen(($na_calc_hom + $na_norm_hom) > 0,
$na_j = $na_j_first_hom;
$na_row_j = array\at($na_rows, $na_j);
$na_calc_hom_j = hash\get($na_row_j, 'surplusHomeopathie');
$na_uitleg_hom_j = hash\get($na_row_j, 'uitleg_hom');
$na_uitleg_j = hash\get($na_row_j, 'uitleg');
$na_tekort_aangevuld_vanuit_j = hash\get($na_row_j, 'tekort_aangevuld_vanuit');
$na_correctie_aangevuld_vanuit_j = hash\get($na_row_j, 'correctie_aangevuld_vanuit');
$na_jaar_j = hash\get($na_row_j, 'jaar');
$na_correctie_uit_opvolgend_jaar_hom_j = hash\get($na_row_j, 'correctie_uit_opvolgend_jaar_hom');
$na_correctie_uit_opvolgend_jaar_j = hash\get($na_row_j, 'correctie_uit_opvolgend_jaar');
while($na_j < $na_i && ($na_calc_hom + $na_norm_hom) > 0,
while($na_j < $na_i && $na_calc_hom_j >= 0,
$na_j = $na_j + 1;
$na_row_j = array\at($na_rows, $na_j);
$na_calc_hom_j = hash\get($na_row_j, 'surplusHomeopathie');
$na_uitleg_hom_j = hash\get($na_row_j, 'uitleg_hom');
$na_uitleg_j = hash\get($na_row_j, 'uitleg');
$na_tekort_aangevuld_vanuit_j = hash\get($na_row_j, 'tekort_aangevuld_vanuit');
$na_correctie_aangevuld_vanuit_j = hash\get($na_row_j, 'correctie_aangevuld_vanuit');
$na_jaar_j = hash\get($na_row_j, 'jaar');
$na_correctie_uit_opvolgend_jaar_hom_j = hash\get($na_row_j, 'correctie_uit_opvolgend_jaar_hom');
$na_correctie_uit_opvolgend_jaar_j = hash\get($na_row_j, 'correctie_uit_opvolgend_jaar');
);
$na_j_first_hom = $na_j;
ifThen($na_j < $na_i,
ifThen($na_lowest_j > $na_j, $na_lowest_j = $na_j);
$na_correctie = -1 * $na_calc_hom_j;
// Zorg dat niet meer dan het saldo kan worden verrekend
ifThen($na_correctie > ($na_calc_hom + $na_norm_hom), $na_correctie = ($na_calc_hom + $na_norm_hom));
strAdd($na_uitleg_hom_j, "[IDagen tekort homeopathie aangevuld vanuit jaar ", $na_jaar, ":I][NI", number\format($na_correctie, 2), "]%%");
strAdd($na_tekort_aangevuld_vanuit_j, "[IIWaarvan dagen homeopathie vanuit jaar ", $na_jaar, ":I][NII", number\format($na_correctie, 2), "]%%");
strAdd($na_uitleg_hom, "[IDagen tekort homeopathie aangevuld naar jaar ", $na_jaar_j, ":I][NI", number\format(-1 * $na_correctie, 2), "]%%");
strAdd($na_tekort_aangevuld_naar, "[IIWaarvan dagen homeopathie naar jaar ", $na_jaar_j, ":I][NII", number\format($na_correctie, 2), "]%%");
$na_correctie_aangevuld_vanuit_j = $na_correctie_aangevuld_vanuit_j + $na_correctie;
$na_correctie_aangevuld_naar = $na_correctie_aangevuld_naar + $na_correctie;
$na_correctie_uit_opvolgend_jaar_hom_j = $na_correctie_uit_opvolgend_jaar_hom_j + 1;
$na_correctie_uit_opvolgend_jaar_j = $na_correctie_uit_opvolgend_jaar_j + 1;
$na_calc_hom = $na_calc_hom - $na_correctie;
$na_tekort_hom = $na_tekort_hom - $na_correctie;
$na_calc_tot = $na_calc_tot - $na_correctie;
$na_tekort = $na_tekort - $na_correctie;
$na_calc_j = hash\get($na_row_j, 'surplus');
$na_calc_j = $na_calc_j + $na_correctie;
$na_calc_hom_j = $na_calc_hom_j + $na_correctie;
$na_row_j = hash\set($na_row_j, 'surplusHomeopathie', $na_calc_hom_j);
$na_row_j = hash\set($na_row_j, 'surplus', $na_calc_j);
$na_row_j = hash\set($na_row_j, 'uitleg_hom', $na_uitleg_hom_j);
$na_row_j = hash\set($na_row_j, 'uitleg', $na_uitleg_j);
$na_row_j = hash\set($na_row_j, 'tekort_aangevuld_vanuit', $na_tekort_aangevuld_vanuit_j);
$na_row_j = hash\set($na_row_j, 'correctie_aangevuld_vanuit', $na_correctie_aangevuld_vanuit_j);
$na_row_j = hash\set($na_row_j, 'correctie_uit_opvolgend_jaar_hom', $na_correctie_uit_opvolgend_jaar_hom_j);
$na_row_j = hash\set($na_row_j, 'correctie_uit_opvolgend_jaar', $na_correctie_uit_opvolgend_jaar_j);
$na_rows = array\set($na_rows, $na_j, $na_row_j);
//$ff = hash\get($na_row_j, 'tekort_aangevuld_vanuit');
//logAdd(log, 'jaar:', $na_jaar_j, ', tekort_aangevuld_vanuit: ', $na_tekort_aangevuld_vanuit_j, ', ff:', $ff);
);
);
);
log('warning', 'jaar=', $na_jaar, ', calc_hom=', $na_calc_hom, ', calc_med=', $na_calc_med, ', calc_tot=', $na_calc_tot);
// Totaal negatieve correcties
// Alleen als er voldoende surplus is om te compenseren.
ifThen(($na_calc_tot + $na_norm) > 0,
$na_j = $na_j_first_tot;
$na_row_j = array\at($na_rows, $na_j);
$na_calc_j = hash\get($na_row_j, 'surplus');
$na_uitleg_j = hash\get($na_row_j, 'uitleg');
$na_tekort_aangevuld_vanuit_j = hash\get($na_row_j, 'tekort_aangevuld_vanuit');
$na_correctie_aangevuld_vanuit_j = hash\get($na_row_j, 'correctie_aangevuld_vanuit');
$na_jaar_j = hash\get($na_row_j, 'jaar');
$na_correctie_uit_opvolgend_jaar_j = hash\get($na_row_j, 'correctie_uit_opvolgend_jaar');
while($na_j < $na_i && ($na_calc_tot + $na_norm) > 0,
while($na_j < $na_i && $na_calc_j >= 0,
$na_j = $na_j + 1;
$na_row_j = array\at($na_rows, $na_j);
$na_calc_j = hash\get($na_row_j, 'surplus');
$na_uitleg_j = hash\get($na_row_j, 'uitleg');
$na_tekort_aangevuld_vanuit_j = hash\get($na_row_j, 'tekort_aangevuld_vanuit');
$na_correctie_aangevuld_vanuit_j = hash\get($na_row_j, 'correctie_aangevuld_vanuit');
$na_jaar_j = hash\get($na_row_j, 'jaar');
$na_correctie_uit_opvolgend_jaar_j = hash\get($na_row_j, 'correctie_uit_opvolgend_jaar');
);
$na_j_first_tot = $na_j;
ifThen($na_j < $na_i,
ifThen($na_lowest_j > $na_j, $na_lowest_j = $na_j);
$na_correctie = -1 * $na_calc_j;
ifThen($na_correctie > ($na_calc_tot + $na_norm), $na_correctie = ($na_calc_tot + $na_norm));
strAdd($na_tekort_aangevuld_vanuit_j, "[IIWaarvan nascholingsdagen vanuit jaar ", $na_jaar,":I][NII", number\format($na_correctie, 2), "]%%");
strAdd($na_tekort_aangevuld_naar, "[IIWaarvan nascholingsdagen naar jaar ", $na_jaar_j, ":I][NII", number\format($na_correctie, 2), "]%%");
$na_correctie_aangevuld_vanuit_j = $na_correctie_aangevuld_vanuit_j + $na_correctie;
$na_correctie_aangevuld_naar = $na_correctie_aangevuld_naar + $na_correctie;
$na_correctie_uit_opvolgend_jaar_j = $na_correctie_uit_opvolgend_jaar_j + 1;
$na_calc_tot = $na_calc_tot - $na_correctie;
$na_tekort = $na_tekort - $na_correctie;
$na_calc_j = $na_calc_j + $na_correctie;
$na_row_j = hash\set($na_row_j, 'surplus', $na_calc_j);
$na_row_j = hash\set($na_row_j, 'uitleg', $na_uitleg_j);
$na_row_j = hash\set($na_row_j, 'tekort_aangevuld_vanuit', $na_tekort_aangevuld_vanuit_j);
$na_row_j = hash\set($na_row_j, 'correctie_aangevuld_vanuit', $na_correctie_aangevuld_vanuit_j);
$na_row_j = hash\set($na_row_j, 'correctie_uit_opvolgend_jaar', $na_correctie_uit_opvolgend_jaar_j);
$na_rows = array\set($na_rows, $na_j, $na_row_j);
//logAdd(log, 'jaar:', $na_jaar_j, ', tekort_aangevuld_vanuit: ', $na_tekort_aangevuld_vanuit_j);
);
);
);
log('warning', 'jaar=', $na_jaar, ', calc_hom=', $na_calc_hom, ', calc_med=', $na_calc_med, ', calc_tot=', $na_calc_tot);
ifThen($na_lowest_j == $na_i,
// Kijk nu of er nog dagen meegenomen kunnen worden naar het volgende jaar
$na_row_prev = array\at($na_rows, $na_i - 1);
$na_calc_hom_prev = hash\get($na_row_prev, 'surplusHomeopathie');
$na_calc_med_prev = hash\get($na_row_prev, 'surplusMedisch');
$na_calc_tot_prev = hash\get($na_row_prev, 'surplus');
//logAdd(log, 'warning', 'jaar:', $na_jaar, ', MEENEMEN: prev: tot:', $na_calc_tot_prev, ', hom: ', $na_calc_hom_prev, ', med:', $na_calc_med_prev);
// Pak maximaal de maxMeenemen norm aan dagen over van het voorgaande jaar, als er voldoende dagen zijn.
ifThen($na_calc_tot_prev > 0,
// Oke, we kunnen überhaupt dagen meenemen.
$na_max_mee = $na_max_meenemen;
// Zorg dat we bij het teruggaan in de tijd niet meer meenemen dan in totaal max_meenemen.
// Dus we moeten wat al een keer is meegenomen vasthouden en van het maximum aftrekken.
$na_meegenomen = hash\get($na_row, 'meegenomen');
$na_meegenomen_hom = hash\get($na_row, 'meegenomen_hom');
$na_meegenomen_med = hash\get($na_row, 'meegenomen_med');
$na_max_mee = $na_max_mee - $na_meegenomen;
// Verdeel de dagen tussen medisch en homeopatisch, tenzij de
// voorgaande surplussen niet voldoende zijn, vul dan verder aantal
// met overig
while($na_calc_tot_prev > 0 && $na_max_mee > 0,
// Zo lang huidig medisch surplus < 0 en previous medisch surplus > 0, kies voor medisch
// Anders, zo lang huidig homeopathie surplus < 0 en previous homeopathie surplus > 0, kies voor homeopathie
// Anders, zo lang previous homeopathie surplus / medisch surplus > 0, kies voor med, hom alternerend.
// Anders, zo lang previous homeopathie surplus > 0, kies voor homeopathie
// Anders, zo lang previous medisch surplus > 0, kies voor medisch
// Anders, kies voor overig
ifThenElse($na_calc_med < 0 && $na_calc_med_prev > 0,
$na_hom_med_overig = 'med';
,
ifThenElse($na_calc_hom < 0 && $na_calc_hom_prev > 0,
$na_hom_med_overig = 'hom';
,
ifThenElse($na_calc_hom_prev > 0 && $na_calc_med_prev > 0,
ifThenElse($na_hom_med_overig == 'med',
$na_hom_med_overig = 'hom';
,
$na_hom_med_overig = 'med';
);
,
ifThenElse($na_calc_hom_prev > 0,
$na_hom_med_overig = 'hom';
,
ifThenElse($na_calc_med_prev > 0,
$na_hom_med_overig = 'med';
,
$na_hom_med_overig = 'overig';
);
);
);
);
);
log('warning', 'na_hom_med_overig=', $na_hom_med_overig, ', surplus_tot_prev=', $na_calc_tot_prev, ', na_max_mee=', $na_max_mee);
ifThen($na_hom_med_overig == 'med',
ifThen($na_calc_med_prev > 0,
$na_take = 1;
ifThen($na_calc_med_prev < $na_take, $na_take = $na_calc_med_prev);
ifThen($na_calc_tot_prev < $na_take, $na_take = $na_calc_tot_prev);
ifThen($na_max_mee < $na_take, $na_take = $na_max_mee);
$na_calc_med = $na_calc_med + $na_take;
$na_calc_med_prev = $na_calc_med_prev - $na_take;
$na_calc_tot = $na_calc_tot + $na_take;
$na_calc_tot_prev = $na_calc_tot_prev - $na_take;
$na_max_mee = $na_max_mee - $na_take;
$na_meegenomen = $na_meegenomen + $na_take;
$na_meegenomen_med = $na_meegenomen_med + $na_take;
);
);
ifThen($na_hom_med_overig == 'hom',
ifThen($na_calc_hom_prev > 0,
$na_take = 1;
ifThen($na_calc_hom_prev < $na_take, $na_take = $na_calc_hom_prev);
ifThen($na_calc_tot_prev < $na_take, $na_take = $na_calc_tot_prev);
ifThen($na_max_mee < $na_take, $na_take = $na_max_mee);
$na_calc_hom = $na_calc_hom + $na_take;
$na_calc_hom_prev = $na_calc_hom_prev - $na_take;
$na_calc_tot = $na_calc_tot + $na_take;
$na_calc_tot_prev = $na_calc_tot_prev - $na_take;
$na_max_mee = $na_max_mee - $na_take;
$na_meegenomen = $na_meegenomen + $na_take;
$na_meegenomen_hom = $na_meegenomen_hom + $na_take;
);
);
ifThen($na_hom_med_overig == 'overig',
// We weten nu al dat na_calc_tot_prev > 0
$na_take = 1;
ifThen($na_calc_tot_prev < $na_take, $na_take = $na_calc_tot_prev);
ifThen($na_max_mee < $na_take, $na_take = $na_max_mee);
$na_calc_tot = $na_calc_tot + $na_take;
$na_calc_tot_prev = $na_calc_tot_prev - $na_take;
$na_max_mee = $na_max_mee - $na_take;
$na_meegenomen = $na_meegenomen + $na_take;
);
);
//logAdd(log, 'warning', 'jaar:', $na_jaar, ', meegenomen: ', $na_meegenomen, ', hom:', $na_meegenomen_hom, ', med:', $na_meegenomen_med);
$na_row = hash\set($na_row, 'meegenomen', $na_meegenomen);
$na_row = hash\set($na_row, 'meegenomen_hom', $na_meegenomen_hom);
$na_row = hash\set($na_row, 'meegenomen_med', $na_meegenomen_med);
);
$na_meegenomen = hash\get($na_row, 'meegenomen');
$na_meegenomen_hom = hash\get($na_row, 'meegenomen_hom');
$na_meegenomen_med = hash\get($na_row, 'meegenomen_med');
//logAdd(log, 'jaar: ', $na_jaar, ', tekort:', $na_tekort, ', meegenomen uit vorig jaar:', $na_meegenomen);
$na_row_prev = hash\set($na_row_prev, 'surplusHomeopathie', $na_calc_hom_prev);
$na_row_prev = hash\set($na_row_prev, 'surplusMedisch', $na_calc_med_prev);
$na_row_prev = hash\set($na_row_prev, 'surplus', $na_calc_tot_prev);
$na_rows = array\set($na_rows, $na_i - 1, $na_row_prev);
);
$na_row = hash\set($na_row, 'surplusHomeopathie', $na_calc_hom);
$na_row = hash\set($na_row, 'surplusMedisch', $na_calc_med);
$na_row = hash\set($na_row, 'surplus', $na_calc_tot);
$na_row = hash\set($na_row, 'uitleg', $na_uitleg);
$na_row = hash\set($na_row, 'uitleg_hom', $na_uitleg_hom);
$na_row = hash\set($na_row, 'uitleg_med', $na_uitleg_med);
$na_row = hash\set($na_row, 'tekort_aangevuld_naar', $na_tekort_aangevuld_naar);
$na_row = hash\set($na_row, 'correctie_aangevuld_naar', $na_correctie_aangevuld_naar);
$na_row = hash\set($na_row, 'correctie_uit_opvolgend_jaar', $na_correctie_uit_opvolgend_jaar);
$na_row = hash\set($na_row, 'correctie_uit_opvolgend_jaar_hom', $na_correctie_uit_opvolgend_jaar_hom);
$na_row = hash\set($na_row, 'correctie_uit_opvolgend_jaar_med', $na_correctie_uit_opvolgend_jaar_med);
$na_row = hash\set($na_row, 'tekort', $na_tekort);
$na_row = hash\set($na_row, 'tekort_hom', $na_tekort_hom);
$na_row = hash\set($na_row, 'tekort_med', $na_tekort_med);
$na_rows = array\set($na_rows, $na_i, $na_row);
ifThen($na_lowest_j != $na_i, $na_i = $na_lowest_j - 1);
);
$na_i = $na_i + 1;
);
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Bepaal de uitslag
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
$na_i = 0;
$na_jaar_end = 0;
ifThenElse($na_i < $na_n,
$na_row = array\at($na_rows, $na_n - 1);
$na_calc_tot_end = hash\get($na_row, 'surplus');
$na_calc_hom_end = hash\get($na_row, 'surplusHomeopathie');
$na_calc_med_end = hash\get($na_row, 'surplusMedisch');
$na_jaar_end = hash\get($na_row, 'jaar');
,
$na_calc_tot_end = 0;
$na_calc_hom_end = 0;
$na_calc_med_end = 0;
$na_jaar_end = 0;
);
log('warning', 'calc_tot_end = ', $na_calc_tot_end, ', calc_hom_end = ', $na_calc_hom_end, ', calc_med_end = ', $na_calc_med_end);
while($na_i < $na_n,
$na_row = array\at($na_rows, $na_i);
$na_jaar = hash\get($na_row, 'jaar');
$na_uitleg_hom = hash\get($na_row, 'uitleg_hom');
$na_uitleg_med = hash\get($na_row, 'uitleg_med');
$na_uitleg_tot = hash\get($na_row, 'uitleg');
$na_tekort_aangevuld_naar = hash\get($na_row, 'tekort_aangevuld_naar');
$na_tekort_aangevuld_vanuit = hash\get($na_row, 'tekort_aangevuld_vanuit');
$na_correctie_aangevuld_naar = hash\get($na_row, 'correctie_aangevuld_naar');
$na_correctie_aangevuld_vanuit = hash\get($na_row, 'correctie_aangevuld_vanuit');
$na_calc_tot = hash\get($na_row, 'surplus');
$na_calc_hom = hash\get($na_row, 'surplusHomeopathie');
$na_calc_med = hash\get($na_row, 'surplusMedisch');
$na_mee_tot = hash\get($na_row, 'meegenomen');
$na_mee_hom = hash\get($na_row, 'meegenomen_hom');
$na_mee_med = hash\get($na_row, 'meegenomen_med');
$na_tekort = -1 * hash\get($na_row, 'tekort');
$na_tekort_hom = -1 * hash\get($na_row, 'tekort_hom');
$na_tekort_med = -1 * hash\get($na_row, 'tekort_med');
//logAdd(log, 'info', 'jaar:', $na_jaar, ', tekort_hom: ', $na_tekort_hom, ' tekort_med: ', $na_tekort_med, ', tekort_tot: ', $na_tekort);
// Corrigeer voor het dashboard de tekorten nog met meegenomen uit voorgaande jaren
$na_tekort = $na_tekort - $na_mee_tot;
$na_tekort_hom = $na_tekort_hom - $na_mee_hom;
$na_tekort_med = $na_tekort_med - $na_mee_med;
$na_dashboard = '';
$na_dashb_entry_hom = '';
$na_dashb_entry_med = '';
$na_dashb_entry_tot = '';
ifThenElse($na_i == ($na_n - 1),
$na_mee_tot_next = 0;
$na_mee_hom_next = 0;
$na_mee_med_next = 0;
,
$na_row_next = array\at($na_rows, $na_i + 1);
$na_mee_tot_next = hash\get($na_row_next, 'meegenomen');
$na_mee_hom_next = hash\get($na_row_next, 'meegenomen_hom');
$na_mee_med_next = hash\get($na_row_next, 'meegenomen_med');
);
$na_correctie_uit_opvolgend_jaar = hash\get($na_row, 'correctie_uit_opvolgend_jaar');
$na_correctie_uit_opvolgend_jaar_hom = hash\get($na_row, 'correctie_uit_opvolgend_jaar_hom');
$na_correctie_uit_opvolgend_jaar_med = hash\get($na_row, 'correctie_uit_opvolgend_jaar_med');
// Bepaal of er vóór het einde vanaf deze index nog ergens een surplus is, want
// dan is een negatief eindtotaal niet van toepassing.
//logAdd(log, 'warning', 'jaar = ', $na_jaar, ' - intermediate surplus?');
$na_j = $na_i;
$has_intermediate_hom_surplus = false;
$has_intermediate_med_surplus = false;
$has_intermediate_tot_surplus = false;
while($na_j < $na_n && !($has_intermediate_hom_surplus && $has_intermediate_med_surplus && $has_intermediate_tot_surplus),
$na_row_j = array\at($na_rows, $na_j);
$na_j_jaar = hash\get($na_row_j, 'jaar');
$na_j_calc_tot = hash\get($na_row_j, 'surplus');
$na_j_calc_hom = hash\get($na_row_j, 'surplusHomeopathie');
$na_j_calc_med = hash\get($na_row_j, 'surplusMedisch');
$na_j_tekort = hash\get($na_row_j, 'tekort');
$na_j_tekort_hom = hash\get($na_row_j, 'tekort_hom');
$na_j_tekort_med = hash\get($na_row_j, 'tekort_med');
$has_intermediate_tot_surplus = ($na_j_calc_tot > 0.0 || ($na_j_calc_tot == 0.0 && $na_j_tekort >= 0.0));
$has_intermediate_hom_surplus = ($na_j_calc_hom > 0.0 || ($na_j_calc_hom == 0.0 && $na_j_tekort_hom >= 0.0));
$has_intermediate_med_surplus = ($na_j_calc_med > 0.0 || ($na_j_calc_med == 0.0 && $na_j_tekort_med >= 0.0));
//logAdd(log, 'info', 'jaar = ', $na_j_jaar, ', calc_tot = ', $na_j_calc_tot, ', tekort = ', $na_j_tekort, ' result = ', $has_intermediate_tot_surplus);
$na_j = $na_j + 1;
);
//logAdd(log, 'info', 'intermediate surplus = ', $has_intermediate_tot_surplus);
// Begin met uitleggen
strAdd($na_uitleg_hom, "[IMeegenomen uit ", $na_jaar - 1, " :][NI", number\format($na_mee_hom, 2), "]%%");
ifThenElse($na_i == ($na_n - 1),
strAdd($na_uitleg_hom, "[TGecumuleerde nascholingsuitkomst:][N", number\format($na_calc_hom, 2), "]%%");
,
strAdd($na_uitleg_hom, "[IDoorgegeven aan ", $na_jaar + 1, " :][NI", number\format(-1 * $na_mee_hom_next, 2), "]%%");
ifThen($na_calc_hom > 0 && $na_calc_tot <= 0,
strAdd($na_uitleg_hom, "[ESurplus van ", number\format($na_calc_hom, 2), " Homeopathie dagen kunnen niet worden doorgegeven, omdat het totaal ontoereikend isE]%%");
);
);
ifThenElse($na_tekort_hom <= 0,
ifThenElse($na_calc_hom == 0.0,
$na_dashb_entry_hom = string\concatenate("[VTotaal Klassieke Homeopathie voldoendeV]%%");
$na_status_hom = 'voldoet';
,
$na_dashb_entry_hom = string\concatenate("[VTotaal Klassieke Homeopathie voldoende (surplus: ", number\format($na_calc_hom, 2), ")V]%%");
$na_status_hom = 'voldoet';
);
,
ifThenElse($na_calc_hom >= 0,
$na_dashb_entry_hom = string\concatenate("[VTotaal Klassieke Homeopathie voldoende (gecompenseerd)V]%%");
,
$na_dashb_entry_hom = string\concatenate("[OTotaal Klassieke Homeopathie onvoldoende (tekort: ", number\format(-1 * $na_calc_hom, 2), ")O]%%");
$na_status_hom = 'voldoet-niet';
);
);
$na_uitleg_hom = string\concatenate($na_dashb_entry_hom, $na_uitleg_hom);
ifThenElse($na_jaar >= $na_methode_1_max_jaar,
strAdd($na_uitleg_med, "[IMeegenomen ", $na_jaar - 1, " :][NI", number\format($na_mee_med, 2), "]%%");
ifThenElse($na_i == ($na_n - 1),
strAdd($na_uitleg_med, "[TGecumuleerde nascholingsuitkomst:][N", number\format($na_calc_med, 2), "]%%");
,
strAdd($na_uitleg_med, "[IDoorgegeven aan ", $na_jaar + 1, " :][NI", number\format(-1 * $na_mee_med_next, 2), "]%%");
ifThen($na_calc_med > 0 && $na_calc_tot <= 0,
strAdd($na_uitleg_med, "[ESurplus van ", number\format($na_calc_med, 2), " Medische dagen kunnen niet worden doorgegeven, omdat het totaal ontoereikend isE]%%");
);
);
ifThenElse($na_tekort_med <= 0,
ifThenElse($na_calc_med == 0.0,
$na_dashb_entry_med = string\concatenate("[VTotaal Medisch voldoendeV]%%");
$na_status_med = 'voldoet';
,
$na_dashb_entry_med = string\concatenate("[VTotaal Medisch voldoende (surplus: ", number\format($na_calc_med, 2), ")V]%%");
$na_status_med = 'voldoet';
);
,
ifThenElse($na_calc_med >= 0,
$na_dashb_entry_med = string\concatenate("[VTotaal Medisch voldoende (gecompenseerd)V]%%");
$na_status_med = 'voldoet';
,
$na_dashb_entry_med = string\concatenate("[OTotaal Medisch onvoldoende (tekort: ", number\format(-1 * $na_calc_med, 2), ")O]%%");
$na_status_hom = 'voldoet-niet';
);
);
$na_uitleg_med = string\concatenate($na_dashb_entry_med, $na_uitleg_med);
,
$na_dashb_entry_med = '[V - V]%%';
);
log('warning', 'jaar:', $na_jaar, ', tot:', $na_calc_tot, ', correctie:', $na_correctie_uit_opvolgend_jaar, ', na_mee_tot:', $na_mee_tot_next);
ifThen($na_correctie_aangevuld_naar > 0,
//strAdd($na_uitleg_tot, '[IDagen aangevuld naar jaar ', $na_jaar - 1, ":][NI", number\format(-1 * $na_correctie_aangevuld_naar, 2), ']%%');
strAdd($na_uitleg_tot, '[IDagen aangevuld naar:][NI', number\format(-1 * $na_correctie_aangevuld_naar, 2), ']%%');
strAdd($na_uitleg_tot, $na_tekort_aangevuld_naar);
);
ifThen($na_correctie_aangevuld_vanuit > 0,
//strAdd($na_uitleg_tot, '[IDagen aangevuld vanuit jaar ', $na_jaar + 1, ":][NI", number\format($na_correctie_aangevuld_vanuit, 2), ']%%');
strAdd($na_uitleg_tot, '[IDagen aangevuld vanuit:][NI', number\format($na_correctie_aangevuld_vanuit, 2), ']%%');
strAdd($na_uitleg_tot, $na_tekort_aangevuld_vanuit);
);
strAdd($na_uitleg_tot, "[IMeegenomen uit jaar ", $na_jaar - 1, " :][NI", number\format($na_mee_tot, 2), "]%%");
ifThen($na_mee_hom > 0,
strAdd($na_uitleg_tot, "[IIWaarvan dagen homeopathie:][NII", number\format($na_mee_hom, 2), "]%%");
);
ifThen($na_mee_med > 0,
strAdd($na_uitleg_tot, "[IIWaarvan dagen medisch:][NII", number\format($na_mee_med, 2), "]%%");
);
// Dit blijkt nodig te zijn (bug in ESPOCRM?), anders wordt na_mee_tot_hm gewoon niet berekend.
$na_mee_tot_hm = $na_mee_tot;
$na_mee_tot_hm = $na_mee_tot_hm - $na_mee_hom;
$na_mee_tot_hm = $na_mee_tot_hm - $na_mee_med;
ifThen($na_mee_tot_hm > 0,
strAdd($na_uitleg_tot, "[IIWaarvan dagen nascholing:][NII", number\format($na_mee_tot_hm, 2), "]%%");
);
ifThenElse($na_i == ($na_n - 1),
strAdd($na_uitleg_tot, "[TGecumuleerde nascholingsuitkomst:][N", number\format($na_calc_tot, 2), "]%%");
,
strAdd($na_uitleg_tot, "[IDoorgegeven aan ", $na_jaar + 1, " :][NI", number\format(-1 * $na_mee_tot_next, 2), "]%%");
ifThen($na_mee_hom_next > 0,
strAdd($na_uitleg_tot, "[IIWaarvan dagen homeopathie:][NII", number\format($na_mee_hom_next, 2), "]%%");
);
ifThen($na_mee_med_next > 0,
strAdd($na_uitleg_tot, "[IIWaarvan dagen medisch:][NII", number\format($na_mee_med_next, 2), "]%%");
);
// Dit blijkt nodig te zijn (bug in ESPOCRM?), anders wordt na_mee_tot_hm_next gewoon niet berekend.
$na_mee_tot_hm_next = $na_mee_tot_next;
$na_mee_tot_hm_next = $na_mee_tot_hm_next - $na_mee_hom_next;
$na_mee_tot_hm_next = $na_mee_tot_hm_next - $na_mee_med_next;
ifThen($na_mee_tot_hm_next > 0,
strAdd($na_uitleg_tot, "[IIWaarvan dagen nascholing:][NII", number\format($na_mee_tot_hm_next, 2), "]%%");
);
);
ifThenElse($na_tekort <= 0,
ifThenElse($na_calc_tot == 0.0,
$na_dashb_entry_tot = string\concatenate("[VNascholingsdagen voldoendeV]%%");
$na_status = 'voldoet';
,
$na_dashb_entry_tot = string\concatenate("[VNascholingsdagen voldoende (surplus: ", number\format($na_calc_tot, 2), ")V]%%");
$na_status = 'voldoet';
);
,
ifThenElse($na_calc_tot >= 0,
$na_dashb_entry_tot = string\concatenate("[VNascholingsdagen voldoende (gecompenseerd)V]%%");
$na_status = 'voldoet';
,
$na_dashb_entry_tot = string\concatenate("[ONascholingsdagen onvoldoende (tekort: ", number\format(-1 * $na_calc_tot, 2), ")O]%%");
$na_status = 'voldoet-niet';
);
);
$na_uitleg_tot = string\concatenate($na_dashb_entry_tot, $na_uitleg_tot);
ifThenElse($na_jaar < $na_methode_1_max_jaar,
$na_dashb_entry_med = string\replace($na_dashb_entry_med, '[V', string\concatenate('<span ', $na_style_nstd_nvt, '>'));
$na_dashb_entry_med = string\replace($na_dashb_entry_med, '[O', string\concatenate('<span ', $na_style_nstd_nvt, '>'));
,
ifThenElse($na_jaar == $na_methode_1_max_jaar,
$na_dashb_entry_med = string\replace($na_dashb_entry_med, '[V', string\concatenate('<span ', $na_style_nstd_goed, '>'));
$na_dashb_entry_med = string\replace($na_dashb_entry_med, '[O', string\concatenate('<span ', $na_style_nstd_goed, '>'));
,
$na_dashb_entry_med = string\replace($na_dashb_entry_med, '[V', string\concatenate('<span ', $na_style_nstd_goed, '>'));
$na_dashb_entry_med = string\replace($na_dashb_entry_med, '[O', string\concatenate('<span ', $na_style_nstd_tekort, '>'));
)
);
$na_dashb_entry_hom = string\replace($na_dashb_entry_hom, '[V', string\concatenate('<span ', $na_style_nstd_goed, '>'));
$na_dashb_entry_hom = string\replace($na_dashb_entry_hom, '[O', string\concatenate('<span ', $na_style_nstd_tekort, '>'));
$na_dashb_entry_tot = string\replace($na_dashb_entry_tot, '[V', string\concatenate('<span ', $na_style_nstd_goed, '>'));
$na_dashb_entry_tot = string\replace($na_dashb_entry_tot, '[O', string\concatenate('<span ', $na_style_nstd_tekort, '>'));
$na_dashb_entry_tot = string\replace($na_dashb_entry_tot, 'V]%%', '</span>');
$na_dashb_entry_tot = string\replace($na_dashb_entry_tot, 'O]%%', '</span>');
$na_dashb_entry_hom = string\replace($na_dashb_entry_hom, 'V]%%', '</span>');
$na_dashb_entry_hom = string\replace($na_dashb_entry_hom, 'O]%%', '</span>');
$na_dashb_entry_med = string\replace($na_dashb_entry_med, 'V]%%', '</span>');
$na_dashb_entry_med = string\replace($na_dashb_entry_med, 'O]%%', '</span>');
$na_dashb_entry_hom = string\replace($na_dashb_entry_hom, "Totaal Klassieke Homeopathie", "Kl. Hom.");
$na_dashb_entry_med = string\replace($na_dashb_entry_med, "Totaal Medisch", "Medisch");
$na_dashb_entry_hom = string\replace($na_dashb_entry_hom, '(surplus: 0,0)', '');
$na_dashb_entry_med = string\replace($na_dashb_entry_med, '(surplus: 0,0)', '');
$na_dashb_entry_tot = string\replace($na_dashb_entry_tot, '(surplus: 0,0)', '');
$na_dashboard = string\concatenate($na_dashb_entry_hom, $na_dashb_entry_med, $na_dashb_entry_tot);
$na_row = hash\set($na_row, 'uitleg', $na_uitleg_tot);
$na_row = hash\set($na_row, 'uitleg_hom', $na_uitleg_hom);
$na_row = hash\set($na_row, 'uitleg_med', $na_uitleg_med);
$na_row = hash\set($na_row, 'dashboard', $na_dashboard);
$na_row = hash\set($na_row, 'status', $na_status);
$na_row = hash\set($na_row, 'status_hom', $na_status_hom);
$na_row = hash\set($na_row, 'status_med', $na_status_med);
$na_rows = array\set($na_rows, $na_i, $na_row);
$na_i = $na_i + 1;
);
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Bewerk alle uitleggen
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
$na_i = 0;
while($na_i < $na_n,
$na_row = array\at($na_rows, $na_i);
log('warning', 'na_i=', $na_i, ', got row');
$na_jaar = hash\get($na_row, 'jaar');
$na_bep_rep = 'bepaald';
log('warning', 'na_i=', $na_i, ', got jaar=', $na_jaar);
$na_report = configGet('nascholingstotaal-rapport-jaar');
$na_report = string\replace($na_report, '%jaar%', toString($na_jaar));
$na_report = string\replace($na_report, '%bepaald%', $na_bep_rep);
$na_uitleg_hom = hash\get($na_row, 'uitleg_hom');
$na_uitleg_med = hash\get($na_row, 'uitleg_med');
$na_uitleg_tot = hash\get($na_row, 'uitleg');
$na_report = string\replace($na_report, '%tot%', $na_uitleg_tot);
$na_report = string\replace($na_report, '%hom%', $na_uitleg_hom);
ifThenElse($na_jaar >= $na_methode_1_max_jaar,
$na_report = string\replace($na_report, '%med%', $na_uitleg_med);
,
$na_report = string\replace($na_report, '%med%', '');
);
$na_report = string\replace($na_report, '[T', string\concatenate('<td ', $na_style_rubric, '>'));
$na_report = string\replace($na_report, '[S', '<td colspan="2">');
$na_report = string\replace($na_report, '[NII', string\concatenate('<td ', $na_style_dagen_inspr2, '>'));
$na_report = string\replace($na_report, '[NI', string\concatenate('<td ', $na_style_dagen_inspr, '>'));
$na_report = string\replace($na_report, '[N', string\concatenate('<td ', $na_style_dagen, '>'));
$na_report = string\replace($na_report, '[V', string\concatenate('<td colspan="2" ', $na_style_kop, '><span ', $na_style_nstd_goed_report, '>'));
$na_report = string\replace($na_report, '[O', string\concatenate('<td colspan="2" ', $na_style_kop, '><span ', $na_style_nstd_tekort_report, '>'));
$na_report = string\replace($na_report, '[E', string\concatenate('<td colspan="2" ', $na_style_rubric, '><span ', $na_style_probleem, '>'));
$na_report = string\replace($na_report, '[W', string\concatenate('<td ', $na_style_rubric, '><span ', $na_style_waarschuwing, '>'));
$na_report = string\replace($na_report, '[II', string\concatenate('<td ', $na_style_rubric, '><span ', $na_style_sub2_rubric, '>'));
$na_report = string\replace($na_report, '[I', string\concatenate('<td ', $na_style_rubric, '><span ', $na_style_sub_rubric, '>'));
$na_report = string\replace($na_report, '[R', string\concatenate('<td colspan="2" ', $na_style_rubric, '><span ', $na_style_sub_rubric, '>'));
$na_report = string\replace($na_report, "O]", "</span></td>");
$na_report = string\replace($na_report, "V]", "</span></td>");
$na_report = string\replace($na_report, "E]", "</span></td>");
$na_report = string\replace($na_report, "W]", "</span></td>");
$na_report = string\replace($na_report, "I]", "</span></td>");
$na_report = string\replace($na_report, "R]", "</span></td>");
$na_report = string\replace($na_report, "]", "</td>");
$na_report = string\replace($na_report, '%%', '</tr><tr>\n');
$na_row = hash\set($na_row, 'na_report', $na_report);
$na_rows = array\set($na_rows, $na_i, $na_row);
$na_i = $na_i + 1;
);
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Zet al die totalen weer in de database
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
$na_i = 0;
while($na_i < $na_n,
$na_row = array\at($na_rows, $na_i);
$na_id = hash\get($na_row, 'id');
$na_calc_tot = hash\get($na_row, 'surplus');
$na_calc_hom = hash\get($na_row, 'surplusHomeopathie');
$na_calc_med = hash\get($na_row, 'surplusMedisch');
$na_dashboard = hash\get($na_row, 'dashboard');
$na_report = hash\get($na_row, 'na_report');
$na_status = hash\get($na_row, 'status');
$na_status_hom = hash\get($na_row, 'status_hom');
$na_status_med = hash\get($na_row, 'status_med');
$na_status_all = $na_status;
ifThen($na_status_all == 'voldoet-niet-na-saldering', $na_status_all = 'voldoet-niet');
ifThen($na_status_hom == 'voldoet-niet' || $na_status_hom == 'voldoet-niet-na-saldering', $na_status_all = 'voldoet-niet');
ifThen($na_status_med == 'voldoet-niet' || $na_status_med == 'voldoet-niet-na-saldering', $na_status_all = 'voldoet-niet');
ifThen($na_status_all == 'voldoet-na-saldering', $na_status_all = 'voldoet');
record\update('Nascholingstotaal', $na_id,
'surplus', $na_calc_tot,
'surplusMedisch', $na_calc_med,
'surplusHomeopathie', $na_calc_hom,
'dashboard', $na_dashboard,
'berekeningsuitleg', $na_report,
'status', $na_status_all
);
$na_i = $na_i + 1;
);
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Klaar.
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
global\unset($na_in_calc_key, true);