httemplate/view/cust_bill.cgi

   1 <%
   2
   3 #untaint invnum
   4 my($query) = $cgi->keywords;
   5 $query =~ /^(\d+)$/;
   6 my $invnum = $1;
   7
   8 my $cust_bill = qsearchs('cust_bill',{'invnum'=>$invnum});
   9 die "Invoice #$invnum not found!" unless $cust_bill;
  10 my $custnum = $cust_bill->getfield('custnum');
  11
  12 #my $printed = $cust_bill->printed;
  13
  14 print header('Invoice View', menubar(
  15   "Main Menu" => $p,
  16   "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
  17 ));
  18
  19 print qq!<A HREF="${p}edit/cust_pay.cgi?$invnum">Enter payments (check/cash) against this invoice</A> | !
  20   if $cust_bill->owed > 0;
  21
  22 print qq!<A HREF="${p}misc/print-invoice.cgi?$invnum">Reprint this invoice</A>!.      '<BR><BR>';
  23
  24 foreach my $cust_bill_event (
  25   sort { $a->_date <=> $b->_date } $cust_bill->cust_bill_event
  26 ) {
  27   print time2str("%a %b %e %T %Y", $cust_bill_event->_date). ' - '.
  28         $cust_bill_event->part_bill_event->event. '<BR>';
  29 }
  30 print '<BR><PRE>';
  31
  32 print $cust_bill->print_text;
  33
  34         #formatting
  35         print <<END;
  36     </PRE></FONT>
  37   </BODY>
  38 </HTML>
  39 END
  40
  41 %>