htdocs/search/cust_bill.cgi

   1 #!/usr/bin/perl -Tw
   2 #
   3 # $Id: cust_bill.cgi,v 1.5 2000-07-17 16:45:41 ivan Exp $
   4 #
   5 # Usage: post form to:
   6 #        http://server.name/path/cust_bill.cgi
   7 #
   8 # ivan@voicenet.com 97-apr-4
   9 #
  10 # Changes to allow page to work at a relative position in server
  11 #       bmccane@maxbaud.net     98-apr-3
  12 #
  13 # $Log: cust_bill.cgi,v $
  14 # Revision 1.5  2000-07-17 16:45:41  ivan
  15 # first shot at invoice browsing and some other cleanups
  16 #
  17 # Revision 1.4  1999/02/28 00:03:54  ivan
  18 # removed misleading comments
  19 #
  20 # Revision 1.3  1999/01/19 05:14:11  ivan
  21 # for mod_perl: no more top-level my() variables; use vars instead
  22 # also the last s/create/new/;
  23 #
  24 # Revision 1.2  1998/12/17 09:41:07  ivan
  25 # s/CGI::(Base|Request)/CGI.pm/;
  26 #
  27
  28 use strict;
  29 use vars qw ( $cgi $invnum $query $sortby @cust_bill );
  30 use CGI;
  31 use CGI::Carp qw(fatalsToBrowser);
  32 use Date::Format;
  33 use FS::UID qw(cgisuidsetup);
  34 use FS::CGI qw(popurl header menubar eidiot table );
  35 use FS::Record qw(qsearch qsearchs);
  36 use FS::cust_bill;
  37 use FS::cust_main;
  38
  39 $cgi = new CGI;
  40 cgisuidsetup($cgi);
  41
  42 if ( $cgi->keywords ) {
  43   my($query) = $cgi->keywords;
  44   if ( $query eq 'invnum' ) {
  45     $sortby = \*invnum_sort;
  46     @cust_bill = qsearch('cust_bill', {} );
  47   } elsif ( $query eq 'date' ) {
  48     $sortby = \*date_sort;
  49     @cust_bill = qsearch('cust_bill', {} );
  50   } elsif ( $query eq 'custnum' ) {
  51     $sortby = \*custnum_sort;
  52     @cust_bill = qsearch('cust_bill', {} );
  53   } elsif ( $query eq 'OPEN_invnum' ) {
  54     $sortby = \*invnum_sort;
  55     @cust_bill = grep $_->owed != 0, qsearch('cust_bill', {} );
  56   } elsif ( $query eq 'OPEN_date' ) {
  57     $sortby = \*date_sort;
  58     @cust_bill = grep $_->owed != 0, qsearch('cust_bill', {} );
  59   } elsif ( $query eq 'OPEN_custnum' ) {
  60     $sortby = \*custnum_sort;
  61     @cust_bill = grep $_->owed != 0, qsearch('cust_bill', {} );
  62   } elsif ( $query =~ /^OPEN(\d+)_invnum$/ ) {
  63     my $open = $1 * 86400;
  64     $sortby = \*invnum_sort;
  65     @cust_bill =
  66       grep $_->owed != 0 && $_->_date < time - $open, qsearch('cust_bill', {} );
  67   } elsif ( $query =~ /^OPEN(\d+)_date$/ ) {
  68     my $open = $1 * 86400;
  69     $sortby = \*date_sort;
  70     @cust_bill =
  71       grep $_->owed != 0 && $_->_date < time - $open, qsearch('cust_bill', {} );
  72   } elsif ( $query =~ /^OPEN(\d+)_custnum$/ ) {
  73     my $open = $1 * 86400;
  74     $sortby = \*custnum_sort;
  75     @cust_bill =
  76       grep $_->owed != 0 && $_->_date < time - $open, qsearch('cust_bill', {} );
  77   } else {
  78     die "unknown query string $query";
  79   }
  80 } else {
  81   $cgi->param('invnum') =~ /^\s*(FS-)?(\d+)\s*$/;
  82   $invnum = $2;
  83   @cust_bill = qsearchs('cust_bill', { 'invnum' => $invnum } );
  84   $sortby = \*invnum_sort;
  85 }
  86
  87 if ( scalar(@cust_bill) == 1 ) {
  88   print $cgi->redirect(popurl(2). "view/cust_bill.cgi?$invnum");  #redirect
  89 } elsif ( scalar(@cust_bill) == 0 ) {
  90   eidiot("Invoice not found.");
  91 } else {
  92   my $total = scalar(@cust_bill);
  93   print $cgi->header( '-expires' => 'now' ),
  94         &header("Invoice Search Results", menubar(
  95           'Main Menu', popurl(2)
  96         )), "$total matching invoices found<BR>", &table(), <<END;
  97       <TR>
  98         <TH></TH>
  99         <TH>Balance</TH>
 100         <TH>Amount</TH>
 101         <TH>Date</TH>
 102         <TH>Contact name</TH>
 103         <TH>Company</TH>
 104       </TR>
 105 END
 106
 107   my(%saw, $cust_bill);
 108   foreach $cust_bill (
 109     sort $sortby grep(!$saw{$_->invnum}++, @cust_bill)
 110   ) {
 111     my($invnum, $owed, $charged, $date ) = (
 112       $cust_bill->invnum,
 113       $cust_bill->owed,
 114       $cust_bill->charged,
 115       $cust_bill->_date,
 116     );
 117     my $pdate = time2str("%b %d %Y", $date);
 118
 119     my $rowspan = 1;
 120
 121     my $view = popurl(2). "view/cust_bill.cgi?$invnum";
 122     print <<END;
 123       <TR>
 124         <TD ROWSPAN=$rowspan><A HREF="$view"><FONT SIZE=-1>$invnum</FONT></A></TD>
 125         <TD ROWSPAN=$rowspan><A HREF="$view"><FONT SIZE=-1>\$$owed</FONT></A></TD>
 126         <TD ROWSPAN=$rowspan><A HREF="$view"><FONT SIZE=-1>\$$charged</FONT></A></TD>
 127         <TD ROWSPAN=$rowspan><A HREF="$view"><FONT SIZE=-1>$pdate</FONT></A></TD>
 128 END
 129     my $custnum = $cust_bill->custnum;
 130     my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } );
 131     if ( $cust_main ) {
 132       my $cview = popurl(2). "view/cust_main.cgi?". $cust_main->custnum;
 133       my ( $name, $company ) = (
 134         $cust_main->last. ', '. $cust_main->first,
 135         $cust_main->company,
 136       );
 137       print <<END;
 138         <TD ROWSPAN=$rowspan><A HREF="$cview"><FONT SIZE=-1>$name</FONT></A></TD>
 139         <TD ROWSPAN=$rowspan><A HREF="$cview"><FONT SIZE=-1>$company</FONT></A></TD>
 140 END
 141     } else {
 142       print <<END
 143         <TD ROWSPAN=$rowspan COLSPAN=2>WARNING: couldn't find cust_main.custnum $custnum (cust_bill.invnum $invnum)</TD>
 144 END
 145     }
 146
 147     print "</TR>";
 148   }
 149
 150   print <<END;
 151     </TABLE>
 152   </BODY>
 153 </HTML>
 154 END
 155
 156 }
 157
 158 #
 159
 160 sub invnum_sort {
 161   $a->invnum <=> $b->invnum;
 162 }
 163
 164 sub custnum_sort {
 165   $a->custnum <=> $b->custnum || $a->invnum <=> $b->invnum;
 166 }
 167
 168 sub date_sort {
 169   $a->_date <=> $b->_date || $a->invnum <=> $b->invnum;
 170 }