httemplate/search/sales_pkg_class.html

   1 <& elements/commission.html,
   2   'title'         => $title,
   3   'name_singular' => 'package class',
   4   'header'        => [ 'Package class' ],
   5   'fields'        => [ 'classname' ],
   6   'links'         => [ '' ],
   7   'align'         => 'l',
   8   'query'         => \%query,
   9   'count_query'   => $count_query,
  10   'sales_detail_link'   => $sales_link,
  11   'credit_detail_link'  => $commission_link,
  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 $cgi->param('salesnum') =~ /^(\d+)$/ or die 'illegal salesnum';
  21 my $salesnum = $1;
  22 my $sales = FS::sales->by_key($salesnum);
  23
  24 my $title = $sales->salesperson . ' commission';
  25
  26 my %query = ( 'table'     => 'sales_pkg_class',
  27               'addl_from' => ' LEFT JOIN pkg_class USING (classnum)',
  28               'hashref'   => { 'salesnum' => $salesnum },
  29             );
  30 my $count_query = "SELECT COUNT(*) FROM sales_pkg_class WHERE salesnum = $salesnum";
  31
  32 my $cust_main_sales = $cgi->param('cust_main_sales') eq 'Y' ? 'Y' : '';
  33 $query{'cust_main_sales'} = $cust_main_sales;
  34
  35 my $sales_link = [ 'cust_bill_pkg.cgi?nottax=1;'.
  36                    "cust_main_sales=$cust_main_sales;salesnum=$salesnum;" .
  37                    'classnum=',
  38                    sub { shift->classnum || 0 },
  39                  ];
  40
  41 my $commission_link = [ 'cust_credit.html?'.
  42                         "cust_main_sales=$cust_main_sales;" .
  43                         "commission_salesnum=$salesnum;" .
  44                         'classnum=',
  45                         'classnum'
  46                       ];
  47
  48 </%init>