X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fsearch%2Freport_cust_bill_void.html;fp=httemplate%2Fsearch%2Freport_cust_bill_void.html;h=cb13b785a24de3b5e4699d42061365178c7bc4a2;hp=0000000000000000000000000000000000000000;hb=58f8f045141e56c38dd47bf7b9f33094236c0d0a;hpb=523a0d904238cd573e4ae6a4a12dfcfea37cd703 diff --git a/httemplate/search/report_cust_bill_void.html b/httemplate/search/report_cust_bill_void.html new file mode 100644 index 000000000..cb13b785a --- /dev/null +++ b/httemplate/search/report_cust_bill_void.html @@ -0,0 +1,102 @@ +<& /elements/header.html, mt($title, @title_arg) &> + +
+ + + +% unless ( $custnum ) { + + + + + + + + <& /elements/tr-select-agent.html, + 'curr_value' => scalar( $cgi->param('agentnum') ), + 'label' => emt('Agent'), + 'disable_empty' => 0, + &> + + <& /elements/tr-select-cust_class.html, + label => mt('Customer Class'), + field => 'cust_classnum', + multiple => 1, + 'pre_options' => [ '' => emt('(none)') ], + 'all_selected' => 1, + &> + +% if ( $cust_main ) { + +% } else { + <& /elements/tr-select-payby.html, + label => emt('Payment method:'), + payby_type => 'cust', + multiple => 1, + all_selected => 1, + &> +% } + +
+ Customer search options +
+
+ +% } + + + + + + + + <& /elements/tr-input-beginning_ending.html &> + + <& /elements/tr-input-lessthan_greaterthan.html, + label => emt('Charged'), + field => 'charged', + &> + + <& /elements/tablebreak-tr-title.html, + value => 'Void circumstances' + &> + <& /elements/tr-select-user.html, + field => 'void_usernum', + label => 'Voided by: ', + &> + <& /elements/tr-input-beginning_ending.html, prefix => 'void_' &> + +
+ Invoice search options +
+
+ + +
+ +<& /elements/footer.html &> +<%init> + +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right('List invoices'); + +my $conf = new FS::Conf; + +my $title = 'Voided Invoice Report'; +#false laziness w/report_cust_pkg.html +my @title_arg = (); + +my $custnum = ''; +my $cust_main = ''; +if ( $cgi->param('custnum') =~ /^(\d+)$/ ) { + $custnum = $1; + $cust_main = qsearchs({ + 'table' => 'cust_main', + 'hashref' => { 'custnum' => $custnum }, + 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, + }) or die "unknown custnum $custnum"; + $title .= ': [_1]'; + push @title_arg, $cust_main->name; +} + +