httemplate/search/cust_bill_pkg.cgi

   1 <% include( 'elements/search.html',
   2                  'title'       => 'Line items',
   3                  'name'        => 'line items',
   4                  'query'       => $query,
   5                  'count_query' => $count_query,
   6                  'count_addl'  => [ $money_char. '%.2f total', ],
   7                  'header'      => [
   8                    '#',
   9                    'Description',
  10                    'Setup charge',
  11                    'Recurring charge',
  12                    'Invoice',
  13                    'Date',
  14                    FS::UI::Web::cust_header(),
  15                  ],
  16                  'fields'      => [
  17                    'billpkgnum',
  18                    sub { $_[0]->pkgnum > 0
  19                            ? $_[0]->get('pkg')
  20                            : $_[0]->get('itemdesc')
  21                        },
  22                    #strikethrough or "N/A ($amount)" or something these when
  23                    # they're not applicable to pkg_tax search
  24                    sub { sprintf($money_char.'%.2f', shift->setup ) },
  25                    sub { sprintf($money_char.'%.2f', shift->recur ) },
  26                    'invnum',
  27                    sub { time2str('%b %d %Y', shift->_date ) },
  28                    \&FS::UI::Web::cust_fields,
  29                  ],
  30                  'links'       => [
  31                    '',
  32                    '',
  33                    '',
  34                    '',
  35                    $ilink,
  36                    $ilink,
  37                    ( map { $_ ne 'Cust. Status' ? $clink : '' }
  38                          FS::UI::Web::cust_header()
  39                    ),
  40                  ],
  41                  'align' => 'rlrrrc'.FS::UI::Web::cust_aligns(),
  42                  'color' => [
  43                               '',
  44                               '',
  45                               '',
  46                               '',
  47                               '',
  48                               '',
  49                               FS::UI::Web::cust_colors(),
  50                             ],
  51                  'style' => [
  52                               '',
  53                               '',
  54                               '',
  55                               '',
  56                               '',
  57                               '',
  58                               FS::UI::Web::cust_styles(),
  59                             ],
  60            )
  61 %>
  62 <%init>
  63
  64 die "access denied"
  65   unless $FS::CurrentUser::CurrentUser->access_right('Financial reports');
  66
  67 #here is the agent virtualization
  68 my $agentnums_sql =
  69   $FS::CurrentUser::CurrentUser->agentnums_sql( 'table' => 'cust_main' );
  70
  71 my @where = ( $agentnums_sql );
  72
  73 my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi);
  74 push @where, "_date >= $beginning",
  75              "_date <= $ending";
  76
  77 push @where , " payby != 'COMP' "
  78   unless $cgi->param('include_comp_cust');
  79
  80 if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) {
  81   push @where, "cust_main.agentnum = $1";
  82 }
  83
  84 if ( $cgi->param('classnum') =~ /^(\d+)$/ ) {
  85   if ( $1 == 0 ) {
  86     push @where, "classnum IS NULL";
  87   } else {
  88     push @where, "classnum = $1";
  89   }
  90 }
  91
  92 if ( $cgi->param('out') ) {
  93
  94   push @where, "
  95     0 = (
  96       SELECT COUNT(*) FROM cust_main_county
  97       WHERE (    cust_main_county.county  = cust_main.county
  98               OR ( cust_main_county.county IS NULL AND cust_main.county  =  '' )
  99               OR ( cust_main_county.county  =  ''  AND cust_main.county IS NULL)
 100               OR ( cust_main_county.county IS NULL AND cust_main.county IS NULL)
 101             )
 102         AND (    cust_main_county.state   = cust_main.state
 103               OR ( cust_main_county.state  IS NULL AND cust_main.state  =  ''  )
 104               OR ( cust_main_county.state   =  ''  AND cust_main.state IS NULL )
 105               OR ( cust_main_county.state  IS NULL AND cust_main.state IS NULL )
 106             )
 107         AND cust_main_county.country = cust_main.country
 108         AND cust_main_county.tax > 0
 109     )
 110   ";
 111
 112 } elsif ( $cgi->param('country' ) ) {
 113
 114   my $county  = dbh->quote( $cgi->param('county')  );
 115   my $state   = dbh->quote( $cgi->param('state')   );
 116   my $country = dbh->quote( $cgi->param('country') );
 117   push @where,
 118     " ( county  = $county OR $county = '' ) ",
 119     " ( state   = $state  OR $state  = '' ) ",
 120     "   country = $country "
 121   ;
 122   if ( $cgi->param('taxname') ) {
 123     push @where, 'itemdesc = '. dbh->quote( $cgi->param('taxname') );
 124   #} elsif ( $cgi->param('taxnameNULL') {
 125   } else {
 126     push @where, "( itemdesc IS NULL OR itemdesc = '' OR itemdesc = 'Tax' )";
 127   }
 128
 129   push @where, ' taxclass = '. dbh->quote( $cgi->param('taxclass') )
 130     if $cgi->param('taxclass');
 131
 132   if ( $cgi->param('taxclassNULL') ) {
 133
 134     my %hash = ( 'country' => scalar($cgi->param('country')) );
 135     foreach (qw( state county )) {
 136       $hash{$_} = scalar($cgi->param($_)) if $cgi->param($_);
 137     }
 138     my $cust_main_county = qsearchs('cust_main_county', \%hash);
 139     die "unknown base region for empty taxclass" unless $cust_main_county;
 140
 141     my $same_sql = $cust_main_county->sql_taxclass_sameregion;
 142     push @where, $same_sql if $same_sql;
 143
 144   }
 145
 146 }
 147
 148 if ($cgi->param('itemdesc')) {
 149   if ($cgi->param('itemdesc') eq 'Tax') {
 150     push @where, "(itemdesc='Tax' OR itemdesc is null)";
 151   }else{
 152     push @where, 'itemdesc='. dbh->quote($cgi->param('itemdesc'));
 153   }
 154 }
 155 push @where, 'pkgnum != 0' if $cgi->param('nottax');
 156 push @where, 'pkgnum  = 0' if $cgi->param('istax');
 157
 158 push @where, " tax = 'Y' " if $cgi->param('cust_tax');
 159
 160 my $count_query;
 161 if ( $cgi->param('pkg_tax') ) {
 162
 163   $count_query =
 164     "SELECT COUNT(*), SUM(
 165                            ( CASE WHEN part_pkg.setuptax = 'Y'
 166                                   THEN cust_bill_pkg.setup
 167                                   ELSE 0
 168                              END
 169                            )
 170                            +
 171                            ( CASE WHEN part_pkg.recurtax = 'Y'
 172                                   THEN cust_bill_pkg.recur
 173                                   ELSE 0
 174                              END
 175                            )
 176                          )
 177     ";
 178
 179   push @where, "(    ( part_pkg.setuptax = 'Y' AND cust_bill_pkg.setup > 0 )
 180                   OR ( part_pkg.recurtax = 'Y' AND cust_bill_pkg.recur > 0 ) )",
 181                "( tax != 'Y' OR tax IS NULL )";
 182
 183 } else {
 184
 185   $count_query =
 186     "SELECT COUNT(*), SUM(cust_bill_pkg.setup + cust_bill_pkg.recur)";
 187
 188 }
 189
 190 my $where = ' WHERE '. join(' AND ', @where);
 191
 192 my $join_cust = "
 193     JOIN cust_bill USING ( invnum )
 194     LEFT JOIN cust_main USING ( custnum )
 195 ";
 196
 197 my $join_pkg = "
 198     LEFT JOIN cust_pkg USING ( pkgnum )
 199     LEFT JOIN part_pkg USING ( pkgpart )
 200 ";
 201
 202 $count_query .= " FROM cust_bill_pkg $join_cust $join_pkg $where";
 203
 204 my $query = {
 205   'table'     => 'cust_bill_pkg',
 206   'addl_from' => "$join_cust $join_pkg",
 207   'hashref'   => {},
 208   'select'    => join(', ',
 209                    'cust_bill_pkg.*',
 210                    'cust_bill._date',
 211                    'part_pkg.pkg',
 212                    'cust_main.custnum',
 213                    FS::UI::Web::cust_sql_fields(),
 214                  ),
 215   'extra_sql' => $where,
 216   'order_by'  => 'ORDER BY _date, billpkgnum',
 217 };
 218
 219 my $ilink = [ "${p}view/cust_bill.cgi?", 'invnum' ];
 220 my $clink = [ "${p}view/cust_main.cgi?", 'custnum' ];
 221
 222 my $conf = new FS::Conf;
 223 my $money_char = $conf->config('money_char') || '$';
 224
 225 </%init>