httemplate/search/report_receivables.cgi

   1 <%
   2
   3   my $charged = <<END;
   4   sum( charged
   5        - coalesce(
   6            ( select sum(amount) from cust_bill_pay
   7              where cust_bill.invnum = cust_bill_pay.invnum )
   8            ,0
   9          )
  10        - coalesce(
  11            ( select sum(amount) from cust_credit_bill
  12              where cust_bill.invnum = cust_credit_bill.invnum )
  13            ,0
  14          )
  15
  16      )
  17 END
  18
  19   my $owed_cols = <<END;
  20        coalesce(
  21          ( select $charged from cust_bill
  22            where cust_bill._date > extract(epoch from now())-2592000
  23              and cust_main.custnum = cust_bill.custnum
  24          )
  25          ,0
  26        ) as owed_0_30,
  27
  28        coalesce(
  29          ( select $charged from cust_bill
  30            where cust_bill._date >  extract(epoch from now())-5184000
  31              and cust_bill._date <= extract(epoch from now())-2592000
  32              and cust_main.custnum = cust_bill.custnum
  33          )
  34          ,0
  35        ) as owed_30_60,
  36
  37        coalesce(
  38          ( select $charged from cust_bill
  39            where cust_bill._date >  extract(epoch from now())-7776000
  40              and cust_bill._date <= extract(epoch from now())-5184000
  41              and cust_main.custnum = cust_bill.custnum
  42          )
  43          ,0
  44        ) as owed_60_90,
  45
  46        coalesce(
  47          ( select $charged from cust_bill
  48            where cust_bill._date <= extract(epoch from now())-7776000
  49              and cust_main.custnum = cust_bill.custnum
  50          )
  51          ,0
  52        ) as owed_90_pl,
  53
  54        coalesce(
  55          ( select $charged from cust_bill
  56            where cust_main.custnum = cust_bill.custnum
  57          )
  58          ,0
  59        ) as owed_total
  60 END
  61
  62   my $recurring = <<END;
  63         '0' != ( select freq from part_pkg
  64                    where cust_pkg.pkgpart = part_pkg.pkgpart )
  65 END
  66
  67   my $packages_cols = <<END;
  68
  69        ( select count(*) from cust_pkg
  70            where cust_main.custnum = cust_pkg.custnum
  71              and $recurring
  72              and ( cancel = 0 or cancel is null )
  73        ) as uncancelled_pkgs,
  74
  75        ( select count(*) from cust_pkg
  76            where cust_main.custnum = cust_pkg.custnum
  77              and $recurring
  78              and ( cancel = 0 or cancel is null )
  79              and ( susp = 0 or susp is null )
  80        ) as active_pkgs
  81
  82 END
  83
  84   my $where = <<END;
  85 where 0 <
  86   coalesce(
  87            ( select $charged from cust_bill
  88              where cust_main.custnum = cust_bill.custnum
  89            )
  90            ,0
  91          )
  92 END
  93
  94   my $agentnum = '';
  95   if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) {
  96     $agentnum = $1;
  97     $where .= " AND agentnum = '$agentnum' ";
  98   }
  99
 100   my $count_sql = "select count(*) from cust_main $where";
 101
 102   my $sql_query = {
 103     'table'     => 'cust_main',
 104     'hashref'   => {},
 105     'select'    => "*, $owed_cols, $packages_cols",
 106     'extra_sql' => "$where order by coalesce(lower(company), ''), lower(last)",
 107   };
 108
 109   if ( $agentnum ) {
 110     $owed_cols =~
 111       s/cust_bill\.custnum/cust_bill.custnum AND cust_main.agentnum = '$agentnum'/g;
 112   }
 113   my $total_sql = "select $owed_cols";
 114   my $total_sth = dbh->prepare($total_sql) or die dbh->errstr;
 115   $total_sth->execute or die $total_sth->errstr;
 116   my $row = $total_sth->fetchrow_hashref();
 117
 118   my $conf = new FS::Conf;
 119   my $money_char = $conf->config('money_char') || '$';
 120
 121   my $align = join('', map { /#/ ? 'r' : 'l' } FS::UI::Web::cust_header() ).
 122              'crrrrr';
 123
 124   my $clink = [ "${p}view/cust_main.cgi?", 'custnum' ];
 125
 126 %><%= include( 'elements/search.html',
 127                  'title'       => 'Accounts Receivable Aging Summary',
 128                  'name'        => 'customers',
 129                  'query'       => $sql_query,
 130                  'count_query' => $count_sql,
 131                  'header'      => [
 132                                     FS::UI::Web::cust_header(),
 133                                     'Status', # (me)',
 134                                     #'Status', # (cust_main)',
 135                                     '0-30',
 136                                     '30-60',
 137                                     '60-90',
 138                                     '90+',
 139                                     'Total',
 140                                   ],
 141                  'footer'      => [
 142                                     'Total',
 143                                     ( map '',
 144                                           ( 1 ..
 145                                             scalar(FS::UI::Web::cust_header()-1)
 146                                           )
 147                                     ),
 148                                     '',
 149                                     #'',
 150                                     sprintf( $money_char.'%.2f',
 151                                              $row->{'owed_0_30'} ),
 152                                     sprintf( $money_char.'%.2f',
 153                                              $row->{'owed_30_60'} ),
 154                                     sprintf( $money_char.'%.2f',
 155                                              $row->{'owed_60_90'} ),
 156                                     sprintf( $money_char.'%.2f',
 157                                              $row->{'owed_90_pl'} ),
 158                                     sprintf( '<b>'. $money_char.'%.2f'. '</b>',
 159                                              $row->{'owed_total'} ),
 160                                   ],
 161                  'fields'      => [
 162                                     \&FS::UI::Web::cust_fields,
 163                                     sub {
 164                                           my $row = shift;
 165                                           my $status = 'Cancelled';
 166                                           my $statuscol = 'FF0000';
 167                                           if ( $row->uncancelled_pkgs ) {
 168                                             $status = 'Suspended';
 169                                             $statuscol = 'FF9900';
 170                                             if ( $row->active_pkgs ) {
 171                                               $status = 'Active';
 172                                               $statuscol = '00CC00';
 173                                             }
 174                                           }
 175                                           $status;
 176                                         },
 177                                     #sub { ucfirst(shift->status) },
 178                                     sub { sprintf( $money_char.'%.2f',
 179                                                    shift->get('owed_0_30') ) },
 180                                     sub { sprintf( $money_char.'%.2f',
 181                                                    shift->get('owed_30_60') ) },
 182                                     sub { sprintf( $money_char.'%.2f',
 183                                                    shift->get('owed_60_90') ) },
 184                                     sub { sprintf( $money_char.'%.2f',
 185                                                    shift->get('owed_90_pl') ) },
 186                                     sub { sprintf( $money_char.'%.2f',
 187                                                    shift->get('owed_total') ) },
 188                                   ],
 189                  'links'       => [
 190                                     ( map $clink, FS::UI::Web::cust_header() ),
 191                                     '',
 192                                     #'',
 193                                     '',
 194                                     '',
 195                                     '',
 196                                     '',
 197                                     '',
 198                                   ],
 199                  #'align'       => 'rlccrrrrr',
 200                  'align'       => $align,
 201                  #'size'        => [ '', '', '-1', '-1', '', '', '', '',  '', ],
 202                  #'style'       => [ '', '',  'b',  'b', '', '', '', '', 'b', ],
 203                  'size'        => [ ( map '', FS::UI::Web::cust_header() ),
 204                                     '-1', '', '', '', '',  '', ],
 205                  'style'       => [ ( map '', FS::UI::Web::cust_header() ),
 206                                     'b', '', '', '', '', 'b', ],
 207                  'color'       => [
 208                                     ( map '', FS::UI::Web::cust_header() ),
 209                                     sub {
 210                                           my $row = shift;
 211                                           my $status = 'Cancelled';
 212                                           my $statuscol = 'FF0000';
 213                                           if ( $row->uncancelled_pkgs ) {
 214                                             $status = 'Suspended';
 215                                             $statuscol = 'FF9900';
 216                                             if ( $row->active_pkgs ) {
 217                                               $status = 'Active';
 218                                               $statuscol = '00CC00';
 219                                             }
 220                                           }
 221                                            $statuscol;
 222                                         },
 223                                     #sub { shift->statuscolor; },
 224                                     '',
 225                                     '',
 226                                     '',
 227                                     '',
 228                                     '',
 229                                   ],
 230
 231              )
 232 %>