httemplate/view/cust_bill_void.html

   1 <& /elements/header.html, mt('Voided Invoice'),  menubar(
   2   emt("View this customer (#[_1])",$display_custnum) => "${p}view/cust_main.cgi?$custnum",
   3 ) &>
   4
   5 <SCRIPT TYPE="text/javascript">
   6 function areyousure(href, message) {
   7   if (confirm(message) == true)
   8     window.location.href = href;
   9 }
  10 </SCRIPT>
  11 <% areyousure_link("${p}misc/unvoid-cust_bill_void.html?invnum=". $cust_bill_void->invnum,
  12                      emt('Are you sure you want to unvoid this invoice?'),
  13                      emt('Unvoid this invoice'), #tooltip
  14                      emt('Unvoid this invoice') #link
  15                   )
  16 %>
  17 <BR><BR>
  18
  19 % #voided PDFs?
  20 % #if ( $conf->exists('invoice_latex') ) {
  21 %#
  22 %#  <A HREF="<% $p %>view/cust_bill-pdf.cgi?<% $link %>"><% mt('View typeset invoice PDF') |h %></A>
  23 %#  <BR><BR>
  24 % #}
  25
  26 %#something very big and obvious showing its voided...
  27 <DIV STYLE="color:#FF0000; font-size:1000%; font-weight:bold; z-index:100;
  28             position: absolute; top: 300px; left: 130px;
  29             zoom: 1; filter: alpha(opacity=25); opacity: 0.25;
  30 ">VOID</DIV>
  31
  32 % if ( $conf->exists('invoice_html') ) {
  33   <% join('', $cust_bill_void->print_html(\%opt) ) %>
  34 % } else {
  35   <PRE><% join('', $cust_bill_void->print_text(\%opt) ) %></PRE>
  36 % }
  37
  38 <& /elements/footer.html &>
  39 <%init>
  40
  41 my $curuser = $FS::CurrentUser::CurrentUser;
  42
  43 die "access denied"
  44   unless $curuser->access_right('View invoices');
  45
  46 my $invnum;
  47 my($query) = $cgi->keywords;
  48 if ( $query =~ /^(\d+)$/ ) {
  49   $invnum = $1;
  50 } else {
  51   $invnum = $cgi->param('invnum');
  52 }
  53
  54 my $conf = new FS::Conf;
  55
  56 my %opt = (
  57   'unsquelch_cdr' => $conf->exists('voip-cdr_email'),
  58 );
  59
  60 my $cust_bill_void = qsearchs({
  61   'select'    => 'cust_bill_void.*',
  62   'table'     => 'cust_bill_void',
  63   #'addl_from' => 'LEFT JOIN cust_main USING ( custnum )',
  64   'hashref'   => { 'invnum' => $invnum },
  65   #'extra_sql' => ' AND '. $curuser->agentnums_sql,
  66 });
  67 die "Voided invoice #$invnum not found!" unless $cust_bill_void;
  68
  69 my $custnum = $cust_bill_void->custnum;
  70 my $display_custnum = $cust_bill_void->cust_main->display_custnum;
  71
  72 #my $link = "invnum=$invnum";
  73
  74 sub areyousure_link {
  75     my ($url,$msg,$title,$label) = (shift,shift,shift,shift);
  76     '<A HREF="javascript:areyousure(\''.$url.'\',\''.$msg.'\')" TITLE="'.$title.'">'.$label.'</A>';
  77 }
  78
  79 </%init>