diff options
author | ivan <ivan> | 2009-06-25 01:28:53 +0000 |
---|---|---|
committer | ivan <ivan> | 2009-06-25 01:28:53 +0000 |
commit | fa19c2c557f7abd72f94357373290b99dd3297bf (patch) | |
tree | b60036e49f1c8fe298decdc26a5baeef70d391e3 /httemplate/search | |
parent | 8449080168affaabc1102234502bcd4fa491d615 (diff) |
tax adjustments, RT#5595
Diffstat (limited to 'httemplate/search')
-rw-r--r-- | httemplate/search/cust_tax_adjustment.html | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/httemplate/search/cust_tax_adjustment.html b/httemplate/search/cust_tax_adjustment.html new file mode 100644 index 000000000..dfc638e8b --- /dev/null +++ b/httemplate/search/cust_tax_adjustment.html @@ -0,0 +1,52 @@ +<% include( 'elements/search.html', + 'title' => $title, + 'name_singular' => 'tax adjustment', + 'query' => $query, + 'count_query' => $count_query, + 'header' => [ 'Tax', 'Amount', 'Comment', 'Invoice' ], + 'fields' => [ 'taxname', + sub { $money_char. shift->amount }, + 'comment', + sub { my $l = shift->cust_bill_pkg; + $l ? '#'.$l->invnum : ''; + }, + ], + 'links' => [ '', '', '', $ilink ], + ) +%> + +<%init> + +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right('Add customer tax adjustment'); + +my $conf = new FS::Conf; +my $money_char = $conf->config('money_char') || '$'; + +my $count_query = 'SELECT COUNT(*) FROM cust_tax_adjustment'; + +my $hashref = {}; + +my $custnum = $cgi->param('custnum'); +my $cust_main; +if ( $custnum ) { + $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } ); + $hashref->{'custnum'} = $custnum; +} + +my $title = 'Tax adjustments'; +$title .= ' for '. $cust_main->name if $cust_main; + +my $query = { 'table' => 'cust_tax_adjustment', + 'hashref' => $hashref, + }; + +my $ilink = [ $p.'view/cust_bill.cgi?', sub { my $l = shift->cust_bill_pkg; + $l ? $l->invnum : 'EXCEPTION'; + } + ]; + +#XXX would be nice to list customer fields on the report too, if we ever need +# to link to here without a custnum (i'm sure we will, eventually...) + +</%init> |