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 ( scalar(@cust_bill) == 1 && $total == 1) {
 101 #if ( $total == 1 ) {
 102   my $invnum = $cust_bill[0]->invnum;
 103   print $cgi->redirect(popurl(2). "view/cust_bill.cgi?$invnum");  #redirect
 104 } elsif ( scalar(@cust_bill) == 0 ) {
 105 %>
 106 <!-- mason kludge -->
 107 <%
 108   eidiot("Invoice not found.");
 109 } else {
 110 %>
 111 <!-- mason kludge -->
 112 <%
 113   #$total = scalar(@cust_bill);
 114
 115   #begin pager
 116   my $pager = '';
 117   if ( $total != scalar(@cust_bill) && $maxrecords ) {
 118     unless ( $offset == 0 ) {
 119       $cgi->param('offset', $offset - $maxrecords);
 120       $pager .= '<A HREF="'. $cgi->self_url.
 121                 '"><B><FONT SIZE="+1">Previous</FONT></B></A> ';
 122     }
 123     my $poff;
 124     my $page;
 125     for ( $poff = 0; $poff < $total; $poff += $maxrecords ) {
 126       $page++;
 127       if ( $offset == $poff ) {
 128         $pager .= qq!<FONT SIZE="+2">$page</FONT> !;
 129       } else {
 130         $cgi->param('offset', $poff);
 131         $pager .= qq!<A HREF="!. $cgi->self_url. qq!">$page</A> !;
 132       }
 133     }
 134     unless ( $offset + $maxrecords > $total ) {
 135       $cgi->param('offset', $offset + $maxrecords);
 136       $pager .= '<A HREF="'. $cgi->self_url.
 137                 '"><B><FONT SIZE="+1">Next</FONT></B></A> ';
 138     }
 139   }
 140   #end pager
 141
 142   print header("Invoice Search Results", menubar(
 143           'Main Menu', popurl(2)
 144         )), "$total matching invoices found<BR><BR>$pager", &table(), <<END;
 145       <TR>
 146         <TH></TH>
 147         <TH>Balance</TH>
 148         <TH>Amount</TH>
 149         <TH>Date</TH>
 150         <TH>Contact name</TH>
 151         <TH>Company</TH>
 152       </TR>
 153 END
 154
 155   my(%saw, $cust_bill);
 156   my($tot_balance, $tot_amount) = (0, 0); #BOGUS
 157   foreach $cust_bill (
 158     sort $sortby grep(!$saw{$_->invnum}++, @cust_bill)
 159   ) {
 160     my($invnum, $owed, $charged, $date ) = (
 161       $cust_bill->invnum,
 162       sprintf("%.2f", $cust_bill->owed),
 163       sprintf("%.2f", $cust_bill->charged),
 164       $cust_bill->_date,
 165     );
 166     my $pdate = time2str("%b %d %Y", $date);
 167
 168     $tot_balance += $owed;
 169     $tot_amount += $charged;
 170
 171     my $rowspan = 1;
 172
 173     my $view = popurl(2). "view/cust_bill.cgi?$invnum";
 174     print <<END;
 175       <TR>
 176         <TD ROWSPAN=$rowspan><A HREF="$view"><FONT SIZE=-1>$invnum</FONT></A></TD>
 177         <TD ROWSPAN=$rowspan ALIGN="right"><A HREF="$view"><FONT SIZE=-1>\$$owed</FONT></A></TD>
 178         <TD ROWSPAN=$rowspan ALIGN="right"><A HREF="$view"><FONT SIZE=-1>\$$charged</FONT></A></TD>
 179         <TD ROWSPAN=$rowspan><A HREF="$view"><FONT SIZE=-1>$pdate</FONT></A></TD>
 180 END
 181     my $custnum = $cust_bill->custnum;
 182     my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } );
 183     if ( $cust_main ) {
 184       my $cview = popurl(2). "view/cust_main.cgi?". $cust_main->custnum;
 185       my ( $name, $company ) = (
 186         $cust_main->last. ', '. $cust_main->first,
 187         $cust_main->company,
 188       );
 189       print <<END;
 190         <TD ROWSPAN=$rowspan><A HREF="$cview"><FONT SIZE=-1>$name</FONT></A></TD>
 191         <TD ROWSPAN=$rowspan><A HREF="$cview"><FONT SIZE=-1>$company</FONT></A></TD>
 192 END
 193     } else {
 194       print <<END
 195         <TD ROWSPAN=$rowspan COLSPAN=2>WARNING: couldn't find cust_main.custnum $custnum (cust_bill.invnum $invnum)</TD>
 196 END
 197     }
 198
 199     print "</TR>";
 200   }
 201   $tot_balance = sprintf("%.2f", $tot_balance);
 202   $tot_amount = sprintf("%.2f", $tot_amount);
 203   print <<END;
 204       <TR><TD></TD><TH><FONT SIZE=-1>Total</FONT></TH><TH><FONT SIZE=-1>Total</FONT></TH></TR>
 205       <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>
 206     </TABLE>$pager
 207   </BODY>
 208 </HTML>
 209 END
 210
 211 }
 212
 213 #
 214
 215 sub invnum_sort {
 216   $a->invnum <=> $b->invnum;
 217 }
 218
 219 sub custnum_sort {
 220   $a->custnum <=> $b->custnum || $a->invnum <=> $b->invnum;
 221 }
 222
 223 sub date_sort {
 224   $a->_date <=> $b->_date || $a->invnum <=> $b->invnum;
 225 }
 226 %>