httemplate/search/cust_bill.cgi

   1 <%
   2
   3 my $conf = new FS::Conf;
   4 my $maxrecords = $conf->config('maxsearchrecordsperpage');
   5
   6 my $orderby = ''; #removeme
   7
   8 my $limit = '';
   9 $limit .= "LIMIT $maxrecords" if $maxrecords;
  10
  11 my $offset = $cgi->param('offset') || 0;
  12 $limit .= " OFFSET $offset" if $offset;
  13
  14 my $total;
  15
  16 my(@cust_bill, $sortby);
  17 if ( $cgi->keywords ) {
  18   my($query) = $cgi->keywords;
  19   my $open_sql =
  20     "having 0 != charged - coalesce(sum(cust_bill_pay.amount),0)
  21                          - coalesce(sum(cust_credit_bill.amount),0)";
  22   my $having = '';
  23   my $where = '';
  24   if ( $query eq 'invnum' ) {
  25     $sortby = \*invnum_sort;
  26     #@cust_bill = qsearch('cust_bill', {} );
  27   } elsif ( $query eq 'date' ) {
  28     $sortby = \*date_sort;
  29     #@cust_bill = qsearch('cust_bill', {} );
  30   } elsif ( $query eq 'custnum' ) {
  31     $sortby = \*custnum_sort;
  32     #@cust_bill = qsearch('cust_bill', {} );
  33   } elsif ( $query eq 'OPEN_invnum' ) {
  34     $sortby = \*invnum_sort;
  35     #@cust_bill = grep $_->owed != 0, qsearch('cust_bill', {} );
  36     $having = $open_sql;
  37   } elsif ( $query eq 'OPEN_date' ) {
  38     $sortby = \*date_sort;
  39     #@cust_bill = grep $_->owed != 0, qsearch('cust_bill', {} );
  40     $having = $open_sql;
  41   } elsif ( $query eq 'OPEN_custnum' ) {
  42     $sortby = \*custnum_sort;
  43     #@cust_bill = grep $_->owed != 0, qsearch('cust_bill', {} );
  44     $having = $open_sql;
  45   } elsif ( $query =~ /^OPEN(\d+)_invnum$/ ) {
  46     my $open = $1 * 86400;
  47     $sortby = \*invnum_sort;
  48     #@cust_bill =
  49     #  grep $_->owed != 0 && $_->_date < time - $open, qsearch('cust_bill', {} );
  50     $having = $open_sql;
  51     $where = "where cust_bill._date < ". (time-$open);
  52   } elsif ( $query =~ /^OPEN(\d+)_date$/ ) {
  53     my $open = $1 * 86400;
  54     $sortby = \*date_sort;
  55     #@cust_bill =
  56     #  grep $_->owed != 0 && $_->_date < time - $open, qsearch('cust_bill', {} );
  57     $having = $open_sql;
  58     $where = "where cust_bill._date < ". (time-$open);
  59   } elsif ( $query =~ /^OPEN(\d+)_custnum$/ ) {
  60     my $open = $1 * 86400;
  61     $sortby = \*custnum_sort;
  62     #@cust_bill =
  63     #  grep $_->owed != 0 && $_->_date < time - $open, qsearch('cust_bill', {} );
  64     $having = $open_sql;
  65     $where = "where cust_bill._date < ". (time-$open);
  66   } else {
  67     die "unknown query string $query";
  68   }
  69
  70   my $extra_sql = "
  71     left outer join cust_bill_pay using ( invnum )
  72     left outer join cust_credit_bill using ( invnum )
  73     $where
  74     group by ". join(', ', map "cust_bill.$_", fields('cust_bill') ). ' '.
  75     $having;
  76
  77   my $statement = "SELECT COUNT(*) FROM cust_bill $extra_sql";
  78   my $sth = dbh->prepare($statement) or die dbh->errstr. " doing $statement";
  79   $sth->execute or die "Error executing \"$statement\": ". $sth->errstr;
  80
  81   $total = $sth->fetchrow_arrayref->[0];
  82
  83   @cust_bill = qsearch(
  84     'cust_bill',
  85     {},
  86     'cust_bill.*,
  87      charged - coalesce(sum(cust_bill_pay.amount),0)
  88               - coalesce(sum(cust_credit_bill.amount),0) as owed',
  89     "$extra_sql $orderby $limit"
  90   );
  91 } else {
  92   $cgi->param('invnum') =~ /^\s*(FS-)?(\d+)\s*$/;
  93   my $invnum = $2;
  94   @cust_bill = qsearchs('cust_bill', { 'invnum' => $invnum } );
  95   $sortby = \*invnum_sort;
  96   $total = scalar(@cust_bill);
  97 }
  98
  99 #if ( scalar(@cust_bill) == 1 ) {
 100 if ( $total == 1 ) {
 101   my $invnum = $cust_bill[0]->invnum;
 102   print $cgi->redirect(popurl(2). "view/cust_bill.cgi?$invnum");  #redirect
 103 } elsif ( scalar(@cust_bill) == 0 ) {
 104 %>
 105 <!-- mason kludge -->
 106 <%
 107   eidiot("Invoice not found.");
 108 } else {
 109 %>
 110 <!-- mason kludge -->
 111 <%
 112   #$total = scalar(@cust_bill);
 113
 114   #begin pager
 115   my $pager = '';
 116   if ( $total != scalar(@cust_bill) && $maxrecords ) {
 117     unless ( $offset == 0 ) {
 118       $cgi->param('offset', $offset - $maxrecords);
 119       $pager .= '<A HREF="'. $cgi->self_url.
 120                 '"><B><FONT SIZE="+1">Previous</FONT></B></A> ';
 121     }
 122     my $poff;
 123     my $page;
 124     for ( $poff = 0; $poff < $total; $poff += $maxrecords ) {
 125       $page++;
 126       if ( $offset == $poff ) {
 127         $pager .= qq!<FONT SIZE="+2">$page</FONT> !;
 128       } else {
 129         $cgi->param('offset', $poff);
 130         $pager .= qq!<A HREF="!. $cgi->self_url. qq!">$page</A> !;
 131       }
 132     }
 133     unless ( $offset + $maxrecords > $total ) {
 134       $cgi->param('offset', $offset + $maxrecords);
 135       $pager .= '<A HREF="'. $cgi->self_url.
 136                 '"><B><FONT SIZE="+1">Next</FONT></B></A> ';
 137     }
 138   }
 139   #end pager
 140
 141   print header("Invoice Search Results", menubar(
 142           'Main Menu', popurl(2)
 143         )), "$total matching invoices found<BR><BR>$pager", &table(), <<END;
 144       <TR>
 145         <TH></TH>
 146         <TH>Balance</TH>
 147         <TH>Amount</TH>
 148         <TH>Date</TH>
 149         <TH>Contact name</TH>
 150         <TH>Company</TH>
 151       </TR>
 152 END
 153
 154   my(%saw, $cust_bill);
 155   my($tot_balance, $tot_amount) = (0, 0); #BOGUS
 156   foreach $cust_bill (
 157     sort $sortby grep(!$saw{$_->invnum}++, @cust_bill)
 158   ) {
 159     my($invnum, $owed, $charged, $date ) = (
 160       $cust_bill->invnum,
 161       sprintf("%.2f", $cust_bill->owed),
 162       sprintf("%.2f", $cust_bill->charged),
 163       $cust_bill->_date,
 164     );
 165     my $pdate = time2str("%b %d %Y", $date);
 166
 167     $tot_balance += $owed;
 168     $tot_amount += $charged;
 169
 170     my $rowspan = 1;
 171
 172     my $view = popurl(2). "view/cust_bill.cgi?$invnum";
 173     print <<END;
 174       <TR>
 175         <TD ROWSPAN=$rowspan><A HREF="$view"><FONT SIZE=-1>$invnum</FONT></A></TD>
 176         <TD ROWSPAN=$rowspan ALIGN="right"><A HREF="$view"><FONT SIZE=-1>\$$owed</FONT></A></TD>
 177         <TD ROWSPAN=$rowspan ALIGN="right"><A HREF="$view"><FONT SIZE=-1>\$$charged</FONT></A></TD>
 178         <TD ROWSPAN=$rowspan><A HREF="$view"><FONT SIZE=-1>$pdate</FONT></A></TD>
 179 END
 180     my $custnum = $cust_bill->custnum;
 181     my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } );
 182     if ( $cust_main ) {
 183       my $cview = popurl(2). "view/cust_main.cgi?". $cust_main->custnum;
 184       my ( $name, $company ) = (
 185         $cust_main->last. ', '. $cust_main->first,
 186         $cust_main->company,
 187       );
 188       print <<END;
 189         <TD ROWSPAN=$rowspan><A HREF="$cview"><FONT SIZE=-1>$name</FONT></A></TD>
 190         <TD ROWSPAN=$rowspan><A HREF="$cview"><FONT SIZE=-1>$company</FONT></A></TD>
 191 END
 192     } else {
 193       print <<END
 194         <TD ROWSPAN=$rowspan COLSPAN=2>WARNING: couldn't find cust_main.custnum $custnum (cust_bill.invnum $invnum)</TD>
 195 END
 196     }
 197
 198     print "</TR>";
 199   }
 200   $tot_balance = sprintf("%.2f", $tot_balance);
 201   $tot_amount = sprintf("%.2f", $tot_amount);
 202   print <<END;
 203       <TR><TD></TD><TH><FONT SIZE=-1>Total</FONT></TH><TH><FONT SIZE=-1>Total</FONT></TH></TR>
 204       <TR><TD></TD><TD ALIGN="right"><FONT SIZE=-1>\$$tot_balance</FONT></TD><TD ALIGN="right"><FONT SIZE=-1>\$$tot_amount</FONT></TD></TD></TR>
 205     </TABLE>$pager
 206   </BODY>
 207 </HTML>
 208 END
 209
 210 }
 211
 212 #
 213
 214 sub invnum_sort {
 215   $a->invnum <=> $b->invnum;
 216 }
 217
 218 sub custnum_sort {
 219   $a->custnum <=> $b->custnum || $a->invnum <=> $b->invnum;
 220 }
 221
 222 sub date_sort {
 223   $a->_date <=> $b->_date || $a->invnum <=> $b->invnum;
 224 }
 225 %>