diff options
author | Mark Wells <mark@freeside.biz> | 2013-10-12 18:43:54 -0700 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2013-10-12 18:43:54 -0700 |
commit | cd365522ec4e9f1b553bb1b5096c756c1fdb1d01 (patch) | |
tree | 8351e2f5bd91a8e3c34c431acf765c07c0baa232 /httemplate/search/sales_pkg_class.html | |
parent | 65f3ee811a83be47ef02e0919ec122ad4083ccbd (diff) |
sales person commission report fixes, #25255
Diffstat (limited to 'httemplate/search/sales_pkg_class.html')
-rw-r--r-- | httemplate/search/sales_pkg_class.html | 45 |
1 files changed, 27 insertions, 18 deletions
diff --git a/httemplate/search/sales_pkg_class.html b/httemplate/search/sales_pkg_class.html index c57aae66d..da5d512d5 100644 --- a/httemplate/search/sales_pkg_class.html +++ b/httemplate/search/sales_pkg_class.html @@ -1,10 +1,16 @@ <& elements/search.html, 'title' => $title, 'name_singular' => 'package class', - 'header' => [ 'Package class', 'Sales', 'Commission', ], - 'fields' => [ 'classname', $sales_sub, $commission_sub, ], - 'links' => [ '', $sales_link, $commission_link ], - 'align' => 'lrr', + 'header' => [ 'Package class', + 'One-Time Sales', + 'Recurring Sales', + 'Commission', ], + 'fields' => [ 'classname', + $sales_sub_maker->('setup'), + $sales_sub_maker->('recur'), + $commission_sub, ], + 'links' => [ '', '', '', $commission_link ], + 'align' => 'lrrr', 'query' => { 'table' => 'sales_pkg_class', 'hashref' => { 'salesnum' => $salesnum }, }, @@ -45,20 +51,23 @@ my $sales_link = [ 'cust_bill_pkg.cgi?'. 'classnum' ]; -my $sales_sub = sub { - my $sales_pkg_class = shift; - - #efficiency improvement: ask the db for a sum instead of all the records - my $total_recur = 0; - my @cust_bill_pkg = $sales->cust_bill_pkg( - $beginning, - $ending, - 'cust_main_sales' => $cust_main_sales, - 'classnum' => $sales_pkg_class->classnum, - ); - $total_recur += $_->recur foreach @cust_bill_pkg; - - $money_char. sprintf('%.2f', $total_recur); +my $sales_sub_maker = sub { + my $field = shift; + sub { + my $sales_pkg_class = shift; + + #efficiency improvement: ask the db for a sum instead of all the records + my $total = 0; + my @cust_bill_pkg = $sales->cust_bill_pkg( + $beginning, + $ending, + 'cust_main_sales' => $cust_main_sales, + 'classnum' => $sales_pkg_class->classnum, + ); + $total += $_->get($field) foreach @cust_bill_pkg; + + $money_char. sprintf('%.2f', $total); + }; }; my $commission_sub = sub { |