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' => [ '0' => emt('(none)') ],
36 <TABLE BGCOLOR="#cccccc" CELLSPACING=0>
39 <TH CLASS="background" COLSPAN=2 ALIGN="left">
40 <FONT SIZE="+1">Invoice search options</FONT>
44 <& /elements/tr-input-beginning_ending.html &>
46 <& /elements/tr-input-lessthan_greaterthan.html,
47 label => emt('Charged'),
51 <& /elements/tablebreak-tr-title.html,
52 value => 'Void circumstances'
54 <& /elements/tr-select-user.html,
55 field => 'void_usernum',
56 label => 'Voided by: ',
58 <& /elements/tr-input-beginning_ending.html, prefix => 'void_' &>
62 <INPUT TYPE="submit" VALUE="<% mt('Get Report') |h %>">
66 <& /elements/footer.html &>
70 unless $FS::CurrentUser::CurrentUser->access_right('List invoices');
72 my $conf = new FS::Conf;
74 my $title = 'Voided Invoice Report';
75 #false laziness w/report_cust_pkg.html
80 if ( $cgi->param('custnum') =~ /^(\d+)$/ ) {
82 $cust_main = qsearchs({
83 'table' => 'cust_main',
84 'hashref' => { 'custnum' => $custnum },
85 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
86 }) or die "unknown custnum $custnum";
88 push @title_arg, $cust_main->name;