1 <& /elements/header.html, mt($title, @title_arg) &>
3 <FORM ACTION="cust_bill_void.html" METHOD="GET">
4 <INPUT TYPE="hidden" NAME="magic" VALUE="_date">
5 <INPUT TYPE="hidden" NAME="custnum" VALUE="<% $custnum %>">
7 % unless ( $custnum ) {
9 <TABLE BGCOLOR="#cccccc" CELLSPACING=0>
12 <TH CLASS="background" COLSPAN=2 ALIGN="left">
13 <FONT SIZE="+1">Customer search options</FONT>
17 <& /elements/tr-select-agent.html,
18 'curr_value' => scalar( $cgi->param('agentnum') ),
19 'label' => emt('Agent'),
23 <& /elements/tr-select-cust_class.html,
24 label => mt('Customer Class'),
25 field => 'cust_classnum',
27 'pre_options' => [ '' => emt('(none)') ],
32 <INPUT TYPE="hidden" NAME="payby" VALUE="<% $cust_main->payby %>">
34 <& /elements/tr-select-payby.html,
35 label => emt('Payment method:'),
47 <TABLE BGCOLOR="#cccccc" CELLSPACING=0>
50 <TH CLASS="background" COLSPAN=2 ALIGN="left">
51 <FONT SIZE="+1">Invoice search options</FONT>
55 <& /elements/tr-input-beginning_ending.html &>
57 <& /elements/tr-input-lessthan_greaterthan.html,
58 label => emt('Charged'),
62 <& /elements/tablebreak-tr-title.html,
63 value => 'Void circumstances'
65 <& /elements/tr-select-user.html,
66 field => 'void_usernum',
67 label => 'Voided by: ',
69 <& /elements/tr-input-beginning_ending.html, prefix => 'void_' &>
73 <INPUT TYPE="submit" VALUE="<% mt('Get Report') |h %>">
77 <& /elements/footer.html &>
81 unless $FS::CurrentUser::CurrentUser->access_right('List invoices');
83 my $conf = new FS::Conf;
85 my $title = 'Voided Invoice Report';
86 #false laziness w/report_cust_pkg.html
91 if ( $cgi->param('custnum') =~ /^(\d+)$/ ) {
93 $cust_main = qsearchs({
94 'table' => 'cust_main',
95 'hashref' => { 'custnum' => $custnum },
96 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
97 }) or die "unknown custnum $custnum";
99 push @title_arg, $cust_main->name;