RT# 31208 Docs $FS::Record::qsearch_qualify_columns
[freeside.git] / httemplate / misc / void-cust_bill.html
1 <& /elements/header-popup.html, mt('Void invoice') &>
2
3 <% include('/elements/error.html') %>
4
5 <% emt('Are you sure you want to void this invoice?') %>
6 <BR><BR>
7
8 <% emt("Invoice #[_1] ([_2])",$cust_bill->display_invnum, $money_char. $cust_bill->owed) %>
9 <BR><BR>
10
11 <FORM METHOD="POST" ACTION="process/void-cust_bill.html">
12 <INPUT TYPE="hidden" NAME="invnum" VALUE="<% $invnum %>">
13
14 <% ntable("#cccccc", 2) %>
15 <TR>
16   <TD ALIGN="right">Reason</TD>
17   <TD><INPUT TYPE="text" NAME="reason" VALUE="<% $cgi->param('reason') |h %>"></TD>
18 </TR>
19
20 % if ( $cust_bill->has_call_details ) {
21   <& /elements/tr-checkbox.html,
22        label => 'Reprocess CDRs',
23        field => 'reprocess_cdrs',
24        value => '1',
25   &>
26 % }
27
28 </TABLE>
29
30 <BR>
31 <CENTER>
32 <BUTTON TYPE="submit">Yes, void invoice</BUTTON>&nbsp;&nbsp;&nbsp;\
33 <BUTTON TYPE="button" onClick="parent.cClick();">No, do not void invoice</BUTTON>
34 </CENTER>
35
36 </FORM>
37 </BODY>
38 </HTML>
39 <%init>
40
41 die "access denied"
42   unless $FS::CurrentUser::CurrentUser->access_right('Void invoices');
43
44 my $conf = new FS::Conf;
45 my $money_char = $conf->config('money_char') || '$';
46
47 #untaint invnum
48 $cgi->param('invnum') =~ /^(\d+)$/ || die "Illegal invnum";
49 my $invnum = $1;
50
51 my $cust_bill = qsearchs('cust_bill',{'invnum'=>$invnum});
52
53 </%init>