| |
1 |
1 |
ad_page_contract { |
| |
2 |
2 |
Generates reports about the customers and their billed amount |
| |
3 |
3 |
by year, month and day |
| |
4 |
4 |
|
| |
5 |
5 |
@author Timo Hentschel (timo@timohentschel.de) |
| |
6 |
6 |
} { |
| |
7 |
7 |
{start_date "YYYY-MM-DD"} |
| |
8 |
8 |
{end_date "YYYY-MM-DD"} |
| |
9 |
9 |
{orderby ""} |
| |
10 |
10 |
{country_code:multiple ""} |
| |
|
11 |
{sector:multiple ""} |
| |
|
12 |
{category_id:multiple ""} |
| |
|
13 |
{manager_id ""} |
| |
|
14 |
{type ""} |
| |
11 |
15 |
} |
| |
12 |
16 |
|
| |
|
17 |
set user_id [auth::require_login] |
| |
|
18 |
set package_id [ad_conn package_id] |
| |
|
19 |
|
| |
|
20 |
set manager_p [group::member_p -group_name "Account Manager"] |
| |
|
21 |
set admin_p [permission::permission_p -object_id $package_id -privilege admin] |
| |
|
22 |
|
| |
|
23 |
# redirect if not admin and not account manager |
| |
|
24 |
if {!$admin_p && !$manager_p} { |
| |
|
25 |
ad_returnredirect "/" |
| |
|
26 |
ad_script_abort |
| |
|
27 |
} |
| |
|
28 |
|
| |
13 |
29 |
set page_title "[_ invoices.Customer_Invoices_Reports]" |
| |
14 |
30 |
set context [list $page_title] |
| |
15 |
31 |
|
| |
16 |
32 |
set base_url [ad_conn url] |
| |
17 |
33 |
set current_url [ad_conn url] |
| |
18 |
34 |
set clear_link [export_vars -base $current_url {page orderby organization_id}] |
| |
19 |
|
set export_vars [export_vars -form {page orderby organization_id}] |
| |
|
35 |
set export_vars [export_vars -form {orderby country_code:multiple sector:multiple category_id:multiple manager_id type}] |
| |
20 |
36 |
|
| |
21 |
37 |
set clear_p 1 |
| |
22 |
38 |
if {$start_date == "YYYY-MM-DD" && $end_date == "YYYY-MM-DD"} { |
| |
23 |
39 |
set clear_p 0 |
| |
24 |
40 |
} |
| |
25 |
41 |
|
| |
26 |
42 |
ad_return_template |
