httemplate/search/sales_pkg_class.html

   1 <& elements/search.html,
   2      'title'         => $title,
   3      'name_singular' => 'package class',
   4      'header'        => [ 'Package class', 'Sales', 'Commission', ],
   5      'fields'        => [ 'classname', $sales_sub, $commission_sub, ],
   6      'links'         => [ '', $sales_link, $commission_link ],
   7      'align'         => 'lrr',
   8      'query'         => { 'table'   => 'sales_pkg_class',
   9                           'hashref' => { 'salesnum' => $salesnum },
  10                         },
  11      'count_query'   => "SELECT COUNT(*) FROM sales_pkg_class WHERE salesnum = $salesnum", #show some totals?
  12 &>
  13 <%init>
  14
  15 die "access denied"
  16   unless $FS::CurrentUser::CurrentUser->access_right('Financial reports');
  17
  18 my $conf = new FS::Conf;
  19
  20 my $money_char = $conf->config('money_char') || '$';
  21
  22 $cgi->param('salesnum') =~ /^(\d+)$/ or die 'illegal salesnum';
  23 my $salesnum = $1;
  24 my $sales = qsearchs('sales', { 'salesnum'=>$salesnum } )
  25   or die 'unknown salesnum';
  26
  27 my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi, '');
  28
  29 my $date_format = $conf->config('date_format') || '%m/%d/%Y';
  30
  31 my $title = $sales->salesperson. ' commission';
  32 $title .= ': '. time2str($date_format, $beginning). ' to '.
  33                 time2str($date_format, $ending)
  34   if $beginning;
  35
  36 my $cust_main_sales = $cgi->param('cust_main_sales') eq 'Y' ? 'Y' : '';
  37
  38 my $sales_link = [ 'cust_bill_pkg.cgi?'.
  39                      "begin=$beginning;".
  40                      "end=$ending;".
  41                      "cust_main_sales=$cust_main_sales;".
  42                      'salesnum='. $sales->salesnum. ';'.
  43                      'nottax=1;'.
  44                      'classnum=',
  45                    'classnum'
  46                  ];
  47
  48 my $sales_sub = sub {
  49   my $sales_pkg_class = shift;
  50
  51   #efficiency improvement: ask the db for a sum instead of all the records
  52   my $total_recur = 0;
  53   my @cust_bill_pkg = $sales->cust_bill_pkg(
  54     $beginning,
  55     $ending,
  56     'cust_main_sales' => $cust_main_sales,
  57     'classnum'        => $sales_pkg_class->classnum,
  58   );
  59   $total_recur += $_->recur foreach @cust_bill_pkg;
  60
  61   $money_char. sprintf('%.2f', $total_recur);
  62 };
  63
  64 my $commission_sub = sub {
  65   my $sales_pkg_class = shift;
  66
  67   #efficiency improvement: ask the db for a sum instead of all the records
  68   my $total_credit = 0;
  69   my @cust_credit  = $sales->cust_credit(
  70     $beginning,
  71     $ending,
  72     'commission_classnum' => $sales_pkg_class->classnum,
  73   );
  74   $total_credit += $_->amount foreach @cust_credit;
  75
  76   $money_char. sprintf('%.2f', $total_credit);
  77 };
  78
  79 my $commission_link = [ 'cust_credit.html?'.
  80                           "begin=$beginning;".
  81                           "end=$ending;".
  82                           "cust_main_sales=$cust_main_sales;".
  83                           'commission_salesnum='. $sales->salesnum. ';'.
  84                           'commission_classnum=',
  85                         'classnum'
  86                       ];
  87
  88 </%init>