Commit c7643b85 authored by gerd's avatar gerd

fix: the new extended reports did not print the totals per day/week/month

when skipping to a new project


git-svn-id: https://godirepo.camlcity.org/svn/app-wtimer/trunk@26 f6fe576d-e0d0-0310-b8e7-f4ac0f1a5269
parent 44db43e3
......@@ -268,6 +268,8 @@ object (self)
if !empty then
bprintf buf
"PROJECT DATE START END DELTA DESCRIPTION\r\n\r\n";
let new_proj =
Some entry.e_project <> !last in
let new_day =
!last <> None && not(same_day entry.e_day !last_date) in
let new_week =
......@@ -276,19 +278,19 @@ object (self)
new_day && not(same_month entry.e_day !last_date) in
let start_day =
!last=None || new_day in
if new_day && daily_total then (
if (new_proj || new_day) && daily_total then (
print_dy_sum();
dy_sum := Interval.from_string "0:0"
);
if new_week && weekly_total then (
if (new_proj || new_week) && weekly_total then (
print_wk_sum();
wk_sum := Interval.from_string "0:0"
);
if new_month && monthly_total then (
if (new_proj || new_month) && monthly_total then (
print_mo_sum();
mo_sum := Interval.from_string "0:0"
);
if Some entry.e_project <> !last && !last <> None then (
if new_proj && !last <> None then (
print_prj_sum();
prj_sum := Interval.from_string "0:0"
);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment